齐幼菊版《Visual Basic程序设计》课程作业(一)及答案

1、浙江广播电视大学Visual Basic程序设计课程作业（一）第1章 初试可视化编程Hello VB1单项选择题（1）如果要设置窗体的标题栏，应选择（ ）属性。AVisibleBCaptionCNameDText（2）要使命令按钮不响应用户生成的事件，应设置命令按钮的（ ）属性。AVisibleBCaptionCEnableDEnabled（3）要使标签能透出窗体的背景，应设置标签的（ ）属性。ABackStyleBBorderStyleCAppearanceDBackColor（4）以下控件中，（ ）控件不会影响到界面设计效果。A计时器B文本框C标签DLine控件（5）在VB中，一般（ ）属

2、性用来设置字体的颜色。AFontColorBForeColorCBackColorDShowColor（6）在VB中断模式下，可用调试窗口监视表达式和变量的值,其中在（ ）窗口中可以直接键入命令以显示命令所请求的信息。A立即B.监视C.本地D.中断（7）某计时器控件的interval属性为0时，表示（ ）。A计时器关闭计时CTimer事件的间隔时间为0毫秒BTimer事件的间隔时间为0秒D计时器启动计时（8）在窗体Form1的Click事件过程中有以下语句：Label1.Caption=”Visual Basic”若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性

3、和Caption属性在执行本语句之前的值分别为（ ）。ALabel和LabelBLabel1和Label1CLabel1和Visual BasicDLabel和Caption（9）（ ）控件不具有Caption属性。ALabelBFormCTextBoxDCommandButton（10）改变控件在窗体中的上下位置，应设置控件的（ ）属性。ATopBLeftCWidthDRight（11）文本框中选定的内容，由下列（ ）属性反映。ATextBCaptionCSeltextDsellenght2编程题（1）在窗体上画一个标签框和3个命令按钮。程序初始界面如下左图所示；单击“学习目的”按钮，显示如

4、下中图所示；单击“学习方法”命令按钮，显示如下右图所示；单击“退出”按钮时，退出程序。编写程序实现上述要求。 （2）设计一个简单的加法程序，程序界面设计如下图所示。（3）开发一个简易的文本框编辑器，用于实现文框之间的文本复制、剪切和粘贴。该文本框编辑器中包含源文本框和目标文本框，可以选择源文本框中的文本内容，利用“剪切”和“复制”命令按钮实现剪切和复制，然后再利用“粘贴”命令按钮粘贴到目标文本框中。简易文本框编辑器的程序界面如下图所示。第2章 编程基础四则运算程序1单项选择题（1）在Visual Basic中，变量的默认类型是（ ）。AString BIntegerCDoubleDVarian

5、t（2）假设已定义Integer变量x、y，则以下赋值语句正确的是（ ）。Ax + 1 = yBx := yCy = x + y D1 = x（3）、/、Mod、*四个算术运算符中，优先级别最低的是（ ）。A B / CMod D *（4）下列（ ）语句可以将变量A、B值互换。AA=C : C=B : B=A BA=A+B : B=AB: A=ABCA=B : B=ADA=(A+B)/2 : B=(A - B)/2（5）以下语句的输出结果是（ ）。 Print Format (32548.5,“000,000.00”)A32548.5 B 32,548.5C032,548.50D 32,548

