齐幼菊版《Visual_Basic程序的设计》课程作业(一)与答案

广播电视大学《Visual Basic程序设计》课程作业（一）第1章初试可视化编程——Hello VB1．单项选择题（1）如果要设置窗体的标题栏，应选择（）属性。

A．Visible B．Caption C．Name D．Text（2）要使命令按钮不响应用户生成的事件，应设置命令按钮的（）属性。

A．Visible B．Caption C．Enable D．Enabled（3）要使标签能透出窗体的背景，应设置标签的（）属性。

A．BackStyle B．BorderStyle C．Appearance D．BackColor（4）以下控件中，（）控件不会影响到界面设计效果。

A．计时器B．文本框C．标签D．Line控件（5）在VB中，一般（）属性用来设置字体的颜色。

A．FontColor B．ForeColor C．BackColor D．ShowColor（6）在VB中断模式下，可用调试窗口监视表达式和变量的值,其中在（）窗口中可以直接键入命令以显示命令所请求的信息。

A．立即 B.监视 C.本地 D.中断（7）某计时器控件的interval属性为0时，表示（）。

A．计时器关闭计时C．Timer事件的间隔时间为0毫秒B．Timer事件的间隔时间为0秒D．计时器启动计时（8）在窗体Form1的Click事件过程中有以下语句：Label1.Caption=”Visual Basic”若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption 属性在执行本语句之前的值分别为（）。

A．Label和Label B．Label1和Label1C．Label1和Visual Basic D．Label和Caption（9）（）控件不具有Caption属性。

A．Label B．Form C． TextBox D．CommandButton（10）改变控件在窗体中的上下位置，应设置控件的（）属性。

A．Top B．Left C．Width D．Right（11）文本框中选定的容，由下列（）属性反映。

A．Text B．Caption C．Seltext D．sellenght2．编程题（1）在窗体上画一个标签框和3个命令按钮。

程序初始界面如下左图所示；单击“学习目的”按钮，显示如下中图所示；单击“学习方法”命令按钮，显示如下右图所示；单击“退出”按钮时，退出程序。

编写程序实现上述要求。

（2）设计一个简单的加法程序，程序界面设计如下图所示。

（3）开发一个简易的文本框编辑器，用于实现文框之间的文本复制、剪切和粘贴。

该文本框编辑器中包含源文本框和目标文本框，可以选择源文本框中的文本容，利用“剪切”和“复制”命令按钮实现剪切和复制，然后再利用“粘贴”命令按钮粘贴到目标文本框中。

简易文本框编辑器的程序界面如下图所示。

第2章编程基础——四则运算程序1．单项选择题（1）在Visual Basic中，变量的默认类型是（）。

A．String B．Integer C．Double D．Variant（2）假设已定义Integer变量x、y，则以下赋值语句正确的是（）。

A．x + 1 = y B．x := y C．y = x + y D．1 = x（3）\、/、Mod、*四个算术运算符中，优先级别最低的是（）。

A．\ B．/ C．Mod D ．*（4）下列（）语句可以将变量A、B值互换。

A．A=C : C=B : B=A B．A=A+B : B=A–B: A=A–BC．A=B : B=A D．A=(A+B)/2 : B=(A - B)/2（5）以下语句的输出结果是（）。

Print Format (32548.5,“000,000.00”)A．32548.5 B．32,548.5 C．032,548.50 D．32,548.50（6）表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（）。

