- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
语句Dim a&(1 To 20)，b#(2,-1 To 1)定义两个数组，其类型分别为： （ ）
| A．二维单精度实型数组和二双精度型数组 |
| B．二维长整型数组和二维单精度实型数组 |
| C．一维单精度实型数组和二维整型数组 |
| D．一维长整型数组和二维双精度型数组 |
定义有5个整型元素的数组，正确的语句是[ ]。
| A．DIM A（4） AS INTEGER |
| B．OPTION BASE 1：DIM A（5） |
| C．DIM A&（5） |
| D．DIM A（5）AS INTEGER |
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程.
Privat Sub Command1 Click
Dim array1(10,10) As Integer
Dim i AS integer,j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i,j) = i + j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值( ）
Privat Sub Command1 Click
Dim array1(10,10) As Integer
Dim i AS integer,j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i,j) = i + j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值( ）
| A．12 |
| B．13 |
| C．14 |
| D．15 |
下列程序段的执行结果为:（ ）
Dim M(10) as integer
For i = 0 To 10
M(i) = 2*i
Next i
Print M(M(3）
Dim M(10) as integer
For i = 0 To 10
M(i) = 2*i
Next i
Print M(M(3）
| A．12 |
| B．6 |
| C．0 |
| D．4 |
“删除字符”程序实现功能：在文本框Text1中输入待处理的字符串，在文本框Text2中输入需删除的单个字符，单击“删除”按钮Command1进行删除，并将删除后的字符串和被删除字符的位置分别显示在相应的文本框中。程序运行界面如下图所示。
（1）要使程序运行时，按钮Command1显示为“删除”，可在Form_Load事件处理过程中添加语句_____（单选，填字母：
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim c As String, s As String, j As String
Dim n As Integer, i As Integer
Dim w As String, result As String
s = Text1. Text: d = Text2. Text
n = Len(s): w= “ ”: result = “ ”
For i = 1 To n
____________
w = w + Str(i) + “,”
Else
Next i
Text3. Text = result
Text4. Text = w
End Sub
（3）若将加框处语句“if c=d Then”修改为“if c<>d Then”，文本框Text1和Text2中输入如图所示，则执行程序后文本框Text3中输出的内容是___________。
（1）要使程序运行时，按钮Command1显示为“删除”，可在Form_Load事件处理过程中添加语句_____（单选，填字母：
| A．Command1.Caption=“删除”/ | B．Command1. font=“删除”/ | C．Command1.Text=“删除”）。 |
Private Sub Command1_Click()
Dim c As String, s As String, j As String
Dim n As Integer, i As Integer
Dim w As String, result As String
s = Text1. Text: d = Text2. Text
n = Len(s): w= “ ”: result = “ ”
For i = 1 To n
____________
w = w + Str(i) + “,”
Else
_____________
End IfNext i
Text3. Text = result
Text4. Text = w
End Sub
（3）若将加框处语句“if c=d Then”修改为“if c<>d Then”，文本框Text1和Text2中输入如图所示，则执行程序后文本框Text3中输出的内容是___________。
有如下VB程序段：
For i = 1 To 3
j = 1
Do While j <= n - i - 1
If a(j) > a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
j = j + 1
Loop
Next i
如果n=7，数组元素a(1)到a(7)的值依次是“13，12，10，12，1，0，14”，程序段运行结束后，a(5)、a(6)、a(7)的值依次为
For i = 1 To 3
j = 1
Do While j <= n - i - 1
If a(j) > a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
j = j + 1
Loop
Next i
如果n=7，数组元素a(1)到a(7)的值依次是“13，12，10，12，1，0，14”，程序段运行结束后，a(5)、a(6)、a(7)的值依次为
| A．10，0，1 | B．13，0，14 | C．12，13，14 | D．13，12，14 |