【www.zhuodaoren.com--专题】
可视化程序设计(VB)模拟题1
、有如下事件过程，程序的功能是（）。Private,Sub,Commandl,_Click,(,)S1=0:,S2=0M1=0:,M2=0N=1Do,while,N<=100,A=INT(101*,R(篇一)
、单项选择题：（每小题2分，共24分）
1、下列哪个符号能作为VB中的变量名（ ）。
A、AB7
B、7AB
C、IF
D、A[B]7
2、“X是小于100的非负数”，用VB表达式表示正确的是（
A、0≤x＜100
B、0＜=X＜100
C、0≤X OR X＜100
D、0＜=X AND X＜100
3、数学式子Sin25°写成VB表达式是（ ）。
A、Sin25
B、Sin（25°）
C、Sin（25）
D、Sin（25*3.14/180）
4、下列哪组语句可以将变量A、B的值互换（ ）。
A、A=B：B=A
B、A=C：C=B：B=A
C、A=A+B：B=A－B：A=A－B
D、A=（A+B）/2：B=（A=B）/2 。一 ）
5、函数Int(Rnd (0)*10)是在哪个范围内的整数（ ）。
A、（0，1）
B、（1，0）
C、（0，10）
D、（1，9）
6、一个对象可以执行的动作与可被对象识别的动作分别称为（ ）。
A、事件、方法
B、方法、事件
C、属性、方法
D、过程、事件
7、在窗体Form1的Click事件过程中有以下语句：Label1.Caption=“欢迎使用VB”该语句执行后标签控制的名称属性和Caption属性取值分别为（ ）。
A、Label，欢迎使用VB
B、Label1，欢迎使用VB
C、Label1，Caption
D、Label1，Label1
8、在调用过程时，下述说明正确的是（ ）。
A、只能使用Call语句用Sub过程
B、调用Sub过程时，实参必须用括号括起来
C、在表达式中调用Function过程时可以不用括号把实参括起来
D、Function过程也可使用Call调用
9、设S1、S2均为字符串变量，S1=“Visual Basic”S2=“b”，则下面关系表达式中结果为True的是（ ）。
A、len（S2）＞len（S1）
B、Chr（66）&Right（S1，4）=“Basic”
C、Left（S1，8）＜S2
D、Mid（S1，8，1）＞S2
10、下面哪个关键字是将光标设置到指定的文本框上（ ）。
A、Text
B、Name
C、select
D、SetFocus
11、在用菜单编辑器设计菜单时，必须输入的项有（ ）。
A、快捷键
B、标题
C、索引
D、名称
12、定时器的Interval属性以（ ）为单位指定Timer事件之间的时间间隔。
A、分
B、秒
C、毫秒
D、微秒
二、填空题：（每空1分，共26分）
1、VB程序执行的基本方法是
由驱动子程序的运行。
2、开发一个VB应用程序的步骤分别
是
3、在VB程序中，工程项目文件的扩展名
为
模块文件的扩展名
为
执行文件的扩展名
为 窗体文件的扩展名
为用户控件文件的扩展名
为
4、VB程序中，变量的作用域是
指
根据作用域的不同将变量分
为
5、VB中，常用的两种说明变量类型的声明语句
是
6、VB中，用于处理文字信息的输入和显示信息的控件分别
是
用于处理图形信息的控件分别
是
7、VB中，在预定对话框里有两种对话框分别称
为
它们所用函数分别
为
8、一个多文档界面的应用程序可以包含三类窗体分别
是{、有如下事件过程，程序的功能是（）。Private,Sub,Commandl,_Click,(,)S1=0:,S2=0M1=0:,M2=0N=1Do,while,N<=100,A=INT(101*,R}.
三、阅读程序，写出结果：（每小题6分，共30分）
1、执行下面的程序，单击窗体后在窗体上显示的三行结果。
Private Sub Form_Click()
Dim Astr, Astr1, Astr2 As String Astr1="B"
For I=1 To 3
Astr2=LCase(Astr1)
Astr1=Astr1 & Astr2
Astr=Astr & Astr1
Print Astr
Astr1=Chr(Asc(Astr1)+1) Next I
End Sub
2、下面程序的功能是什么?
Private Sub Commandl _Click ( ) S1=0: S2=0
M1=0: M2=0
N=1
Do while N<=100
A=INT(101*RND)
If a mod 2=0 THEN
第六章 有答案过程
、有如下事件过程，程序的功能是（）。Private,Sub,Commandl,_Click,(,)S1=0:,S2=0M1=0:,M2=0N=1Do,while,N<=100,A=INT(101*,R(篇二)
第六章 过程
一、单选题
1．在过程定义中用___C_____表示形参的传值。
A）Var B）ByDef
C）ByVal D）ByValue
2．若已经编写一个Sort子过程，在该工程中有多个窗体，为了方便调用Sort子程序，应该将子放在____D____中。
A）窗体模块 B）类模块 C）工程 D）标准模块
3．在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则使用____D____关键字在过程中定义局部变量。
A）Dim B）Private C）Public D）Static
4．以下正确的描述是：在Visual Basic应用程序中____B____。
A）过程的定义可以嵌套，但过程的调用不能嵌套。
B）过程的定义不可以嵌套，但过程的调用可以嵌套。
C）过程的定义和过程的调用均可以嵌套。
D）过程的定义和过程的调用均不能嵌套。
5．下列过程语句说明中，正确的是___B_____。
A）Sub f1(ByVal n%( )) B）Sub f1(x( ) as integer)
C）Sub f1(n%) as interger D）function f1%(f1%)
6．有子过程语句说明：Sub fSum(sum%,ByVal m%,ByVal n%)
且在事件过程中有如下变量说明：Dim a%,b%,c!
则下列调用语句中正确的是__A______。
A）fsum a,a,b B）fsum 2,3,4 C）fsum a+b,a,b D）Call fsum (c,a,b)
7．有如下程序，其运行的结果是____D____。
Public Function f(m%,n%)
Do While m<>n
Do while m>n : m=m-n : Loop
Do while m<n : n=n-m : Loop
Loop
F=m
End Function
Private Sub Command1_Click( )
Print f(24,18)
End Sub
A）0 B）2 C）3 D）6
8．假定有如下的Sub过程：
Sub S(x As Single,y As Single){、有如下事件过程，程序的功能是（）。Private,Sub,Commandl,_Click,(,)S1=0:,S2=0M1=0:,M2=0N=1Do,while,N<=100,A=INT(101*,R}.
t = x
x =t/y
y =t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ( )
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序运行后，单击命令按钮，输出结果为___D_____。
A）5 4 B）1 1 C）1.25 4 D）1.25 1
9．假定有以下两个过程：
Sub S1(ByVal x As Integer,ByBal y As Integer)
Dim t As Integer
t=x : x=y : y=t
End Sub
Sub S2(x As Integer, y As Integer)
Dim t As Integer
t=x : x=y : y=t
End Sub
则以下说法中正确的是___B_____。
A）用过程S1可以实现交换两个变量的值的操作，S2不能实现
B）用过程S2可以实现交换两个变量的值的操作，S1不能实现
C）用过程S1和S2都可以实现交换两个变量的值的操作
D）用过程S1和S2都不能实现交换两个变量的值的操作
10．阅读程序：
Sub subP(b( ) As Integer)
For i =1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Commandl_Click()
Dim a(1 To 4)As Integer
a (1)=5: a (2)=6: a (3)=7: a (4)=8
subP a ()
For i =1 To 4
Print a(i);
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为___A_____。
A）2 4 6 8 B）5 6 7 8 C）10 12 14 16 D）出错
11．设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是____C____。
A）10 5 B）20 5 C）20 40 D）10 40
12．阅读程序：
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Commandl_Click ()
Dim a As Integer
a =2
For i =1 To 3
Print F(a);
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为____B____。
A）4 4 4 B）4 5 6 C）4 6 8 D）4 7 9
二、填空题
1． 阅读下面程序，子过程Swap的功能是实现两个数的交换，请将程序填写完整。 Public Sub Swap(x As Integer, y As Integer)
Dim t As Integer
t = x : x = y : y = t
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 10 : b = 20
或 Print “a = ”; a , “b =”; b
End Sub
2．下列程序中，fac是求n!的递归函数，请将程序填写完整。
Public Function fac(n As Integer)
If n = 1 Then fac = 1
Else fac = End If
End Sub
3．如下程序，运行的结果是1 4 函数过程的功能是数以r进制显示 。
Public Function f(ByVal n% , ByVal r%)
If n <> 0 Then
本文来源：http://www.zhuodaoren.com/shenghuo382515/
推荐访问:sub过程有返回值吗