大学VB题库文档格式.docx
《大学VB题库文档格式.docx》由会员分享，可在线阅读，更多相关《大学VB题库文档格式.docx（32页珍藏版）》请在冰豆网上搜索。
2）
C、（a<
0）or（b>
0）D、（5>
a）And（b>
10、语句Print"
int（-23.4）="
;
;
Int（-23.4）的输出结果为（1分）
A、Int（-23.4）=-23.4B、（-23.4）=23.4
C、Int（-23.4）=-23D、Int（-23.4）=-24
11、运行程序：
x=2:
Fori=1To10Step2:
x=x+i:
Next，x的值是______。
A、26B、27
C、38D、57
12、要把一个Image控件对象设置成隐藏，应设置的属性是______。
A、VisibleB、Enabled
C、DefaultD、Cancel
13、如果在图片框Picture1中装入一个图形，为了清除该图形（不删除图片框），应采用的方法是______。
A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键B、选择图片框，然后按Del键
C、执行语句Picture1.Picture=LoadPicture（"
"
）D、执行语句Picture1.Picture="
14、比较两个数中较大的数的程序段，错误的是______。
A、IFx>
yThenmax=xElsemax=yB、max=IIF（x>
y,x,y）
C、IFx>
yThenmax=x:
max=yD、max=x:
Ifx<
yThenmax=y
15、下面四个语句中，正确的赋值语句是______。
A、a=a+cB、a+c=a
C、c+a=aD、a－c=a
16、在下列语句中，正确的是______。
A、Text1.Text+Text2.Text=Text3.TextB、Command1.Name="
cmdok"
C、Label1.Caption=4567D、x=InputBox（pleaseinput）
17、如果VB环境中缺少某个窗口，一般应从主菜单______的下拉菜单中找到相应的激活命令。
A、编辑B、文件
C、视图D、调试
18、启动VisualBasic后，VB为用户建立的第一个窗体是______。
A、FormB、Form1
C、窗体1D、窗体
19、能够盛放其他控件，而且是最基本的对象是______。
A、窗体B、图像
C、标签D、文本
20、以下______是正确的For…Next结构。
A、Forx=1ToStep10…NextxB、Forx=3To-3Step-3…Nextx
C、Forx=1Tox=10…NextxD、Forx=3To10Step3…Nexty
21、表达式Val（"
.123E2CD"
）的值是______。
A、.123B、12.3
C、OD、.123E2CD
22、执行程序段：
DimaxsAsInteger:
axs%=232:
axs=232.32:
Printaxs%;
axs，输出的结果是______。
A、232232032B、232232
C、232.32232.32D、显示出错信息
23、语句Print4+5\6*7/8Mod9的值是______。
A、4B、5
C、6D、7
24、下列不合法的常量形式是______。
A、"
1O0"
B、100.0
C、1OE+0.5D、ConstG=23+12
25、Single（单精度）型数据占______个字节。
A、2B、4
C、8D、10
26、设有变体变量x，执行语句：
x=InputBox（"
输入数值"
"
0"
示例"
）后，如果从键盘上输入10并按回车键，则下列叙述中正确的是______。
A、变量x的值是数值10B、在InputBox对话框标题栏中显示的是“示例”
C、0是默认值D、变量x的值是字符串“10”
27、程序段Print-15;
:
Print-16，输出的结果是______。
A、-15-16B、-31
C、-15-16D、出错
28、下列符号常量的声明中，______是不合法的。
A、ConstaAsSingle=1.1B、ConstaAsInteger="
12"
C、ConstaAsDouble=Sin
（1）D、Consta="
OK"
29、下面关系运算中，输出结果为“True”的是______。
1"
+2="
B、"
+"
2"
="
3"
C、"
&
2="
D、"
"
30、假设变量iVar是一个整型变量，则执行赋值语句iVar="
+3之后，变量iVar的值是______。
A、2B、3
C、5D、23
31、执行程序段：
a=6:
b=8:
F=Sqr（a*a+b*b）:
PrintF，输出的结果是______。
A、6B、8
C、10D、14
32、执行MsgBox123+123，信息框中可以出现______。
A、123+123B、123123
C、246D、显示出错信息
33、下列声明语句中，错误的是______。
A、Constvarl=123B、Dimvar2='
ABC'
C、Consty="
计算机等级考试"
D、Staticvar3asInteger
34、在下列逻辑表达式中，逻辑值为"
真"
的是______。
A、Not（1>
2）B、Not（3+4<
4+6）
C、1>
2Or2>
3D、2>
1And3<
2
35、执行程序段：
a$="
China"
b$=Right$（a$,3）:
c$=String$（3,b$）:
Printc$，输出的结果是______。
A、ChiB、aaa
C、iiiD、ina
36、变量未赋值时，数值型变量的值为______。
A、OB、空串"
C、NullD、没任何值
37、下列数据中，______是日期型数据。
01/30/2004"
B、Date（"
）
C、#01/30/2004#D、01/30/2004
38、表达式Str（Len（"
123"
））+Str（77.7）的值是______。
A、377.7B、377.7
C、80.7D、12377.7
39、语句T=MsgBox（"
程序执行了非法操作"
vbAbortRetryIgnore,"
提示信息"
）的执行后，可以在对话框中显示______个按钮。
A、1B、2
C、3D、4
40、InStr（"
VisualBasic程序设计简明教程中关于可视化界面的设计"
"
设计"
）的函数值为______。
A、15B、17
C、30D、47
二、填空题（5道小题，共20分）
1、*判断正整数M是否为素数。
*程序段如下：
FLAG=
ForI=2ToSqr（M）
If=0Then
FLAG=0
ExitFor
EndIf
NextI
IfFLAG=1Then
Print"
YES"
Else
NO"
（4分）
--------------------------------------------------------------------------------
2、*在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimaAsString,bAsInteger
a=（"
请输入一个数字"
）
bInputBox（"
s"
a;
b;
ok"
EndSub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为：
s321456ok。
3、*使用双循环实现正三角形输出
*
***
*****
*******
*********
***********
*************
***************
*****************
*******************
*程序代码如下：
PrivateSubCommand1_Cick（）
Fori=1To10
PrintTab（25-）;
Forj=1To2*i-1
*"
Nextj
Nexti
4、*设计程序，找出50以内所有素数（不包括2）。
PrivateSubForm_Click（）
DimiAsInteger,mAsInteger,flagAsInteger
Form=3To50
flag=0
Fori=ToInt（Sqr（m））
IfmModi=0Then
flag=1
If=0ThenPrintm
Nextm
5、*执行如下语句：
D=（"
Today"
Tomorrow"
Yesterday"
,,"
Daybeforeyesterday"
5）
将显示一个输入对话框（见图t2-2-2.jpg），在对话框的输入区中显示的信息是Yesterday。
（【下载文件“t2-2-2.JPG”】；
）下载方法：
在链接上右击打开弹出菜单，选择“目标另存为”。
三、编程题（3道小题，共40分）
1、*编写程序：
设计一个程序，随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
（10分）
（本题不要求填写运行结果）
请将你解答本题所写的源程序粘贴到下面或者上载源程序
2、*编写程序：
已知x、y、z分别是0～9中的一个数，求x、y、z的值，使得下列成立：
xxz+yzz=532。
（其中xxz和yzz不表示乘积，而是由x、y、z组成的三位数）。
（15分）
3、*编写一个分类统计的程序，如图K_112.jpg所示。
*界面要求：
*使用文本框、命令按钮完成。
*运行要求：
*1、在文本框中输入若干数字字符串；
*2、单击“统计”命令按钮后，判断文本框中所有奇数数字字符出现次数的总和，并输出到窗体上。
*（此题要求上载窗体文件，不要求填写程序运行结果）
（【下载文件“k_112.jpg”】；
1、下面四个语句中，正确的赋值语句是______。
2、设a=3，b=5，则以下表达式值为假的是______。
3、Cls方法可以清除窗体或图片框中的______。
A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件
C、在运行阶段产生的图形和文字D、以上全部内容
4、除了系统默认的工具箱之外，还可以通过______方法来增加控件。
A、执行“文件”菜单中的“添加工程”命令B、执行“工程”菜单中的“部件”命令
C、在工具箱处执行其快捷菜单中的“添加选项卡”命令D、执行“工程”菜单中的“添加窗体”命令
5、窗体设计器是用于设计______。
A、窗体的代码B、对象的属性
C、应用程序的代码D、应用程序的界面
6、表达式4+5\6*7/8Mod9的值是______。
7、在设计工作状态，当双击窗体上任何一个控件时，打开的窗口是______。
8、若要选择Text对象的Text1_KeyPress事件，可以______。
A、在属性窗口中选择B、在工程资源管理器窗口中选择
C、在代码设计窗口中利用对象列表框、过程列表框选择D、在窗体设计窗口中双击Text1对象
9、要把一个Image控件对象设置成隐藏，应设置的属性是______。
10、保存一个VisualBasic应用程序，正确的是______。
11、能够通过标准工具栏打开的窗口是______。
A、代码窗口B、设计器窗口
C、属性窗口D、立即窗口
12、以下关于MsgBox的叙述中，错误的是______。
A、MsgBox函数返回一个整数B、通过MsgBox函数可以设置信息框中图标和按钮的类型
C、MsgBox过程语句没有返回值D、MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数
13、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是______。
A、1个“$”B、4个“$”
C、不显示内容D、“*”
14、程序如下：
i=0:
s=0:
Do:
i=i+2:
s=i+s:
LoopUntili>
4，执行后s的值是______（1分）
A、10B、11
C、12D、15
15、要求在程序运行时，一旦点击文本框使之获取焦点，就自动选中文本框内的所有文本，则需要编写事件过程______。
A、Text1_Change（）B、Text1_GotFocus（）
C、Text1_KeyPress（KeyAsciiAsInteger）D、Text1_SetFocus（）
16、可以让Image图像控件自动改变大小以适应图形尺寸的属性是______。
A、AutosizeB、AutoRedraw
C、StretchD、Width
17、一个工程文件中有多个窗体，VB运行时指定为启动窗体的是______。
A、窗体B、Form窗体
C、Form1窗体D、第一个创建的窗体
18、与传统的程序设计语言相比较，VisualBasic最突出的特点是______。
19、任何控件都具有的属性是______。
A、PictureB、Caption
C、NameD、AutoSize
20、下列语句中，正确的是______。
21、执行程序段：
Constc$="
Henan"
c$="
Zhengzhou"
Daxue"
A、HenanB、Zhengzhou
C、DaxueD、显示出错信息
22、以下声明语句中，错误的是______。
A、Constvarl=123B、Constvar2="
ABC"
C、Publicconst="
23、表达式Val（"
24、程序段a=10.5:
b=Int（a+0.5）:
Printb的功能是______。
A、输出平均值B、将一个实数四舍五入取整并输出
C、输出绝对值D、舍去一个实数的小数部分并输出
25、执行程序段：
VisualBasicPrograming"
b$="
Quick"
c$=b$&
UCase（Mid$（a$,7,6））&
Right$（a$,11），变量c$的值为______。
A、VisualBASICProgramingB、QuickBasicprograming
C、QUICKBasicProgramingD、QuickBASICPrograming
26、下面表达式中，______的运算结果与其他3个不同。
A、Log（Exp（-3.5））B、Int（-3.5）+0.5
C、-Abs（-3.5）D、Sin（30*3.14/180）
27、执行x=-6^2:
PrintSgn（x）+Abs（x）+Int（x）的结果是______。
A、-36B、1
C、-1D、-32
28、执行程序段：
29、下列声明语句中，错误的是______。
之后，变量iVar的值是______。
升级会员 