vb编程紧急紧急。。
编程题:设计一个家电提货单管理程序。 程序运行界面如下图所示。具体要求:
(1)根据选项中选择的家电及数量,单击"确定"后,将选择的清单及总价在列表框中列出。
(2)每选择一种家电,光标 自动定位在相应的文本框中,取消选择时,相应的文本框自动清空。
(3)"清除"按钮用于清空列表框中的项目。
(4)所有文本框只接受数字
编程题:设计一个家电提货单管理程序。 程序运行界面如下图所示。具体要求:
(1)根据选项中选择的家电及数量,单击"确定"后,将选择的清单及总价在列表框中列出。
(2)每选择一种家电,光标 自动定位在相应的文本框中,取消选择时,相应的文本框自动清空。
(3)"清除"按钮用于清空列表框中的项目。
(4)所有文本框只接受数字
答案:Private Sub Check1_Click(index As Integer)
If Check1(index).Value = 0 Then
Text2(index).Enabled = False
Else
Text2(index).Enabled = True
Text2(index).SetFocus
End If
End SubPrivate Sub Command1_Click()
Dim txtstr As String
Dim i As Integer
Dim x As Integer
Dim y As Long
x = 0
y = 0
For i = 0 To 4
If Check1(i).Value = 1 Then
x = x + Text2(i).Text
y = y + money(i)
txtstr = txtstr + labstr(i) + vbNewLine
End If
Next i
Text1.Text = txtstr & "共:" & x & "台" & " 合计金额:" & y & "元"
End SubPrivate Sub Command2_Click()
Text1.Text = ""
End SubPrivate Sub Form_Load()
Dim i As Integer
For i = 0 To 4
Text2(i).Enabled = False
Next i
End SubPrivate Function labstr(index As Integer) As String
Select Case index
Case 0
labstr = "电视机" + Text2(index).Text + "台"
Case 1
labstr = "微波炉" + Text2(index).Text + "台"
Case 2
labstr = "电冰箱" + Text2(index).Text + "台"
Case 3
labstr = "DVD" + Text2(index).Text + "台"
Case 4
labstr = "分体空调" + Text2(index).Text + "台"
End Select
End Function
Private Function money(index As Integer) As Long
Select Case index
Case 0
money = 3580 * Text2(index).Text
Case 1
money = 660 * Text2(index).Text
Case 2
money = 1850 * Text2(index).Text
Case 3
money = 2880 * Text2(index).Text
Case 4
money = 5500 * Text2(index).Text
End Select
End Function
Private Sub Text2_KeyPress(index As Integer, KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then
KeyAscii = 0
End If
End Sub
这是我刚做的,不过在界面上我加入了控件数组,如果你不明白的话那加我QQ吧,我把源文件给你发过去。
楼主你好
你这个问题确实有点难度呀,我只是单一对一个品种作了写代码,你可以参考一下,具体看下面的截图。