相关试卷
-
1、有如下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、"州市" -
2、有如下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 -
3、有如下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 -
4、有如下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 -
5、有如下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 -
6、有如下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 -
7、下列属于正确的VB赋值语句的是（ ）A、x+y=10 B、10=x+y C、x=True D、x+y=Text1.Text
-
8、有如下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上显示的内容是。
-
9、下列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、计算机内存太小 -
10、已知x是一个五位数的整数，下面语句中能得到其千位上的数字的是（ ）A、x/1000 B、x\1000 C、x\1000 mod 10 D、x mod 10000\1000
-
11、将数学代数式
写成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） -
12、如下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 -
13、设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）
-
14、设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）
-
15、设a=11，b=-11，则以下表达式中值为False的是（ ）A、a>=b B、Not（a=b） C、b>a D、b<a
-
16、在下面各关系式中，当X取任意数值时都能成立的式子是（ ）A、Int（X）>=Abs（X） B、Int（X）=Abs（X） C、Int（X）<=Abs（X） D、Int（X）<>Abs（X）
-
17、已知文本框Text1中的内容为12，则表达式Text1.Text+Str（12）的值是（ ）A、1212 B、"1212" C、"24" D、24
-
18、表达式Val（"123"）+123的值是（ ）A、123 B、“123123” C、246 D、123123
-
19、已知字符"A"的ASCII码为65，表达式Chr（Asc（"A"）+2）的值是（ ）A、"B" B、"C" C、"D" D、"E"
-
20、下列表达式值的范围是[-5，10]之间的整数的是（ ）A、Int（Rnd*10-5） B、Int（Rnd*11-5） C、Int（Rnd*15-5） D、Int（Rnd*16-5）