⑴ 用VB实现猜商品价格游戏程序。
Private Sub Command1_Click()
Randomize Timer
Dim jg As Integer, c As Integer, n As Integer
jg = Int(Rnd * 1001)
Do
n = Val(InputBox("请输入商品价格0~1000："))
c = c + 1
Select Case n
Case -1
Case Is > jg
MsgBox "高了,放弃请输入-1"
Case Is < jg
MsgBox "低了,放弃请输入-1"
End Select
Loop While jg <> n And n <> -1
If n = -1 Then
MsgBox "已经放弃"
Else
MsgBox "价格是：" & jg & "，猜的次数：" & c
End If
End Sub
⑵ DMEVB价格一般是多少
市场这个产品市场价格大概在几百块钱到几千块钱左右吧！
⑶ 金乐电池叉车48v5vb5oo多少钱一组，交旧电池多少价格，请回信等侍家因
叉车吨位，要什么电池品牌型号？一般2万左右，不过我做叉车四五年，金乐叉车真没听过
⑷ VBusdt我以15块钱一个的价钱买进7000块,现在跌到了3块,请问我还有多少钱
你还有1400块的VBusdt，
这样算：7000除15乘3
⑸ vb5价格走势图
用电子表格多快，把以前的数据存在电子表格里，生成折线图就可以了，多快。
⑹ 求出租车价格计算VB程序
Private
Sub
Command1_Click()
Dim
a
As
Integer
Dim
b
As
Integer
Dim
c
As
Integer
Dim
d
As
Integer
Dim
e
As
Integer
11
a
=
InputBox("请输入行程（以公里为单位）")
If
a
<
0
Then
MsgBox
"输入错误，请重新输入",
17
Beep
GoTo
11
End
If
100
c
=
InputBox("请输入等待时间（以分钟为单位）")
If
c
<
0
Then
MsgBox
"输入错误，请重新输入",
17
Beep
GoTo
100
End
If
If
a
<=
4
Then
b
=
12
Else:
b
=
12
+
(a
-
4)
*
2
End
If
If
c
<
5
Then
d
=
0
Else:
d
=
Int(c
/
5)
End
If
e
=
b
+
d
MsgBox
"本次行程总费用为："
&
e
&
"元"
End
Sub
⑺ 怎样用vb做一个价格结算窗体
假设单价10元
Private Sub Command1_Click()
Dim a as Single,b As Single
a=Val(Text1.Text)
b=a*10
Msgbox("总价";b;"元")
End Sub