九江学院VB期末考试题目及详细答案.docx
《九江学院VB期末考试题目及详细答案.docx》由会员分享，可在线阅读，更多相关《九江学院VB期末考试题目及详细答案.docx（12页珍藏版）》请在冰豆网上搜索。
九江学院VB期末考试题目及详细答案
九江学院期末考试复习题（政法A1111）
第一套
一、判断题
1、VisualBasic程序开发的特点是面向对象的事件驱动。
（“2、Print_Text是一个不合法的变量名。
（为3、窗体的AutoRedraw属性实现了屏幕图像的重建。
（“
4、设置字体大小应使用Font属性（为
5、Sub过程可以实现嵌套调用（“
6、IIF函数中的三个参数都不能省略。
（坊
7、块结构条件语句以EndIf结束，而单行结构条件语句没有EndIR（“8当终值小于初值时，步长为负数。
（“
9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。
（坊
10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用（“）
二、单项选择题
1．PrintFormat（123，”####”执行之后的结果为
A＃123B123C123＃D＃＃＃＃
【答案】B
2．下面可以表示注释语句开头的为
AReBRCRemDdim
【答案】C
3．下列选项中窗体载入事件为
A）Load事件B）Click事件C）DbICIick事件D）Unload事件
【答案】A
4．Timer控件可以使用下列哪种事件
A）Click事件B）Timer事件C）DblcIick事件D）Change事件
【答案】B
5．在InputBox函数中哪一个参数是必须的
A）PromptB）ButtonsC）TitleD）Context
【答案】A
6．以下叙述中错误的是：
A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B）Sub过程中不能嵌套定义Sub过程
C）Sub过程可以嵌套调用Sub过程
D）事件过程可以像通用过程一样由用户定义过程名
【答案】C
7．要填加一个标准模块，可使用“菜”单中的“添加模块”命令。
A）文件B）视图C）工程D）工具
【答案】C
8.在块结构条件语句If-Then/Endif中
（A）必须至少有一个Elseif语句
（B）可以有任意多个Elself-Then语句
（C）如果没有Else语句，运行时将出现错误
（D）给定的条件只能是关系表达式或逻辑表达式
【答案】B
9.以下Case语句中错误的是
（A）Case10To1
（B）CaseIs>10
（C）CaseIs>10,Is<50
（D）Case3,5,Is>10
【答案】A
10.对DoUntil
…Lo循p环，
正确的是（）
A.如果循环条件为常数0,则一次循环也不执行
B.如果循环条件为常数0,则至少执行一次循环
C.如果循环条件是不为0的常数，则至少执行一次循环
D.无论循环条件是否为"True"，则至少执行一次循环
答案】B
11.语句Dimarr（-3To5,2To6）AsIntege定义的数组元素有
A）45B）40C）11D）54
【答案】A
12.下列关于OptionBase语句说法错误的是D
A）OptionBase语句只能出现在窗体层或模块层
B）OptionBase语句不能出现在过程中
C）OptionBase语句必须位于数组的定义之前
D）OptionBase语句只对一维数组有效
【答案】D
13、VisualBasic的特点不包括下面的（A）
A不需编程B面向豆象的程序设计
C可视化程序设计D时间驱动的程序设计
14、从键盘上能够输入两个字符串，分别保存在变量str1、str2中。
确定第二个字符串在第一个字符串中起始位置的函数是（D）
ALeftBMid
CStringDInstr
15、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为
（B）A0B-1
CTrueDfalse
16、下列符号常量的声明中，（C）是不合法的。
AConstaAsSingle=1.1BConstaAsInteger=“12”CConstaAsDou
Sin
（1）DConsta=”OK”
17、四个字符“E”，“y”，的“A”CI码值最大的是（B）
A“E”B“y”
C“B”D“8”
18、将变量k四舍五入保留2位小数的表达式是（C）
AInt（（k+0.5）*100）/100BInt（（k*100）/100）+0.5
CInt（k*100+0.5）/100DInt（k*（100+0.5））/100”
19、30.将数学表达式Cos2（a+b）+5e2写成VisualBasic的表达式，其正确的形式是（A）
A）Cos（a+b）A2+5*exp
（2）B）CosA2（a+b）+5*exp
（2）
C）Cos（a+b）A2+5*ln
（2）D）CosA2（a+b）+5*ln
（2）
20、在顺序文件中，当使用Write#语句时，文件打开的方式必须是（B）AOutput和InputBOutput和Append
COutputDAppend
三、程序分析题
1.以下语句的输出结果是（注：
■表示一个空格）
a=123
b=456
Printa;b
A）123・456B）■123・456C）■123・456・D）■123・・456
【答案】D
2.下列程序执行的结果为
x=-6A2
PrintSgn（x）+Abs（x）+Int（x）
A）－36B）1C）－1D）－72
【答案】C
3.在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程：
PrivateSubCommand1_Click（）
Fori=0To15
X=2*i-1
IfXMod3=0Thens=s+1
Nexti
Label1.Caption=s
EndSub程序运行后，单击命令按钮，则标签中显示的内容为
A）1B）5C）27D）45
Label1、
【答案】B
4．在窗体上画一个名称为Command1的命令按钮，一个名称为
Label2、Label3的标签，然后编写如下的事件过程：
PrivatexAsInteger
PrivateSubCommand1_Click（）
StaticyAsInteger
DimzAsInteger
n=10
z=n+z
y=y+z
x=x+z
Label1.Caption=x
Label2.Caption=y
Label3.Caption=z
EndSub
运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是
A）101010B）303030C）303010D）1030
【答案】C
5．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、
Label2的标签，然后编写如下的事件过程：
PrivatexAsInteger
PrivateSubCommand1_Click（）
x=5:
y=3
CallProc（x,y）
Label1.Caption=x
Label2.Caption=y
EndSub
PrivateSubProc（ByValaAsInteger,ByValbAsInteger）
x=a*a
y=b+b
EndSub
运行程序后，则两个标签中显示的内容分别是
A）5禾口3B）25禾口3025禾口6D）5禾口6
【答案】B
6.下面程序段求两个数中的大数，不正确的是
（A）Ifx>yThenMax=xElseMax=y
（B）Max=llf（x>y,x,y）
（C）Ify>=xThenMax=y
Max=x
（D）lfy>xThenMax=y
Max=x
【答案】D
7.如果x的值大于或等于y的立方，则打印“OK表示这个条件的单行格式的lf语句是
A）Ifx>=yA3Print“OK
B）lfx>=y*y*yThen“OK”
C）lfx>=yA3ThenPrint“OK”
D）lfx>=y*y*yThenPrint“OK”Endlf
【答案】C
8.下列程序段执行结果为
x=5
y=-6
lfNotx<0Thenx=y-3Elsey=x+3
Printy-x;x-y
A）3－3
B）－95
C）－33
D）5－6
面选项不正确的是
【答案】A
9．已知x的值，计算分段函数f（x），
当x>=1,f（x）二；
当XV1,f（x）=x2+3
（A）SelectCasex
CaseIs<1
f=xA2+3
Caseelse
f=sqr（x+1）
EndSelect
（B）SelectCasex
Casex>=1
f=sqr（x+1）
Casex<1
f=xA2+3
EndSelect
（C）SelectCasex
CaseIs>=1
f=sqr（x+1）
CaseIs<1
f=xA2+3
EndSelect
（D）IFx>=1thenf=sqr（x+1）elsef=xA2+3【答案】B10．执行完下面的程序段后，循环执行了（
Fori=1.7To5.9Step0.9
a=a+1
Printa
NextI
A．3B．4C．5D．6
【答案】C
11．下列程序段的执行结果为（）。
n=0j=1
DoUntiln>2n=n+1j=j+n*（n+1）Loop
Printn;j
A.01B.37C.321D.313）次。
【答案】C
12.以下正确的For…Ne＞结构是
（A）Forx=1To10
fory=1to10
Next
（B）Forx=1To10
fory=1to10
Nexty,x
（C）Forx=1To10
fory=1to10
Nextx
Nexty
（D）Forx=1To10
fory=1to10
Nextx,y
【答案】B
13.下列程序中，第一个Do语句共执行了（）次循环
DimiAsInteger,jAsInteger
i=1
Do
j=1
Do
Sum=Sum+j
j=j+2
Printj;
LoopUntilj>3
i=i+2
LoopUntili>10
PrintSum
A．10B．20C．5D．7
【答案】A
14．下列语句中，a是一个数组，则使用正确的是
A）OptionBase2
B）Redima
C）Erasea
D）a=Array（）
【答案】C
15.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Dimarray1（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
forj=2To4array1（i,j）=i+jnextjnexti
Text1.Text=arrry1（2,3）+array（3,4）
EndSub
程序运行后，单击命令按钮，在文本框中显示的值是
A）12B）13C）14D）15【答案】A
16.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过
程：
PrivateSubCommand1_Click（）
Dima（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
forj=1To3
a（i,j）=（i-）*3+j
Printa（i,j）;
nextj
Print
nexti
EndSub
程序运行后，单击命令按钮，窗体上显示的是
A）123
246
369
B）234
345
456
C）147
258
369
D）123
456
789【答案】D
17.设有如下程序：
OptionBase0
PrivateSubForm_Click（）
Dima
DimiAsInteger
a=Array（1,2,3,4,5,6,7,8,9）
Fori=0To3
Printa（5-i）;
Next
EndSub程序运行后，单击窗体，则在窗体上显示的是
A）4321B）5432C）6543D）7654【答案】C
18.执行以下Command1的Click事件过程在窗体上显示c
PrivateSubCommand1_Click（）
Dima
a=Array（“a”,”b”,”c”,”d”,”e”,”f,”,”g”）
Printa
（1）;a（3）;a（5）
EndSub
A）abcB）bdfC）ace出错
【答案】B
19、设有语句
Open"c:
\Test.Dat"ForOutputAs#1则以下错误的叙述是（B）
A）该语句打开C盘根目录下一个已存在的文件Test.Dat
B）该语句在C盘根目录下建立一个名为Test.Dat的文件
C）该语句建立的文件的文件号为1
D）执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息20、以下代码完成对顺序文件test1.txt追加打开的是（C）
A）Opentest1.txtForInputAs#1
B）Opentest1.txtForOutputAs#1
C）Opentest1.txtForAppendAs#1
D）Opentest1.txtForRedomAs#1
四、上机题
1.小王有存款A元，年利率为P,存储时间为T年•请编写一个程序计算本利合计。
（A、P、T均使用Inputbox输入）
2.求100以内的素数，素数是指一个数x除了1和它本身，不能被其他任何整数整除。
要求每行输出10个素数。
单击窗体，运行结果如图所示：
答案
在单击窗体的事件过程中添加代码，程序代码如下：
PrivateSubForm_click（）
ConstN=100
Dimi,j,Line,a（N）AsInteger
Fori=0ToN-l置初值
a（i）=i
Nexti
Fori=2ToSqr（N）
Forj=i+1ToN
Ifa（i）<>0Anda（j）<>0Then
Ifa（j）Moda（i）=0Thena（j）=0能'整除就赋0EndIf
Nextj
Nexti
Print"显示出100以内的素数"
Fori=2ToN-1
Ifa（i）<>0Then
Printa（i）;Spc
（1）;
Line=Line+1
EndIf
IfLine<>0AndLineMod10=0ThenPrin每行显示10个数
Nexti
EndSub
评分标准：
1、正确给数组赋值（2分）
2、正确判断素数（3分）
3、正确输出显示结果（2分）
4、文件存盘（2分）
升级会员 