VB选择题库(4).doc

《VB选择题库(4).doc》由会员分享，可在线阅读，更多相关《VB选择题库(4).doc（21页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、1.程序运行后，文本框中显示的信息是：S=0:a=0Doa=a+2:s=s+aIf s10 Then Exit DoLoop Until a40Text1.Text=Str(a+s) 182.程序运行后，单击窗体，则在窗体上显示的“*”的个数是 20Private Sub Form_Click()For i = 1 To 9 For j = i - 1 To Step - 2 Print * Next jNext iEnd Sub3.程序运行后，两次单击命令按钮后，在窗体上显示的结果是： 14Private Sub Command1_Click()Static s As IntegerFor

2、i = 5 To 1 Step -0.3 s = s + 1Next iPrint sEnd Sub4.程序运行后，单击命令按钮，在文本框显示的信息是： 15 Dim s As Integer Dim Flag As Boolean Flag = True s = 1 While s 100 And Flag s = s + 7 If s Mod 5 = 0 Then Flag = False Wend text1.Text = Str(s)5.程序运行后，单击窗体，则在窗体上显示的信息是： 5Private Sub Form_Click()s = 0For i = 1 To 100 If i

3、 Mod 8 = 5 Then Exit For End If i = i + 1 Next i Print iEnd Sub6.程序运行后，则在窗体上显示的信息是： 1 2 3For i = 1 To 3 For j = 1 To 3 arr1(i, j) = i arr2(j, i) = arr1(i, j) Next j Next iFor i = 1 To 3 Print arr2(2, i) Next i7.程序运行后，单击命令按钮，则在窗体上显示的信息是： 9Dim arr()%Private Sub Command1_Click() ReDim arr(5) For i = 0

4、To 5 arr(i) = iNext iReDim arr(8)For Each x In arr s = x + s + 1Next xPrint sEnd Sub8.下面是窗体单击事件中的代码： Private Sub Form_Click() ifx y Then printxprintok!End Sub程序运行后，单击窗体，则在窗体上输出的结果是： XY OK!9.下面是窗体单击事件中的代码： Private Sub Form_Click() ifx y Then printxyEnd Sub程序运行后，单击窗体，则在窗体上输出的结果是： xy10.下面是窗体单击事件中的代码： P

5、rivate Sub Form_Click() if not x y Then printxyprintok!End Sub程序运行后，单击窗体，则在窗体上输出的结果是： ok!11.下面是窗体单击事件中的代码： Private Sub Form_Click() if not x y or true Then printxyprintok!End Sub程序运行后，单击窗体，则在窗体上输出的结果是： xy ok!12.下面是窗体单击事件中的代码： Private Sub Form_Click() if not x y and true Then printxyprintok!End Sub程序

6、运行后，单击窗体，则在窗体上输出的结果是： ok!13.下面是窗体单击事件中的代码： Private Sub Form_Click() ifxy Then printxyEnd Sub程序运行后，单击窗体，则在窗体上输出的结果是： 没有输出数据14.下面是窗体单击事件中的代码： Private Sub Form_Click() if 99 11111111111 or true Then printxy else printxyEnd Sub程序运行后，单击窗体，则在窗体上输出的结果是： xy15.下面是窗体单击事件中的代码： Private Sub Form_Click() if 99 11

7、111111111 and true Then printxy else printxyEnd Sub程序运行后，单击窗体，则在窗体上输出的结果是： true16.下面是窗体单击事件中的代码： Private Sub Form_Click() if x y and true Then printxy else printxyEnd Sub程序运行后，单击窗体，则在窗体上输出的结果是： xy17.下面是窗体单击事件中的代码： Private Sub Form_Click() if x y and true Then printxy else printxyend ifEnd Sub程序运行后，单

8、击窗体，则在窗体上输出的结果是： 出错18.下面是窗体单击事件中的代码： Private Sub Form_Click() if x y and true Then printxy else printxyend ifEnd Sub程序运行后，单击窗体，则在窗体上输出的结果是： xy19.设有如下程序：Private Sub Form_Click() x = 33: y = 0 If x Mod 3 = 0 Then a = Int(x / 100) If a = 5 Then y = y + 1 End If End If Print yEnd Sub程序运行后，单击窗体，则在窗体上输出的结

9、果是： 020.设有如下程序：Private Sub Form_Click() x = 33: y = 0 If x Mod 3 = 0 Then b = Int(x -100/ 10) If b= 5 Then y = y + 1 End If End If Print yEnd Sub程序运行后，单击窗体，则在窗体上输出的结果是： 1第90页 22。下面的程序功能是（打印100个20以内的随机整数） s=0 while s100 print int（rnd*20） s=s+1 wend23。下面的程序功能是（什么也没有做） s=0 while s100 print int（rnd*50）

10、s=s+2 wend24。下面的程序实现1到10的乘积，请选择下划线处的命令（i11） s=1 i=1 do s=s*1 i=i+1 loop while（） print“s”25。这个循环体语句1次也没有执行（for l=1 to 10 step -1） print i next j26。计算1到10的奇数的积，划线处应该执行（） s=1 for j =1 to 10 step 2 s=s*j next j print “s”27。略28。下面程序实现1到100的求和， s=0 s=i i=1 i=2 do do while i=100 s=s+1 s=s+1 i=i+1 i=i+1 loo

