2010年VB期中试卷ANSWER

1、期中试卷 （ A ）卷20092010学年第二学期 课程名称计算机语言（VB）考试日期：2010年4月25日主考教师： 考试时间：90分钟专业： 班级： 考生学号： 考生姓名： 注意：试卷评阅统一使用红色笔，要求对的打“”，错的打“”，并采用扣分的方法评定。题号一二三总分累分人签名题分503020100得分考生注意事项：1、本试卷共8页，请查看试卷中是否有缺页。 2、考试结束后，考生不得将试卷、答题纸和草稿纸带出考场。一、选择题（每小题2分，共50分，请将答案写在下面的表格中）得分评卷人12345678910CBBAABADCC11121314151617181920CBBBACCBBD212

2、2232425ACBBA1、以下叙述中错误的是（）。A）Visual Basic 是事件驱动型可视化编程工具。B）Visual Basic应用程序不具有明显的开始和结束语句。C）Visual Basic工具箱中的所有标准控件都具有宽度（Width）和高度（Height）属性。D）Visual Basic中控件的某些属性只能在运行时设置。2、以下叙述中不正确的是（ ）。A）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员设定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定3、下列是合法变量名的是（）。A) X-Y B) X_Y C) 2Y

3、D) String4、若要使用户不能修改文本框Text1中的内容，应修改（）属性。A) Locked B) MultiLine C) PassWordChar D) ScrollBar5、命令按钮Command1的Caption属性为“退出(x)”，要将命令按钮的快捷键设为Alt+x，则应如何修改Caption属性。（）A) 在x前插入& B) 在x后插入& C) 在x前插入# D) 在x后插入#6、对于以下函数描述不正确的是（ ）。A) Asc(A)返回值为数值 B) 表达式Len(幸运52)的值6 C) 如果Sgn(x)的值为-1，那么x是负数 D) 除去字符串左侧空格的函数是Ltrim(

4、 )7、设有如下语句： Dim a , b As Integer C=VisualBasic d=#7/20/2005# 关于这段代码的叙述中，错误的是（ ）。A) a被定义为Integer类型变量 B) b被定义为Integer类型变量C) c中的数据是字符串类型 D) d中的数据是日期类型8、设有语句X=InputBox(输入数值， 0， 示例)，程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（）。A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是示例C) 0是默认值 D) 变量X的值是字符串109、下列赋值语句中，正确的是（ ）。A) i +

5、 j = 10 B) 2i = j C) j = i + j D) i = j = 010、若要将某命令按钮设置为默认命令按钮，应将（）属性设置为True。 A) Value B) Cancel C) Default D) Enabled11、若要设置文本框中所显示的文本颜色，应使用的属性是（）。A) BackColorB) FillColor C) ForeColor D) FontColor12、若要将窗体从内存中卸载出去，其实现的方法是（）。A) Show B) UnLoad C) Load D) Hide13、图像框有一个属性，可以自动调整图形的大小以适应图像框的尺寸，这个属性是（）。

6、A) Autosize B) Stretch C) AutoRedraw D) Appearance14、设组合框Combo1中有3个项目，以下能删除最后一项的语句是（）。 A）Combo1.RemoveItem Text B）Combo1.RemoveItem 2 C）Combo1.RemoveItem 3 D）Combo1.RemoveItem Combo1.Listcount15、确定复选框是否选中，可访问的属性是（）。A) Value B) Checked C) Selected D) Caption16、不能触发滚动条Change事件的操作是（）。 A) 拖动滚动块 B) 单击两端箭

7、头 C) 单击滚动块 D) 单击箭头与滚动块之间的区域17、下列关于框架的叙述中错误的是（）。A) 框架是其他控件的容器，它的作用是对控件进行分组B) 框架的Enabled属性为False时，框架中的控件不可用 C) 删除框架时，其中的控件不会删除D) 拖动框架时，如其中的控件不随之移动，则该控件不在框架内18、下列表达式中值为False的是（）。A) BCD12345&ABCC) Not 2*511 D) 4=4 And 52+219、语句Print 5/4*65 Mod 2的输出结果是（）。A) 0 B) 1 C) 2 D) 320、在窗体上画两个单选按钮，名称分别为Option1、Opt

8、ion2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1，标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是（ ）。A) Option1.Value=True B) Option1.Value=True Check1.Value=False Check1.Value=True C) Option2.Value=False D) Option1.Value=True Check1.Value=True Check1.Value=1 21、设有以下循环结构Do 循环体Lo

