VB复习题
一、单选题
B B A D D C D A B A B C C B B C B B B C C A B C C C C D
1. 计算机程序的三种结构是顺序结构、 、选择结构。 A．模块结构 B．循环结构 C．多重循环结构 D．IF块结构
2. 是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。 A．任务 B．事件 C．控件 D．过程
3. 在VB中，窗口坐标系的原点在 ，x轴向右为正，y轴向下为正。 A．窗口左上角 B．窗口右下角 C．窗口正中间 D．窗口右上角
4. 在VB应用程序设计中，通常应对 编写程序代码。 A．所有对象 B．窗体 C．Timer D．有事件的对象
5. 在面向对象程序设计中， 用来描述对象的特征信息。 A．事件 B．方法 C．代码 D．属性
6. 在VB编程中，如果需要返回鼠标的当前位置，或了解按下的是鼠标哪个键及需要配合键盘上的Shift、Ctrl、Alt键时，应该使用 事件。 A．Click B．Change C．MouseDown D．KeyPress
7. 在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Inerval属性设置为 。
A．1 B．60 C．100 D．1000
8. 下列过程中， 是程序开始运行时，窗体一加载就运行的程序段。 A．Form_Load B．Form_Click
C．Form_MouseDown D．Form_KeyPress 9. 的Visual Basic表达式是 。
A．(-b+b^2-4ac)/2a B．(-b+sqr(b^2-4*a*c))/(2*a) C．(-b+sqr(b^2-4ac))/(2a) D．(-b+sqr(b^2-4ac))/2a
10. 在VB系统中， 代表内存单元，是命了名的存储空间。 A．变量 B．常量 C．函数 D．字节
11. 语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。 A．Sub B．Dim C．Call D．End
12. 在VB程序设计语言中， 语句的功能是使系统产生的随机数真正随机化。
A．Rnd B．Circle C．Randomize D．Dim 13. 关系表达式的值为 。
A． 数值 B．字符串 C．逻辑值 D．逻辑表达式 14. 下列控件中“文本框”是 。
A. Label B. TextBox C. OptionButton D. CommandButton
15. 若改变一文本框中所显示文本的颜色，需改变此文本框的哪个属性？ A. Caption B. Forecolor C. Backcolor D. Text
16. 在VB环境中，如果设计时将命令按钮的 属性设置为False，则运行时该按钮从窗体上消失。 A．Default B．Enabled C．Visible D．DisabledPicture
17.在VB环境中，修改对象的BackColor的属性值，则对象的 将发生改变。 A. 文字颜色 B. 背景色 C. 前景色 D. 边框颜色
18.用VB工具箱中的哪个控件可以建立命令控制按钮 B 。
19.在VB应用程序中，修改控制代码，使Command1按钮显示“end”，正确的设置是 。
A. Command1.Text=“end” B. Command1.Caption=“end” C. Command1.Name＝end D. Command1.Caption=end
20.在VB程序中，当变量H的值等于8时，执行“IF H>8 then R=10 else R=20”语句后，R值为 。
A．5 B．10 C．20 D．10或20 21．当a=123: b=Str(a)，则
A．a和b均是字符型变量 B．a是字符型变量，b是数值型变量 C．a是数值型变量，b是字符型变量 D．a和b均是数值型变量
22.用循环结构解决问题时，如果循环的次数已知，通常采用 ；当循环的次数未知，需要靠判断条件是否成立来决定循环的执行和退出时，通常采用 。
A．For…Next循环、Do…Loop循环
B．Do…Loop循环、For…Next循环 C．Do…Next循环、For…Loop循环 23. 函数的作用是建立一个输入对话框。
A．MsgBox() B．InputBox() C．RGB() D．Print
24．A=5，B=8，则（B-A）*Rnd+A的结果是介于_______之间的实数。 A. [5，8] B.（5，8） C.[5，8） D.（3，5） 25． For i=1 to 10 Step 2
…… „循环体中循环变量的值保持不变。 Next i
在程序运行时循环体将被执行_________几次。 A.3次 B.4次 C.5次 D.6次
26．执行后将会清空文本框Text1中文本的语句是___________。 A. Text1.Clear B. Text1.SelText= \" \" C. Text1.text= \" \" D. Text1.SelText.Clear
27．在机场托运行李，每人免费25千克，超过25千克不到50千克，则超出部分按每千克10元收费，如果超过50千克，则超过部分按每千克20元收费。这种计费程序最适合用到的程序结构是 A.循环 B.赋值 C.分支 D. 顺序 28．下面是一段循环结构的程序段： s=0 x=2 Do s=s+1 x=x+3
Loop Until (x>=12)
该程序段运行后，循环体的执行次数是 A.1 B.2 C.3 D. 4 二、多选题
ABC ABC BD AD BCD ABCD ABCD
1． 在VB应用程序设计中，以下说法正确的是： A．对象包括窗体和控件
B．属性用来描述和确定对象的特征信息
C．事件是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作 D．方法是指程序设计的方法
2．在VB应用程序设计中，以下说法正确的是：
A．要显示不想让用户修改的文本时，应该使用Label控件 B．要显示可以让用户编辑的文本时，应该使用TextBox控件 C．鼠标单击可以用Click事件 D．要想画图形，只能在窗体中实现
3．在VB编程中，如果需要返回鼠标的当前位置时，应该使用 A．Click B．MouseDown C．Change D．MouseMove 4．下列字符串中，不能作为变量名使用的有： A．End B．a1 C．xx D．Sub 5．在VB应用程序设计中，以下说法正确的是： A．Abs( )是转换英文大小写的函数 B．MsgBox( ) 是消息函数 C．RGB( )是颜色函数 D．Sqr( )是求平方根函数
6．VB简单应用程序的设计步骤为： A．设计图形用户界面 B．设置对象属性
C．编写对象事件过程及通用过程代码 D．运行调试程序并保存工程
7．在VB程序设计中，Dim语句的功能为：
A．使系统能够按声明进行语法检查，有利于程序的调试、运行 B．合理分配内存 C．定义变量的作用范围 D．增强程序的可读性
三、读程序运行结果
1. 下列程序运行后，变量s= C 。 Dim a,b,c,s As Integer a=9 b=41 c=2*(a+b) s=a*c
A．100 B．50 C．900 D．300
或 事件。 2. 下列程序运行后，变量x= D 。 Dim n,x As Integer n=5
Private Sub Form_Load() x=1
For i=1 To n x=x*i Next i End Sub
A．5 B．15 C．24 D．120 3. 下列程序运行后，变量k= C Dim k As Integer
Private Sub Command1_Click() k=0
For i=7 To 100 Step 7 k=k+1 Next i End Sub
A．0 B．7 C．14 D．15 4. 下列程序的结果是：___S=6___ Private Sub From_Activate() S=1
For I=1 to 3 Step 1 S=S*I Next I Print “S=”;S End Sub
5. 下列程序的结果是： I=2 I=4
Private Sub Form_activate() For I=1 to 4 Step 1 If I Mod 2=0 then Print ”I=”;I End if
。Next I End Sub 6. 阅读以下程序
Private Sub Command1_Click() Print “* * Hi ,”
Print “how are you * *” End Sub
当程序执行时，单击Command1后，输出结果是 * * Hi , how are you * * 7. 阅读以下程序段
Private Sub Command1_Click() For R =100 to 520 step 100 b1 = 255 * Rnd b2 = 255 * Rnd b3 = 255 * Rnd
Picture2.Circle(1000,1000), R,RGB(b1,b2,b3) Next R End Sub
当程序执行时，单击command1后，将在（何处）__ Picture2___显示__5__个颜色_ 不同 _（填相同或不同）的同心圆。 8. 阅读以下程序段
Private Sub Command1_Click() S = 1
For a =3 to 12 step 4 S = S + 2 Next a Print “S = ”；S End Sub
当程序执行后，S的值是__7__，a的值是__15__。 9. 以下是求任意圆面积的程序 Private Sub Command1_Click()
R = InputBox(\"请输入圆的半径\数据输入\print “S=”；3.14*R*R End Sub
在程序执行过程中单击Command1时，出现了右图所示的窗口，请根据如图所示信息，在空白处补充对应的程序语句。
10. 以下是求计算8阶乘的程序，请将该程序补充完整 Private Sub Command1_Click() S = ___1___
For k= __1_ to _8__ step _1_ __s=s*k__ Next k End Sub
11．Private Sub Form_Activate () Line(1000,1000)-(2000,1000) Line(2000,1000)-(2000,2000) Line(2000,2000)-(1000,2000) Line(1000,2000)-(1000,1000) Circle(1500,1500),500
End Sub 运行结果：
12.阅读程序代码并填空。 Private Sub Command1_Click() Dim a, b As Integer a = InputBox(\"a=\输入\") b = InputBox(\"b=\输入\") If a > b Then Print a Else: Print b End If End Sub
(1)程序的基本结构包括顺序结构、分支结构和循环结构，本程序主要使用的是__分支__ 结构。
(2)本程序的主要作用是__输入a,b的值，打印数大的值__。
(3)假如输入的两个数分别是 7和 9，程序执行后，输出的结果是__9___。 13.判断质数：用Do循环语句编写一个程序，实现输入一个大于2的自然数M，判断这个自然数是否是质数。如果是质数，则输出“这是一个质数！”，否则输出“这不是一个质数！”，请填写空白处的程序。 Private Sub Command1_Click()
Dim M As Integer, i As Integer M = InputBox(\"请输入一个数：\") i = 1 Do i = i + 1
Loop Until ( M Mod i = 0 ) Or (i = M - 1) If M Mod i = 0 Then Print M; \" 不是质数 \" Else
Print M; \" 是质数 \" End If End Sub
因篇幅问题不能全部显示，请点此查看更多更全内容