11、p while i101 loop print“s” print“s”29。略30。略31。略32。略33。略34。下面的程序实现输入对话框输入数值数据，当输入end字符串输入结束，打印输入数据的和， msj=inputbox(请输入数据，“输入数据”) do while ucaseend s=s+val(msj) msj=inputbox(请输入数据，“输入数据”) loop prints35.略36.下列程序完成什么功能(输出32个50到60的数) dim(3，7） for i=lbound(a,1)to ubound(a,1) for j=lbound(a,2)to ubound(a,2

12、) a(i,j)=int(rnd*10)+50 print a(i,j) next j print next i37.数组的下标是从1到20，数组中赋值了20个随机数，下列程序完成（将数组中的数据按值的大小降序排列） for i=1to 20 for j=i+i to 20 if a(i)a(j)then (将数组中的数据按值的大小升序排列) mmm=(j) a(i)=a(j) a(j)=mmm end if next j next i38.数组的下标是从1到20，数组中赋值了20个随机数，下列程序完成（将数组中本元素之后的所有元素中存放的数据之和放入本元素中） for i=1to 20 s=

13、0 for j=i+i to 20 s=s+a(j) next j a(i)=s a(i)=a(i)+s (将数组中本元素开始往后的所有元素中存放的数据之和放入本元素中) next i 39. d=15 print lif(d12,d大于12，“d小于12”) 与之等价的是（d=15） if12 then print d大于12 else print d小于12 end if40.if then 语句格式（if then ）(没标点)41.在块结构条件语句中，当if结构内有多个条件为true时,则（vb执行第一个为true的条件后面的语句块）42.下面程序的输出结果是（cba） x$=a y$

14、=b z$=c for i=1to 2 x$=y$: y$=z$: z$=x$: next i print x$ y$ z$43.下面程序的循环次数为（6） for i=10to40 step 6 print i next i 44.运行以下程序后，输出结果是（i=5） for i=1to5 step 2 cls print “i=”；i； next i45。在for- next循环中，假设（1）当步长为正数，初值大于终值 （2）当步长为负数，初值小于终值 （3）初值等于终值 循环体不会执行的情况（2） 和（1） 46。窗体上显示内容（8） x=iif（iif（50，true，false），i

15、ff（78，7，8），iff（abs（4）=sqr（14），100，200） print x47。运行以下程序后，输出结果是（63） s=2 do s=（s-1）*（s+1） loop until s=45 print s48。运行以下程序后，输出结果是（4） i=0 n=0 do while i32 i=（i+1）*（i-1） n=n+1 loop print n49。下面程序的循环次数为（6） for m=1to 3 for n=0 to m-1 next n next m50。运行以下程序后，输出结果是（1 1 1 4） for 1to 3 if i=1 then a=3 if i=2

16、then a=2 if i=3 then a=1 print a next i51。运行以下程序后，输出结果是（15） for i=1to 4 x=4 for j= 1to 3 x=3 for k= 1to 2 x=x+6 next k next j next i print x52。下面程序的循环次数为（1） n=20 do n=n+2 loop while n2053。窗体上有两个文本框，运行以下程序后，文本框显示值分别为（2 72） x=0 do while x50 x=（x+2）*（x+3） n=n+1 loop text 1=str（n） text 2=str（x）54。运行以下程序

17、后，输出结果是（4） dim m（10）as integer for k= 1to 10 m（k）=12-k next k x=6 print m（2+m（x）55。以下说法正确的是（select case语句中的测试表达式只能是数值表达式或字符表达式）56。求两个数中的大数，正确为 max=iif（xy，x，y） ifxythen max=x max=x if y=x then max =y else max=y end if57。for-next结构是 for x=4to-4 step-3 next x58。正确结束循环为 i=10 do i=i+1 loop until i0 （loop

18、 until条件为真，结束；loop while条件为真，执行循环）59。运行以下程序后，输出结果是（6，2,0） a=1 a=0 for i= 1to 3 for i= 1to 3 select case i select case i case 1 case i+1 a=a+1 a=a+1 case 2，3 case is3 case i+2 a=a+2 a=a+2 end select next i print a60。运行以下程序后，输出结果是 (a(4)=5) option base 0 private a=array(1,2,3,4,5) if a（0）=a（i）and a（2）=

19、a（3） then print a（0）a（0） else print a（4）= a（4） end61.运行以下程序后，输出结果是 (a（0）) dim a（4）as string if a（0）=a（i）and a（2）=a（3） then print a（0）+a（0） else print a（4）+a(4)62.运行以下程序后，输出结果是 (true) if 91090 and true then print x109063.运行以下程序后，输出结果是 (ok和 2) a=array(3,1,2) ifa(0)a(1) then ifa(0)a(2) then print a(1)

20、else print ok print a(2) 64.运行以下程序后，输出结果是 (及格,优秀) a=array(30,70,80) temp=a(0):a（0）=a（1） temp=a(0):a（0）=a（2） ifa(0) =80 then print 优秀 ifa(0) =60 then print 及格 else print不及格 end if65. 运行以下程序后，输出结果是 (2310,33) if 100000099 or true then print 23&10 print 23+1066. 运行以下程序后，输出结果是 (abc2002ok,出错) if 100000099

21、 and true then if 10000004 x=x*y y=y+1 loop printx70.运行以下程序后，x结果是(21) x=5 for i=1to 20step 2 x=x+i5 next i71.运行以下程序后，输出结果是 (15) for i=1to 4 x=4 for j=1to3 x=3 for k=1to 2 x=x+6 next k next j next i print x72.运行以下程序后，a结果是(14) for i=1to 3 for j= 1to i for k=jto 3 a=a+1 next k next j next i73.运行以下程序后，输

22、出结果是 (bb,ccc.dddd,eeeee) for i=1to 4 for j=1 to i print chr$(65+i) next j print next i74. 运行以下程序后，输出结果是 (123,456,789) dim a（10,10）as integer for i=1to 3 for j=1 to 3 a(i,j)=(i-1)*(3+j) print a(i,j) next j print next i75.运行以下程序后，输出结果是 (1) n=10 for k=n to 1 x=k2 next k print x76.运行以下程序后，输出结果是 (4) i=0

23、for k=10 to 19 step 3 i=i+1 next k print i77.运行以下程序后，s结果是(9) s=5 for i=2.6 to 4.9 step 0.6 s=s+1 next i78. 运行以下程序后，输出结果是 (1,2,3) num=0 while num =7)80.运行以下程序后，输出结果是 (1024) dim k,n,m as integer n=10 m=1 k=1 do while k=n i=（i+1）*（i-1） m=m*2 k=k+1 loop print m81.下面程序的循环次数为（11） k=0 do while k=10 k=k+1 l

