齐幼菊版《VisualBasic程序设计》课程作业任务及答案解析.docx
- 文档编号:8323036
- 上传时间:2023-01-30
- 格式:DOCX
- 页数:11
- 大小:141.44KB
齐幼菊版《VisualBasic程序设计》课程作业任务及答案解析.docx
《齐幼菊版《VisualBasic程序设计》课程作业任务及答案解析.docx》由会员分享,可在线阅读,更多相关《齐幼菊版《VisualBasic程序设计》课程作业任务及答案解析.docx(11页珍藏版)》请在冰豆网上搜索。
齐幼菊版《VisualBasic程序设计》课程作业任务及答案解析
浙江广播电视大学
《VisualBasic程序设计》课程作业
(一)
第1章初试可视化编程——HelloVB
1.单项选择题
(1)如果要设置窗体的标题栏,应选择()属性。
A.VisibleB.CaptionC.NameD.Text
(2)要使命令按钮不响应用户生成的事件,应设置命令按钮的()属性。
A.VisibleB.CaptionC.EnableD.Enabled
(3)要使标签能透出窗体的背景,应设置标签的()属性。
A.BackStyleB.BorderStyleC.AppearanceD.BackColor
(4)以下控件中,()控件不会影响到界面设计效果。
A.计时器B.文本框C.标签D.Line控件
(5)在VB中,一般()属性用来设置字体的颜色。
A.FontColorB.ForeColorC.BackColorD.ShowColor
(6)在VB中断模式下,可用调试窗口监视表达式和变量的值,其中在()窗口中可以直接键入命令以显示命令所请求的信息。
A.立即B.监视C.本地D.中断
(7)某计时器控件的interval属性为0时,表示()。
A.计时器关闭计时C.Timer事件的间隔时间为0毫秒
B.Timer事件的间隔时间为0秒D.计时器启动计时
(8)在窗体Form1的Click事件过程中有以下语句:
Label1.Caption=”VisualBasic”
若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为()。
A.Label和LabelB.Label1和Label1
C.Label1和VisualBasicD.Label和Caption
(9)()控件不具有Caption属性。
A.LabelB.FormC.TextBoxD.CommandButton
(10)改变控件在窗体中的上下位置,应设置控件的()属性。
A.TopB.LeftC.WidthD.Right
(11)文本框中选定的内容,由下列()属性反映。
A.TextB.CaptionC.SeltextD.sellenght
2.编程题
(1)在窗体上画一个标签框和3个命令按钮。
程序初始界面如下左图所示;单击“学习目的”按钮,显示如下中图所示;单击“学习方法”命令按钮,显示如下右图所示;单击“退出”按钮时,退出程序。
编写程序实现上述要求。
(2)设计一个简单的加法程序,程序界面设计如下图所示。
(3)开发一个简易的文本框编辑器,用于实现文框之间的文本复制、剪切和粘贴。
该文本框编辑器中包含源文本框和目标文本框,可以选择源文本框中的文本内容,利用“剪切”和“复制”命令按钮实现剪切和复制,然后再利用“粘贴”命令按钮粘贴到目标文本框中。
简易文本框编辑器的程序界面如下图所示。
第2章编程基础——四则运算程序
1.单项选择题
(1)在VisualBasic中,变量的默认类型是()。
A.StringB.IntegerC.DoubleD.Variant
(2)假设已定义Integer变量x、y,则以下赋值语句正确的是()。
A.x+1=yB.x:
=yC.y=x+yD.1=x
(3)\、/、Mod、*四个算术运算符中,优先级别最低的是()。
A.\B./C.ModD.*
(4)下列()语句可以将变量A、B值互换。
A.A=C:
C=B:
B=AB.A=A+B:
B=A–B:
A=A–B
C.A=B:
B=AD.A=(A+B)/2:
B=(A-B)/2
(5)以下语句的输出结果是()。
PrintFormat(32548.5,“000,000.00”)
A.32548.5B.32,548.5C.032,548.50D.32,548.50
(6)表达式4+5\6*7/8Mod9的值是()。
A.4B.5C.6D.7
(7)函数Int(Rnd*10)是在哪个范围内的整数?
()
A.(0,10)B.(0,10]C.[0,10)D.[0,10]
(8)下面哪个是算数运算符?
()
A.ModB.LikeC.AndD.Not
(9)已知三个变量A、B、C,判断A、B、C能否构成三角形的逻辑表达式为()。
A.A>=BAndB>=CAndA>=C
B.A+C>=BAndA+B>=CAndB+C>=A
C.A+C>=BOrA+B>=COrB+C>=A
D.A+C>=BAndA+B>=COrB+C>=A
(10)下面程序段运行后,显示的结果是()。
DimintXAsInteger
IfintXThenPrintintX
ElsePrintintX+1
A.0B.1C.2D.不一定
(11)以下程序的输出结果是()。
Dima,i%,sum%
a=Array(4,3,2,1)
Fori=0To3
sum=sum+a(i)
Nexti
Printsum
A.4B.6C.10D.不一定
2.程序阅读题
(1)阅读以下程序,写出点击窗体两次后变量Sum的值。
PrivateSubForm_Click()
StaticSumAsInteger
ForI=1To2
Sum=Sum+I
NextI
PrintSum
EndSub
(2)阅读以下程序,写出点击按钮后文件框Text3和Text4的结果。
PrivateSubCommand1_Click()
Text1.Text=2
Text2.Text=3
Text3.Text=Text1.Text+Text2.Text
Text4.Text=Val(Text1.Text)+Val(Text2.Text)
EndSub
(3)阅读以下程序,写出点击按钮后文件框Text1和Text2的结果。
PrivateSubCommand1_Click()
DimA(1To5)AsInteger
DimxAsInteger
Fori=1To5
A(i)=i
Nexti
i=1
DoWhilex<3
A(i)=A(i)+x
x=x+1
i=i+1
Loop
Text1.Text=A
(1)
Text2.Text=A
(2)
EndSub
3.编程题
(1)编写一个数制转换程序,运行界面如下图所示,实现在第一个文本框中输入十进制数后,第二个文本框自动显示该数对应的十六进制数,第三个文本框自动显示该数对应的八进制数。
提示:
利用文本框的Change事件和转换函数Hex、Oct。
(2)编写一个猜数字程序。
程序产生一个随机数,由用户来猜这个数,并提示用户猜的数是否正确,程序运行界面如下图所示。
(3)编写一个学生身高统计程序,学生人数总是不超过100。
输入若干个男生或女生的身高,若输入数据不合法则给予提示,如图3所示。
单击确定按钮将接收数据并将统计结果显示于右方的文本框中,统计数据包括总人数、男生人数及平均身高、女生人数及平均身高,如下图所示。
参考答案
第1章初试可视化编程——HelloVB
1.单项选择题
(1)B
(2)D(3)A(4)A(5)B
(6)A(7)A(8)B(9)C(10)A(11)C
2.编程题
(1)
PrivateSubcmdAim_Click()
lblContent.Caption="开发Windows应用程序"
EndSub
PrivateSubcmdExit_Click()
End
EndSub
PrivateSubcmdWay_Click()
lblContent.Caption="从实际应用程序的开发过程中学习VB"
EndSub
(2)
PrivateSubcmdSum_Click()
txtSum.Text=Val(txtFirstNum.Text)+Val(txtSecondNum.Text)
EndSub
(3)
DimstrPasteAsString'模块级变量strPaste用于存放待粘贴的内容
PrivateSubcmdCopy_Click()'复制
strPaste=txtSource.SelText'将选中的文本复制到变量strPaste中。
EndSub
PrivateSubcmdCut_Click()'剪切
strPaste=txtSource.SelText'将选中的文本复制到变量strPaste中。
txtSource.SelText=""'删除文本框中被选中的文本。
EndSub
PrivateSubcmdEnd_Click()
End
EndSub
PrivateSubcmdPaste_Click()'粘贴
'将变量中的内容粘贴到txtTarget中。
若txtTarget中有选定的文本,
'则用变量内容将其覆盖;若无选定文本,粘贴到插入点处
txtTarget.SelText=strPaste
EndSub
第2章编程基础——四则运算程序
1.单项选择题
(1)D
(2)C(3)C(4)B(5)C
(6)B(7)C(8)A(9)B(10)B(11)C
2.程序阅读题
(1)6
(2)235
(3)13
3.编程题
(1)
PrivateSubTxtDec_Change()
TxtHex.Text=Hex(Val(TxtDec.Text))
TxtOct.Text=Oct(Val(TxtDec.Text))
EndSub
(2)
DimintNumAsInteger'用于存放“神秘的数”
DimintCountAsInteger'用于猜数计数
PrivateSubcmdOk_Click()
intCount=intCount+1'计数
IfVal(txtAnswer.Text)=intNumThen'猜对
lblComment.Caption="猜对了!
你一共猜了"&intCount&"次"
lblNum.Caption=intNum
ElseIfVal(txtAnswer.Text)>intNumThen
lblComment.Caption="太大了!
"
Else
lblComment.Caption="太小了!
"
EndIf
EndSub
PrivateSubForm_Load()
Randomize
intNum=Int(Rnd*1000+1)
EndSub
(3)
OptionExplicit
PrivateTypeStuHeight
sexAsString
HeightAsSingle
EndType
Dimstu(1To100)AsStuHeight
DimintNumAsInteger
PrivateSubCmdClear_Click()
TxtSex.Text=""
TxtHeight.Text=""
EndSub
PrivateSubCmdOk_Click()
If(TxtSex.Text="男"OrTxtSex.Text="女")AndIsNumeric(TxtHeight.Text)
Then
intNum=intNum+1
stu(intNum).sex=TxtSex.Text
stu(intNum).Height=Val(TxtHeight.Text)
Else
MsgBox"输入数据有误,性别输入只能为男、女,身高只能为数值!
",vbCritical,"输入错误"
EndIf
CallStat
EndSub
PrivateSubStat()
DimintCountAsInteger
DimsngBoyAsSingle
DimsngGirlAsSingle
DimintGirlNumAsInteger
DimintBoyNumAsInteger
ForintCount=1TointNum
Ifstu(intCount).sex="男"Then
sngBoy=sngBoy+stu(intCount).Height
intBoyNum=intBoyNum+1
Else
sngGirl=sngGirl+stu(intCount).Height
intGirlNum=intGirlNum+1
EndIf
Next
IfintNum>0Then
TxtShow.Text="共有"&intNum&"个学生参与统计"&vbCrLf
IfintBoyNum>0Then
TxtShow.Text=TxtShow.Text+"男生共有"&intBoyNum&"人,平均身高为"&sngBoy/intBoyNum&vbCrLf
EndIf
IfintGirlNum>0Then
TxtShow.Text=TxtShow.Text+"女生共有"&intGirlNum&"人,平均身高为"&sngGirl/intGirlNum
EndIf
Else
TxtShow.Text="无统计数据"
EndIf
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VisualBasic程序设计 齐幼菊版 VisualBasic 程序设计 课程 作业 任务 答案 解析