- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- + 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在VB中，下列程序段执行后，变量a,b,c的值分别是（ ）
a=1:b=1:c=1
do while a+b+c<=10
a=a+1
b=b*2
c=b/2
loop
a=1:b=1:c=1
do while a+b+c<=10
a=a+1
b=b*2
c=b/2
loop
| A．2,2,1 | B．3,4,2 | C．4,8,4 | D．4,4,2 |
有如下 VB 程序，它的输出结果是（ ）。
S=0
For i=1 To 10
If i mod 2=0 Then S=S+i
Next i
Print “S=”;S
S=0
For i=1 To 10
If i mod 2=0 Then S=S+i
Next i
Print “S=”;S
| A．S=0 | B．S=25 | C．S=30 | D．S=55 |
将以下程序段补充完整。
问题：输入一个正整数n，判断n是否为素数。要判断n是否为素数，最简单的方法是：统计2到n-1之间能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。根据以上方法，完善以下程序代码。
Dim n, s As Integer
n = Val(InputBox(“n=”))
s=0
For i=2 to ①_________
If ②__________Then
Print n & “不是素数”
End If
问题：输入一个正整数n，判断n是否为素数。要判断n是否为素数，最简单的方法是：统计2到n-1之间能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。根据以上方法，完善以下程序代码。
Dim n, s As Integer
n = Val(InputBox(“n=”))
s=0
For i=2 to ①_________
If n Mod i = 0 then
s=s+1统计因数个数End If
Next iIf ②__________Then
Print n & “是素数”
ElsePrint n & “不是素数”
End If
有如下VB程序段：
Private Sub Text1_Change()
Dim a, i As Integer
a= Val(Text1.Text)
For i = 2 To 6 Step 2
If a<= 15 Then a = a + i
Next i
Text1.Text = Str(a)
End Sub
若在文本框 Text1 中输入2，执行该程序段，For语句的循环次数为（）
Private Sub Text1_Change()
Dim a, i As Integer
a= Val(Text1.Text)
For i = 2 To 6 Step 2
If a<= 15 Then a = a + i
Next i
Text1.Text = Str(a)
End Sub
若在文本框 Text1 中输入2，执行该程序段，For语句的循环次数为（）
| A．3 | B．5 | C．6 | D．9 |
有如下VB程序段：
i = 0: j = 1
Do While j <= 5
If a(j) <> 0 Then i = i + 1: a(i) = a(j)
j = j + 1
Loop
For j = i + 1 To 5
a(j) = 0
Next j
数组元素a(1)到a(5)的值依次为“0,20,0,4,31”，执行该程序段后，a(1)~a(6)各元素的值依次为( )
i = 0: j = 1
Do While j <= 5
If a(j) <> 0 Then i = i + 1: a(i) = a(j)
j = j + 1
Loop
For j = i + 1 To 5
a(j) = 0
Next j
数组元素a(1)到a(5)的值依次为“0,20,0,4,31”，执行该程序段后，a(1)~a(6)各元素的值依次为( )
| A．4,20,31,0,0 | B．31,20,4,0,0 | C．0,0,20,4,31 | D．20,4,31,0,0 |
有如下VB程序段：
i = 1: j = 6: c = 0: f = False
key = Val(Text1.Text)
Do While i<= j And Not f
c = c + 1
m = Int((i + j) / 2)
If key = a(m) Then f = True
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
数组元素a(1)到a(6)依次为“8,23,25,32,46,57”，文本框Text1的内容为“32”。执行程序后，下列说法不正确的是
i = 1: j = 6: c = 0: f = False
key = Val(Text1.Text)
Do While i<= j And Not f
c = c + 1
m = Int((i + j) / 2)
If key = a(m) Then f = True
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
数组元素a(1)到a(6)依次为“8,23,25,32,46,57”，文本框Text1的内容为“32”。执行程序后，下列说法不正确的是
| A．变量c的值为3 | B．变量i的值为4 | C．变量j的值为4 | D．变量m的值为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 * iNext i
Print a(i)
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示可能是（ ）| A．子程序或函数未定义 | B．下标越界 | C．溢出 | D．类型不匹配 |