相关试卷
-
1、有如下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 -
2、下列程序执行后，变量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 -
3、有如下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 -
4、有如下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 -
5、有如下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 -
6、有如下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 -
7、有如下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上显示的内容为。
-
8、有如下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上显示的内容为。
-
9、有如下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上显示的内容为。
-
10、有如下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上显示的内容为。
-
11、有如下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上显示的内容为。
-
12、有如下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 -
13、有如下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 -
14、有如下VB程序段：
Dim s As String
s="浙江杭州市"
If Len（s）>=5 Then
s=Mid（s，3，2）
Else
s=Mid（s，1，2）
EndIf
该程序段运行后，s的值为（ ）
A、"浙江杭州" B、"浙江" C、"杭州" D、"州市" -
15、有如下VB程序段：
Dim a As Integer, b As Integer
a=Len（"China"）
b=a-2
If a Mod b=2 Then a=a^2 Else a=b^2
该程序段运行后，a的值为（ ）
A、3 B、5 C、9 D、25 -
16、有如下VB程序段：
Dim x As Integer，y As Integer
x=2：y=3
If x+y=5 Then x=x+2
y=x+y
该程序段运行后，x，y的值为（ ）
A、4，3 B、5，5 C、2，5 D、4，7 -
17、有如下VB程序段：
Dim x As Integer, y As Integer
x=12：y=20
If x=y Then x=x+2 Else y=y+2
该程序段运行后，x，y的值为（ ）
A、14，22 B、22，12 C、12，22 D、20，22 -
18、有如下VB程序段：
a=1：b=2：t=0
t=a：a=b：b=t
该程序段运行后，a，b的值为（ ）
A、1，2 B、2，1 C、1，0 D、2，0 -
19、有如下VB程序段：
Dim x1 as String, x2 as String, t as String
x1=Text1.Text
x2=Text2.Text
t=x1
x1=x2
x2=t
Label1.Caption=x1+x2
在Text1输入“2020”，Text2输入“China”后执行程序，单击按钮后在标签Label1上显示的内容是（ ）
A、China B、2020 C、2020China D、China2020 -
20、下列属于正确的VB赋值语句的是（ ）A、x+y=10 B、10=x+y C、x=True D、x+y=Text1.Text