- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
有如下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 |
完全平方数是指一个整数能表示成某个整数的平方的形式，例如图是完全平方数，可以表示成2的平方。下列判断整数型变量a是否为完全平方数的VB表达式不正确的是
| A．Int(Sqr(a))=Sqr(a) |
| B．Sqr(a)^2=a |
| C．Int(Sqr(a))^2=a |
| D．Fix(Sqr(a))=Sqr(a) |
在VB中，若a=1，b=2，要使输出结果为a+b=3（如下图所示），应使用的输出语句是( )
| A．Print “a+b=a+b” | B．Print “a+b=”;a+b |
| C．Print a+b;“=a+b” | D．Print “a+b=”;“a+b” |
有如下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程序中，王老师声明一个数组用于存储班级45位学生的手机号码，下列语句中合适的是（ ）
| A．Dim Tel(1 To 45) As Integer | B．Dim Tel(1 To 45) As Long |
| C．Dim Tel(45) As Long | D．Dim Tel(44) As String |
现有如下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．类型不匹配 |
有如下VB程序代码：
Dim a As Integer,b As Integer
a=3:b=5
a=a+b
b=a-b
a=a-b
该程序代码执行后，a和b的值分别是（）
Dim a As Integer,b As Integer
a=3:b=5
a=a+b
b=a-b
a=a-b
该程序代码执行后，a和b的值分别是（）
| A．8，3 | B．5，3 | C．8，-2 | D．8，5 |