VB检验题必做部分.docx
- 文档编号:9576003
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:19
- 大小:22.36KB
VB检验题必做部分.docx
《VB检验题必做部分.docx》由会员分享,可在线阅读,更多相关《VB检验题必做部分.docx(19页珍藏版)》请在冰豆网上搜索。
VB检验题必做部分
VB必做测验及答案
实验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)asinteger答案: B 8.下列关于数组的说法正确的是( ) 选择一个答案 a.在VB中,数组只能在模块中定义,不能在过程中定义 b.在VB中,一个数组中所包含的元素只能是相同类型的数据 c.在定义数组时,数组的每一维元素的个数必须是常数,不能是变量或表达式 d.同普通变量一样,数组也可以不定义,先使用 9.使用Dim定义数组时,其数组的上界或下界,可使用已赋值的变量。 该结论是否正确: 选择一个答案 a.正确 b.错误 10.数组的下界一定是大于0的整数。 该结论是否正确: 选择一个答案 a.错误 b.正确 11.可以在程序中多次使用ReDim语句来改变动态数组的大小、维数和类型。 该结论是否正确: 选择一个答案 a.错误 b.正确 12.可以使用OptionBase2语句把数组下标下界的默认值设置为2。 该结论是否正确: 选择一个答案 a.正确 b.错误 实验9常用控件 1.所有控件都有的属性是_______,在程序中作为对象的标识引用。 a)Caption b)Value c)Text d)name答案: D 2.下列_______属性用于设置或返回文本框中的文本。 a)Caption b)Text c)Name d)DragIcon答案: B 3.可以用作其它控件容器的控件有(? ? ) a)窗体控件,列表控件,图像控件 b)窗体控件,文本框控件,框架控件 c)窗体控件,框架控件,图片框控件 d)窗体控件,标签控件,图片控件答案: C 4.以下不属控件的一项是_____。 a)文本框 b)标签框 c)列表框 d)消息框答案: D 5.改变控件在窗体中的上下位置应修改控件的_____属性。 a)Top b)Left c)Width d)Height答案: A 6.复选框控件其Value属性的可取值是_______。 a)Trut和False b)0和1 c)1、2、3 d)0、1、2答案: D 7.如果有三个单选按钮直接画在窗体上,另有四个单选按钮画在框架中,则运行时,可以同时选中______个选项按钮(提示: 该题答案不能出现汉字)。 答案: 2 8.我们在一个窗体上建立两个文本框,名称分别为Text1和Text2,事件过程如下, PrivateSubText1_change() Text2.text=ucase(Text1.text) EndSub 则在Text1文本框输入“visualbasic”,Text2将显示______。 a)Text2中无内容显示。 b)Text2显示"VISUALBASIC"。 c)Text2显示"visualbasic" d)Text1显示"visualbasic"答案: B 9.选中复选框控件时,Value属性的值为( ) 选择一个答案 a.1 b.True c.0 d.False 10.让复选框控件的事件过程不响应事件,可修改控件的( )属性。 选择一个答案 a.Enable b.Caption c.TebStop d.Appearance 11.若要在同一窗体中安排两组单选框(OptionButton)可用( )控件予以分隔。 选择一个答案 a.列表框 b.图片框 c.框架 d.组合框 12.设置列表框各表项中的文本,用( )属性。 选择一个答案 a.Selected b.Caption c.List d.Text 13.list1.clear中的clear是( ) 选择一个答案 a.属性 b.对象 c.事件 d.方法
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 检验 题必做 部分