- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
（加试题）若数组元素d(1)到d(8)的值依次为“86,75,58,46,20,18,12,5”，查找某Key值的VB程序段如下：
n = 0 : i = 1 : j = 8
Key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
If Key = d(m) Then Exit Do 'Exit Do表示退出循环
If Key > d(m) Then
j = m - 1 : n = n - 1
Else
i = m + 1 : n = n + 1
End If
Loop
Label1.Caption = Str(n)
当输入不同的Key值，运行该程序段后，在标签Label1中显示的不同结果共有
n = 0 : i = 1 : j = 8
Key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
If Key = d(m) Then Exit Do 'Exit Do表示退出循环
If Key > d(m) Then
j = m - 1 : n = n - 1
Else
i = m + 1 : n = n + 1
End If
Loop
Label1.Caption = Str(n)
当输入不同的Key值，运行该程序段后，在标签Label1中显示的不同结果共有
| A．5种 | B．6种 | C．7种 | D．8种 |
有如下VB程序段：
Dim x As String，y As String
Dim ans As Integer
x=“5”：y=“20”：ans = 0
If x>y Then ans = Val(x) Else ans = Val(y)
Ans = ans + Val(x+y)
Text1.Text = Str(ans)
程序运行完后，文本框Text1中显示的是：（ ）
Dim x As String，y As String
Dim ans As Integer
x=“5”：y=“20”：ans = 0
If x>y Then ans = Val(x) Else ans = Val(y)
Ans = ans + Val(x+y)
Text1.Text = Str(ans)
程序运行完后，文本框Text1中显示的是：（ ）
| A．25 | B．30 | C．540 | D．525 |
有如下VB程序段：
s= Text1.Text
For i=1 To Len(s)
c= Mid(s，i，1)
If c>=“0”And c<=“9”Then
Next i
Label1.Caption = Str(t)
在文本框Text1输入“as674ER29，86Gu”(不包括双引号)，执行程序后，标签Labell显示：（ ）
s= Text1.Text
For i=1 To Len(s)
c= Mid(s，i，1)
If c>=“0”And c<=“9”Then
m=m+1
Else lf c>=“a”And c<=“z” Thenn=n+1
Elset=t+1
End IfNext i
Label1.Caption = Str(t)
在文本框Text1输入“as674ER29，86Gu”(不包括双引号)，执行程序后，标签Labell显示：（ ）
| A．4 | B．6 | C．7 | D．8 |
某Visual Besic 程序如下：
Private Sub Command1_Click()
Dim a(1 To 10)As Integer
Dim i As Integer
For i= 1 To 10
List1.Additem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为：（ ）
Private Sub Command1_Click()
Dim a(1 To 10)As Integer
Dim i As Integer
For i= 1 To 10
a(i)=i*i
Next iList1.Additem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为：（ ）
| A．下标越界 | B．子程序或函数未定义 |
| C．溢出 | D．类型不匹配 |
在VB中，下列与表达式Len (“-20”) +20的值相等的是：（ ）
| A．Str(20)“+3” |
| B．Sqr(25)+20 |
| C．Val(“-20”)+20 |
| D．Abs(-3)+20 |