1vb能換多少usdt
A. 求VB編程1元整錢共換成50個1分,2分,5分的零錢,每種零錢最少1個,求一共有多少種換零方式及每種方式1分,2
程序如下
Private Sub Command1_Click()
Print "5分錢的個數 2分錢的個數 1分錢的個數"
For i = 1 To 9 '5分錢個數
For j = 1 To 49 '2分錢個數
If (i * 5 + j * 2 + (50 - i - j)) = 100 Then Print i, j, 50 - i - j
Next j
Next i
End Sub
若滿意請及時採納，謝謝
B. 求VB編程：貨幣兌換，輸入人民幣，兌換成美元，比例1：8.25
有的地方沒說清楚
大概寫了下
界面格式如下：
label1 [text1] label2 option1
option2
command1 command2 command3
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
If Option1.Value = True Then
Label1.Caption = "美元幣種"
Text1.Text = 8.25 * CDbl(Text1.Text)
End If
If Option2.Value = True Then
Label1.Caption = "港幣幣種"
Text1.Text = 1.15 * CDbl(Text1.Text)
End If
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1.SelLength = (Text1)
End Sub
Private Sub Form_Load()
Command1.Caption = "退出"
Command2.Caption = "兌換"
Command3.Caption = "清除"
Option1.Caption = "美元"
Option2.Caption = "港幣"
Label1.Caption = "人民幣兌換"
Label2.Caption = "兌換幣種"
Option1.Value = True
End Sub
C. 70分求VB用一元人民幣兌換成1分,2分,和5分硬幣,共有多少種不同的兌換方法
拖一個按鈕 粘貼下面代碼就可以了
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim x As Integer
Print "1分", "2分", "5分"
For i = 1 To 100
For j = 2 To 100 Step 2
For k = 5 To 100 Step 5
If i + j + k = 100 Then
Print i, j, k
x = x + 1
End If
Next k
Next j
Next i
Me.Caption = "共" & x & "種"
End Sub
D. vb 將100元換成10元,5元和1元的組合,一共多少種組合方法
這是每種錢幣至少一張時的換法，如允許為0，可將1改為0（共3處）
PrivateSubCommand1_Click()
List1.AddItem"10元5元1元"
Fora=1To19
Forb=1To(100-10*a-1)5
c=100-10*a-5*b
List1.AddItem""&a&""&b&""&c
n=n+1
Nextb
Nexta
List1.AddItem"共"&n&"種"
EndSub
E. 換零錢問題。將一元錢換成1分，2分，或5分的零錢有多少換法。vb編程
思路：
1元最多換100個1分，50個2分和20個5分的
代碼：
Private Sub Command1_Click()
Dim I As Integer, J As Integer, K As Integer, SUM As Single, N As Integer
For I = 0 To 100
For J = 0 To 50
For K = 0 To 20
SUM = I * 0.01 + J * 0.02 + K * 0.05
If SUM = 1 Then
List1.AddItem "1分" & I & "個；2分" & J & "個；5分" & K & "個"
N = N + 1
End If
Next K
Next J
Next I
MsgBox "共" & N & "種換法"
End Sub
如果是每次換都必須有3種硬幣，那就要將上面代碼中的FOR循環從1開始循環
分別是541和461種換法
F. 1人民幣能兌換多少柬埔寨幣
柬埔寨現行貨幣的單位是瑞爾（RIEL），現行的貨幣有一百、二百、五百、一千、二千、五千、一萬、二萬、五萬、十萬瑞爾等十種紙幣，但二萬瑞爾以上的貨幣極少見，硬幣幾乎不使用。
目前1美元兌換率約4千瑞爾（2005年十月US1－4000RIEL）。
1元人民幣 換520元瑞爾(Riel)
G. vb6.0 人民幣與美元互相兌換 代碼是什麼
PrivateSubCommand1_Click()
Text1.Text=Val(Text3.Text)/Val(Text2.Text)
EndSub
PrivateSubCommand2_Click()
Text3.Text=Val(Text1.Text)*Val(Text2.Text)
EndSub
PrivateSubCommand3_Click()
Text3.Text=""
Text1.Text=""
Text2.Text=""
EndSub
PrivateSubCommand4_Click()
End
EndSub
H. VBusdt我以15塊錢一個的價錢買進,現在跌到了3塊,請問我還有多少錢
如果是這種情況的話，那麼你就要看你是購買了多少個，如果你只購買了10個的話，那麼現在來講的話，你還有的錢數就應該是10×3=30。因為你現在來講的話，所剩的錢應該是以這個單價乘以數量來進行計算的，而不是依照你購買時候的價格來進行計算的，因為你現在的價格已經跌到了三塊錢，那麼你就只能以三塊錢的價格進行出售。
I. 怎麼用VB計算把一元整錢換成零錢有幾種演算法
共4562種取法。程序如下：
Private Sub Command1_Click()
Dim A1 As Integer, A2 As Integer, A5 As Integer, A10 As Integer, A20 As Integer, A50 As Integer, S As Integer
Dim R As String, N As Long
For A1 = 0 To 100
For A2 = 0 To 50
For A5 = 0 To 20
For A10 = 0 To 10
For A20 = 0 To 5
For A50 = 0 To 2
S = A1 + 2 * A2 + 5 * A5 + 10 * A10 + 20 * A20 + 50 * A50
If S = 100 Then
If A1 <> 0 Then R = R + "一分" + Str(A1) + "個，"
If A2 <> 0 Then R = R + "二分" + Str(A2) + "個，"
If A5 <> 0 Then R = R + "五分" + Str(A5) + "個，"
If A10 <> 0 Then R = R + "一毛" + Str(A10) + "個，"
If A20 <> 0 Then R = R + "兩毛" + Str(A20) + "個，"
If A50 <> 0 Then R = R + "五毛" + Str(A50) + "個，"
R = Left(R, Len(R) - 1) + "。"
Debug.Print R
N = N + 1
R = ""
End If
Next: Next: Next: Next: Next: Next
Debug.Print "共"; N; "種取法。"
End Sub
你也可以把結果輸出到文件中。
J. VB編程美元兌換人民幣代碼
private sub command1_click()
dim m as single,r as single,h as single
m=val(text1.text) '美元數量
h=8.099 '匯率
r=m*h '換算
label1.caption=Format (r, "#.##") '顯示兌換的人民幣數量
end sub