相关试卷
-
1、有如下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上显示的内容为。
-
2、有如下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上显示的内容为。
-
3、有如下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上显示的内容为。
-
4、有如下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上显示的内容为。
-
5、有如下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 -
6、有如下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 -
7、有如下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、"州市" -
8、有如下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 -
9、有如下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 -
10、有如下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 -
11、有如下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 -
12、有如下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 -
13、下列属于正确的VB赋值语句的是（ ）A、x+y=10 B、10=x+y C、x=True D、x+y=Text1.Text
-
14、有如下VB程序段：
Private Sub Command1_Click（）
Dim x As Integer，y As Integer，t As Integer
x=2：y=3
t=x
x=y
y=t
t=x^y
Text1.Text=Str（t）
End Sub
该程序段运行后，标签Text1上显示的内容是。
-
15、下列Visual Basic程序可用于计算1010的值：
Private Sub Command1_Click( )
Dim n As Integer，s As Integer
n=10
s=10^n
Text1.Text=Str（s）
End Sub
运行程序时，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的原因是（ ）
A、变量n的数据类型定义有问题 B、变量s的数据类型定义有问题 C、文本框Text1属性设置有问题 D、计算机内存太小 -
16、已知x是一个五位数的整数，下面语句中能得到其千位上的数字的是（ ）A、x/1000 B、x\1000 C、x\1000 mod 10 D、x mod 10000\1000
-
17、将数学代数式
写成VB表达式，正确的是（ ） A、-b+Sqr（b*b-4ac）/2a B、-b+Sqr（b*b-4*a*c）/（2*a） C、（-b+Sqr（b*b-4*a*c）/2*a） D、（-b+Sqr（b^2-4*a*c））/（2*a） -
18、如下VB程序段：
a="zhedzfjiang"
c=Mid（a，Len（a\2-1，3）
Text1.Text=c
End Sub
该程序段运行后，在文本框Text1上显示的是（ ）
A、dzf B、hao C、zhe D、zfj -
19、设x=4，y=6，则能在Text1控件上显示SUM=10的语句是（ ）A、Text.Text1="SUM=x+y" B、Text1.Text="SUM="+Str（x+y） C、Text="SUM="+Str（x+y） D、Textl.Text="SUM="+Val（x+y）
-
20、设a=6，b=10，则以下表达式中值为True的是（ ）A、（a>=b）And（b>10） B、（a>b）Or（b>0） C、（a<0）And（b>0） D、（b-a>a）And（b>0）