6、.50（6）表达式4+5 6 * 7 / 8 Mod 9 的值是 （ ）。A4 B 5 C 6 D 7（7）函数Int(Rnd*10)是在哪个范围内的整数？（ ）A（0, 10） B (0,10 C 0, 10） D0, 10（8）下面哪个是算数运算符？（ ）AMod B Like C And DNot（9）已知三个变量A、B、C，判断A、B、C能否构成三角形的逻辑表达式为（ ）。AA >= B And B >= C And A >= C BA + C >= B And A + B >= C And B + C >= ACA + C >= B Or A

7、 + B >= C Or B + C >= A DA + C >= B And A + B >= C Or B + C >= A（10）下面程序段运行后，显示的结果是（ ）。Dim intX As Integer If intX Then Print intX Else Print intX + 1A0 B 1 C 2 D不一定（11）以下程序的输出结果是（ ）。Dim a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(i)Next iPrint sumA4 B 6 C 10 D不一定2程序阅读

8、题（1）阅读以下程序，写出点击窗体两次后变量Sum的值。Private Sub Form_Click() Static Sum As Integer For I = 1 To 2 Sum = Sum + I Next I Print SumEnd Sub（2）阅读以下程序，写出点击按钮后文件框Text3和Text4的结果。Private Sub Command1_Click() Text1.Text=2 Text2.Text=3 Text3.Text=Text1.Text+Text2.Text Text4.Text=Val(Text1.Text)+Val(Text2.Text)End Sub（

9、3）阅读以下程序，写出点击按钮后文件框Text1和Text2的结果。Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim x As Integer For i = 1 To 5 A(i) = i Next i i = 1 Do While x < 3 A(i) = A(i) + x x = x + 1 i = i + 1 Loop Text1.Text = A(1) Text2.Text = A(2)End Sub3编程题（1）编写一个数制转换程序，运行界面如下图所示，实现在第一个文本框中输入十进制数后，第二个文本框自动显示该

10、数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利用文本框的Change事件和转换函数Hex、Oct。（2）编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否正确，程序运行界面如下图所示。 （3）编写一个学生身高统计程序，学生人数总是不超过100。输入若干个男生或女生的身高，若输入数据不合法则给予提示，如图3所示。单击确定按钮将接收数据并将统计结果显示于右方的文本框中，统计数据包括总人数、男生人数及平均身高、女生人数及平均身高，如下图所示。 参考答案第1章 初试可视化编程Hello VB1单项选择题（1）B（2）D（3）A（4）A（5）B（6）A（

11、7）A（8）B（9）C（10）A（11）C2编程题（1）Private Sub cmdAim_Click() lblContent.Caption = "开发Windows应用程序"End SubPrivate Sub cmdExit_Click() EndEnd SubPrivate Sub cmdWay_Click() lblContent.Caption = "从实际应用程序的开发过程中学习VB"End Sub（2）Private Sub cmdSum_Click() txtSum.Text = Val(txtFirstNum.Text) + Va

12、l(txtSecondNum.Text)End Sub（3）Dim strPaste As String '模块级变量strPaste用于存放待粘贴的内容Private Sub cmdCopy_Click() '复制 strPaste = txtSource.SelText '将选中的文本复制到变量strPaste中。End SubPrivate Sub cmdCut_Click() '剪切 strPaste = txtSource.SelText '将选中的文本复制到变量strPaste中。 txtSource.SelText = "&quo

13、t; '删除文本框中被选中的文本。End SubPrivate Sub cmdEnd_Click() EndEnd SubPrivate Sub cmdPaste_Click() '粘贴 ' 将变量中的内容粘贴到txtTarget中。若txtTarget中有选定的文本， ' 则用变量内容将其覆盖；若无选定文本，粘贴到插入点处 txtTarget.SelText = strPasteEnd Sub第2章 编程基础四则运算程序1单项选择题（1）D（2）C（3）C（4）B（5）C（6）B（7）C（8）A（9）B（10）B（11）C2程序阅读题（1）6（2）23 5（3

14、）1 33编程题（1）Private Sub TxtDec_Change() TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text = Oct(Val(TxtDec.Text)End Sub（2）Dim intNum As Integer '用于存放“神秘的数”Dim intCount As Integer '用于猜数计数Private Sub cmdOk_Click() intCount = intCount + 1 '计数 If Val(txtAnswer.Text) = intNum Then '猜对 lblComm

15、ent.Caption = "猜对了！你一共猜了" & intCount & "次" lblNum.Caption = intNum ElseIf Val(txtAnswer.Text) > intNum Then lblComment.Caption = "太大了！" Else lblComment.Caption = "太小了！" End IfEnd SubPrivate Sub Form_Load() Randomize intNum = Int(Rnd * 1000 + 1)End S

16、ub（3）Option ExplicitPrivate Type StuHeight sex As String Height As SingleEnd TypeDim stu(1 To 100) As StuHeightDim intNum As IntegerPrivate Sub CmdClear_Click() TxtSex.Text = "" TxtHeight.Text = ""End SubPrivate Sub CmdOk_Click() If (TxtSex.Text = "男" Or TxtSex.Text = &

17、quot;女") And IsNumeric(TxtHeight.Text) Then intNum = intNum + 1 stu(intNum).sex = TxtSex.Text stu(intNum).Height = Val(TxtHeight.Text) Else MsgBox "输入数据有误，性别输入只能为男、女，身高只能为数值！", vbCritical, "输入错误" End If Call StatEnd SubPrivate Sub Stat() Dim intCount As Integer Dim sngBoy As

18、 Single Dim sngGirl As Single Dim intGirlNum As Integer Dim intBoyNum As Integer For intCount = 1 To intNum If stu(intCount).sex = "男" Then sngBoy = sngBoy + stu(intCount).Height intBoyNum = intBoyNum + 1 Else sngGirl = sngGirl + stu(intCount).Height intGirlNum = intGirlNum + 1 End If Next If intNum > 0 Then TxtShow.Text = "共有" & intNum & "个学生参与统计" & vbCrLf If intBoyNum > 0 Then TxtShow.Text = TxtShow.Text + "男生共有&q