高等教育VB练习题集.docx
- 文档编号:11331360
- 上传时间:2023-02-27
- 格式:DOCX
- 页数:141
- 大小:116.26KB
高等教育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
运行结果:
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
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"k1=";k1
EndSub
27.请用正确的内容填空。
以下程序找出50以内所有能构成直角三角形的整数组。
PrivateSubForm_Click()
Fora=1To50
Forb=aTo50
c=Sqr(a*a+b*b)
If (4) ThenPrinta;b;c
Nextb
Nexta
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
Nextj
EndSub
13.请用正确的内容填空。
下面程序运行后,输出的结果是:
********
********
********
********
PrivateSubForm_Click()
Fori=1To4
PrintTab(10+i);
Forj=1To8
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,则表达式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.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 高等教育 VB 习题集