3个回答
展开全部
你是要用什么语言编的?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
1.新建一个名为Form1的窗体,设置Caption属性为"售货机"。
2.单击工具箱中的Label控件图标,在窗体上拖拉出两个个标签,在其属性窗口设置名称分别为Lab1和Lab2,Caption属性分别为"货物的数量(个):"和"货物的单价(元):";
3.单击工具箱中的TextBox控件图标,在窗体上拖拉出两个文本框,按照题目要求在属性窗口设置其名称属性分别为Text1和Text2,Text属性为空白;
4.单击工具箱中的CommandButton控件图标,在窗体上拖拉出一个命令按钮,在属性窗口设置该命令按钮名称为Cmd1,Caption为"总价=";
5.单击工具箱中的PictureBox控件图标,在窗体上拖拉出一个图片框,在属性窗口设置该图片框名称为Pic1;
6.打开代码窗口输入如下代码:
PrivateSubCmd1_Click()
Dim a As Integer
dim b As Currency
a=Val(Text1.Text)
b=Val(Text2.Text)
Pic1.Cls
Pic1.Printa*b
End Sub
7.按要求保存文件即完成本题。
2.单击工具箱中的Label控件图标,在窗体上拖拉出两个个标签,在其属性窗口设置名称分别为Lab1和Lab2,Caption属性分别为"货物的数量(个):"和"货物的单价(元):";
3.单击工具箱中的TextBox控件图标,在窗体上拖拉出两个文本框,按照题目要求在属性窗口设置其名称属性分别为Text1和Text2,Text属性为空白;
4.单击工具箱中的CommandButton控件图标,在窗体上拖拉出一个命令按钮,在属性窗口设置该命令按钮名称为Cmd1,Caption为"总价=";
5.单击工具箱中的PictureBox控件图标,在窗体上拖拉出一个图片框,在属性窗口设置该图片框名称为Pic1;
6.打开代码窗口输入如下代码:
PrivateSubCmd1_Click()
Dim a As Integer
dim b As Currency
a=Val(Text1.Text)
b=Val(Text2.Text)
Pic1.Cls
Pic1.Printa*b
End Sub
7.按要求保存文件即完成本题。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询