vb第1次测验复习题单选判断程序填空改错练习.docx
《vb第1次测验复习题单选判断程序填空改错练习.docx》由会员分享，可在线阅读，更多相关《vb第1次测验复习题单选判断程序填空改错练习.docx（37页珍藏版）》请在冰豆网上搜索。
vb第1次测验复习题单选判断程序填空改错练习
一、判断共19题（共计19分）
第1题（1.0分）题号:
684
在窗体的form_load事件过程里定义的变量是局部变量。
第2题（1.0分）题号:
380
VB规定窗体文件的扩展名是.vbp。
3题（1.0分）题号:
681
对于动态数组，在过程中可多次使用redim语句改变数组的大小。
第4题（1.0分）题号:
285
所有的控件在程序运行以后都是可见的。
第5题（1.0分）题号:
677
通常用show方法来显示通用对话框
第6题（1.0分）题号:
683
控件数组中的各个元素由caption属性区分。
第7题（1.0分）题号:
680
通用对话框控件在运行的时候，是不可见的。
第8题（1.0分）题号:
361
设A=3,B=4,C=5,D=6,则表达式A>BAndC<=DOr2*A>C
的值是False。
第9题（1.0分）题号:
313
“菜单编辑器”中至少要填“名称”和“标题”这两个框，才
能真确完成菜单栏的设计。
第10题（1.0分）题号:
325
VB若同一个工程有许多窗体，可以指定任一窗体为启始窗体。
第11题（1.0分）题号:
335
通过改变属性窗口中的Name属性，可以改变窗体上显示的标题。
第12题（1.0分）题号:
324
如果一个菜单项的Visible属性为False，则它的子菜单也不会显示。
第13题（1.0分）题号:
678
鼠标mousedown事件可以返回一个参数button用于判断用户按下的是鼠标的左键、右键、还是滑轮。
第14题（1.0分）题号:
254
有的对象属性既可在属性窗口中设定又可在程序代码中设定。
第15题（1.0分）题号:
686
时钟控件的interval属性的单位是毫秒。
第16题（1.0分）题号:
248
对象的可见性用enabled属性设置，可用性用visible属性设置。
第17题（1.0分）题号:
682
Dim（4,5）定义数组元素个数是20个。
第18题（1.0分）题号:
685
dima（1to5）定义的数组是2维数组。
第19题（1.0分）题号:
679
用户可以通过设置菜单项的hide属性值为false来使该菜单项失效。
二、单项选择共46题（共计46分）
第1题（1.0分）题号:
1044
双击窗体的任何地方，可以打开的窗口是（）。
A:
代码窗口
B:
属性窗口
C:
工程管理窗口
D:
以上3个选项都不对
第2题（1.0分）题号:
1071
VB认为下面（）组变量是同一个变量。
A:
A1和a1
B:
SUM和SUMMARY
C:
AVER和AVERAGE
D:
A1和A_1
第3题（1.0分）题号:
1118
决定控件上文字的字体、字形、大小及效果的属性是（）。
A:
TEXT
B:
CAPTION
C:
NAME
D:
FONT
第4题（1.0分）题号:
1013
下列（）是窗体的扩展名。
A:
frm
B:
bas
C:
cls
D:
dll
第5题（1.0分）题号:
2298
关于VB源代码的编写,下列说法错误的是
A:
一个语句必须写在一行中,不可分成多行来书写
B:
同一行可以写多个语句
C:
可以适当添加注释有利于程序的维护和调试
D:
VB源代码中不区分字母的大小写
第6题（1.0分）题号:
2313
如果在窗体上画一个命令按钮Command1,然后编写如下实事件代码:
PrivateSubCommand1_Click（）
x=2
Fori=1To10Step2
x=x+i
Nexti
Printx
EndSub
那么,程序运行后,单击命令按钮,其窗体上显示的结果是
A:
26
B:
27
C:
38
D:
57
第7题（1.0分）题号:
2304
使"程序设计"在当前窗体上输出的语句是
A:
Print"程序设计"
B:
Picture1.Print"程序设计"
C:
Printer.Print"程序设计"
D:
Text.Print"程序设计"
第8题（1.0分）题号:
724
下面（）是合法的变量名.
A:
X_yz
B:
123abc
C:
integer
D:
X-Y
第9题（1.0分）题号:
1006
以下关于vb语言的说法中，正确的是（）。
A:
vb是一种面向过程的语言
B:
vb是一种面向对象语言
C:
vb是一种低级语言
D:
vb是一种机器语言
第10题（1.0分）题号:
1052
设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，
则另一个命令按钮的名称不能是（）。
A:
cmdc
B:
cmdb
C:
cmdA
D:
Command1
第11题（1.0分）题号:
736
下面正确的赋值语句是（）.
A:
x+y=30
B:
y=*r*r
C:
y=x+30
D:
3y=x
第12题（1.0分）题号:
995
要想清除文本框中的内容则可利用（）进行。
A:
Caption
B:
Text
C:
Clear
D:
Cls
第13题（1.0分）题号:
1068
MSGBOX函数中有4个参数，其中必须写明的参数是（）。
A:
指定对话框中显示按钮的数目
B:
设置对话框标题
C:
提示信息
D:
所有参数都是可选的
第14题（1.0分）题号:
727
下面（）是合法的单精度型变量
A:
num!
B:
sum%
C:
xinte$
D:
mm#
第15题（1.0分）题号:
2301
用InputBox（）函数设计的对话框,其功能是
A:
只能接收用户输入的数据,但不会返回任何信息
B:
能接收用户输入的数据,并能返回用户输入的信息
C:
既能用于接收用户输入的信息,又能用于输出信息
D:
专门用于输出信息
第16题（1.0分）题号:
961
将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。
A:
Visible
B:
Value
C:
Caption
D:
Enabled
第17题（1.0分）题号:
1176
执行下面的程序段后，x的值为（）。
x=5
Fori=1To20Step2
x=x+i\5
Nexti
A:
21
B:
22
C:
23
D:
24
第18题（1.0分）题号:
967
由Fork=10to0step3:
nextk循环语句控制的循环次数是（）。
A:
12
B:
0
C:
-11
D:
-10
第19题（1.0分）题号:
2309
Do循环语句是根据条件决定循环的语句的,下列说法正确的是
A:
While和Until都是在条件变为真的之前重复循环
B:
Until是当条件为真时执行循环,而While是在条件变为真的之前重复
C:
While和Until都是当条件为真时执行循环
D:
While是当条件为真时执行循环,而Until是在条件变为真的之前重复
第20题（1.0分）题号:
1177
用语句DimA（-3To5）AsInteger定义的数组的元素个数是（）。
A:
6
B:
7
C:
8
D:
9
第21题（1.0分）题号:
2307
以下Case语句中错误的是
A:
Case0To10
B:
CaseIs>10
C:
Case3,5,Is>10
D:
CaseIs>10AndIs<50
第22题（1.0分）题号:
2303
可以实现从键盘输入一个作为双精度变量a的值的语句是
A:
a=InputBox（）
B:
a=InputBox（"请输入一个值"）
C:
a=Val（InputBox（"请输入一个值"））
D:
a=Val（InputBox（））
第23题（1.0分）题号:
1092
窗体的Caption属性的作用是（）。
A:
确定窗体的名称
B:
确定窗体的标题
C:
确定窗体的边界类型
D:
确定窗体的字体
第24题（1.0分）题号:
933
函数Int（10*Rnd）是在（）范围内的整数。
A:
[0,1]
B:
[1,10]
C:
[1,9]
D:
[0,9]
第25题（1.0分）题号:
1128
以下（）程序段可以实施X、Y变量值的变换。
A:
Y=X:
X=Y
B:
Z=X:
Y=Z:
X=Y
C:
Z=X:
X=Y:
Y=Z
D:
Z=X:
W=Y:
Y=Z:
X=Y
第26题（1.0分）题号:
939
循环结构ForI%=-1to–17Step–2共执行（）次。
A:
5
B:
6
C:
8
D:
9
第27题（1.0分）题号:
1022
下面（）是日期型常量。
A:
"12/19/99"
B:
12/19/99
C:
#12/19/99#
D:
{12/19/99}
第28题（1.0分）题号:
742
VB提供了结构化程序调计的三种基本结构,三种基本结构是（）.
A:
递归结构、选择结构、循环结构
B:
选择结构、过程结构、顺序结构
C:
过程结构、输入输出结构、转向结构
D:
选择结构、循环结构、顺序结构
第29题（1.0分）题号:
1055
表达式Mid（"SHANGHAI",6,3）的值是（）。
A:
SHANGH
B:
SHA
C:
ANGH
D:
HAI
第30题（1.0分）题号:
705
有程序代码如下:
Text.Text="Text1.text"则Text1、Text、"Text1.text"分别代表.
A:
对象、值、属性
B:
对象、方法、属性
C:
对象,属性、值
D:
属性、对象、值
第31题（1.0分）题号:
1172
表达式4+5\6*7/8Mod9的值是（）。
A:
4
B:
5
C:
6
D:
7
第32题（1.0分）题号:
740
语句:
Print"Sqr（9）=";Sqr（9）的输出结果是（）.
A:
Sqr（9）=Sqr（9）
B:
Sqr（9）=3
C:
"3"=3
D:
3=Sqr（9）
第33题（1.0分）题号:
739
赋值语句:
a=123&Mid（"123456",3,2）执行后,a变量中的值是（）.
A:
"12334"
B:
123
C:
12334
D:
157
第34题（1.0分）题号:
2312
执行语句Fori=1to3:
i=i+1:
Nexti后变量i的值是
A:
3
B:
4
C:
5
D:
6
第35题（1.0分）题号:
703
在VisualBasic中最基本的对象是（）,它是应用程序的基石,是其他控件的容器.
A:
文本框
B:
命令按钮
C:
窗体
D:
标签
第36题（1.0分）题号:
2310
关于Do……LoopUntil循环正确的描述是
A:
不论"条件表达式"是否为"真",至少要执行一次循环体
B:
如果"条件表达式"的值为假,则一次循环体也不执行
C:
如果"条件表达式"的值为真,则一次循环体也不执行
D:
如果"条件表达式"的值为真,则要继续执行循环体
第37题（1.0分）题号:
2302
在默认情况下,InputBox（）函数返回值的类型为
A:
逻辑类型
B:
字符串型
C:
数值型
D:
变体类型
第38题（1.0分）题号:
735
表达式Len（"123程序设计ABC"）的值是（）.
A:
10
B:
14
C:
20
D:
17
第39题（1.0分）题号:
2308
下面程序段执行结果为（）x=Int（Rnd（）+3）
SelectCasex
Case5
Print"优秀"
Case4
Print"良好"
Case3
Print"及格"
CaseElse
Print"不及格"
EndSelect
A:
优秀
B:
良好
C:
及格
D:
不及格
第40题（1.0分）题号:
960
要改变控件的宽度，应修改该控件的（）属性。
A:
Top
B:
Width
C:
Left
D:
Height
第41题（1.0分）题号:
1087
在一个语句行内写多条语句时，语句之间应该用（）分隔。
A:
逗号
B:
分号
C:
顿号
D:
冒号
第42题（1.0分）题号:
2311
执行下列程序段输出结果是（）x%=2
Dowhilex<8
Print"*";
x=x+4
Loop
A:
*
B:
**
C:
***
D:
****
第43题（1.0分）题号:
729
数学表达式3≤x<10在VB中的逻辑表达式为（）.
A:
3<=x<10
B:
3<=xANDx<10
C:
x>=3ORx<10
D:
3<=xAND<10
第44题（1.0分）题号:
2299
以下说法错误的是
A:
注释语句用来对程序或程序中某些语句做注释,使程序便于理解
B:
注释语句是非执行语句
C:
任何字符都可以放在注释行中作为注释内容
D:
注释语句不能放在执行语句的后面
第45题（1.0分）题号:
936
改变控件在窗体中的上下位置应修改控件的（）属性。
A:
Top
B:
Left
C:
Wide
D:
Height
第46题（1.0分）题号:
1007
下列的逻辑表达式中不正确的是（）。
A:
AB:
XC:
1>2AND3>1
D:
X>YAND1=2
三、程序填空共9题（共计90分）
第1题（10.0分）题号:
526
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：
在窗体上建立两个文本框Text1（输入数）及Text2（显示结果），
'一个命令按钮Command1（"判断"）。
单击按钮时判断Text1中输入的数值
'是否是4的倍数。
'请在【】处填入正确的内容
'-------------------------------------------------------
'PrivateSubCommand1_Click（）
DimxAsInteger
'**********SPACE**********
IfIsNumeric（Text1.Text）=【?
】Then
Text2.Text="输入错误"
ExitSub
EndIf
'**********SPACE**********
x=val（【?
】）
'**********SPACE**********
If【?
】=0Then
Text2.Text="是4的倍数"
Else
Text2.Text="不是4的倍数"
EndIf
EndSub
答案：
1）.False
2）.Text1.Text或Text1
3）.xMod4
第2题（10.0分）题号:
527
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：
窗体上建立了一个文本框Text1，用于显示结果。
单击按钮弹出输入对话框录入0-6之间的数值，判断输入值为星期几。
请在【】处填入正确的内容
'-------------------------------------------------------
PrivateSubCommand1_Click（）
DimxAsInteger
'**********SPACE**********
x=Val（【?
】（"请输入星期几（0～6）"））
'**********SPACE**********
SelectCase【?
】
CaseIs=0
Text1.Text="星期日（Sunday）"
CaseIs=1
Text1.Text="星期一（Monday）"
CaseIs=2
Text1.Text="星期二（Tuesday）"
CaseIs=3
Text1.Text="星期三（Wednesday）"
CaseIs=4
Text1.Text="星期四（Thursday）"
CaseIs=5
Text1.Text="星期五（Friday）"
CaseIs=6
Text1.Text="星期六（Saturday）"
'**********SPACE**********
Case【?
】
Text1.Text="输入错误"
EndSelect
EndSub
答案：
1）.InputBox
2）.x
3）.Else
第3题（10.0分）题号:
519
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：
该程序通过For循环计算一个表达式的值，这个表达式是
'1/2+2/3+3/4+4/5
'请在【】处填入正确的内容
'-------------------------------------------------------
PrivateSubCommand1_Click（）
'**********SPACE**********
Dim【?
】AsDouble,xAsDouble
DimnAsLong
DimiAsInteger
'**********SPACE**********
sum=【?
】
n=0
Fori=1To5
x=n/i
n=n+1
'**********SPACE**********
sum=【?
】
Next
Form1.Printsum
EndSub
答案：
1）.sum
2）.0
3）.sum+x或x+sum
第4题（10.0分）题号:
524
OptionExplicit
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：
下面是一个体操评分程序，10位评委，除去一个最
'高分和一个最低分，计算平均分（设满分为10分）。
'请在【】处填入正确的内容
'-------------------------------------------------------
'PrivateSubCommand1_Click（）
DimsAsInteger
DimMax,MinAsInteger
Dimi,n,pAsInteger
'**********SPACE**********
【?
】
Min=10
Fori=1To10
n=Val（InputBox（"请输入分数：
"））
'**********SPACE**********
Ifn>MaxThen【?
】
Ifns=s+n
Nexti
'**********SPACE**********
s=s-Max【?
】
p=s/8
Print"最高分：
";Max
Print"最低分：
";Min
Print"最后得分：
";p
EndSub
答案：
1）.Max=0
2）.Max=n
3）.-Min
第5题（10.0分）题号:
531
'-------------------------------------------------------
'【程序填空】
'------------------------------------------------------
'题目：
打印出100-999之间的所有水仙花数
'如果一个数的百位，十位，个位数的立方和等于这个数本身
'则这个数为水仙花数
'请在【】处填入正确的内容
-------------------------------------------------------
'PrivateSubCommand1_Click（）
DimiAsInteger,aAsInteger,bAsInteger,cAsInteger
'**********SPACE**********
Fori=100To【?
】
'**********SPACE**********
a=Int（i/【?
】）
b=Int（（i-100*a）/10）
'**********SPACE**********
c=i-100*a-【?
】
Ifa*a*a+b*b*b+c*c*c=iThen
Printi
EndIf
Nexti
EndSub
答案：
1）.999
2）.100
3）.10*b或b*10
第6题（10.0分）题号:
41
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：
下面过程max（）用于求3个数中最大值，利用这个过程求5
'个数中最大值。
'-------------------------------------------------------
PrivateSubForm_Click（）
Print"5个数34、124、68、73、352的最大值是：
"
max1=max（34,124,68）
'**********SPACE**********
max1=【?
】
Printmax1
EndSub
'**********SPACE**********
PublicFunctionmax（【?
】）
Ifa>bThen
m=a
Else
m=b
EndIf
'**********SPACE**********
If【?
】Then
max=m
Else
max=
升级会员 