vb程序设计在购买某物品时（请问这道选择VB程序题怎么弄）
本文目录
- 请问这道选择VB程序题怎么弄
- 已知购买三种商品的单价和数量，用VB编写程序求所用金额
- VB的select case 语句问题
- （VB）设计一个计算购书价程序，界面如图所示要求：
- 【vb编程 求代码】设计一个运行界面如图所示的程序，要求输入购物金额，通过单选按钮选择不同的折扣率
- （vb程序设计）求代码：设计一个运行界面如下图所示的程序单击列表框中的商品计算购物金额
请问这道选择VB程序题怎么弄
Private Sub Form_Load()DoDim x As Singlex = Val(InputBox("请输入"))If x = 0 Then EndMsgBox Switch(x 《 1000, x, x 》= 1000 And x 《 2000, 0.9 * x, x 》= 2000 And x 《 3000, 0.8 * x, x 》= 3000, 0.7 * x)LoopEnd Sub
已知购买三种商品的单价和数量，用VB编写程序求所用金额
新建工程,只有1个label1,代码如下:Private Sub Command1_Click()Dim a1!, a2!, b1!, b2!, c1!, c2!reinput:a1 = Val(InputBox("请输入商品1的单价!!"))a2 = Val(InputBox("请输入商品1的数量!!"))b1 = Val(InputBox("请输入商品2的单价!!"))b2 = Val(InputBox("请输入商品2的数量!!"))c1 = Val(InputBox("请输入商品3的单价!!"))c2 = Val(InputBox("请输入商品3的数量!!"))If IsNumeric(a1) = False Or IsNumeric(a2) = False Or IsNumeric(b1) = False Or _IsNumeric(b2) = False Or IsNumeric(c1) = False Or IsNumeric(c2) = False ThenMsgBox "你输入的有问题,请重新输入!!"GoTo reinputEnd IfLabel1.AutoSize = TrueLabel1.Caption = "商品1的单价为:" & a1 & " , 商品1的数量为:" & a2 & vbCrLfLabel1.Caption = Label1.Caption & "商品2的单价为:" & b1 & " , 商品2的数量为:" & b2 & vbCrLfLabel1.Caption = Label1.Caption & "商品3的单价为:" & c1 & " , 商品2的数量为:" & c2 & vbCrLfLabel1.Caption = Label1.Caption & "合计金额为:" & a1 * a2 + b1 * b2 + c1 * c2End Sub
VB的select case 语句问题
Private sub From1_click()Dim y as single,x as single x=val(inputbox("请输入价钱"))Select Case x Case x 》= 1000 And x 《 2000 y = x * 0.9 Case x 》= 2000 And x 《 3000 y = x * 0.8 Case Is 》= 3000 y = x * 0.7 End Select Print"所要付的钱为："&yEnd sub就是这样了！！
（VB）设计一个计算购书价程序，界面如图所示要求：
Option ExplicitPrivate Sub Command1_Click() ZJ = Val(DJ) * Val(SL)End SubPrivate Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 1 And KeyCode = vbKeyC Then Call Command1_Click End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Command2_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 1 And KeyCode = vbKeyX Then Call Command2_Click End IfEnd SubPrivate Sub Form_Load() Label1.Caption = "请输入单价" Label2.Caption = "请输入数量" Label3.Caption = "总价" DJ = "" SL = "" ZJ = "" ZJ.Locked = True Command1.Caption = "计算总价（C)" Command2.Caption = "退出（X)"End Sub
【vb编程 求代码】设计一个运行界面如图所示的程序，要求输入购物金额，通过单选按钮选择不同的折扣率
代码大约长这样，自己完善一下。
Private Sub Command1_Click()
Dim a#, b#, c#
a = Val(Text1)
If Option1 Then b = a * 0.8
If Option2 Then b = a * 0.9
If Option3 Then b = a
If a 》= 1000 And Check1 Then c = b / 12
Label1.Caption = b & vbCrLf & c
End Sub
（vb程序设计）求代码：设计一个运行界面如下图所示的程序单击列表框中的商品计算购物金额
以下给你思路：第一，要确定你的商品列表中，价格是否都在商品名称的最前面？目前也不能确定你的列表框是哪个控件。第二，在列表选择事件中，编写项目循环，判断项目为选择状态后，再获取其价格并累加到“总价格”中。第三，在“总价格”的 Changed 事件中，编写判断语句，以确认“总价格”满足的折扣级别，或不折扣，并计算折扣结果输出到折后价中。第四，在复选框 Check1 单击事件中，编写判断勾选状态，再给折扣价格增加10元。
更多文章：
2024年7月10日 09:05
雨点qq聊天记录查看器（谁知道QQ的聊天记录是怎么组件做的JAVA可以吗）
2024年5月27日 08:21
2024年10月22日 11:16
2024年4月17日 14:50
2024年5月2日 22:51
ubuntu下载软件（ubuntu 下载软件时出现“装入归档文件时发生了错误“为什么）
2024年8月10日 18:41
2024年7月24日 17:10
2024年8月28日 13:05
内存卡数据恢复软件手机版（手机内存卡文件突然消失了 怎么恢复文件）
2024年9月6日 06:01
2024年8月24日 21:40
地瓜游戏中心 怎么匹配手机型号？地瓜游戏中心下载的安装包在哪
2024年6月19日 04:58
2024年8月27日 19:10
2024年7月3日 22:20
2023年7月16日 15:20
比特币跌破2万美元、1.9万币民遭血洗，究竟发生了什么？2022年12月16号比特币是涨还是跌
2024年7月11日 07:32
2024年10月10日 18:15
2024年6月27日 22:29
2023年11月27日 10:20
pp助手是干嘛的（pp助手是干什么用的有什么样的特色，没有root手机可以用吗）
2024年5月16日 18:29
2024年7月24日 10:57
