高等教育VB练习题集.docx
《高等教育VB练习题集.docx》由会员分享，可在线阅读，更多相关《高等教育VB练习题集.docx（141页珍藏版）》请在冰豆网上搜索。
高等教育VB练习题集
VB课程练习题集
第五章选择分支与循环
姓名班级序号成绩
知识点回顾题：
1．要退出For…Next循环，可使用的语句是（）。
A．ExitB．ExitFor
C．EndDoD．ExitDo
2、阅读以下程序段，写出运行结果：
privateSubform_click（）
a=150
b=100
ifa>bthen
print"较大数是：
";a
else
print"较大数是：
";b
endif
EndSub
运行结果：
3、阅读以下程序段，写出运行结果：
x=8
Fori=3to5
printx,
Nexti
运行结果：
4、阅读以下程序段，写出运行结果：
s=0
Fori=10to4Step-3
s=s+i
Nexti
print"s=";s
运行结果：
5、阅读以下程序段，写出运行结果：
s=1
Dowhiles<10
s=s+s
Loop
Print
运行结果：
6、阅读以下程序段，写出运行结果：
s=1
fori=10to4step-3
s=s*i
Printi,s
nexti
运行结果：
7.阅读下列程序并写出运行结果
OptionExplicit
PrivateSubCommand1_Click（）
DimSAsInteger
DimiAsInteger
S=1
Fori=1To5
S=S*i
Nexti
PrintS
EndSub
8.阅读下列程序并写出运行结果
S=0:
T=0
ForX=1To3
ForY=1To3
S=S+1
NextY
T=T+1
NextX
PrintS;T
9、阅读下列程序并写出运行结果
DimiAsInteger,jAsInteger,kAsInteger
k=0
Fori=0To10Step3
Forj=1To10
Ifj>5Thenk=k+4:
ExitFor
k=k+1
Nextj
Printi,k
Ifi>8ThenExitFor
Nexti
Printi,k
10.阅读下列程序并写出运行结果
PrivateSubCommand1_Click（）
x=0
DoWhilex<50
x=（x+2）*（x+3）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
EndSub
11.阅读下列程序并写出运行结果
PrivateSubCommand1_Click（）
DimSum1AsInteger,Sum2AsInteger
Sum1=0:
Sum2=1
Fori=1To4
Forj=1Toi
Sum2=Sum2*j
Nextj
Sum1=Sum1+Sum2
Nexti
PrintSum1
EndSub
12.阅读下列程序并写出运行结果
PrivateSubform_Click（）
A=1
b=A
DoUntilA>=5
X=A*b
PrintStr（A）&"*";Str（b）&"=";Str（X）
A=A+b
b=b+A
Loop
EndSub
13.阅读下列程序并写出运行结果
Fori=1To3
Forj=1Toi
Fork=jTo3
A=A+1
Nextk
Nextj
Nexti
14.执行下面程序段后，变量x的值为 。
x=5
Fori=1To20step2
x=x+I\5
Nexti
A、21 B、22 C、23 D、24
15.下面程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 。
PrivateSubCommand1_Click（）
x=0
DoUntilx=-1
a=InputBox（"请输入A的值：
"）
a=Val（a）
b=InputBox（"请输入B的值：
"）
b=Val（b）
x=InputBox（"请输入X的值：
"）
x=Val（x）
a=a+b+x
Loop
Printa
EndSub
A、2 B、3 C、14 D、15
16.执行下面程序段后，变量a的值为 。
Fori=1To3
Forj=1Toi
Fork=jTo3
a=a+1
Nextk
Nextj
Nexti
A、3 B、9 C、14 D、21
17.下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为 。
PrivateSubCommand1_Click（）
x=0
DoWhilex<50
x=（x+2）*（x+3）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
EndSub
A、1和0 B、2和72 C、3和50 D、4和168
18.执行下面程序后，变量x的值为 。
PrivateSubCommand1_Click（）
Forj=1To5
a=a+j
Nextj
x=j
MsgBoxx
EndSub
A、4 B、5 C、6 D、17
19.以下程序的循环次数是 。
PrivateSubCommand1_Click（）
Forj=8To35Step3
Printj;
Nextj
EndSub
A、10 B、9 C、27 D、28
20.以下程序的输出结果是 。
PrivateSubCommand1_Click（）
a=100
Do
s=s+a
a=a+1
LoopUntila>100
printa
EndSub
A、100 B、120 C、201 D、101
21.当输入4时，以下程序的输出结果是 。
PrivateSubCommand1_Click（）
x=InputBox（x）
Ifx^2<15Theny=1/x
Ifx^2>15Theny=x^2+1
Printy
EndSub
A、4 B、17 C、18 D、0.25
22.运行下面程序后，在弹出的消息窗口中显示的是 。
PrivateSubForm_Click（）
Dimcounter
counter=0
Whilecounter<20
counter=counter+1
Wend
MsgBoxcounter
EndSub
A、0 B、21 C、20 D、19
23.运行下面程序后，在窗体中显示的是 。
PrivateSubForm_Click（）
a$="*":
b$="$"
Fork=1To3
x$=String$（Len（a$）+k,b$）
Printx$;
Nextk
Print
EndSub
A、*********B、*$*$*$
C、1*$2*$3*$ D、$$$$$$$$$
24.运行下面程序后，在弹出的消息窗口中显示的是 。
PrivateSubForm_Click（）
score=Int（Rnd）+5
SelectCasescore
Case5
a$="Good"
Case4
a$="Ok"
Case3
a$="Pass"
CaseElse
a$="Bad"
EndSelect
MsgBoxa$
EndSub
A、Bad B、Pass C、Ok D、Good
25.运行下面程序后，在弹出的消息窗口中显示的是 。
PrivateSubForm_Click（）
k=0
DoWhilek<70
k=k+2
k=k*k+k
a=a+k
Loop
MsgBoxa
EndSub
A、64 B、72 C、78 D、148
26．请用正确的内容填空。
下面程序的作用是利用随机函数产生10个（1～200）之间的随机整数，打印其中7的整数倍的数并求其和。
PrivateSubForm_Click（）
Fori=1To10
x=Int（Rnd*200+1）
If （3） Then
k1=k1+x
Printx
EndIf
Nexti
Print
Print"k1=";k1
EndSub
27．请用正确的内容填空。
以下程序找出50以内所有能构成直角三角形的整数组。
PrivateSubForm_Click（）
Fora=1To50
Forb=aTo50
c=Sqr（a*a+b*b）
If （4） ThenPrinta;b;c
Nextb
Nexta
Print
EndSub
28.请用正确的内容填空。
以下程序计算1+1/3+1/5+…+1/（2N+1），直至1/（2N+1）小于10-4。
PrivateSubForm_Click（）
Sum=1:
n=1
Do
n= （6）
term=1/n
Sum=Sum+term
Ifterm<0.0001Then （7）
Loop
Print"N=";n
Print"sum=";Sum
EndSub
29.请用正确的内容填空。
以下程序的功能是统计字符串a中出现字符串b的次数，然后输出。
PrivateSubForm_Click（）
a$="ABCDEHGABCDEFABCDEABCDABCABA"
b$="AB"
c=InStr（a$,b$）
x=0
Whilec<>0
x=x+1
a$=Mid$（a$, （8） +2）
c=InStr（a$,b$）
Wend
（9）
EndSub
30.请用正确的内容填空。
下面程序的功能是通过InputBox对话框接受一个二进制数，并把它转换成一个十进制数，结果显示在窗体中。
PrivateSubForm_Click（）
b=InputBox（"请输入一个二进制数"）
m=Len（b）
Forj= （10）
dec=dec*2+ （11） （Mid（b,j,1））
Nextj
Printb;"转换后的十进制数为：
";dec
EndSub
31、阅读以下程序段，写出运行结果：
i=1
t=0
dowhilei<=100
i=i*2
t=t+1
loop
printi,t
运行结果：
32、阅读以下程序段，写出运行结果：
a=3
a=a+1
b=a
a=b+1
printa,b
print“a=“;a,”b=“;b
运行结果：
33、阅读以下程序段，写出运行结果：
a=1
b=2
printa,b
a=a+b
b=a+b
printa,b
运行结果：
34、阅读以下程序段，写出运行结果：
x=1
y=2
ifx>ythen
printx,y
else
printy,x
运行结果：
35、阅读以下程序段，写出运行结果：
x=2
y=2
ifx>2then
y=x*x
endif
printx,y
运行结果：
第六章数组
姓名班级序号成绩
知识点回顾题：
1.设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为。
答案：
DimA（1To5,-2To6）AsString
2.在运行下面程序时会显示出错信息，出错的原因是 。
PrivateSubForm_Click（）
x=5
Dima（x）
Form=1To6
a（m-1）=m+1
Nextm
EndSub
A、第四行数组元素a（m-1）下标超过下界
B、第二行数组说明语句不能用变量来定义下标
C、第四行不能用循环变量m进行运算
D、程序无错，可能是计算机病毒
3．用下面的语句所定义的数组的元素个数是（）。
DimA（-1To3）AsInteger
A．2
B．3
C．4
D．5
答案：
D
4.下列一维数组说明语句错误的是（c）
A）Dimb（100）AsDouble
B）Dimb（-5To0）AsByte
C）Dimb（-10To-20）AsInteger
D）Dimb（5To5）AsString
5.二数组说明语句Dimd（-1To2,5）AsString定义的数组元素的个数为（24）
6.PrivateSubForm_Click（）
DimA（1To5）AsInteger
DimbAsInteger
Forb=1To5
A（b）=b
Nextb
Text1.Text=A（b-2）
EndSub
文本框Text1的结果是：
答案：
程序运行后，单击Command1按钮，文本框Text1的结果是：
4
7.PrivateSubCommand1_Click（）
DimA（1To4）AsInteger
DimbAsInteger
Forb=1To4
A（b）=b
Nextb
Text1.Text=A（b-2）
EndSub
答案：
运行结果：
Text1显示3
8.以下程序的输出结果是 。
OptionBase1
PrivateSubCommand1_Click（）
Dima（10）,p（3）AsInteger
k=5
Fori=1To10
a（i）=i
Nexti
Fori=1To3
p（i）=a（i*i）
Nexti
Fori=1To3
k=k+p（i）*2
Nexti
Printk
EndSub
A、33 B、28 C、35 D、37
9..以下程序的输出结果是 。
OptionBase1
PrivateSubCommand1_Click（）
Dima
a=Array（1,2,3,4）
j=1
Fori=3To0Step–1
s=s+a（i）*j
j=j*10
Nexti
Prints
EndSub
A、4321 B、12 C、34 D、1234
10.下面程序的输出结果是 。
PrivateSubForm_Click（）
Dima（10）
Fori=1To10
a（i）=i^2
Nexti
Printa（i-1）
EndSub
A、99 B、100 C、101 D、98
11.运行下面程序后，在弹出的消息窗口中显示的是 。
PrivateSubForm_Click（）
DimWeek,Day
Week=Array（"Mon","Tue","Wed","Thu","Fri","Sat","Sun"）
Day=Week
（2）
Day=Week（4）
MsgBoxDay
EndSub
A、Fir B、Tue C、Wed D、Thu
12．请用正确的内容填空。
下面程序运行后，输出的结果是如下矩阵：
4 7 10
5 8 11
6 9 12
PrivateSubForm_Click（）
Dima（3,3）
Forj=1To3
Fork=1To3
a（j,k）= （）
Printa（j,k）;
Nextk
Print
Nextj
EndSub
13．请用正确的内容填空。
下面程序运行后，输出的结果是：
********
********
********
********
PrivateSubForm_Click（）
Fori=1To4
PrintTab（10+i）;
Forj=1To8
Print"*";
（）
Print
Nexti
EndSub
14．请用正确的内容填空。
以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。
PrivateSubForm_Click（）
Dimd（6）
Fori=1To50
n= （）
d（n）=d（n）+1
Nexti
Fori=To6
Printi;”点出现”;d（i）;”次”
Nexti
EndSub
15.请用正确的内容填空。
下面程序用“冒泡”法将数组a中的10个整数按升序排列。
OptionBase1
PrivateSubForm_Click（）
Dima
a=Array（678,45,324,528,439,387,87,875,273,823）
Fori=1To9
Forj= （12） To10
If （13） Then
t=a（i）:
a（i）=a（j）:
a（j）=t
EndIf
Nextj
Nexti
Fori=1To10
Printa（i）;
Nexti
EndSub
二级真题：
第七章过程
姓名班级序号成绩
1、关于过程的作用域的说明正确的有（ABC）
1）全局级过程的作用域为整个工程
2）某个窗体模块中定义的全局级过程，若被该过程外部模块调用，必须在该过程名称之前加上窗体的名称
3）不同模块中定义的模块级别过程可以同名
2.Sub过程与Function过程最根本的区别是。
答案：
Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。
第八章文件
1．VisualBasic根据计算机访问文件的方式将文件分为（A）。
A．顺序文件、随机文件和二进制文件
B．文本文件和数据文件
C．数据文件和可执行文件
D．ASCII文件和二进制文件
2．如果准备向随机文件中写入数据，常用的语句是（C）。
A．Print#1,rec
B．Write#1,rec
C．Put#1,rec
D．Get#1,rec
VB考试客观练习题（附答案）
一、单项选择题（1-251题）
1.以下4种描述中，错误的是__D__。
A.常量在程序执行期间其值不会发生改变
B.根据数据类型不同，常量可分为字符型常量、数值常量、日期/时间型常量和布尔常量
C.符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质
D.符号常量的使用和变量的使用没有差别
2.下面合法的常量是___D____。
A.1/2B.'abcd'C.1.2*5D.False
3.VisualBasic中可以用类型说明符来标识变量的类型，其中表示货币型的是___C____。
A.%B.#C.@D.$
4.下面___B____是不合法的整常数。
A.100B.%O100C.&H100D.&O100
5.以下关键字中，不能定义变量的是___A____。
A.DeclareB.DimC.PublicD.Private
6.表达式16/4-2^5*8/4MOD5\2的值为___B____。
A.14B.4C.20D.2
7.用十六进制表示VisualBasic的整型常数时，前面要加上的符号是___A____。
A.&HB.&OC.HD.O
8.VisualBasic日期型常量的定界符是__A_____。
A.##B.‘’C.（）D.{}
9.数学关系式3≤x<10表示成正确的VB表达式为___B____。
A.3<=x<10B.3<=xANDx<10C.x>=3ORx<10D.3<=xAND<10
10.下面正确的赋值语句是___C____。
A.x+y=30B.pi*r*r=yC.y=x+30D.x=3y
11.\，/，Mod，*四个算术运算符中，优先级别最低的是___C____。
A.\B./C.ModD.*
12.表达式ASC（"F"）的类型是__C_____。
A.字符表达式B.关系表达式C.算术表达式D.逻辑表达式
13.下面语句中有非法调用的是___C____。
A.x=Sgn（-1）B.x=Fix（-1）
C.x=Sqr（-1）D.x$=Chr$（65）
14.表达式23/5.8、23\5.8、23Mod5.8的运算结果分别是___B____。
A.3、3.9655、3B.3.9655、3、5C.4、4、5D.3.9655、4、3
15.如果变量a=2、b="abc"、c="acd"、d=5，则表达式acANDb<>c的值为___A____。
A.TrueB.FalseC.YesD.No
16.下面不正确的赋值语句是___B____。
A.x=30-yB.y=r.rC.y=x+30D.y=x\3
17.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是___A____。
A.x=1∶y=1∶z=1B.x=1,y=1,z=1C.x=y=z=1D.xyz=1
18.以下4类运算符，优先级最低的是___D____。
A.
升级会员 