VB选择题库4文档格式.docx
《VB选择题库4文档格式.docx》由会员分享,可在线阅读,更多相关《VB选择题库4文档格式.docx(27页珍藏版)》请在冰豆网上搜索。
![VB选择题库4文档格式.docx](https://file1.bdocx.com/fileroot1/2022-12/7/28683821-f18e-42bb-8efd-273e41c4173b/28683821-f18e-42bb-8efd-273e41c4173b1.gif)
6.程序运行后,则在窗体上显示的信息是:
123
Fori=1To3
Forj=1To3
arr1(i,j)=i
arr2(j,i)=arr1(i,j)
Printarr2(2,i)
7.程序运行后,单击命令按钮,则在窗体上显示的信息是:
9
Dimarr()%
ReDimarr(5)
Fori=0To5
arr(i)=i
ReDimarr(8)
ForEachxInarr
s=x+s+1
Nextx
8.下面是窗体单击事件中的代码:
if"
x"
<
"
y"
Thenprint"
xprint"
ok!
程序运行后,单击窗体,则在窗体上输出的结果是:
X<
YOK!
9.下面是窗体单击事件中的代码:
x<
x<
y
10.下面是窗体单击事件中的代码:
ifnot"
print"
ok!
11.下面是窗体单击事件中的代码:
ortrueThenprint"
x<
yok!
12.下面是窗体单击事件中的代码:
andtrueThenprint"
13.下面是窗体单击事件中的代码:
ifx<
yThenprint"
没有输出数据
14.下面是窗体单击事件中的代码:
if"
99"
11111111111"
ortrueThen
elseprint"
<
15.下面是窗体单击事件中的代码:
andtrueThen
true
16.下面是窗体单击事件中的代码:
17.下面是窗体单击事件中的代码:
elseprint"
endif
出错
18.下面是窗体单击事件中的代码:
19.设有如下程序:
x=33:
y=0
IfxMod3=0Then
a=Int(x/100)
Ifa=5Then
y=y+1
Printy
0
20.设有如下程序:
b=Int(x-100/10)
Ifb<
=5Then
1
第90页
22。
下面的程序功能是(打印100个20以内的随机整数)
s=0
whiles〈100
printint(rnd*20)
s=s+1
wend
23。
下面的程序功能是(什么也没有做)
whiles〉100
printint(rnd*50)
s=s+2
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的奇数的积,划线处应该执行()
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)
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)
print
nexti
37.数组的下标是从1到20,数组中赋值了20个随机数,下列程序完成(将数组中的数据按值的大小降序排列)
fori=1to20
forj=i+ito20
ifa(i)<
a(j)thenifa(i)>
a(j)then(将数组中的数据按值的大小升序排列)
mmm=(j)
a(i)=a(j)
a(j)=mmm
endif
38.数组的下标是从1到20,数组中赋值了20个随机数,下列程序完成(将数组中本元素之后的所有元素中存放的数据之和放入本元素中)
s=s+a(j)
a(i)=sa(i)=a(i)+s(将数组中本元素开始往后的所有元素中存放的数据之和放入本元素中)
39.d=15
printlif(d>
12,"
d大于12"
,“d小于12”)
与之等价的是(d=15)
if>
12then
print"
else
d小于12"
40.ifthen语句格式(ifthen)(没标点)
41.在块结构条件语句中,当if结构内有多个条件为true时,则(vb执行第一个为true的条件后面的语句块)
42.下面程序的输出结果是(cba)
x$="
a"
y$="
b"
z$="
c"
fori=1to2
x$=y$:
y$=z$:
z$=x$:
printx$y$z$
43.下面程序的循环次数为(6)
fori=10to40step6
44.运行以下程序后,输出结果是(i=5)
fori=1to5step2
cls
print“i=”;
i;
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
printn
49。
下面程序的循环次数为(6)
form=1to3
forn=0tom-1
nextn
nextm
50。
运行以下程序后,输出结果是(1114)
for1to3
ifi〈=1thena=3
ifi〈=2thena=2
ifi〈=3thena=1
printa
51。
运行以下程序后,输出结果是(15)
fori=1to4
x=4
forj=1to3
x=3
fork=1to2
x=x+6
nextk
52。
下面程序的循环次数为
(1)
n=20
n=n+2
loopwhilen〈20
53。
窗体上有两个文本框,运行以下程序后,文本框显示值分别为(272)
x=0
dowhilex〈50
x=(x+2)*(x+3)
text1=str(n)
text2=str(x)
54。
dimm(10)asinteger
fork=1to10
m(k)=12-k
x=6
printm(2+m(x))
55。
以下说法正确的是(selectcase语句中的测试表达式只能是数值表达式或字符表达式)
56。
求两个数中的大数,正确为
max=iif(x〉y,x,y)ifx〉ythenmax=x
max=xify〉=xthenmax=y
max=y
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
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
a(0)+"
a(4)+"
a(4)"
62.运行以下程序后,输出结果是(true)
9"
1090"
andtruethenprint
63.运行以下程序后,输出结果是(ok和2)
a=array(3,1,2)
ifa(0)<
a
(1)then
a
(2)thenprinta(0)
ifa
(1)>
a
(2)thenprinta
(1)else
printokprinta
(2)
64.运行以下程序后,输出结果是(及格,优秀)
a=array(30,70,80)
temp=a(0):
a(0)=a
(1)temp=a(0):
a(0)=a
(2)
ifa(0)>
=80then
优秀"
=60then
及格"
不及格"
65.运行以下程序后,输出结果是(2310,33)
1000000"
andtruethenif"
ortruethen
print23&
10print23+10
66.运行以下程序后,输出结果是(abc2002ok,出错)
andtruethen
abc"
&
2002;
+2002;
ok"
67.有以下循环结构
dountil条件
循环体
正确的是("
如果"
条件"
是一个为0的常数,则无限次执行循环体)
68.运行以下程序,则printi*j语句的执行次数是(15)
fori=1to3
forj=5to1step-1
printi*j
nextj,i
69.运行以下程序后,输出结果是(4)
x=1
y=4
dountily>
4
x=x*y
y=y+1
70.运行以下程序后,x结果是(21)
x=5
fori=1to20step2
x=x+i\5
71.运行以下程序后,输出结果是(15)
fori=1to4
forj=1to3
fork=1to2
72.运行以下程序后,a结果是(14)
fori=1to3
forj=1toi
fork=jto3
a=a+1
73.运行以下程序后,输出结果是(bb,ccc.dddd,eeeee)
forj=1toi
printchr$(65+i)
74.运行以下程序后,输出结果是(123,456,789)
dima(10,10)asinteger
forj=1to3
a(i,j)=(i-1)*(3+j)
75.运行以下程序后,输出结果是
(1)
n=10
fork=nto1
x=k^2
76.运行以下程序后,输出结果是(4)
fork=10to19step3
i"
77.运行以下程序后,s结果是(9)
s=5
fori=2.6to4.9step0.6
78.运行以下程序后,输出结果是(1,2,3)
num=0
whilenum<
=2
num=num+1
printnum
79.设有以下循环,要求执行3次循环体,则
x=x+1
loopuntil(x>
=7)
80.运行以下程序后,输出结果是(1024)
dimk,n,masinteger
m=1
k=1
dowhilek《=n
m=m*2
k=k+1
printm
81.下面程序的循环次数为(11)
k=0
dowhilek《=10
82.运行以下程序后,输出结果是(12)
a=0
fori=1to2
forj=1to4
ifjmod2<
0then
83.运行以下程序后,输出结果是(Bb,CcC,DdDd)
forj=0toi
ifjmod2=0then
84.运行以下程序后,输出结果是(25)
dims%:
dimflagasboolean
s=0:
i+1
whilei<
100andflag
s=s+1:
i=i+2
ifsmod5=0then
flag=false
85.运行以下程序后,输出结果是(16)
fork=jtoi
s=s-1
nexti
text1.text=str$(s)
86.运行以下程序后,输出结果是(14)
dima(10),b(3)asinteger
k=3
fori=1to10
a(i)=i
b(i)=a(i*i)
s=s+b(i)
87.运行以下程序后,输出结果是(bcccc)
forj=1toi
printstring(i,65+i)
88.运行以下程序后,输出结果是(12)
dimarr(-1to4)
fori=-1to4
arr(i)=i*(i-1)
print
arr(lbound(arr,1)+1)+arr(ubound(arr,1))
89.运行以下程序后,输出结果是(17)
dimi%,j%
i=1:
j=0
s=s+j
j=j+1
loopwhilej<
s=s+i
i=i+2
loopuntili>
8
90.vb中出口语句有(exitfor,exitsub,exitdo)
91.运行以下程序后,输出结果是(-3)
x=12/3mod7
onxgoto10,20,30,40,50
x=x+100
10:
x=x