- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
求三位数字都不相同的三位数的和。
（1）假设这个三位数用a表示，则它的十位数（sw）=___________ 。
（2）补全下面VB代码，实现该算法。
Dim a as long
Dim gw as integer ’个位
Dim sw as integer ’十位
Dim bw as integer ’百位
Dim s as long
________
（1）假设这个三位数用a表示，则它的十位数（sw）=___________ 。
（2）补全下面VB代码，实现该算法。
Dim a as long
Dim gw as integer ’个位
Dim sw as integer ’十位
Dim bw as integer ’百位
Dim s as long
________
数组a中的数据存放情况如下表：若用对分法查找数值8，需要查找（ ）次。
| a[1] | a[2] | a[3] | a[4] | a[5] | a[6] | a[7] | a[8] | a[9] | a[10] | a[11] | a[12] |
| 2 | 5 | 8 | 10 | 21 | 23 | 36 | 37 | 41 | 47 | 52 | 55 |
| A．5 | B．4 | C．3 | D．2 |
使用 VB 编写一个数字逆序功能的程序，在文本框 Text1 中输入若干整数，相互之间用逗号隔开，单击“开始逆序”按钮，在文本框 Text2 中输出逆序后的数字序列。程序运行界面如图所示，请改正划线处的错误语句使程序能正确运行。
Private sub Command1_click()
Dim s1 As String, s2 As String, t As String, ch As String
Dim i As Integer
s1 = Text1.Text
i = Len(s1)
t = "": s2 = "" Do While i > 0
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
t = ch + t
Else
s2 = s2 + t +， 改正
________
t = "" End If
i = i + 1 改正
________
Loop
s2 = s2 + t
Text2.Text = s2
End sub
Private sub Command1_click()
Dim s1 As String, s2 As String, t As String, ch As String
Dim i As Integer
s1 = Text1.Text
i = Len(s1)
t = "": s2 = "" Do While i > 0
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
t = ch + t
Else
s2 = s2 + t +， 改正
________t = "" End If
i = i + 1 改正
________Loop
s2 = s2 + t
Text2.Text = s2
End sub
小王编写了一个进制转换程序，实现如下功能：在文本框 Text1 中输入一个二进制数，单击 “计算”按钮 Command1，在文本框 Text2 中将显示出其对应的十六进制数。程序运行界面如下图所示：
（1）要使程序启动时，自动清空文本框的 Text1 中的内容，则可以在______（单选，填字母：
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码
Private Sub Command1_Click（）
Dim s As String, s1 As String, t As Integer, c As Integer Const code = "0123456789ABCDEF"
s = Text1.Text
t = 0: s1 = ""
For i = Len(s) To 1 Step -1
c = Val(Mid(s, i, 1))
t = t + c * 2 ^ ((Len(s) - i) Mod 4)
If (Len(s) - i + 1) Mod 4 = 0 Or ①_______________Then
______________②
t = 0
End If
Next i
Text2.Text = s1
End sub
（3）如果没有第①处划线部分的条件，当输入的二进制数为 1101011，则 Text2 中显示的内容为________。
（1）要使程序启动时，自动清空文本框的 Text1 中的内容，则可以在______（单选，填字母：
| A．Command1_click / | B．Text1_click / | C．Form_load）事件处理过程中添加语句 Text1.Text= "" |
Private Sub Command1_Click（）
Dim s As String, s1 As String, t As Integer, c As Integer Const code = "0123456789ABCDEF"
s = Text1.Text
t = 0: s1 = ""
For i = Len(s) To 1 Step -1
c = Val(Mid(s, i, 1))
t = t + c * 2 ^ ((Len(s) - i) Mod 4)
If (Len(s) - i + 1) Mod 4 = 0 Or ①_______________Then
______________②
t = 0
End If
Next i
Text2.Text = s1
End sub
（3）如果没有第①处划线部分的条件，当输入的二进制数为 1101011，则 Text2 中显示的内容为________。
如图 1 所示，这是一个城市街道简图，小明从 A 点出发，到达 B 点，如果在每一个路口只能向右或向上走（0 表示向上走，1 表示向右走），问小明有多少条行走路线，并请输出每条路线。程序界面如图 2 所示
算法分析：从 A 点到 B 点共有 7 个路口，即可以有一个 7 位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的 7 位二进制数，再去掉不满足的二进制数即可。
（1）图 1 所示路线对应的十进制数为_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim b As String, t As Integer, i As Integer, c As Integer, d As Integer
t = 0 '可走路线计数
For i = 15 To 120 '所有可走路线用十进制枚举
d = i
c = 0
b = ""
Do While d <> 0
If d Mod 2 = 1 Then
b = "1" + b
c = c + 1
If c > 4 Then Exit Do '若"1"的总数超过 4 个表示路线错误，需退出 Do 循环 Else
①_____________ End If
②____________ Loop
If c = 4 And Len(b) = 7 Then
t = t + 1
List1.AddItem b
End If
Next i
Label1.Caption = Str(t) + " 条"
End Sub
算法分析：从 A 点到 B 点共有 7 个路口，即可以有一个 7 位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的 7 位二进制数，再去掉不满足的二进制数即可。
（1）图 1 所示路线对应的十进制数为_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim b As String, t As Integer, i As Integer, c As Integer, d As Integer
t = 0 '可走路线计数
For i = 15 To 120 '所有可走路线用十进制枚举
d = i
c = 0
b = ""
Do While d <> 0
If d Mod 2 = 1 Then
b = "1" + b
c = c + 1
If c > 4 Then Exit Do '若"1"的总数超过 4 个表示路线错误，需退出 Do 循环 Else
①_____________ End If
②____________ Loop
If c = 4 And Len(b) = 7 Then
t = t + 1
List1.AddItem b
End If
Next i
Label1.Caption = Str(t) + " 条"
End Sub
以下VB代码运行结果为 。
Dim s as long
Dim k as integer
Dim j as integer
s=0
for k = 1 to 3
for j = 1 to k
s=s+1
next
next
print s
Dim s as long
Dim k as integer
Dim j as integer
s=0
for k = 1 to 3
for j = 1 to k
s=s+1
next
next
print s
| A．9 | B．6 | C．5 | D．10 |