A．4 B．5 C．6 D．7（7）函数Int(Rnd*10)是在哪个围的整数？（）A．（0, 10）B．(0,10] C．[0, 10）D．[0, 10]（8）下面哪个是算数运算符？（）A．Mod B．Like C．And D．Not（9）已知三个变量A、B、C，判断A、B、C能否构成三角形的逻辑表达式为（）。

A．A >= B And B >= C And A >= CB．A + C >= B And A + B >= C And B + C >= AC．A + C >= B Or A + B >= C Or B + C >= AD．A + C >= B And A + B >= C Or B + C >= A（10）下面程序段运行后，显示的结果是（）。

Dim intX As IntegerIf intX Then Print intXElse Print intX + 1A．0 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 sumA．4 B．6 C．10 D．不一定2．程序阅读题（1）阅读以下程序，写出点击窗体两次后变量Sum的值。

Private Sub Form_Click()Static Sum As IntegerFor I = 1 To 2Sum = Sum + INext IPrint SumEnd Sub（2）阅读以下程序，写出点击按钮后文件框Text3和Text4的结果。

Private Sub Command1_Click()Text1.Text=2Text2.Text=3Text3.Text=Text1.Text+Text2.TextText4.Text=Val(Text1.Text)+Val(Text2.Text)End Sub（3）阅读以下程序，写出点击按钮后文件框Text1和Text2的结果。

Private Sub Command1_Click()Dim A(1 To 5) As IntegerDim x As IntegerFor i = 1 To 5A(i) = iNext ii = 1Do While x < 3A(i) = A(i) + xx = x + 1i = i + 1LoopText1.Text = A(1)Text2.Text = A(2)End Sub3．编程题（1）编写一个数制转换程序，运行界面如下图所示，实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。

提示：利用文本框的Change事件和转换函数Hex、Oct。

（2）编写一个猜数字程序。

程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否正确，程序运行界面如下图所示。

（3）编写一个学生身高统计程序，学生人数总是不超过100。

输入若干个男生或女生的身高，若输入数据不合法则给予提示，如图3所示。

单击确定按钮将接收数据并将统计结果显示于右方的文本框中，统计数据包括总人数、男生人数及平均身高、女生人数及平均身高，如下图所示。

参考答案第1章初试可视化编程——Hello VB1．单项选择题（1）B （2）D （3）A （4）A （5）B（6）A （7）A （8）B （9）C （10）A （11）C 2．编程题（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) + Val(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 = "" '删除文本框中被选中的文本。

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）C 2．程序阅读题（1）6（2）23 5（3）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 '猜对lblComment.Caption = "猜对了！你一共猜了" & intCount & "次"lblNum.Caption = intNumElseIf Val(txtAnswer.Text) > intNum ThenlblComment.Caption = "太大了！"ElselblComment.Caption = "太小了！"End IfEnd SubPrivate Sub Form_Load()RandomizeintNum = Int(Rnd * 1000 + 1)End Sub（3）Option ExplicitPrivate Type StuHeightsex As StringHeight 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 = "女") And IsNumeric(TxtHeight.Text)ThenintNum = intNum + 1stu(intNum).sex = TxtSex.Textstu(intNum).Height = Val(TxtHeight.Text)ElseMsgBox "输入数据有误，性别输入只能为男、女，身高只能为数值！", vbCritical, "输入错误"End IfCall StatEnd SubPrivate Sub Stat()Dim intCount As IntegerDim sngBoy As SingleDim sngGirl As SingleDim intGirlNum As IntegerDim intBoyNum As IntegerFor intCount = 1 To intNumIf stu(intCount).sex = "男" ThensngBoy = sngBoy + stu(intCount).HeightintBoyNum = intBoyNum + 1ElsesngGirl = sngGirl + stu(intCount).HeightintGirlNum = intGirlNum + 1End IfNextIf intNum > 0 ThenTxtShow.Text = "共有" & intNum & "个学生参与统计" & vbCrLfIf intBoyNum > 0 ThenTxtShow.Text = TxtShow.Text + "男生共有" & intBoyNum & "人，平均身高为" & sngBoy / intBoyNum & vbCrLfEnd IfIf intGirlNum > 0 ThenTxtShow.Text = TxtShow.Text + "女生共有" & intGirlNum & "人，平均身高为" & sngGirl / intGirlNumEnd IfElseTxtShow.Text = "无统计数据"End IfEnd Sub。