UC知道vb6.0题目
来源：百度知道 编辑：UC知道 时间：2024/06/15 12:07:24
第一题（Design1.Vbp）具体要求如下：
1、窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，如果输入单价的文本框中没有内容，则给出提示“请输入单价”；如果输入数量的文本框中没能内容系统自动赋数值1。
2、单击“计算”，将应付款显示在下面一个文本框中。
3、最下面一个文本框不能直接输入。
4、单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。
5、界面及功能设计请参考Design1.exe文件。
第二题（Design2.Vbp）具体要求如下：
1. 单击“添加”按钮，将文本框中的内容加到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。
2. 单击“删除”按钮，将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。
3. 界面及功能设计请参考Design2.exe文件。
急急急啊 快快快啊
1、窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，如果输入单价的文本框中没有内容，则给出提示“请输入单价”；如果输入数量的文本框中没能内容系统自动赋数值1。
2、单击“计算”，将应付款显示在下面一个文本框中。
3、最下面一个文本框不能直接输入。
4、单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。
5、界面及功能设计请参考Design1.exe文件。
第二题（Design2.Vbp）具体要求如下：
1. 单击“添加”按钮，将文本框中的内容加到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。
2. 单击“删除”按钮，将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。
3. 界面及功能设计请参考Design2.exe文件。
急急急啊 快快快啊
第一题，按照阁下的题意，在窗体上放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 =