- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
设计算法：香蕉促销：3千克以下（不包括3千克），每千克3.5元，3-6千克（不包括6千克），每千克3元，6千克以上，每千克2.6元。请补全以下代码。
Dim w as double
Dim p as double
W = inputbox(“请输入购买的重量：千克”)
If （1）__________ then
If （2）__________ then
P =3 *w
Else
P =2.6 *w
End if
Else
P=3.5*w
End if
Print p
Dim w as double
Dim p as double
W = inputbox(“请输入购买的重量：千克”)
If （1）__________ then
If （2）__________ then
P =3 *w
Else
P =2.6 *w
End if
Else
P=3.5*w
End if
Print p
设计算法，求个位不小于十位的两位数的和，请将如下VB代码填写完整。
Dim n as integer
n = 10
（1）__________
do while n <= 99
if （2）__________ then
s = s+n
end if
n = n + 1
loop
print s
Dim n as integer
n = 10
（1）__________
do while n <= 99
if （2）__________ then
s = s+n
end if
n = n + 1
loop
print s
若要定义数组d为长整数型，则下列语句中正确的是（ ）。
| A．Dim d(1 To 20) As Integer | B．Dim d(1 , 20) As Long |
| C．Dim d(1 , 20) As Integer | D．Dim d(1 To 20) 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
________
（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
________
使用 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 中显示的内容为________。
