- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
运行图1所示的VB程序,出现了图2所示错误。若要纠正程序中错误,以下叙述正确的是( )



A.将变量b的数据类型改为Long |
B.将变量a的数据类型改为Integer |
C.将变量s的数据类型改为Integer |
D.将变量b的数据类型改为String |
数组a的初始值如表所示,以下流程图描述的算法执行结果是( )

d[1] | d[2] | d[3] | d[4] | d[5] | d[6] | d[7] | d[8] |
-10 | 0 | 1 | 3 | 4 | 6 | 9 | 10 |

A.10 | B.-10 | C.1 | D.0 |
数组d中存放了一组数据如表所示,采用对分査找数组元素值86。第一次査找的数组元素是d[4],第二组査找的数组元素是( )
d[1] | d[2] | d[3] | d[4] | d[5] | d[6] | d[7] |
65 | 73 | 75 | 82 | 85 | 91 | 95 |
A.d[2] | B.d[3] | C.d[5] | D.d[6] |
数组d中存放了一组数据如表所示。采用选择排序对这组数据进行递增次序排序。第二遍加工过程中,进行数据交换的数组元素是( )
d[1] | d[2] | d[3] | d[4] | d[5] | d[6] | d[7] | d[8] |
90 | 84 | 85 | 72 | 80 | 71 | 66 | 70 |
A.d[2]与d[3] | B.d[2]与d[1] | C.d[2]与d[8] | D.d[2]与d[7] |
小明用某语言编写了段源代码如下图所示,实现了“任意输入一个整数,输出其绝对值”的功能。以下说法正确的是( )


A.这是机器语言编写的指令序列,计算机可以直接执行 |
B.这是汇编语言编写的程序,可以称为一个小软件 |
C.这是高级语言编写的程序,可以称为一个小软件 |
D.这是高级语言编写的程序,需转换成机器语言后才能直接执行 |
某算法的部分流程图如图所示,执行这部分流程后,变量x和Flag的值分别是


A.2,True |
B.3,True |
C.2,False |
D.3,False |
有如下程序:
Private Sub Command l_Click
Dim s As String, c As String, n As Integer
s=”Google Chrome”:n=0
For i=1 To Len(s)
c=Mid(s,i,l)
If c=”e” Then n=n+1
n=n-1
Next i
Text 1.Text=Str(Abs(n) )
End Sub
运行该程序,单击命令按钮Command 1后,文本框Text1中显示的内容是()
Private Sub Command l_Click
Dim s As String, c As String, n As Integer
s=”Google Chrome”:n=0
For i=1 To Len(s)
c=Mid(s,i,l)
If c=”e” Then n=n+1
n=n-1
Next i
Text 1.Text=Str(Abs(n) )
End Sub
运行该程序,单击命令按钮Command 1后,文本框Text1中显示的内容是()
A.-11 | B.11 | C.-9 | D.9 |
小明编写了一个VB程序,功能如下:在文本框Text1中输入一段英文,并在文本框Text2中输入英文段落中的某个单词(或字符串),单击“最大间距”按钮(Command1)后,在文本框Text3中显示该单词在文中某两次出现的最大间距,若只出现一次或不出现则显示值为0。程序运行界面如下图所示:

实现上述功能的VB程序如下:
Private Sub Command1_Click
Dim a(1 To 1000) As String '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ①
If ch = c Then
n = ②
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text = ③
End Sub
(1)代码“Private Sub Command1_Click”中的Click是________ 。(单选:填字母:
(2)以上程序段运行时,为了实现上述功能,划线处①②③应填入的代码分别为:
①______________________;②______________;③____________________

实现上述功能的VB程序如下:
Private Sub Command1_Click
Dim a(1 To 1000) As String '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ①
If ch = c Then
n = ②
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text = ③
End Sub
(1)代码“Private Sub Command1_Click”中的Click是________ 。(单选:填字母:
A.对象名/ | B.属性名/ | C.事件名) |
①______________________;②______________;③____________________