vb期末试题1文档格式.docx
《vb期末试题1文档格式.docx》由会员分享，可在线阅读，更多相关《vb期末试题1文档格式.docx（14页珍藏版）》请在冰点文库上搜索。
【答案】A
4．Timer控件可以使用下列哪种事件（）。
A、Click事件B、Timer事件C、Dblclick事件D、Change事件
【答案】B
5．在InputBox函数中哪一个参数是必须的（）。
A、PromptB、ButtonsC、TitleD、Context
6．如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（）。
A、0B、-lC、True D、False
7．可以获得字符串长度的函数是（）。
A、Len（） B、Length（） C、StrLen（） D、StrLength（）
8．表达式FIX（6.3）+FIX（-6.6）的计算结果为（）。
A、0B、1C、-1D、True
9．在下列四个表达式中，非法的VisualBasic表达式是（）。
A、A=A+B B、A=（B=C） C、A+B>
C D、以上均为合法表达式
10．可以同时删除字符串前导和尾部空白的函数是（）。
A、LtrimB、RtrimC、TrimD、id
11．以下Case语句中错误的是（）。
A、Case10To1
B、CaseIs>
10
C、CaseIs>
10,Is<
50
D、Case3,5,Is>
10
12．对DoUntil…Loop循环，正确的是（）。
A、如果循环条件为false，则一次循环也不执行
B、如果循环条件为false，则至少执行一次循环
C、如果循环条件是不为0的常数，则至少执行一次循环
D、无论循环条件是否为"
True"
，则至少执行一次循环
13．语句Dimarr（-3To5,2To6）AsInteger定义的数组元素有（）个。
A、45B、40C、11D、54
14.用MsgBox函数显示的对话框，以下叙述正确的是（）。
A.该对话框有一个“确定”按钮
B.该对话框有“是”，“否”两个按钮
C.该对话框有“是”，“否”，“取消”三个按钮
D.该对话框通过选择参数可以得到以上不同的的按钮组合
15.VisualBasic的特点不包括下面的（）。
A、自动程序设计B、面向对象的程序设计
C、可视化程序设计D、时间驱动的程序设计
16.从键盘上能够输入两个字符串，分别保存在变量str1和str2中。
确定第二个字符串在第一个字符串中起始位置的函数是（）。
A、LeftB、Mid
C、StringD、Instr
17.表达式Not（a+b=c-d）是（）。
A.逻辑表达式B.字符表达式C.算术表达式D.关系表达式
18."
-32768"
的数据类型是（）。
A.整型常量B.浮点型常量C.符号常量D.字符串型常量
若要使标签控件显示时不覆盖其背景内容，要对（）属性进行设置。
（A）BackColor（B）BorderStyle（C）ForeColor（D）BackStyle
[D]
20.设x=5，表达式x>
=10orx<
=20的值是（）。
A.TrueB.FalseC.0D.表达式非法
21.下列数据类型不可能占8个字节的是（）。
A.DateB.CurrencyC.StringD.Integer
22．以下叙述中错误的是（）。
A、一个工程中可以包含多个窗体文件
B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D、全局变量必须在标准模块中定义
23．设a=“VisualBasic”，下面使b=“Basic”的语句是（）。
A、b=Left（a,8,12）B、b=Mid（a,8,5）
C、b=Rigth（a,5,5）D、b=Left（a,8,5）
24．在VB中，语句Print3>
9的输出结果为（）。
A、0B、1C、-1D、False
25．在VisualBasic中表达式x=5类型是（）。
A、错误的表达式B、关系表达式C、算术表达式D、逻辑表达式
26.将变量k四舍五入保留2位小数的表达式是（）。
A、Int（（k+0.5）*100）/100B、Int（（k*100）/100）+0.5
C、Int（k*100+0.5）/100D、Int（k*（100+0.5））/100”
27．下列关于数组的命名错误的是（）。
A、4*Delta
B、Alpha
C、ABC
D、ABT1
28、关于VisualBasic程序的说法不正确的是（）。
A、一行可以写多条语句，语句之间用“：
”隔开
B、一条语句可以写在多行，用“空格”加“_”作为续行标志
C、程序中的大小写字母不区分
D、变量在使用之前必须先定义类型
29、以下合法的VisualBasic变量名是（）。
A、ForLoopB、ConstC、9abcD、a#x
30、表达式5Mod3+3\5*2的值是（）。
A、0B、2C、4D、6
程序阅读
1、二维数组的输出，阅读以下程序并作答。
OptionBase1
PrivateSubForm_Click（）
Dima（3,3）AsInteger
Fori=1To3
Forj=1To3
a（i,j）=Val（InputBox（“Enterdata:
”）
Nextj
Nexti
Printa（i,j）;
“”;
Print
EndSub
31、以下关于语句OptionBase1说法正确的是（）。
A、OptionBase语句可以出现在过程中
B、OptionBase语句用于指定数组下标下界
C、OptionBase语句后面的数字只能是1
D、OptionBase语句对多维数组不起作用
32、根据程序所示，总共会执行（）次InputBox语句。
A、3
B、4
C、6
D、9
33、关于Print方法以下说法正确的是（）。
A、Print方法后面没有要打印的数据项，则表示打印一个空格
B、Print方法前省略对象名，则在当前窗体上输出数据
C、Print不能打印字符串类型数据
D、Print后面只能紧跟一个要打印的数据项，不能打印多个数据项
2.编一程序根据上网时间计算上网费用，同时为了鼓励多上网，每月收费最多不超过150元。
计算的方法如下：
PrivateSubForm_click（）a=Val（InputBox（"
请输入上网所用的时间！
"
））（34）
Print"
上网所用费用：
30元！
（35）
r=a*3Print"
;
rElseIfa>
=50Then（36）
Ifr>
150ThenPrint"
150"
ElsePrint"
rEndIfEndIfEndSub
34、此处应填入的语句为（）。
A、Ifa<
10Then
B、Ifa>
10ThenC、Ifa<
=10Then
D、Ifa>
=10Then【答案】A
35、此处应填入的语句为（）。
A、Ifa>
50Then
B、ElseIfa>
50ThenC、Ifa<
50ThenD、ElseIfa<
36、此处应填入的语句为（）。
A、r=a*3B、r=a*2.5C、r=150
D、r=30
3．输入N个数到数组中，找出其中绝对值最小的数和绝对值最大的数，并将两者互换位置。
Dima（）AsInteger
Dimn%,i%,j%,k%,t%,m%
n=InputBox（"
输入数据的个数：
）
ReDima（1Ton）
Fori=1Ton
a（i）=InputBox（"
请输入数组元素的值"
Nexti
k=1
Forj=2Ton
IfAbs（a（k））>
Abs（a（j））Thenk=j
t=1
（39）
m=a（t）
（40）
a（k）=m
Print"
交换后数组的值：
Printa（i）;
"
Print
37、语句Dimn%,i%,j%,k%,t%,m%表示申明的变量类型是
A、变体型
B、整型
C、单精度浮点型
D、双精度浮点型
38、关于语句ReDim说法正确的是（）。
A、ReDim可以改变数组的维数
B、ReDim可以多次使用来改变数组的大小
C、ReDim可以在过程外使用
D、使用ReDim语句时需事先申明数组的维数
39、此处应填入的语句为（）。
A、IfAbs（a（t））>
Abs（a（j））Thenj=tB、IfAbs（a（t））<
Abs（a（j））Thenj=tC、IfAbs（a（t））>
Abs（a（j））Thent=j
D、IfAbs（a（t））<
40、此处应填入的语句为（）。
A、m=a（k）B、a（k）=a（t）C、a（t）=a（k）
D、m=a（t）
程序设计
1.编写程序实现，计算1+3+5+7+...+n（n为奇数）的值。
要求用inputbox输入n的值并判断n必须大于等于1而且为奇数，输入错误需用msgbox提示（提示信息“输入有误！
”），输入正确（例如输入99）显示如下图所示：
答案
DimnAsInteger
DimiAsInteger
DimresultAsInteger
n=Val（InputBox（"
输入一个数"
））
Ifn>
=1AndnMod2=1Then
Fori=1TonStep2
result=result+i
1+3+5+7+...+"
&
n;
="
result
Else
MsgBox"
输入有误"
EndIf
评分标准：
1.正确计算，循环使用无误（4分）
2.正确判断，inputbox和msgbox正确使用（5分）
3.正确输出显示结果（4分）
4.文件存盘（2分）
2．计算素数。
素数是指一个数x除了1和它本身，不能被其他任何整数整除。
程序功能：
程序界面包括三个文本框（一个输入数据，两个输出计算结果）和一个命令按钮。
当在输入文本框中输入一个数字后，例如100，单击命令按钮以后，计算100以内的素数和个数，分别显示在输出文本框中，效果如下图所示：
提示：
在文本框中的多行显示需设置文本框的MultiLine属性
在单击窗体的事件过程中添加代码，程序代码如下：
PrivateSubCommand1_Click（）
DimnAsInteger
Text2.Text="
n=Val（Text1.Text）
Dimi,j,k,a（）AsInteger
ReDima（n）
Fori=0Ton-l
a（i）=i
Fori=2ToSqr（n）
Forj=i+1Ton
Ifa（i）<
>
0Anda（j）<
0Then
Ifa（j）Moda（i）=0Thena（j）=0
EndIf
Fori=2Ton-1
Text2.Text=Text2.Text&
a（i）&
k=k+1
Text3.Text=k
1.正确给数组赋值（5分）
2.正确判断素数（7分）
3.正确输出显示结果（5分）
4.文件存盘，程序结构合理、清晰（4分）
5.正确设计界面（4分）
注意：
该题也可以不用数组实现，若没有使用数组则评分标准1酌情给分
升级会员 