当前位置:编程学习 > VB >>

vb编程紧急紧急。。

编程题:

设计一个家电提货单管理程序。 程序运行界面如下图所示。具体要求:

(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 Sub

Private 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 Sub

Private Sub Command2_Click()
Text1.Text = ""
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 4
Text2(i).Enabled = False
Next i
End Sub

Private 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吧,我把源文件给你发过去。

楼主你好

      你这个问题确实有点难度呀,我只是单一对一个品种作了写代码,你可以参考一下,具体看下面的截图。

上一个:vb编程的问题
下一个:vb编程~急~~

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,