9、op While 以下叙述中错误的是（）。A）若条件是一个为0的常数，则一次也不执行循环体B）条件可以是关系表达式、逻辑表达式或常数C）循环体中可以使用Exit Do语句 D）如果条件总是为True，则不停地执行循环体22、有如下程序 For I = 1 To 2 For j = 5 To I Step -1 Print I + j Next j, I其循环执行的次数是（）。A) 7 B) 8 C) 9 D) 2023、下列程序段的执行结果为（）。X = Int(Rnd + 4)Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print

10、 通过Case Else Print 不通过End SelectA) 优秀 B) 良好 C) 通过 D) 不通过24、以下程序段执行后整型变量n 的值为（）。n=0For I=1 To 20 Step 5n=n+1Next IA) 50 B) 4 C) 15 D) 525、下列程序运行后，输出的结果为（）。B=1Do While b40 B=b*(b+1)LoopPrint BA) 42 B) 39 C) 6 D) 1二、程序填空题（每空3分，共30分）得分评卷人1、 如下图所示的窗体Form1，在窗体内有一个名称为Command1的命令按钮和一个名称为L1的标签。以下事件过程将实现功能：单击

11、该按钮，在标签上显示“Hello World!”。请在空白处将程序补充完整。Private Sub Command1_Click()1 L1.Caption= “Hello World!” End Sub2、 以下程序的功能是：生成20个200到300之间的随机整数，在窗体上计算并输出它们的和。请在空白处将程序补充完整。Private Sub Commandl_C1ick()S0For i1 To 20x2Int(Rnd*101+200) 3 s=s+i Next iPrint “Sum”：SEnd Sub3、 如下图所示的窗体Form1，在窗体内有一个名称为Command1的命令按钮。以下事

12、件过程将实现如下功能：单击该按钮，判断文本框Text1中输入的年份是否闰年。如果是闰年，在窗体上输出“是闰年”，否则输出“不是闰年”。请在空白处将程序补充完整。（注：闰年的判断方法：如果年份能被4整除，但不能被100整除或年份能被400整除。） Private Sub Command1_Click() n = Val(Text1.Text) If 4n Mod 4=0 And n Mod 1000 Or n Mod 400=0 ThenPrint 是闰年ElsePrint 不是闰年 End IfEnd Sub4、 以下程序的功能是：计算出分段函数的值，x从文本框（Text1）获得。请在空白处将

13、程序补充完整。Private Sub Command1_Click()x = Val(Text1.Text)If x = 1 Then5y=(2*x+5)(1/3)-1/3*x ElseIf x 0 and x1 Theny = xElsey = x + 1End IfPrint yEnd Sub5、 如下图，在窗体上画一个标签（Label1）、一个计时器（Timer1）和一个命令按钮(Command1)，程序运行后单击按钮，将在标签中显示当前时间，每隔1秒钟变换一次。请在空白处将程序补充完整。 Private Sub Form_Load()Timer1.Enabled = FalseTime

14、r1.Interval = 1000End SubPrivate Sub Command1_Click()6 Timer1.Enabled =True End SubPrivate Sub Timer1_Timer()7 Label1.Caption=Time End Sub6、如图所示的窗体，窗体上有一个文本框（Text1），一个标签（Label1），要求在文本框中输入任意字母，标签中同步显示其小写字母。Private Sub Text1_Change()8Label1.Caption=Lcase(Text1.Text) End Sub7、 如图1所示，窗体左边有一个名称为List1的列表框

15、，MultiSelect属性为0，右边有一个名称为List2的列表框，一个名称为Command1、标题为“移动”的命令按钮。程序运行后，如图2所示，单击命令按钮，将List1列表框中所选中的项目内容移动到List2末尾（图3）。请在空白处将程序补充完整。图1图3图2Private Sub Command1_Click()9List2.AddItem List1.Text 10List1.RemoveItem List1.ListIndex End Sub三、程序设计题（每小题10分，共20分）得分评卷人1、 如下图窗体中有两个标签（Label1和 Label2），一个文本框（Text1）和一个命令按钮（Command1）。在文本框Text1中输入N的值，单击命令按钮，在标签Label2中显示N是否素数。请在空白处编写代码，实现以上功能。（注：素数是只能被1和它本身整除的数）Private Sub Command1_Click()Dim n%,i% N=val(text1.text)For i=2 to n-1 If n mod i =0 then exit forNext iIf i=n then Label1.caption = n & “是素数”Else Label1.caption = n & “不是素数”End ifEnd Sub2、如