VB复习练习题.docx

VB复习练习题
2•工程文件的扩展名是(D )o
A)bas B)cls C)frm D)vbp
3.确定控件位置的属性是(D )
A)Width 和Height B)Width 或Long
C) Right 和Left D)Top 和Left
4•窗体标题栏上显示的内容使用下列哪个属性进行设置(B )
A)name B )Caption
C)Fontname D)Font
5.在设计阶段，当双击窗体上的某个控件时，打开的窗口是(C )
A)工具箱B)对象窗口
C)代码窗口D)属性窗口
6•以下叙述屮错误的是(C )
A)窗体载入时触发窗体的Load事件
B)窗体或控件的事件的名称可以由编程人员确定
控件的事件的名称，比如：
①窗体的事件：单击(Click)事件，双击(DbClick)事件，装入(Load)事件；
②标签的事件：单击(Click),双击(Double Click)；
③文木框的事件：Change事件，GotFocus获得焦点，LostFocus失去焦点，KeyPress在文本框获得焦点后，用户在键盘上按下某个键吋将触发KeyPress 事件。

一个控件要想获得焦点，必须使用它的Enabled属性和Visible属性
④命令按钮的事件：单击(Click)事件
C)移动鼠标时，会触发MouseMove事件
D)控件的名称可以由编程人员设定
7.以下能在文本框Textl中显示“2015"的语句是(D )
A)=M2015n
B)Text 1 .Passwordchar=n2015 ”
C)Textl.Caption=n2015n
D)Textl.Text=n2015n
8.下列可作为Visual Basic变量名的是(D )。

A) A&A B) 6ABC
C)*arr D)sinX
9.执行以下程序段
a$=n Visual C++ Programming n
b$=n Basic H
C$= Left(a, 7) & UCase (b) & Right(a, 12)
后，变量C的值为(A )o
A)Visual BASIC Programming B)VISUAL C++
Programming
C)Visual C++ Programming D)VISUAL BASIC Programming
10.设a=15, b=20,则执行c=Int ((b-a) * Rnd +a)后，c 值的范围为(D )o
Int( X )—不超过X 的最大整数，Int(3.14)=3, Int(3)=3.
Mod( X )—取X的余数
Fix( X )—取X的整数部分
A)15 〜20 B) 16 〜19
C) 16 〜20 D) 15 〜19
11 -设a=2,b=3,c=4,下列表达式的值是(D )。

Not a <= c Or 4*c = b A2 And b <> a+c
A)-l B) 1
C) True D) False
12.VB的3中结构化程序设计的3种基本结构是
(A )o
A)选择结构、顺序结构、循环结构
B)递归结构、选择结构、顺序结构
C)过程结构、转向结构、递归结构
D)选择结构、过程结构、顺序结构
13.在窗体上画一个名称为Commandl的命令按钮和两个
名称分别为Textl、Text2的文本框，然后编写如下事件过程:
Private Sub Commandl_Click()
n=val(Text 1 .Text)
Select Case n
Case 1 To 20
x=10
Case 2, 4, 6
x=20
Case Is <10
x=30
Case 10
x=40
End Select
Text2.Text=x
End Sub
程序运行后，如果在文本框Textl 'I'输入6,然后单击命
令按钮，则在Text2中显示的内容是(A )。

A) 10 B)20 C) 30 D) 40
14.下列程序段的执行结果为(A )。

a=75
If a>60 Then 1=1
If a>70 Then 1=2
If a>80 Then 1=3
If a>90 Then 1=4
Print n I=n; I
A) 1=1 B)I=2 C)I = 3 D)I=4
15.执行以下程序段
Dim i As Integer, x As Integer
x = 0
For i = 20 To 1 Step -2
x = x + i \4
Next
Print x
后，X的值为(C )o
A) 16 B)18 C)25 D)27
16.有如下程序：
d$=,,n
a$=M abcde n
For i=Len(a$) To 1 Step -1 d$= Mid(a$,i,l) + d$
Next i
Print d$
运行后，输出的结果是(B )0
A) abcdeB) edcba
C) acebdD) ecadb
17. 设有以下循环结构
Do
循环体
Loop While ＜ 条件〉
则以下叙述中错误的是(
A) 若“条件”是一个为0的常数，则一次也不执行循环 体{后测型：循环体要执行一次}
B) “条件”可以是关系表达式、逻辑表达式或常数
C) 循环体中可以使用Exit Do 语句
D) 如果“条件”总是为True,则不停地执行循环体
18•要求设置计时器时间间隔为2秒钟，那么它的Interval 属性值应该为(A )。

A) 2000 B) 200 前测型： Do [{Whilcl Until}] v 条件＞] v 语句块＞ [Exit Do] v 语句块〉 Loop 先判断条件，后执行循环体，如果一开始条件 不成立，则循环体一次不成立。

