- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
【加试题】小王模拟超市收银机扫描商品条形码后计算总价的过程制作了一个VB程序。功能如下:在文本框Text1中输入商品条形码,按回车键后会将已经输入的条形码显示在列表框List1中,同时将商品明细显示在列表框List2中。点击按钮“计算商品总价”后,会将所有商品的总价显示在文本框Text2中。程序界面如图所示:

实现上述功能的部分VB程序如下,请在三个划线处填入合适代码。
'定义全局数组变量
Dim a(1 To 10) As Long
Dim b(1 To 10) As String
'自动加载条形码信息以及对应的商品信息
Private Sub Form_Load()
Dim i As Integer
a(1) = 503741
For i =" 2" To 10
a(i) =" a(i" - 1) + 1
Next i
b(1) = "可乐 5.00"
b(2) = "薯片 7.50"
b(3) = "牛奶 5.60"
b(4) = "橙汁 7.50"
b(5) = "面包 4.00"
b(6) = "蜂蜜 28.00"
b(7) = "蛋糕 12.00"
b(8) = "绿箭 3.50"
b(9) = "饼干 6.00"
b(10) = "雪碧 5.00"
End Sub
'输入条形码,查找条形码,并显示条形码及其对应的商品信息
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim txm As Long:
Dim i As Integer:
Dim j As Integer
txm = Val(Text1.Text)
If KeyAscii =" 13" Then
If txm >=" 503741" And txm <=" 503750" Then
List1.AddItem txm
Text1.Text = ""
i =" 1:" j = 10
Do While i <= j
①
If txm =" a(m)" Then
List2.AddItem b(m)
Exit Do
ElseIf txm > a(m) Then
i =" m" + 1
Else
②
End If
Loop
Else
MsgBox "条形码输入错误,无此商品"
Text1.Text = ""
End If
End If
End Sub
'计算所购商品的总额
Private Sub Command1_Click()
Dim i As Integer, mx As String, jg As String, sum As Single
For i =" 0" To 9
If List2.List(i) <> "" Then
mx = List2.List(i)
sum =" sum" + Mid(mx, 4)
End If
Next i
Text2.Text = ③
End Sub

实现上述功能的部分VB程序如下,请在三个划线处填入合适代码。
'定义全局数组变量
Dim a(1 To 10) As Long
Dim b(1 To 10) As String
'自动加载条形码信息以及对应的商品信息
Private Sub Form_Load()
Dim i As Integer
a(1) = 503741
For i =" 2" To 10
a(i) =" a(i" - 1) + 1
Next i
b(1) = "可乐 5.00"
b(2) = "薯片 7.50"
b(3) = "牛奶 5.60"
b(4) = "橙汁 7.50"
b(5) = "面包 4.00"
b(6) = "蜂蜜 28.00"
b(7) = "蛋糕 12.00"
b(8) = "绿箭 3.50"
b(9) = "饼干 6.00"
b(10) = "雪碧 5.00"
End Sub
'输入条形码,查找条形码,并显示条形码及其对应的商品信息
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim txm As Long:
Dim i As Integer:
Dim j As Integer
txm = Val(Text1.Text)
If KeyAscii =" 13" Then
If txm >=" 503741" And txm <=" 503750" Then
List1.AddItem txm
Text1.Text = ""
i =" 1:" j = 10
Do While i <= j
①
If txm =" a(m)" Then
List2.AddItem b(m)
Exit Do
ElseIf txm > a(m) Then
i =" m" + 1
Else
②
End If
Loop
Else
MsgBox "条形码输入错误,无此商品"
Text1.Text = ""
End If
End If
End Sub
'计算所购商品的总额
Private Sub Command1_Click()
Dim i As Integer, mx As String, jg As String, sum As Single
For i =" 0" To 9
If List2.List(i) <> "" Then
mx = List2.List(i)
sum =" sum" + Mid(mx, 4)
End If
Next i
Text2.Text = ③
End Sub
Sub test2()
a = 12:b = 12:c = 5
Label1.Caption = ""
Label2.Caption = ""
If a > b Or Not b<c Then
Label1.Caption = "monday"
Else
Label2.Caption = "tiger"
End If
Label3.Caption =" Label1.Caption+" Label2.Caption
End sub
该程序段运行后,在标签Label3的Caption属性值是( )
a = 12:b = 12:c = 5
Label1.Caption = ""
Label2.Caption = ""
If a > b Or Not b<c Then
Label1.Caption = "monday"
Else
Label2.Caption = "tiger"
End If
Label3.Caption =" Label1.Caption+" Label2.Caption
End sub
该程序段运行后,在标签Label3的Caption属性值是( )
A."monday" | B."tiger" | C."mondaytiger" | D."" |
在窗体上画一个命令按钮,名称为command1,单击命令按钮,执行如下事件过程:
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "software and hardware"
c =" Mid(a," 14, 8)
Text1.text = c
End Sub
则在文本框Text1中显示的信息是( )
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "software and hardware"
c =" Mid(a," 14, 8)
Text1.text = c
End Sub
则在文本框Text1中显示的信息是( )
A.software and hardware |
B.software |
C.hadrware |
D.and |
根据下列程序段运行后a的值 ,划线处应该填入的合理数据类型为 ( )
Dim a As ________
a = 1
For i =" 1" To 8
a =" a" * i
Next i
Dim a As ________
a = 1
For i =" 1" To 8
a =" a" * i
Next i
A.Integer | B.Long | C.Single | D.Double |
将文本框Text2内输入的数据送到字符型变量n 中,则应使用的语句是( )
A.n = text2 |
B.n = text2.text |
C.n = val(text2) |
D.n = val(text2.text) |
在算法执行流程中,对于循环模式下列说法正确的是( )
A.对某个情况进行判断,当结果为真时执行步骤一,否则执行步骤二; |
B.对某个情况进行判断,当结果为真时执行步骤一,然后再次判断这个情况,依次类推,直到条件为假时结束; |
C.仅用循环模式就可以用来判断某个输入的数是不是整数; |
D.循环模式中,可以嵌套选择模式,而选择模式不能嵌套循环模式; |
关于上题的程序的控制结构的说法不正确的是( )
A.顺序结构包含了选择和循环结构 |
B.选择结构是由块条件语句构成 |
C.选择结构包含了循环结构 |
D.循环结构包含了选择结构 |
下列关于“控件”属性的说法正确的是( )
A.控件的每一个属性都具有同样的默认值; |
B.所有对象都具有同样的属性; |
C.控件的属性只能在设计时设置,不能在运行时修改; |
D.单击窗体中某控件,在属性窗口中的属性列表框中找到要设置的属性,即可设置其属性值; |