VB选择题库4.docx
- 文档编号:4694354
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:27
- 大小:20.98KB
VB选择题库4.docx
《VB选择题库4.docx》由会员分享,可在线阅读,更多相关《VB选择题库4.docx(27页珍藏版)》请在冰豆网上搜索。
VB选择题库4
1.程序运行后,文本框中显示的信息是:
S=0:
a=0
Do
a=a+2:
s=s+a
Ifs>10ThenExitDo
LoopUntila>40
Text1.Text=Str(a+s)18
2.程序运行后,单击窗体,则在窗体上显示的“*”的个数是20
PrivateSubForm_Click()
Fori=1To9
Forj=i-1ToStep-2
Print""*""
Nextj
Nexti
EndSub
3.程序运行后,两次单击命令按钮后,在窗体上显示的结果是:
14
PrivateSubCommand1_Click()
StaticsAsInteger
Fori=5To1Step-0.3
s=s+1
Nexti
Prints
EndSub
4.程序运行后,单击命令按钮,在文本框显示的信息是:
15
DimsAsInteger
DimFlagAsBoolean
Flag=True
s=1
Whiles<100AndFlag
s=s+7
IfsMod5=0ThenFlag=False
Wend
text1.Text=Str(s)
5.程序运行后,单击窗体,则在窗体上显示的信息是:
5
PrivateSubForm_Click()
s=0
Fori=1To100
IfiMod8=5Then
ExitFor
EndIf
i=i+1
Nexti
Printi
EndSub
6.程序运行后,则在窗体上显示的信息是:
123
Fori=1To3
Forj=1To3
arr1(i,j)=i
arr2(j,i)=arr1(i,j)
Nextj
Nexti
Fori=1To3
Printarr2(2,i)
Nexti
7.程序运行后,单击命令按钮,则在窗体上显示的信息是:
9
Dimarr()%
PrivateSubCommand1_Click()
ReDimarr(5)
Fori=0To5
arr(i)=i
Nexti
ReDimarr(8)
ForEachxInarr
s=x+s+1
Nextx
Prints
EndSub
8.下面是窗体单击事件中的代码:
PrivateSubForm_Click()
if""x""<""y""Thenprint""xprint""ok!
""
EndSub
程序运行后,单击窗体,则在窗体上输出的结果是:
X 9.下面是窗体单击事件中的代码: PrivateSubForm_Click() if""x""<""y""Thenprint""x EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: x 10.下面是窗体单击事件中的代码: PrivateSubForm_Click() ifnot""x""<""y""Thenprint""x print""ok! "" EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: ok! 11.下面是窗体单击事件中的代码: PrivateSubForm_Click() ifnot""x""<""y""ortrueThenprint""x print""ok! "" EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: x 12.下面是窗体单击事件中的代码: PrivateSubForm_Click() ifnot""x""<""y""andtrueThenprint""x print""ok! "" EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: ok! 13.下面是窗体单击事件中的代码: PrivateSubForm_Click() ifx EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: 没有输出数据 14.下面是窗体单击事件中的代码: PrivateSubForm_Click() if""99""<""11111111111""ortrueThen print""x EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: x 15.下面是窗体单击事件中的代码: PrivateSubForm_Click() if""99""<""11111111111""andtrueThen print""x EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: true 16.下面是窗体单击事件中的代码: PrivateSubForm_Click() if""x""<""y""andtrueThen print""x EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: x 17.下面是窗体单击事件中的代码: PrivateSubForm_Click() if""x""<""y""andtrueThenprint""x< y"" elseprint""x""<""y"" endif EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: 出错 18.下面是窗体单击事件中的代码: PrivateSubForm_Click() if""x""<""y""andtrueThen print""x elseprint""x""<""y"" endif EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: x 19.设有如下程序: PrivateSubForm_Click() x=33: y=0 IfxMod3=0Then a=Int(x/100) Ifa=5Then y=y+1 EndIf EndIf Printy EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: 0 20.设有如下程序: PrivateSubForm_Click() x=33: y=0 IfxMod3=0Then b=Int(x-100/10) Ifb<=5Then y=y+1 EndIf EndIf Printy EndSub 程序运行后,单击窗体,则在窗体上输出的结果是: 1 第90页 22。 下面的程序功能是(打印100个20以内的随机整数) s=0 whiles〈100 printint(rnd*20) s=s+1 wend 23。 下面的程序功能是(什么也没有做) s=0 whiles〉100 printint(rnd*50) s=s+2 wend 24。 下面的程序实现1到10的乘积,请选择下划线处的命令(i〈11) s=1 i=1 do s=s*1 i=i+1 loopwhile() print“s” 25。 这个循环体语句1次也没有执行(forl=1to10step-1) printi nextj 26。 计算1到10的奇数的积,划线处应该执行() s=1 forj=1to10step2 s=s*j nextj print“s” 27。 略 28。 下面程序实现1到100的求和, s=0s=i i=1i=2 dodowhilei〈=100 s=s+1s=s+1 i=i+1i=i+1 loopwhilei〈101loop print“s”print“s” 29。 略 30。 略 31。 略 32。 略 33。 略 34。 下面的程序实现输入对话框输入数值数据,当输入end字符串输入结束,打印输入数据的和, msj=inputbox("请输入数据",“输入数据”) dowhileucase<>"end" s=s+val(msj) msj=inputbox("请输入数据",“输入数据”) loop print"s" 35.略 36.下列程序完成什么功能(输出32个50到60的数) dim(3,7) fori=lbound(a,1)toubound(a,1) forj=lbound(a,2)toubound(a,2) a(i,j)=int(rnd*10)+50 printa(i,j) nextj print nexti 37.数组的下标是从1到20,数组中赋值了20个随机数,下列程序完成(将数组中的数据按值的大小降序排列) fori=1to20 forj=i+ito20 ifa(i)a(j)then(将数组中的数据按值的大小升序排列) mmm=(j) a(i)=a(j) a(j)=mmm endif nextj nexti 38.数组的下标是从1到20,数组中赋值了20个随机数,下列程序完成(将数组中本元素之后的所有元素中存放的数据之和放入本元素中) fori=1to20 s=0 forj=i+ito20 s=s+a(j) nextj a(i)=sa(i)=a(i)+s(将数组中本元素开始往后的所有元素中存放的数据之和放入本元素中) nexti 39.d=15 printlif(d>12,"d大于12",“d小于12”) 与之等价的是(d=15) if>12then print"d大于12" else print"d小于12" endif 40.ifthen语句格式(ifthen)(没标点) 41.在块结构条件语句中,当if结构内有多个条件为true时,则(vb执行第一个为true的条件后面的语句块) 42.下面程序的输出结果是(cba) x$="a" y$="b" z$="c" fori=1to2 x$=y$: y$=z$: z$=x$: nexti printx$y$z$ 43.下面程序的循环次数为(6) fori=10to40step6 printi nexti 44.运行以下程序后,输出结果是(i=5) fori=1to5step2 cls print“i=”;i; nexti 45。 在for-next循环中,假设 (1)当步长为正数,初值大于终值 (2)当步长为负数,初值小于终值 (3)初值等于终值 循环体不会执行的情况 (2)和 (1) 46。 窗体上显示内容(8) x=iif(iif(5》0,true,false)),iff(7》8,7,8),iff(abs(4)=sqr(14),100,200)) printx 47。 运行以下程序后,输出结果是(63) s=2 do s=(s-1)*(s+1) loopuntils》=45 prints 48。 运行以下程序后,输出结果是(4) i=0 n=0 dowhilei《32 i=(i+1)*(i-1) n=n+1 loop printn 49。 下面程序的循环次数为(6) form=1to3 forn=0tom-1 nextn nextm 50。 运行以下程序后,输出结果是(1114) for1to3 ifi〈=1thena=3 ifi〈=2thena=2 ifi〈=3thena=1 printa nexti 51。 运行以下程序后,输出结果是(15) fori=1to4 x=4 forj=1to3 x=3 fork=1to2 x=x+6 nextk nextj nexti printx 52。 下面程序的循环次数为 (1) n=20 do n=n+2 loopwhilen〈20 53。 窗体上有两个文本框,运行以下程序后,文本框显示值分别为(272) x=0 dowhilex〈50 x=(x+2)*(x+3) n=n+1 loop text1=str(n) text2=str(x) 54。 运行以下程序后,输出结果是(4) dimm(10)asinteger fork=1to10 m(k)=12-k nextk x=6 printm(2+m(x)) 55。 以下说法正确的是(selectcase语句中的测试表达式只能是数值表达式或字符表达式) 56。 求两个数中的大数,正确为 max=iif(x〉y,x,y)ifx〉ythenmax=x max=xify〉=xthenmax=y else max=y endif 57。 for-next结构是 forx=4to-4step-3 nextx 58。 正确结束循环为 i=10 doi=i+1 loopuntili〉0(loopuntil条件为真,结束;loopwhile条件为真,执行循环) 59。 运行以下程序后,输出结果是(6,2,0) a=1a=0 fori=1to3fori=1to3 selectcaseiselectcasei case1casei+1 a=a+1a=a+1 case2,3caseis》3casei+2 a=a+2a=a+2 endselect nexti printa 60。 运行以下程序后,输出结果是(a(4)=5) optionbase0 private a=array(1,2,3,4,5) ifa(0)=a(i)anda (2)=a(3)thenprint "a(0)&""a(0)"elseprint"a(4)="&a(4) end 61.运行以下程序后,输出结果是(a(0)) dima(4)asstring ifa(0)=a(i)anda (2)=a(3)thenprint "a(0)+""a(0)"elseprint"a(4)+""a(4)" 62.运行以下程序后,输出结果是(true) if"9"<"1090"andtruethenprint "x 63.运行以下程序后,输出结果是(ok和2) a=array(3,1,2) ifa(0) (1)then
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 选择 题库
![提示](https://static.bdocx.com/images/bang_tan.gif)