- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
简易加法器：小王用VB编写了一个简易加法器，其功能如下：在文本框Text1中输入数字，中间用“，”隔开，单击“计算”命令按钮后，将这几个数字的和输出在标签Label1中。运行界面如图所示，VB程序代码如下，请回答以下问题。
（1）Cmd1对象属于________类。（单选，填字母：
（2）请在划线处填入合适代码。
Private Sub Cmd1_Click()
Dim i As Integer, j As Integer, ans As Integer
Dim chAs String, s As String
s = Text1.Text
ans = 0
j = 1
For i = 1 To Len(s)
_______________
If ch = "," Then
ans = ____________
j = i + 1
End If
Next i
Label1.Caption = "计算结果是：" +Str(ans)
End Sub
（3）运行该程序，在文本框中输入“21，5，3”（不包含双引号），则计算结果是_______。
（1）Cmd1对象属于________类。（单选，填字母：
| A．Label / | B．TextBox / | C．CommandButton）。 |
Private Sub Cmd1_Click()
Dim i As Integer, j As Integer, ans As Integer
Dim chAs String, s As String
s = Text1.Text
ans = 0
j = 1
For i = 1 To Len(s)
_______________
If ch = "," Then
ans = ____________
j = i + 1
End If
Next i
Label1.Caption = "计算结果是：" +Str(ans)
End Sub
（3）运行该程序，在文本框中输入“21，5，3”（不包含双引号），则计算结果是_______。
某算法的部分流程图如右图所示，执行该部分流程图，下列描述正确的是( )
| A．sßs + x 共执行了4次 |
| B．s ≤10? 共执行了4次 |
| C．s的值为15 |
| D．x的值为5 |
下列VB表达式的值等于23的是( )
| A．Str(20) + “3” | B．Val(“-20”) + 20 |
| C．Len(“-20”) + 20 | D．Abs(Int（-23.3）) |
对称字符串的特征是从左到右读和从右往左读是完全一样的。如“abba”是对称的，”abcba”也是对称的。判断字符串是否对称的VB程序段如下：
n = Len(s) 's是判断的字符串
①j = j - 1
②If c1< >c2 Then k = k + 1
③c1 = Mid(s,i,1) : c2 = Mid(s,j,1)
代码顺序正确的是（ ）
n = Len(s) 's是判断的字符串
k = 0: j = n
For i = 1 To n \ 2
Next i
If k = 0 Then Label1.Caption = "对称" Else Label1.Caption = "不对称"
方框中的代码由以下三部分组成：①j = j - 1
②If c1< >c2 Then k = k + 1
③c1 = Mid(s,i,1) : c2 = Mid(s,j,1)
代码顺序正确的是（ ）
| A．①③② | B．②③① |
| C．②①③ | D．③②① |
鸡兔同笼。有若干只鸡和兔关在同一个笼子里，从上面数，有60个头；从下面数，有200只脚。请问笼中有几只鸡和兔？王鹏想设计一个VB应用程序来解决问题，通过输入头和脚的个数，求出鸡兔的数量。运行界面如下图所示。
请完成以下题目：
（1）计算机的基本功能是：_____________（填字母）
A.计算 B.图像处理 C.音频处理 D.视频处理 （2）用VB进行程序设计时，一般需经历的阶段：A.运行调试程序；B.应用程序界面设计；C.代码编写。正确的顺序是：_____________（填字母）
（3）如图-1窗体中共有几个对象 ________（填： 3 / 4 / 5 / 6）。
（4）如图-1中标注A处的对象类型可能为标签类对象？ _________（填：对 / 错）。
（5）标注B处 Command1对象属性肯定被修改过的是_________（填：Caption / Font）
（6）在窗体中，创建文本框类对象（text1）时应选择工具箱中的____________(填字母: A / B / C / D)
A.
B. 
C. 
D. 
请完成以下题目：
（1）计算机的基本功能是：_____________（填字母）
A.计算 B.图像处理 C.音频处理 D.视频处理 （2）用VB进行程序设计时，一般需经历的阶段：A.运行调试程序；B.应用程序界面设计；C.代码编写。正确的顺序是：_____________（填字母）
（3）如图-1窗体中共有几个对象 ________（填： 3 / 4 / 5 / 6）。
（4）如图-1中标注A处的对象类型可能为标签类对象？ _________（填：对 / 错）。
（5）标注B处 Command1对象属性肯定被修改过的是_________（填：Caption / Font）
（6）在窗体中，创建文本框类对象（text1）时应选择工具箱中的____________(填字母: A / B / C / D)
A.
B. C. D. 小李编写一个统计学生选考科目的VB 程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科次占有效人数的百分率求出各科排名。程序运行时，单击“显示”按钮 Commmad1，学生选课数据显示在列表框 list1 中，各科编号及对应科目名称显示列表框 list2 中，单击“统计”按钮 Commmad2，选课结果按各科百分率由高到低显示在列表框 list3 中，程序运行结果如图所示。
实现上述功能的 VB 程序如下,请回答下列问题:
（1）学生选课的编码数据存储在数据表中，其字段名为________。
（2）请在划线处填入合适的代码.
Dim ach(1 To 500) As String '存储各学生选课编码 Dim bno(1 To 10) As Integer '存储各科目编号
Dim bname(1 To 10) As String '存储各科目名称
Dim bnum(1 To 10) As Integer '存储各科目被选次数 Dim bmc(1 To 10) As Integer '存储各科目被选的名次
Dim n As Integer, num As Integer Private Sub Command1_Click()
Dim i As Integer, km As String
km = "物理化学生物政治历史地理技术"
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sql As String
cn.Open "provider=Microsoft.Jet.oledb.4.0;Data Source=" + App.Path + "\students.mdb"
rs.Open "select * from choose", cn
Do While Not rs.EOF
n = n + 1 : ach(n) = rs.Fields("subject") : rs.MoveNext Loop
rs.Close
cn.Close
Set rs = Nothing Set cn = Nothing
For i = 1 To 7
bno(i) = i
bname(i) = Mid(km, (i - 1) * 2 + 1, 2)
List2.AddItem Str(bno(i)) + "---" + bname(i) Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer Dim c As String, per As Integer
For i = 1 To n
If check(ach(i)) = True Then
For j = 1 To 3
c = Mid(ach(i), j, 1)
bnum(Val(c)) =_______ ’统计科目被选次数
Next j
num = num + 1
End If Next i
i = 1
Do While i <= 7 '该循环得到各学科被选人数的名次
If bnum(j) > bnum(i) Then _______ ’通过比较有多少个数比当前的数大
’得到该数在数组中的排名
Next j
i = i + 1 Loop
For i = 1 To 7
For j = 1 To 7
If _______ Then ’按名次输出
per = Int(bnum(j) * 100 / num * 100) / 100
List3.AddItem Str(bno(j)) + "---" + bname(j) + "---" + Str(per) + "%"
End If
Next j Next i
End Sub
Function check(s As String) As Boolean
'代码略! 若学生选科代码有效,函数返回 True,否则返回 False End Function
实现上述功能的 VB 程序如下,请回答下列问题:
（1）学生选课的编码数据存储在数据表中，其字段名为________。
（2）请在划线处填入合适的代码.
Dim ach(1 To 500) As String '存储各学生选课编码 Dim bno(1 To 10) As Integer '存储各科目编号
Dim bname(1 To 10) As String '存储各科目名称
Dim bnum(1 To 10) As Integer '存储各科目被选次数 Dim bmc(1 To 10) As Integer '存储各科目被选的名次
Dim n As Integer, num As Integer Private Sub Command1_Click()
Dim i As Integer, km As String
km = "物理化学生物政治历史地理技术"
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sql As String
cn.Open "provider=Microsoft.Jet.oledb.4.0;Data Source=" + App.Path + "\students.mdb"
rs.Open "select * from choose", cn
Do While Not rs.EOF
n = n + 1 : ach(n) = rs.Fields("subject") : rs.MoveNext Loop
rs.Close
cn.Close
Set rs = Nothing Set cn = Nothing
For i = 1 To 7
bno(i) = i
bname(i) = Mid(km, (i - 1) * 2 + 1, 2)
List2.AddItem Str(bno(i)) + "---" + bname(i) Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer Dim c As String, per As Integer
For i = 1 To n
If check(ach(i)) = True Then
For j = 1 To 3
c = Mid(ach(i), j, 1)
bnum(Val(c)) =_______ ’统计科目被选次数
Next j
num = num + 1
End If Next i
i = 1
Do While i <= 7 '该循环得到各学科被选人数的名次
bmc(i) = 1
For j = 1 To 7If bnum(j) > bnum(i) Then _______ ’通过比较有多少个数比当前的数大
’得到该数在数组中的排名
Next j
i = i + 1 Loop
For i = 1 To 7
For j = 1 To 7
If _______ Then ’按名次输出
per = Int(bnum(j) * 100 / num * 100) / 100
List3.AddItem Str(bno(j)) + "---" + bname(j) + "---" + Str(per) + "%"
End If
Next j Next i
End Sub
Function check(s As String) As Boolean
'代码略! 若学生选科代码有效,函数返回 True,否则返回 False End Function
某对分查找算法的 VB 程序段如下：（ ）
i = 1: j = 7
key = Int(Rnd() * 100) Do While i <= j
m = (i + j) \ 2
If a(m) = Key Then
Exit Do
ElseIf a(m) > Key Then
j = m - 1
Else
i = m + 1
End If
数组元素 a(1)到 a(7)的值依次为“25,42,53,66,77,83,98”，运行上述程序段后，下列条件表达式肯定不成立的是
i = 1: j = 7
key = Int(Rnd() * 100) Do While i <= j
m = (i + j) \ 2
If a(m) = Key Then
Exit Do
ElseIf a(m) > Key Then
j = m - 1
Else
i = m + 1
End If
数组元素 a(1)到 a(7)的值依次为“25,42,53,66,77,83,98”，运行上述程序段后，下列条件表达式肯定不成立的是
| A．j-i=0 | B．i-j=2 | C．i=8 | D．m<=7 |
有一组正整数，要求仅对其中的偶数进行降序排序。排序后偶数在前，奇数在后。排序示例如下。
程序运行界面如下图所示。
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 8
Dim a(1 To n) As Integer Private Sub Form_Load()
'排序前数据存储在数组 a 中，并在文本框 Text1 中显示代码略 End Sub
Private Sub Command1_Click()
Dim k As Integer, i As Integer, j As Integer, t As Integer
i = 1
Do While i <= n - 1
k = i
For j = i + 1 To n
'①
k = j
ElseIf a(k) Mod 2 = 0 And a(j) Mod 2 = 0 And a(j) > a(k) Then
k = j
End If
Next j
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
End If
'②
Loop
| 排序前 | 75 | 78 | 60 | 86 | 61 | 75 | 36 | 88 |
| 排序后 | 88 | 86 | 78 | 60 | 36 | 75 | 61 | 75 |
程序运行界面如下图所示。
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 8
Dim a(1 To n) As Integer Private Sub Form_Load()
'排序前数据存储在数组 a 中，并在文本框 Text1 中显示代码略 End Sub
Private Sub Command1_Click()
Dim k As Integer, i As Integer, j As Integer, t As Integer
i = 1
Do While i <= n - 1
k = i
For j = i + 1 To n
'①k = j
ElseIf a(k) Mod 2 = 0 And a(j) Mod 2 = 0 And a(j) > a(k) Then
k = j
End If
Next j
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
End If
'② Loop
'依次输出排序后的数据。代码略 End Sub
用 VB 编写“检查句子格式”的程序，实现如下功能：在文本框 Text1 中输入要检查的英文句子，单击“检查”按钮 Command1。判断句子“”和“？”后的字母是否是大写，如果是小写字母，那么将其转换为大写字母，并在文本框 Text2 中输出。程序运行界面如下图所示。 
（1）要使程序运行时，文本框 Text1 的 Height 属性值为 900，可在 Form_Load 事件处理过程中添加语句________（单选，填字母：
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub
Command1_Click()
Dim s As String, ch As String, flag As Boolean Dim ch2 As String, res As String, i As Integer s = Text1.Text: res = ""
______________
Do While i <= Len(s)
flag = False
ch = Mid(s, i, 1)
If i = 1 And ch >= "a" And ch2 <= "z" Then
ch = Chr(Asc(ch) - 32) '小写字母转换为大写字母
End If
If ch = "." Or ch = "?" Then flag = True
ch2 = Mid(s, i + 1, 1)
If flag And ch2 >= "a" And ch2 <= "z" Then
ch2 = Chr(Asc(ch2) - 32) '小写字母转换为大写字母
res =_________________
i = i + 2
Else
i = i + 1
res = res + ch
End If Loop
Text2.Text = res End Sub
（3）若在文本框 Text1 中输入句子:“you are best.”，第 1 个单词前有空格，则经过上述程序处理后，输出结果首字母“y”是否会变为大写“Y”？_____________(选填：是/ 否)。
（1）要使程序运行时，文本框 Text1 的 Height 属性值为 900，可在 Form_Load 事件处理过程中添加语句________（单选，填字母：
| A．Height=900 / | B．Textl. Height = 900 / | C．Height. Textl=900）。 |
Private Sub
Command1_Click()
Dim s As String, ch As String, flag As Boolean Dim ch2 As String, res As String, i As Integer s = Text1.Text: res = ""
______________
Do While i <= Len(s)
flag = False
ch = Mid(s, i, 1)
If i = 1 And ch >= "a" And ch2 <= "z" Then
ch = Chr(Asc(ch) - 32) '小写字母转换为大写字母
End If
If ch = "." Or ch = "?" Then flag = True
ch2 = Mid(s, i + 1, 1)
If flag And ch2 >= "a" And ch2 <= "z" Then
ch2 = Chr(Asc(ch2) - 32) '小写字母转换为大写字母
res =_________________
i = i + 2
Else
i = i + 1
res = res + ch
End If Loop
Text2.Text = res End Sub
（3）若在文本框 Text1 中输入句子:“you are best.”，第 1 个单词前有空格，则经过上述程序处理后，输出结果首字母“y”是否会变为大写“Y”？_____________(选填：是/ 否)。
.某程序代码如下：（ ） Dim count As Integer
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
k = i
For j = i + 1 To Len(s)
If a(k) < a(j) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To Len(s) - 1
If a(i) = a(i + 1) Then count = count + 1
Next i
程序运行结束后,变量 count 的值是（ ）
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
k = i
For j = i + 1 To Len(s)
If a(k) < a(j) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To Len(s) - 1
If a(i) = a(i + 1) Then count = count + 1
Next i
程序运行结束后,变量 count 的值是（ ）
| A．13 | B．2 | C．3 | D．4 |