24、oop82.运行以下程序后，输出结果是 (12) a=0 for i=1to 2 for j=1to 4 if j mod 20 then a=a+1 end if a=a+1 next j next i print a83.运行以下程序后，输出结果是 (Bb,CcC,DdDd) x=x+1 for i=1to 3 for j=0to i if j mod 2=0 then print chr$(65+i) else print chr$(65+i) end if next j print next i84.运行以下程序后，输出结果是 (25) dim s%:dim flag as boole

25、an s=0:i+1 while i100 and flag s=s+1:i=i+2 if s mod 5=0 then flag=false end if wend print s85. 运行以下程序后，输出结果是 (16) for i=1to 4 for j= 1to i for k=jto i s=s+1 next k next j s=s-1 next i text1.text=str$(s)86.运行以下程序后，输出结果是 (14) dim a（10）,b(3) as integer k=3 for i=1to 10 a(i)=i next i for i=1to 3 b(i)=a(

26、i*i) next i for i=1to 3 s=s+b(i) next i print s87.运行以下程序后，输出结果是 (bcccc) for i=1to 2 for j= 1to i print string(i,65+i) next j next i88.运行以下程序后，输出结果是 (12) dim arr(-1 to 4) for i=-1to 4 arr(i)=i*(i-1) next i print arr(lbound(arr,1)+1)+arr(ubound(arr,1)89.运行以下程序后，输出结果是 (17) dim i%,j% i=1:j=0 do do s=s+j

27、 j=j+1 i=i+1 loop while j8 print s90.vb中出口语句有(exit for,exit sub,exit do)91.运行以下程序后，输出结果是 (-3) x=12/3 mod 7 on x go to 10,20,30,40,50 x=x+100 10:x=x+50 20:x=x-30 30:x=x 40:x=-x 50:x=x+1 print x92.在vb中,不能形成多重循环的是 for i= for j= for k= next i next j next k93.运行以下程序后，输出结果是 (1234) dim arr arr=array(4,3,2,

28、1) i=1 for j= 1to 4 s=arr(j)*i+4 i=i*10 next j print s93.循环体至少执行1次(do loop until 1)94.下面程序的循环次数为（11） k=-1 do k=k+1 loop while k=1095.运行以下程序后，输出结果是 (2,4,6,8) sub mysub(b()%) for i=1to 4 b(i)=i*2 next end sub private dim a(1 to 4)% a(1)=5:a(2)=6:a(3)=7:a(4)=8 mysub a() for i=1to 4 print a(i) next i en

29、d96.运行以下程序后，输出结果是 (16) s=2 do s=(s+1)*(s-1) s=s+1 loop while s=20 x=（x+1）*（x+2） n=n+1 loop text1.text=str（x） text2.text=str（n）98.运行以下程序后，输出结果是 (2,8) dim a(4),b(4) t=2 for i=1to 4 a(i)=i mod 4 b(i)=i*i+it next i print a(t);b(t)99.运行以下程序后，输出结果是 (4) for i=1to 3 for j=1to i s=s+1 i=i+1 next j next i print s100. 运行以下程序后，输出结果是 (63) s=2 do s=(s+1)*(s-1) s=s+1 loop until s=45 print s101. 运行以下程序后，输出结果是 (8) for i=0to 3 x=10 for j=1to2 x=i+j for k=0to 2 x=x+1 nex