相关试卷
-
1、阶乘是一种累乘积的计算方法，用“!”来表示阶乘，n!=1×2×3×……×n。如：8!=1×2×3×…×8=40320。小王为了求10! 的值，编写了如下Visual Basic代码：
Private Sub Command1_Click()
Dim i As Integer, s As Integer ①
s = 0 ②
i = 1
Do While i < 10 ③
i = i + 1
s = s * i ④
Loop
Print s
End Sub
运行该程序，小王单击命令按钮Command1后，出现如第38题图对话框，已知序号①划线处的代码有错误，正确的代码应该是。经过代码修改后，小王重新运行该程序，单击命令按钮Command1，出现的结果是“0”， 那么序号（填①/②/③/④）划线处的代码有错误，正确的代码应该是。
-
2、现有如下Visual Basic程序：
Private Sub Command1_Click()
Dim i As Integer, c As String, s As String, t As String
s = Text1.text
t = ""
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then t = t + c
Next i
Text2.text = t
End Sub
运行该程序，在文本框Text1中输入“2016_Student”（不包含引号），单击命令按钮Command1后，文本框Text2中显示的内容是。
-
3、现有如下Visual Basic程序段：
Private Sub Command1_Click()
Dim a , b , c as Integer
a = 27: b = 9: c = -6
If a > b And b > 0 Then
If c < 0 Then a = a - c Else a = a - b
Else
a = b + c
End If
Print a
End Sub
该程序段运行之后，变量a的值为。
-
4、现有如下Visual Basic程序段：
Private Sub Command1_Click()
Dim a(-1 To 8) As Integer
Dim i As Integer
For i = -1 To 8
a(i) = i * i
Next i
Print a(i)
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示可能是（ ）
A、子程序或函数未定义 B、下标越界 C、溢出 D、类型不匹配 -
5、将文本框Text1中的数据赋值到数值型变量n中，正确的语句是（ ）A、n = text1 B、n = Text1.text C、n = Str(Text1.text) D、n = Val(Text1.text)
-
6、现有如下Visual Basic程序段：
Dim a(1 To 10) As Integer
a(10) = 1
a(9) = 2
For x = 8 To 1 Step -1
a(x) = a(x + 1) + a(x + 2)
Next x
该程序段运行后，a(6)的值是（ ）
A、5 B、8 C、11 D、13 -
7、现有如下Visual Basic程序段：
s = 0 ：x = 2：y = 49
Do While x <= Sqr(y)
s = s + x
x = x + 2
Loop
该程序段运行后，x的值是（ ）
A、2 B、6 C、8 D、12 -
8、现有如下Visual Basic程序段：
S = 0
For i = _____ to 3 step -1
S = S + i
Next i
该程序段运行后，语句S = S + i共执行了4次，则下划线处应是（ ）
A、0 B、1 C、5 D、6 -
9、现有如下Visual Basic程序段：
y = -100 ：x = 100
If x > 10 Then
y = -1
Elseif x > 50 Then
y = 1
Else
y = 0
End if
该程序段执行后，变量y的值是（ ）
A、-100 B、-1 C、1 D、0 -
10、某Visual Basic程序在调试过程中弹出如图所示对话框，产生该错误的可能原因是（ ）
A、该程序代码中，某个过程名书写错误 B、该程序窗体界面中，缺少一个文本框 C、该程序代码中，某个变量或常量没有声明 D、Visual Basic软件没有正确安装 -
11、求[1,100]之间所有奇数之和s的部分算法流程图如图所示。为了实现此算法，图中判断框①和处理框②处可填入的是（ ）
A、① s = s + i ② i = i + 1 B、① s = s + i ② i = i + 2 C、① i = i + 1 ② s = s + i D、① i = i + 2 ② s = s + i -
12、现有如下Visual Basic程序段：
x = 3
y = 9
z = x = y
该程序段执行后，变量z的值是（ ）
A、9 B、3 C、True D、False -
13、某商品团购优惠策略的部分流程图如图所示：
当n为100，p为10时，实付金额s的值是（ ）
A、1000 B、950 C、850 D、750 -
14、某算法的部分流程图如图所示。执行这部分流程后，“x←x-2”被执行的次数为（ ）
A、0次 B、1次 C、2次 D、3次 -
15、有算法部分流程图如图所示，当输入的数为0时程序退出，要想实现这个功能，则图中虚线部分的内容是（ ）
A、
B、
C、
D、
-
16、有一个四位正整数S，其千、百、十、个位数值分别用变量A、B、C、D中，则计算S的百位数值B，下列表达式中可行的是（ ）A、S mod 1000 B、(S – 1000 * A) / 100 C、S – 1000 * A – 10 * C - D D、S \ 100 Mod 10
-
17、将数学表达式 写成Visual Basic表达式，正确的是（ ）A、-b+Sqr(b^2-4*a*c)/(2*a) B、-b+Sqr(b^2-4*a*c)/2*a C、(-b+Sqr(b^2-4*a*c))/2*a D、(-b+Sqr(b^2-4*a*c))/(2*a)
-
18、Visual Basic 表达式 -1 + 4 ^ 2 \ 5 Mod 3 * 2的值是（ ）A、0 B、1 C、2 D、5
-
19、用Visual Basic随机函数产生10~99的幸运号码，下列符合要求的表达式是（ ）A、Int(Rnd() * 9) + 90 B、Int(Rnd() * 90) + 10 C、Int(Rnd() * 89) + 10 D、Int(Rnd() * 99) + 1
-
20、下列VB表达式的值不等于5的是（ ）A、Sqr(25) B、Abs(-4)+1 C、Len("2015")+1 D、Int(4.9)