1、6.程序运行后,则在窗体上显示的信息是: 1 2 3For i = 1 To 3 For j = 1 To 3 arr1(i, j) = i arr2(j, i) = arr1(i, j) Print arr2(2, i)7.程序运行后,单击命令按钮,则在窗体上显示的信息是: 9Dim arr()% ReDim arr(5) For i = 0 To 5 arr(i) = iReDim arr(8)For Each x In arr s = x + s + 1Next x8.下面是窗体单击事件中的代码: ifx y Then printxprintok!程序运行后,单击窗体,则在窗体上输出的结
2、果是: XY OK!9.下面是窗体单击事件中的代码:x xy10.下面是窗体单击事件中的代码: if not print ok!11.下面是窗体单击事件中的代码: or true Then print xy ok!12.下面是窗体单击事件中的代码: and true Then print13.下面是窗体单击事件中的代码: ifxy Then print 没有输出数据14.下面是窗体单击事件中的代码: if 9911111111111 or true Then else print15.下面是窗体单击事件中的代码: and true Then true16.下面是窗体单击事件中的代码:17.下面
3、是窗体单击事件中的代码:else printend if 出错18.下面是窗体单击事件中的代码:19.设有如下程序: x = 33: y = 0 If x Mod 3 = 0 Then a = Int(x / 100) If a = 5 Then y = y + 1 Print y 020.设有如下程序: b = Int(x -100/ 10) If b= 5 Then 1第90页 22。下面的程序功能是(打印100个20以内的随机整数) s=0 while s100 print int(rnd*20) s=s+1 wend23。下面的程序功能是(什么也没有做) while s100 prin
4、t int(rnd*50) s=s+224。下面的程序实现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的奇数的积,划线处应该执行() 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+
5、1 loop while i101 loop print“s” print“s”29。30。31。32。33。34。下面的程序实现输入对话框输入数值数据,当输入end字符串输入结束,打印输入数据的和, msj=inputbox(请输入数据,“输入数据”) do while ucaseend s=s+val(msj) 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) a(i,j)=int(rnd*10)+50 pri
6、nt a(i,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 if38.数组的下标是从1到20,数组中赋值了20个随机数,下列程序完成(将数组中本元素之后的所有元素中存放的数据之和放入本元素中) s=s+a(j) a(i)=s a(i)=a(i)+s (将数组中本元素开始往后的所有元素中存放的数据之和放入本元素中)39.
7、 d=15 print lif(d12,d大于12,“d小于12”) 与之等价的是(d=15) if12 then print elsed小于1240.if then 语句格式(if then )(没标点)41.在块结构条件语句中,当if结构内有多个条件为true时,则(vb执行第一个为true的条件后面的语句块)42.下面程序的输出结果是(cba) x$=a y$=b z$=c for i=1to 2 x$=y$: y$=z$: z$=x$: print x$ y$ z$43.下面程序的循环次数为(6) for i=10to40 step 644.运行以下程序后,输出结果是(i=5) for
8、 i=1to5 step 2 cls print “i=”;i;45。在for- next循环中,假设(1)当步长为正数,初值大于终值 (2)当步长为负数,初值小于终值 (3)初值等于终值 循环体不会执行的情况(2) 和(1) 46。窗体上显示内容(8) x=iif(iif(50,true,false),iff(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 whil
9、e i32 i=(i+1)*(i-1) n=n+1 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 then a=2 if i=3 then a=1 print a51。运行以下程序后,输出结果是(15) for i=1to 4 x=4 for j= 1to 3 x=3 for k= 1to 2 x=x+6 next k52。下面程序的循环次数为(1) n=20 n=n+2 loop while n
10、2053。窗体上有两个文本框,运行以下程序后,文本框显示值分别为(2 72) x=0 do while x50 x=(x+2)*(x+3) text 1=str(n) text 2=str(x)54。 dim m(10)as integer for k= 1to 10 m(k)=12-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 max=y57。for-next结构
11、是 for x=4to-4 step-3 next x58。正确结束循环为 i=10 do i=i+1 loop until i0 (loop 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 select60。运行以下程序后,输出结果是 (a(4)=5) option
12、 base 0 private a=array(1,2,3,4,5) if a(0)=a(i)and a(2)=a(3) then printa(0)a(0) else print a(4)= a(4) end61.运行以下程序后,输出结果是 (a(0) dim a(4)as stringa(0)+a(4)+a(4)62.运行以下程序后,输出结果是 (true)91090 and true then print63.运行以下程序后,输出结果是 (ok和 2) a=array(3,1,2) ifa(0)a(2) then print a(1) else print ok print a(2) 6
13、4.运行以下程序后,输出结果是 (及格,优秀) a=array(30,70,80) temp=a(0):a(0)=a(1) temp=a(0):a(0)=a(2) ifa(0) =80 then优秀=60 then及格不及格65. 运行以下程序后,输出结果是 (2310,33)1000000 and true then if or true then print 23&10 print 23+1066. 运行以下程序后,输出结果是 (abc2002ok,出错) and true then abc&2002;+2002;ok67.有以下循环结构 do until条件 循环体 正确的是(如果条件是
14、一个为0的常数,则无限次执行循环体)68.运行以下程序,则print i* j语句的执行次数是(15) for i= 1to 3 for j=5to1step -1 print i*j next j,i69.运行以下程序后,输出结果是 (4) x=1 y=4 do until y4 x=x*y y=y+170.运行以下程序后,x结果是(21) x=5 for i=1to 20step 2 x=x+i571.运行以下程序后,输出结果是 (15) for i=1to 4 for j=1to3 for k=1to 272.运行以下程序后,a结果是(14) for i=1to 3 for j= 1to
15、 i for k=jto 3 a=a+173.运行以下程序后,输出结果是 (bb,ccc.dddd,eeeee) for j=1 to i print chr$(65+i)74. 运行以下程序后,输出结果是 (123,456,789) dim a(10,10)as integer for j=1 to 3 a(i,j)=(i-1)*(3+j)75.运行以下程序后,输出结果是 (1) n=10 for k=n to 1 x=k276.运行以下程序后,输出结果是 (4) for k=10 to 19 step 3i77.运行以下程序后,s结果是(9) s=5 for i=2.6 to 4.9 st
16、ep 0.678. 运行以下程序后,输出结果是 (1,2,3) num=0 while num =7)80.运行以下程序后,输出结果是 (1024) dim k,n,m as integer m=1 k=1 do while k=n m=m*2 k=k+1 print m81.下面程序的循环次数为(11) k=0 do while k=1082.运行以下程序后,输出结果是 (12) a=0 for i=1to 2 for j=1to 4 if j mod 20 then83.运行以下程序后,输出结果是 (Bb,CcC,DdDd) for j=0to i if j mod 2=0 then84.
17、运行以下程序后,输出结果是 (25) dim s%:dim flag as boolean s=0:i+1 while i100 and flag s=s+1:i=i+2 if s mod 5=0 then flag=false85. 运行以下程序后,输出结果是 (16) for k=jto i 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 b(i)=a(i*i) s=s+b(i)87.运行以下程序后,输出结果是 (bcccc) for
18、 j= 1to i print string(i,65+i)88.运行以下程序后,输出结果是 (12) dim arr(-1 to 4) for i=-1to 4 arr(i)=i*(i-1) print arr(lbound(arr,1)+1)+arr(ubound(arr,1)89.运行以下程序后,输出结果是 (17) dim i%,j% i=1:j=0 s=s+j j=j+1 loop while j890.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
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1