C) 20 D) 2 19•设有如下程序：
Option Base 1
Private Sub Form_Click()
a 二Array (1,2,3,4,5,6,7,&9)
For i=l To 4
Print a(6-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是(B )o A) 4 3 2 1 B)5 43 2
C) 6 5 4 3 D) 7 6 5 4
20.单击命令按钮时，下列程序的执行结果为(C )。

Private Sub Command 1 _Click()
Dim x As Integer, y As Integer
x = 12: y = 32
Call Proc(x, y)
Print x; y
End Sub
Sub Proc (By Vai n As Integer, m As Integer)
n = n Mod 10
m = m Mod 10
End Sub
A)12 32 B)2 32
C)12 2 D)12 3
二、填空题
1. 编写如下程序
Private Sub Commandl_Click()
Dim a As Integer, b As Integer
a= 15
b = 7
Print n(a, b)
End Sub
Function n(x As Integer, y As Integer) As Integer
n = IIf(x > y, x, y)
End Function
程序运行后，单击命令按钮，输出结果为15
5.在过程调用屮，常用的参数传递可以分为—按值传递—和—按地址传递—两种方式。

6.用Array函数初始化数组：
Dim city As Variant
city二Arrays北京”，”上海”，”天津”，”重庆”)其屮city(2)的值为天津。

7.语句Dim score(30,l to 4,3) As Single 声明的数组，数
组名为score ；数组类型为单精度；维数为496 ；数组元素个数共有1984 个。

8.在一个含有若干列表项的列表框控件Listl中，表示当
前被选屮列表项内容的语句是Lisfl.Text ；能够获得组合框Combo 1中项目个数的语句是
ComboLListCount 。

9.复选框和单选框的标题文字可以通过caption属性
来设置。

当一个复选框被选中时，它的Value属性的
值是 1 _______ O
10.执行下面的程序段后，输出结果为29.5 。

S=5
For i=2 To 5 Step 0.5
S=S+i
Next i
Print S
11•阅读以下代码：
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum = 0
arr = Array(2,4,6, & 10,12,14,16,18,20)
For i= 1 To Ubound (arr)
If arr(i)/4 = arr(i)\4 Then
Sum = Sum + arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为60 。

12.闰年的年号要么能被4整除但不能被100整除，要么能被称400整除。

判断年号y是否为闰年的逻辑表达式是 _____________ y mod 4 = 0 And Not y mod 100 =0 Or y mod 400 = 0 ______ 。

13.下列语句的输出结果是二。

Private Sub Form_Click()
a = 3
b = 4
Print H a H; n+n; n b H; H=H; a+b
End Sub
判断题
1.标签控件能够显示文本信息，文本内容对齐方式用Alignment 属性来设置。

(P )
2•判断x是否为偶数的条件表达式可以写为x/2=Int(x/2)o ( x )。

3.在0ption Base 1的前提下,若有定义Dim A%(10),则数组A 所占
的字节数是22个。

(x )
%指Integer,整型，占用字节数为2. !指single,单精度型，占用字节数为4
4.Visual Basic 6.0分为2种版本。

(x )
5 .设置Height或Width的数值单位为twip,是1点的1/20o (V )
6.如果要在窗体的Load事件中使用Print方法，应该设
置窗体的某个属性才能正常输出结果，否则窗体无法
显示打印结果。

(7 )
7.假设有如下事件过程
Private Sub Form_MouseDown(Button As Integer,Shift
As Integer,X As Single,Y As Single)
If Button=2 Then
PopupMenu File
End If
End Sub
其屮Button=2表不按下的是鼠标左键。

(x )
8.在Visual Basic中，要将一个窗体加载到内存进行预处
理但不显示，使用语句loado ( V )
9.双击窗体Form!,将被执行的事件过程的名字应为Click 事件。

(x )
10•执行下面程序段的结果是4321。

(P )
Option Base 1
Private Sub Command 1 _Click()
Dim a
s = 0
a = Array(l, 2, 3, 4)
j = l
For i = 1 To 4
s = s + a(i) * j j=j* 10 Next i
Print s
End Sub
编程题
1.结合上机实践操作，观察如图1所示的程序界面屮，有几种对象类型，分别写出每种
対象的名称，中英文均可。

VB的对象包括窗体初控件控件包括标签，文本框, 命令按钮。

所以这个题：
①窗休，
②标签，
③单选钮，
④复选框，
⑤文本框,
⑥框架
2•计算sum=l+2+3+ .... +n, n由用户随意给出。

Sub Command 1 —Click()
Dim n%, s as Long, i%
n = InputBox ( “请输入一个数J
For i = 1 To Vai ( n )
S = S+ 1
Next i
Print S
3•编程实现内容互换小游戏，界面设计如图3所示。

Private Sub cmdExit—Click ()
End
End Sub
Private Sub cmdSwap—Click ()
Dim s As String
S = Label 1 .Caption
Label 1. Caption = Label2.Caption
Label2.Caption = S
End Sub。