vb考题 1Word文档格式.docx
《vb考题 1Word文档格式.docx》由会员分享，可在线阅读，更多相关《vb考题 1Word文档格式.docx（13页珍藏版）》请在冰豆网上搜索。
A
（5）
以下Case语句中错误的是
Case
0
10
Is>
10C）
And
Is<
50
D）
3,5,Is>
10
（5）
C
（6）
以下关于图片框控件的说法中，错误的是
可以通过Print方法在图片框中输出文本
清空图片框控件中图形的方法之一是加载一个空图形
图片框控件可以作为容器使用
用Stretch属性可以自动调整图片框中图形的大小
D
（7）
执行语句s=Len（Mid（"
VisualBasic"
1,6））后，s的值是
Visual
Basic
6
11
（8）
以下叙述中错误的是
下拉式菜单和弹出式菜单都用菜单编辑器建立
在多窗体程序中，每个窗体都可以建立自己的菜单系统
除分隔线外，所有菜单项都能接收Click事件
如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
（9）
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
a
=
12345
Print
Format$（a,
"
000.00"
）
程序运行后，单击命令按钮，窗体上显示的是
123.45
12345.00
12345
D）00123.45
（10）
一个工程可以包括多种类型的文件
Basic应用程序既能以编译方式执行，也能以解释方式执行
程序运行后，在内存中只能驻留一个窗体
对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
（11）
以下关于函数过程的叙述中，正确的是
函数过程形参的类型与函数返回值的类型没有关系
在函数过程中，过程的返回值可以有多个
当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
如果不指明函数过程参数的类型，则该参数没有数据类型
（12）
以下关于变量作用域的叙述中，正确的是
窗体中凡被声明为Private的变量只能在某个指定的过程中使用
全局变量必须在标准模块中声明
模块级变量只能用Private关键字声明
Static类型变量的作用域是它所在的窗体或模块文件
（13）
确定一个控件在窗体上的位置的属性是
Width和Height
Width或HeightC）
Top和Left
Top或Left
（14）
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Text1.Text
Visual"
Me.Text1
Basic"
Text1
Program"
程序运行后，如果单击命令按钮，则在文本框中显示的是
Program
出错
（15）
以下关系表达式中，其值为False的是
ABC"
>
AbC"
the"
<
they"
VISUAL"
=UCase（"
）
Integer"
Int"
（16）
语句Print
5/4*6\5
Mod
2的输出结果是
B） 1
2
3
B
（17）
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
strText
InputBox（"
请输入"
strText
Text1_Change（）
Label1.Caption
Right（Trim（Text1.Text）,
3）
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
A）空
abcdef
abc
def
（18）
x
-5
If
Sgn（x）
Then
y
Sgn（x
^
2）
Else
y
Sgn（x）
If
y
-5
B）
25
1
-1
（19）
一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc
X
As
Integer，在Model1中有语句Pubilc
Y
Integer，则以下叙述中正确的是
变量X、Y的作用域相同
Y的作用域是Model1
在Form1中可以直接使用X
在Form2中可以直接使用X和Y
（20）
在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。
当改变当前驱动器时，目录列表框应该与之同步改变。
设置两个控件同步的命令放在一个事件过程中，这个事件过程是
A）Drive1_Change
Drive1_ClickC）
Dir1_Click
Dir1_Change
（21）
在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:
Option
Base
1
Dim
a
s
Array（1,2,3,4）
j
i
4
Step
+
a（i）
*
j
Next
i
s
运行上面的程序，单击命令按钮，其输出结果是
4321
1234
34
12
（22）
在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。
以下能实现该操作的事件过程是
Text1_KeyPress（KeyAscii
Integer）
KeyAscii
65
Or
90
MsgBox
请输入大写字母"
Text1_KeyDown（KeyCode
Integer,
Shift
KeyCode
Text1_MouseDown（Button
Single,
Single）
Asc（Text1.Text）
64
91
（24）
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
n
Val（Text1.Text）
n\2
n/2
f
f1（n）
f2（n）
f;
n
Public
Function
f1（ByRef
x）
x=x*x
f1=x+x
Function
f2（ByVal
f2=x+x+x
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是
72
36
108
6
（25）
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
c
1234
c1
Trim（Str（c））
4
Print
程序运行后，单击命令按钮，要求在窗体上显示如下内容
123
则在下划线处应填入的内容为
Right（c1,i）
Left（c1,i）
Mid（c1,i,1）
Mid（c1,i,i）
（26）
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
sqr（i）
Then
Exit
For
Sqr（i）
该事件过程的功能是
输出n以内的奇数
输出n以内的偶数
输出n以内的素数
输出n以内能被j整除的数
C
（27）
在以下描述中正确的是
标准模块中的任何过程都可以在整个工程范围内被调用
在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
如果工程中包含Sub
Main过程，则程序将首先执行该过程
如果工程中不包含Sub
Main过程，则程序一定首先执行第一个建立的窗体
A
（28）
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
f（m
m
m
Integer
5
f（i）
程序运行后，单击命令按钮，在窗体上显示的是
11
9
8
（29）
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
array1（10,
10）
array1（i,
j）
array1（2,
3）
array1（3,
4）
程序运行后，单击命令按钮，在文本框中显示的值是
15
14
13
（30）
在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：
Each
TextBox
In
Text1
Text1（i）
Text1（i）.Index
程序运行后，单击命令按钮，四个文本框中显示的内容分别为
0 1 2 3
1 2 3 4C）
0 1 3 2
出错信息
31.下列____语句设置单选按钮Option1为选中状态。
AOption1.Value=0
BOption1.Value=True
COption1.Value=1
DOption1.Value=False
B
32.计算z的值，当x大于y时，z=x；
否则z=y。
下列语句错误的是
A.
x>
=y
z=x
:
z=y
B
Else
C.
D.
x<
A
33.下列语句中，不能实现循环100次的是
A）N=0
Do
N=N+1
LoopUntilN>
=100
B）N=0
LoopWhilen<
100
C）N=0
LoopUntilN<
D）N=0
DoWhilen<
Loop
34.下列事件过程实现的功能是：
用户单击命令按钮Command1后，随机产生出一个小写字母，并输出。
在横线处应选择_______。
PrivateSubCommand1_Click（）
DimaAsString
Randomize
a=________
MsgBoxa
EndSub
A.Chr（Int（（97+26*Rnd））
B.Int（97+26*Rnd）
C.26*Rnd
D.Rnd
35.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimnumAsInteger
num=1
Do
whilenum
=6
Printnum;
num=num+2.4
Loop
程序运行后，单击命令按钮，则窗体上显示的内容是______。
A.13.45.8
B.135
C.147
D：
无数据输出
36.假定有以下函数过程：
FunctionFun（strAsString）AsString
Dimsub_strAsString
Fori=1ToLen（str）
sub_str=UCase（Mid（str,i,1））+sub_str
Nexti
Fun=sub_str
EndFunction
在窗体上画一个命令按钮，然后编写如下事件过程：
DimStr1AsString,Str2AsString
Str1=InputBox（"
请输入一个字符串:
）
Str2=Fun（Str1）
PrintStr2
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"
abcDefg"
，则单击"
确定"
按钮后在窗体上的输出结果为______。
A.abcdefg
B.ABCEDFG
C.gfedcba
D.GFEDCBA
D
37.在VisualBasic工程中，可以作为“启动对象”的程序是（ ）。
A．任何窗体或标准模块
B．任何窗体或过程
C．SubMain过程或其他任何模块
D．SubMain过程或任何窗体
38.向文本框中输入单词hello，会触发
_____
次Change事件
A、1
B、5
C、不触发
D、2
二、编程题（答题说明：
根据给出条件，完成相应的代码，或者算出结果。
1.下列VisualBasic程序段运行后，变量m的值为_____。
a=2:
b=1:
c=5
Ifa<
bThenm=aElsem=b
Ifc<
mThenm=c
A、2
B、1
C、5
D、三项答案均不是
2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private
Command1_Click（）
Dim
num
Integer
num
Do
Until
Print
num;
2.4
Loop
End
程序运行后，单击命令按钮，则窗体上显示的内容是
A）1
3.4
5.8
B）1
3
5
C）1
7
D）无数据输出
3.把窗体的KeyPreview属性设置为True，然后编写如下事件过程
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
DimchAsString
ch=Chr（KeyAscii）
KeyAscii=Asc（UCase（ch））
PrintChr（KeyAscii+2）
EndSub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（ ）。
A．A
B．B
C．C
D．D
4.计算n!
的函数过程如下：
PrivateFunctionfact（nAsInteger）AsLong
f=1
Fori=1Ton
f=f*i
（___________________）
下划线处需要编写的语句是（）。
A.f=1
B.f=fact
C.fact=f
D.不需要其他任何语句
5.根据题意，将下列判断一个数是否素数的程序段补充完整。
请输入一个整数"
flag
（___________________）
x;
是素数"
不是素数"
A.
Sqr（x）
B.
x-1
C.
x/2
D.
以上都正确
6.设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。
要求单击Commandl按钮时可把光标移到文本框中。
下列正确的事件过程是（）。
A.PrivateSubCommandl_Click（）
Textl.SetFocus
B.PrivateSubComma
升级会员 