VB测试题必做部分.docx
- 文档编号:2371189
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:17
- 大小:22.91KB
VB测试题必做部分.docx
《VB测试题必做部分.docx》由会员分享,可在线阅读,更多相关《VB测试题必做部分.docx(17页珍藏版)》请在冰豆网上搜索。
VB测试题必做部分
VB必做测验及答案
目录
实验4选择结构程序设计2
实验6循环结构程序设计6
实验7数组8
实验9常用控件10
实验4选择结构程序设计
1.若整型变量a的值为2、b的值为3,则下列程序段执行后整型变量c的值为______。
Ifa>5then
Ifb<4then
c=a-b
Else
c=b-a
Endif
ElseIfb>3thenc=a*b
Else
c=amodb
Endif
a)2
b)-1
c)1
d)6答案:
A
2.下列程序的执行结果为_____。
A=100:
b=50
Ifa>bThen
a=a-b
Else
b=b+a
Endif
Printa
a)50
b)100
c)200
d)10答案:
A
3.以下程序输出1到1000之间所有的偶数之和,请补充完该程序。
PrivateSubCommand_Click()
DimxAsDouble
ForI=0To1000
If____Then
x=x+I
EndIf
NextI
Printx
EndSub
a)iMod2=0
b)xMod2=0
c)IMod2<>0
d)xMod2<>0答案:
A
4.下列程序段的执行结果为。
x=Int(Rnd+4)
SelectCasex
Case3
Print"优秀"
Case4
Print"良好"
Case5
Print"合格"
CaseElse
Print"不合格"
EndSelect
A)优秀
B)良好
C)合格
D)不合格
答案:
B
5.以下程序段的执行结果是_____。
X=2:
y=1
Ifx*y<1Then
y=y-1
Else
y=-1
Printy-x>0
EndIf
a)Ture
b)False
c)-1
d)1答案:
B
6.设计两个CheckBox,一个显示粗体,一个显示斜体,通过对CheckBox的选择,在一个文本框中显示相应效果的文本,完成下列程序。
PrivateSubForm_Load()
Check1.Caption="显示粗体"
Check2.Caption="显示斜体"
Text1.Text="VisualBasic6.0"
EndSub
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Text1.FontBold=True
Else
Text1.FontBold=False
EndIf
EndSub
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Text1.FontItalic=True
Else
Text1.FontItalic=False
EndIf
EndSub
7.下列程序的作用是将三个数按从大到小进行排序,请补充完该程序。
Ifa d=a: a=b: b=d EndIf Ifa d=a: a=c: c=d EndIf If_____Then d=b: b=c: c=d EndIf Printa,b,c答案: b 8.在下列关于SelectCase的叙述中,错误的是( ) 选择一个答案 a.Case10To100表示判断Is是否介于10与100之间 b.Case〝abc〞,〝ABC〞表示判断Is是否和〝abc〞、〝ABC〞两个字符串中的一个相同 c.Case-7,0,100表示判断Is是否等于字符串〝-7,0,100〞 d.Case〝X〞表示判断Is是否为大写字母X 9.下列程序的执行结果是( ) X=5 Y=-20 IfNotX>0ThenX=Y-3ElseY=X+3 PrintX-Y;Y-X 选择一个答案 a.3-3 b.-33 c.5-8 d.25-25 10.下列说法正确与否: If语句中的条件表达式中只能使用关系或逻辑表达式 选择一个答案 a.正确 b.错误 11.以下说法正确与否: 在情况语句中,各分支(即Case表达式)的先后顺序无关。 选择一个答案 a.错误 b.正确 12.以下说法正确与否: 有If则必有与之对应的Endif。 选择一个答案 a.错误 b.正确 实验6循环结构程序设计 1.下列程序的执行结果为_____。 DimSAsInteger,nAsInteger S=0: n=1 DoWhilen<=100 S=S+n n=n+1 Loop PrintS a)5050 b)2500 c)3000 d)4000答案: A 2.以下程序计算2到50间所有偶数的和,请补充完该程序 Submult() DimSumAsInteger Sum=0 DimIasinteger For___to50 IfIMOD2=___Then___ NextI Printsum EndSub答案: I=2#0#SUM=SUM+I 3.下列程序段的执行时,共循环____次。 Fora=0To1 Forb=1To2 Forc=1To3 I=I+1 Nextc Nextb nexta答案: 12 4.下列程序的执行结果是____。 K=0 ForI=1To3 a=I^I^K printa; NextI a)111 b)123 c)000 d)149答案: A 5.下列程序运行后,输出的结果为______。 B=1 Dowhile(b<40) b=b*(b+1) Loop Printb a)42 b)39 c)6 d)1答案: A 6.下列程序执行后,变量s的值为______。 DimsAslong,xAsInteger s=0: x=1 DoWhile(x<10) s=s+x x=x+2 Loop Prints a)10 b)25 c)50 d)100答案: B 7.当变量x=2,y=5时,以下程序的输出结果为____。 Dountily>5 x=x*y y=y+1 loop printx a)2 b)5 c)10 d)20答案: C 8.执行下面的程序,在窗体上显示的输出结果的第一行是 (15),第二行是 (16)。 PrivateSubForm_Click() DimaAsInteger,bAsInteger,cAsInteger c=-2 Fora=6To1Stepc a=a+1 c=c-a b=b+1 Nexta Printb Printc EndSub 答案: 6-29 9.要实现同样的循环控制,在DoWhile…Loop和Do…LoopWhile循环结构中给定的循环条件一样的。 该结论是否正确: 选择一个答案 a.正确 b.错误 10.Do…LoopWhile语句实现循环时,不管条件真假,首先无条件地执行一次循环。 该结论是否正确: 选择一个答案 a.错误 b.正确 11.Do…LoopUntil语句实现循环时,只要条件是假,循环将一直进行下去。 该结论是否正确: 选择一个答案 a.错误 b.正确 12.For循环语句正常结束(即不是通过ExitFor语句退出循环或强制中断)其循环控制变量的值一定大于“终值”,并等于“终值”+“步长”。 该结论是否正确: 选择一个答案 a.正确 b.错误 13.如果有多重Do循环嵌套,位于最里层循环体语句中的ExitDo语句可以退出所有的循环。 该结论是否正确: 选择一个答案 a.正确 b.错误 实验7数组 1.在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: PrivateSubCommand1_Click() Dima(5) Fori=0To4 A(i)=i+1 t=i+1 Ift=3Then Printa(i) A(t-1)=a(i-2) Else A(t)=a(i) Endif Ifi=3Thena(i+1)=a(t-4) A(4)=1 Printa(i) Nexti EndSub 程序运行后,单击命令按钮,输出结果是123141。 2.设执行以下程序段时依次输入1、3、5,执行结果为_____。 Dima(4)AsInteger Dimb(4)AsInteger ForK=0To2 a(K+1)=Val(InputBox(“请输入数据: ")) b(3-K)=a(K+1) NextK Printb(K) a)1 b)3 c)5 d)0答案: A 3.如果有数组声明Dima(10)AsInteger,则该数组共有______个元素。 a)10 b)11 c)9 d)不确定答案: B 4.数组的下标可取的变量类型是_____。 a)日期型 b)字符型 c)数值型 d)可变型答案: C 5.用以下语句Dimb(-2to4)asstring所定义的数组的元素个数是_______个。 a)2 b)4 c)6 d)7答案: D 6.下列程序是将数组a的元素倒序交换,即第1个变为最后一个,第2个变为倒数第2个,设数组中有10个元素完成下列程序。 PrivateSubBackward(a()) DimiAsInteger,TmpAsInteger Fori=1To5 Tmp=a(i) Nexti EndSub 7.如下数组声明语句,正确的是______。 a)dima[3,4]asintiger b)dima(3,4)asstring c)dima(n,n)assingle d)dima(34)as
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 测试 题必做 部分