齐幼菊VISUALBASIC程序设计课程作业一及答案.pdf

浙江广播电视大学 VisualVisual BasicBasic 程序设计课程作业（一）程序设计课程作业（一） 第 1 章 初试可视化编程Hello VB 1单项选择题 （1）如果要设置窗体的标题栏，应选择（）属性 AVisibleBCaptionCNameDText （2）要使命令按钮不响应用户生成的事件，应设置命令按钮的（）属性 AVisibleBCaptionCEnableDEnabled （3）要使标签能透出窗体的背景，应设置标签的（）属性 ABackStyleBBorderStyleCAppearanceDBackColor （4）以下控件中， （）控件不会影响到界面设计效果 A计时器B文本框C标签DLine 控件 （5）在 VB 中，一般（）属性用来设置字体的颜色 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 属性和 Caption 属性在执行本语句之前的值分别为（）。

ALabel 和 LabelBLabel1 和 Label1 CLabel1 和 Visual BasicDLabel 和 Caption （9） （）控件不具有 Caption 属性 ALabelBFormC TextBoxDCommandButton （10）改变控件在窗体中的上下位置，应设置控件的（）属性 ATopBLeftCWidthDRight （11）文本框中选定的内容，由下列（）属性反映 ATextBCaptionCSeltextDsellenght 2编程题 （1）在窗体上画一个标签框和 3 个命令按钮程序初始界面如下左图所示；单击“学习目 的”按钮，显示如下中图所示；单击“学习方法”命令按钮，显示如下右图所示；单击“退 出”按钮时，退出程序编写程序实现上述要求 （2）设计一个简单的加法程序，程序界面设计如下图所示 （3）开发一个简易的文本框编辑器，用于实现文框之间的文本复制、剪切和粘贴该文本 框编辑器中包含源文本框和目标文本框，可以选择源文本框中的文本内容，利用“剪切”和 “复制”命令按钮实现剪切和复制，然后再利用“粘贴”命令按钮粘贴到目标文本框中简 易文本框编辑器的程序界面如下图所示。

第 2 章 编程基础四则运算程序 1单项选择题 （1）在 Visual Basic 中，变量的默认类型是（） AStringBIntegerCDoubleDVariant （2）假设已定义 Integer 变量 x、y，则以下赋值语句正确的是（） Ax + 1 = yBx := yCy = x + yD1 = x （3）、/、Mod、*四个算术运算符中，优先级别最低的是（） A B/CModD * （4）下列（）语句可以将变量 A、B 值互换 AA=C : C=B : B=ABA=A+B : B=AB: A=AB CA=B : B=ADA=(A+B)/2 : B=(A - B)/2 （5）以下语句的输出结果是（） Print Format (32548.5,“000,000.00”) A32548.5B 32,548.5C032,548.50D 32,548.50 （6）表达式 4+5 6 * 7 / 8 Mod9 的值是 （） A4B 5C 6D 7 （7）函数 Int(Rnd*10)是在哪个范围内的整数？（） A （0, 10）B (0,10C 0, 10）D0, 10 （8）下面哪个是算数运算符？（） AModB LikeC AndDNot （9）已知三个变量 A、B、C，判断 A、B、C 能否构成三角形的逻辑表达式为（） 。

AA = B And B = CAnd A= C BA+ C = BAnd A+ B = C And B + C = A CA+ C = B OrA+ B = COrB + C = A DA + C = BAndA+ B = COrB + C = A （10）下面程序段运行后，显示的结果是（） DimintXAsInteger IfintXThenPrintintX ElsePrintintX + 1 A0B 1C 2D不一定 （11）以下程序的输出结果是（） Dim a, i%, sum% a = Array(4, 3, 2, 1) For i = 0 To 3 sum = sum + a(i) Next i Print sum A4B 6C 10D不一定 2程序阅读题 （1）阅读以下程序，写出点击窗体两次后变量 Sum 的值 Private Sub Form_Click() Static SumAs Integer For I = 1 To 2 Sum = Sum + I Next I Print Sum End 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 （3）阅读以下程序，写出点击按钮后文件框 Text1 和 Text2 的结果 Private Sub Command1_Click() DimA(1 To 5)As Integer Dim x As Integer For i = 1 To 5 A(i) = i Next i i = 1 Do While x intNum Then lblComment.Caption = 太大了！ Else lblComment.Caption = 太小了！ End If End Sub Private Sub Form_Load() Randomize intNum = Int(Rnd * 1000 + 1) End Sub （3） Option Explicit Private Type StuHeight sex As String Height As Single End Type Dim stu(1 To 100)As StuHeight Dim intNumAs Integer Private Sub CmdClear_Click() TxtSex.Text = TxtHeight.Text = End Sub Private Sub CmdOk_Click() If (TxtSex.Text = 男 Or TxtSex.Text = 女) 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 Stat End Sub Private Sub Stat() Dim intCount As Integer Dim sngBoy As 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 + 男生共有 & intBoyNum & 人，平 均身高为 & sngBoy / intBoyNum & vbCrLf End If If intGirlNum 0 Then TxtShow.Text = TxtShow.Text + 女生共有 & intGirlNum & 人，平 均身高为 & sngGirl / intGirlNum End If Else TxtShow.Text = 无统计数据 End If End Sub 。