相关试卷
-
1、有如下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 -
2、已知字符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" -
3、下列程序执行后，变量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 -
4、下列程序执行后，变量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" -
5、下列程序执行后，变量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 -
6、有如下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 -
7、有如下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 -
8、有如下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 -
9、下列程序执行后，变量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 -
10、有如下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 -
11、有如下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 -
12、有如下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 -
13、有如下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 -
14、有如下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上显示的内容为。
-
15、有如下VB程序：
a=1：b=2
If a>0 And a>b Then a=a+1
a=a+1
If a<>b Then
a=a+1
b=b+1
End If
a=a+b
Label1.Caption=Str（a）
程序运行后，标签Label1上显示的内容为。
-
16、有如下VB程序：
a=2：b=5
If b>=a Then a=a+2
b=b+2
If b Mod 2=1 Then b=b*a+1
Text1.Text=Str（b）
程序运行后，文本框Text1上显示的内容为。
-
17、有如下VB程序：
a=2
b=a+5
If a Mod b=2 Then
a=a+2
b=a+b
End If
b=b+2
Text1.Text=Str（b）
该程序运行后，文本框Text1上显示的内容为。
-
18、有如下VB程序：
a=2：b=5
If a>b Then a=a+2 Else b=a+b
a=b+2
b=a+b
Text1.Text=Str（b）
该程序运行后，文本框Text1上显示的内容为。
-
19、有如下VB程序段：
Dim ans As Integer，y As Integer
Dimt As String
t="What20"
ans=Val（Mid（t, 5, 2））
y=Len（t）+Int（Sqr（ans））
If ans>y Then
ans=ans Mod 2
ElseIf ans<y Then
y=y Mod 2
Else
ans=y
End If
ans=ans+y
Label1.Caption=Str（ans）
该程序段运行后，标签上显示的内容是（ ）
A、0 B、10 C、20 D、30 -
20、有如下VB程序段：
Dim x As Integer，y As Integer
x=Sqr（4）
y=3
If x+y>=5 Then
x=x+2
y=x+y
EndIf
该程序段运行后，x，y的值为（ ）
A、4，3 B、5，5 C、2，5 D、4，7