- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
定义有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 |
某对分查找算法的VB程序段如下：
Key=val(Text1. text)
i = 1: j = 10
Do While i <= j
m = int<(i + j) / 2)
If a(m) = key Then Exit Do
If key>a(m) Then i = m + 1 Else j = m - 1
Text2. text= Text2. text+str(a(m))
Loop
Key=val(Text1. text)
i = 1: j = 10
Do While i <= j
m = int<(i + j) / 2)
If a(m) = key Then Exit Do
If key>a(m) Then i = m + 1 Else j = m - 1
Text2. text= Text2. text+str(a(m))
Loop
数组元素a(1)到a(10)的值依次为“5，12，20，29，36，40，55，58，66，74”，若在文本框Text1中输入数据，执行该程序段，文本框Text2中显示的内容为：36，58，40，55，则key的值可能是
| A．38 | B．45 | C．55 | D．70 |