vb程序设计在购买某物品时（vb编程，求高人指点！）

本文目录

• vb编程，求高人指点！
• VB的select case 语句问题
• VB 程序设计 我要详细的程序谢谢
• （vb程序设计）求代码：设计一个运行界面如下图所示的程序单击列表框中的商品计算购物金额
• 已知购买三种商品的单价和数量，用VB编写程序求所用金额
• 请问这道选择VB程序题怎么弄
• 【vb编程 求代码】设计一个运行界面如图所示的程序，要求输入购物金额，通过单选按钮选择不同的折扣率
• VB程序设计题:已知某商店全场9折,一次购物如果满1000元8折,3000元以上7折,5000元以上5折
• （VB）设计一个计算购书价程序，界面如图所示要求：

vb编程，求高人指点！

Private Sub Command1_Click()
Dim x!, y!
x = Val(InputBox("请输入花了多少吧!"))
Select Case x
Case Is 《 1000
y = x
Case Is 《 2000
y = 0.9 * x
Case Is 《 3000
y = 0.8 * x
Case Else
y = 0.7 * x
End Select
Print Round(y, 2)
End 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"所要付的钱为："&y
End sub
就是这样了！！

VB 程序设计 我要详细的程序谢谢

假设文本框名称为Text1，单选按钮“宋体”名称为Option1，单选按钮“黑体”名称为Option2，复选框“下划线”名称为Check1，复选框“斜体”名称为Check2.按钮的单击代码如下：
If Option1.Value=True Then
Text1.Fontname=“宋体"
else
Text1.Fontname=“黑体"
End If
If Check1.Value=1 Then
Text1.FontUnderline =True
else
Text1.FontUnderline =False
endif
if Check2.Value=true then
Text1.FontItalic = True
else
Text1.FontItalic =False
endif

（vb程序设计）求代码：设计一个运行界面如下图所示的程序单击列表框中的商品计算购物金额

以下给你思路：
第一，要确定你的商品列表中，价格是否都在商品名称的最前面？目前也不能确定你的列表框是哪个控件。
第二，在列表选择事件中，编写项目循环，判断项目为选择状态后，再获取其价格并累加到“总价格”中。
第三，在“总价格”的 Changed 事件中，编写判断语句，以确认“总价格”满足的折扣级别，或不折扣，并计算折扣结果输出到折后价中。
第四，在复选框 Check1 单击事件中，编写判断勾选状态，再给折扣价格增加10元。

已知购买三种商品的单价和数量，用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 Then
MsgBox "你输入的有问题,请重新输入!!"
GoTo reinput
End If
Label1.AutoSize = True
Label1.Caption = "商品1的单价为:" & a1 & " , 商品1的数量为:" & a2 & vbCrLf
Label1.Caption = Label1.Caption & "商品2的单价为:" & b1 & " , 商品2的数量为:" & b2 & vbCrLf
Label1.Caption = Label1.Caption & "商品3的单价为:" & c1 & " , 商品2的数量为:" & c2 & vbCrLf
Label1.Caption = Label1.Caption & "合计金额为:" & a1 * a2 + b1 * b2 + c1 * c2
End Sub

请问这道选择VB程序题怎么弄

Private Sub Form_Load()
Do
Dim x As Single
x = Val(InputBox("请输入"))
If x = 0 Then End
MsgBox 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)
Loop
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程序设计题:已知某商店全场9折,一次购物如果满1000元8折,3000元以上7折,5000元以上5折

private sub canmmand1_click()
dim a as single
dim m as single
dim z as string
a= val(inputbox "输入价格")
select case a
case is 》=5000
m=a*0.5
z="五折"
case is 》=3000
m=a*0.7
z="七折"
case is 》=1000
m=a*0.8
z="8折"
case is 》0
m=a*0.9
z="九折"
case else
msgbox "输入错误！"
exit sub
end select
msgbox "应付款"& a & "打" & z & "后，实付款" & m
end sub

（VB）设计一个计算购书价程序，界面如图所示要求：

Option Explicit
Private Sub Command1_Click()
    ZJ = Val(DJ) * Val(SL)
End Sub
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 1 And KeyCode = vbKeyC Then
           Call Command1_Click
     End If
End Sub
Private Sub Command2_Click()
    Unload Me
End Sub
Private Sub Command2_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 1 And KeyCode = vbKeyX Then
           Call Command2_Click
     End If
End Sub
Private Sub Form_Load()
    Label1.Caption = "请输入单价"
    Label2.Caption = "请输入数量"
    Label3.Caption = "总价"
    DJ = ""
    SL = ""
    ZJ = ""
    ZJ.Locked = True
    Command1.Caption = "计算总价（C)"
    Command2.Caption = "退出（X)"
End Sub