Question

vb6.0题目

第一题（Design1.Vbp）具体要求如下：
1、窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，如果输入单价的文本框中没有内容，则给出提示“请输入单价”；如果输入数量的文本框中没能内容系统自动赋数值1。
2、单击“计算”，将应付款显示在下面一个文本框中。
3、最下面一个文本框不能直接输入。
4、单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。
5、界面及功能设计请参考Design1.exe文件。

第二题（Design2.Vbp）具体要求如下：
1. 单击“添加”按钮，将文本框中的内容加到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。
2. 单击“删除”按钮，将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。
3. 界面及功能设计请参考Design2.exe文件。
急急急啊 快快快啊

Answer 1

第一题，按照阁下的题意，在窗体上放3个文本，3个标签，一个标签对应一个文本，2个命令按纽，如下图，代码如下 

Private Sub Command1_Click()

Dim a As Double, b As Long

a = Val(Text1.Text)

b = Val(Text2.Text)

Text3.Text = a * b

If Text2.Text = "" Then Text2.Text = 1: Text3.Text = ""

If Text1.Text = "" Then Text3.Text = "": MsgBox "请输入单价"

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_Load()

Command1.Caption = "计算"

Command2.Caption = "清空"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Label1.Caption = "输入商品单价："

Label2.Caption = "输入商品数量："

Label3.Caption = "应付款："

End Sub

第2题，窗体上放一个文本，一个列表，2个命令按纽，代码如下 

Private Sub Command1_Click() 

If Text1.Text = "" Then MsgBox "没有内容，不予添加" 

List1.AddItem Text1.Text, 0 

End Sub 

Private Sub Command2_Click() 

If List1.ListIndex = -1 Then MsgBox "请选择输出的项目" 

If List1.ListIndex <> -1 Then 

List1.RemoveItem List1.ListIndex 

End If 

End Sub 

我只上传第一题的图就够了

Answer 2

Design1.Vpp
Public Class Form1

Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
If txtNum.Text = "" Then
txtNum.Text = 1
End If
If txtPrice.Text = "" Then
MessageBox.Show("请输入单价")
txtTotal.Text = ""
Else
txtTotal.Text = Val(txtPrice.Text) * Val(txtNum.Text)
End If
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtNum.Text = ""
txtPrice.Text = ""
txtTotal.Text = ""
End Sub
End Class

控件的属性分别为：
两个标签：txtNum:数量；txtPrice：单价；txtTotal：应付款