⑴ 用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