相关试卷
-
1、下列程序段执行后，s的值为（ ）
t=1：s=0
For i=1To 4
m=1：t=-t
For j=1 To i
m=m*j
Next j
s=s+m*t
Next i
A、35 B、21 C、19 D、15 -
2、下列程序段执行后，a的值为（ ）
For i=1To 9
For j=i To 9
a=i*j
List1.AddItem i&"*"&j&"="&a
Next j
Next i
A、81 B、45 C、9 D、1 -
3、已知s的初值为0，下列程序段执行后，s的值为（ ）
s=0
For i=1 To 2
For j=6 To 1 Step-2.
s=s+1
Nextj
Next i
A、12 B、8 C、6 D、4 -
4、已知x的初值为0，下列程序段执行后，x的值为（ ）
For i=1 To 4
For j=i To 5
x=x+1
Nextj
Next i
A、20 B、15 C、14 D、9 -
5、有如下VB程序段：
n=45：m=25
Do While m<>0
r=n Mod m
n=m
m=r
Loop
Label1.Caption =Str（n）
该程序段运行后，标签Label1上显示的内容是（ ）
A、20 B、15 C、10 D、5 -
6、有如下VB程序段：
n=20：s=""
Do While n<>0
r=n Mod 2
s=Str（r）+s
n=n\2
Loop
Label1.Caption=s
该程序段运行后，标签Label1上显示的内容是（ ）
A、10010 B、00101 C、10100 D、01001 -
7、有如下VB程序段：
s="浙A665F5"
n=0：c=0：k=0
Do While n<=Len（s）
n=n+1
ch=Mid（s, n, 1）
If ch>="A" And ch<="Z" Then c=c+1
If ch >="0" And ch<="9" Then k=k+1
Loop
Label1.Caption=Str（k-c）
该程序段运行后，标签Label1上显示的内容是（ ）
A、0 B、1 C、2 D、3 -
8、已知字符A的内码为65，a的内码为97，则下列程序执行后，变量t的值为（ ）
s="AaBb"：t=""
For i=1 To Len（s）
ch=Mid（s, i, 1）
If ch>="a" And ch<="z" Then
ch=Chr（Asc（ch）-32）
End If
t=ch+t
Next i
A、"AaBb" B、"AABB" C、"BbAa" D、"BBAA" -
9、下列程序执行后，变量c的值是（ ）
c=0
For i=1 To 10
If i Mod 2=0 Or i Mod 3=1 Then
c=c+1
End If
Next i
A、4 B、5 C、6 D、7 -
10、下列程序执行后，变量ans的值是（ ）
s="A1B2C3"
ans=""
For i=1 To Len（s）
ch=Mid（s, i, 1）
If i Mod 2=1 Then ans=ans+ch
Next i
A、"AIB" B、"123" C、"AB" D、"ABC" -
11、下列程序执行后，变量c的值是（ ）
s="DZFad123"：c=0
For i=1 To Len（s）
ch=Mid（s, i, 1）
If ch>="A" And ch<="F" Then
c=c+1
End If
Next i
A、1 B、2 C、3 D、4 -
12、有如下VB程序段：
s=1：c=0
flag=True
Do While flag=True
s=s+2
If s>5 Then flag=False
c=c+1
Loop
Label1.Caption=Str（s+c）
该程序段运行后，标签Label1上显示的内容是（ ）
A、3 B、7 C、10 D、12 -
13、有如下VB程序段：
k=1：s=0
Do While k <= 5
s=s+k
k=k+1
Loop
Labell.Caption =Str（s +k）
该程序段运行后，标签Label1上显示的内容是（ ）
A、15 B、16 C、21 D、28 -
14、有如下VB程序段：
s=0：c=0
For i =1 To 5
s=s+i
c=c+1
Next i
Textl.Text=Str（s +c）
该程序段运行后，文本框Text1上显示的内容是（ ）
A、15 B、20 C、21 D、26 -
15、下列程序执行后，变量s的值是（ ）
s=1
For i=1 To 20
If i Mod 5=0 Then
s=s+i
End If
Next i
A、50 B、51 C、31 D、30 -
16、有如下VB程序段：
s=0
For i=1 To 5 Step 2
s=s+i
Next i
s=s+i
Label1.Caption=Str（s）
该程序段运行后，标签Label1上显示的内容是（ ）
A、3 B、9 C、14 D、16 -
17、有如下VB程序段：
s=0
For i=1 To 6
s=s+i
Next i
Label1.Caption=Str（s）
该程序段运行后，标签Label1上显示的内容是（ ）
A、10 B、15 C、21 D、28 -
18、有如下VB程序段：
s=0
For i=1 To 10 Step 3
s=s+1
Next i
Label1.Caption=Str（s）
该程序段运行后，标签Label1上显示的内容是（ ）
A、2 B、3 C、4 D、5 -
19、有如下VB程序段：
s=0
For i=1 To 3
s=s+2
Next i
Label1.Caption=Str（s）
该程序段运行后，标签Label1上显示的内容是（ ）
A、3 B、4 C、5 D、6 -
20、有如下VB程序：
x=5：y=2
If x>y Then
y=y+6
If y>9 Then y=x*y
Else
y=y+2
y=x+y
End If
Text1.Text=Str（y）
程序运行后，文本框Text1上显示的内容为。