AFC虛擬貨幣
1. vb程序設計 將阿拉伯數字轉換成大寫人民幣金額 這是小弟的VB結課設計，跪求各位大神~
Private Sub Command2_Click()
Unload Me
End Sub
'轉換函數
Function Up(Dxs As String) As String
'檢測為空時
If Trim(Dxs) = "" Then
MsgBox "沒有數字，不能轉換!", vbOKOnly + 32
Exit Function
End If
Dim Sw As Integer, SzP As Integer, SzUp As Integer, TempStr As String, DXStr As String
Sw = Len(Trim(Dxs))
SzP = InStr(1, Trim(Dxs), ".")
If SzP = 0 Then
Dim i As Integer
For i = 1 To Sw
TempStr = Right(Trim(Dxs), i)
TempStr = Left(TempStr, 1)
TempStr = Converts(TempStr)
Select Case i
Case 1
If TempStr = "零" Then
TempStr = "元"
Else
TempStr = TempStr + "元"
End If
Case 2
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "拾"
End If
Case 3
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "佰"
End If
Case 4
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "仟"
End If
Case 5
If TempStr = "零" Then
TempStr = "萬"
Else
TempStr = TempStr + "萬"
End If
Case 6
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "拾"
End If
Case 7
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "佰"
End If
Case 8
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "仟"
End If
Case 9
If TempStr = "零" Then
TempStr = "億"
Else
TempStr = TempStr + "億"
End If
End Select
Dim TempA As String
TempA = Left(Trim(DXStr), 1)
If TempStr = "零" Then
Select Case TempA
Case "零"
DXStr = DXStr
Case "元"
DXStr = DXStr
Case "萬"
DXStr = DXStr
Case "億"
DXStr = DXStr
Case Else
DXStr = TempStr + DXStr
End Select
Else
DXStr = TempStr + DXStr
End If
Next
Else
For i = 1 To SzP - 1
TempStr = Right(Trim(Dxs), i + (Sw - SzP + 1))
TempStr = Left(TempStr, 1)
TempStr = Converts(TempStr)
Select Case i
Case 1
If TempStr = "零" Then
TempStr = "元"
Else
TempStr = TempStr + "元"
End If
Case 2
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "拾"
End If
Case 3
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "佰"
End If
Case 4
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "仟"
End If
Case 5
If TempStr = "零" Then
TempStr = "萬"
Else
TempStr = TempStr + "萬"
End If
Case 6
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "拾"
End If
Case 7
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "佰"
End If
Case 8
If TempStr = "零" Then
TempStr = "零"
Else
TempStr = TempStr + "仟"
End If
Case 9
If TempStr = "零" Then
TempStr = "億"
Else
TempStr = TempStr + "億"
End If
Case Else
'超過999999999時自動刪除
TempStr = ""
End Select
TempA = Left(Trim(DXStr), 1)
If TempStr = "零" Then
Select Case TempA
Case "零"
DXStr = DXStr
Case "元"
DXStr = DXStr
Case "萬"
DXStr = DXStr
Case "億"
DXStr = DXStr
Case Else
DXStr = TempStr + DXStr
End Select
Else
DXStr = TempStr + DXStr
End If
Next
'計算小數
Dim DxstrX As String, XStr As String
XStr = Right(Trim(Dxs), Sw - SzP)
For i = 1 To Sw - SzP
TempStr = Left(XStr, i)
TempStr = Right(TempStr, 1)
TempStr = Converts(TempStr)
Select Case i
Case 1
If TempStr = "零" Then
TempStr = ""
Else
TempStr = TempStr + "角"
End If
Case 2
If TempStr = "零" Then
TempStr = ""
Else
TempStr = TempStr + "分"
End If
Case Else
'超過兩位小數時，自動刪除
TempStr = ""
End Select
DxstrX = DxstrX + TempStr
Next
DXStr = DXStr + DxstrX
End If
Up = DXStr
End Function
Function Converts(NumStr As String) As String
Select Case Val(NumStr)
Case 0
Converts = "零"
Case 1
Converts = "壹"
Case 2
Converts = "貳"
Case 3
Converts = "叄"
Case 4
Converts = "肆"
Case 5
Converts = "伍"
Case 6
Converts = "陸"
Case 7
Converts = "柒"
Case 8
Converts = "捌"
Case 9
Converts = "玖"
End Select
End Function
Function NumberTrue(keyNumber As Integer, NumberStr As TextBox) As Boolean
'轉入退格鍵時
If keyNumber = 8 Then
If Len(NumberStr.Text) > 0 Then
NumberStr.Text = Left(NumberStr.Text, Len(NumberStr.Text) - 1)
NumberStr.SelStart = Len(NumberStr.Text)
NumberStr.SelLength = 0
NumberTrue = True
Exit Function
End If
End If
If keyNumber >= 46 And keyNumber <= 57 And keyNumber <> 47 Then
NumberTrue = True
Else
NumberTrue = False
End If
End Function
Private Sub Convert_Click()
Label1.Caption = Up(Text1.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If NumberTrue(KeyAscii, Text1) = False Then
KeyAscii = 0
End If
End Sub
2. 西域k幣官網是真的嗎
你們這幫騙子，就應該把你們抓起來，一群騙子，不負責任，害人害己，不得好死！
3. 現在在韓國明洞人民幣兌韓元的匯率是多少啊
貨幣兌換
1韓元=0.0055人民幣元
1人民幣元=182.0202韓元
匯率查詢途徑：
1.在期貨外匯行情軟體上附帶外匯行情走勢；
2.各大財經網站也有外匯報價；
3.通過手機自帶的外匯查詢工具也可查詢匯率情況；
4.手機期貨行情軟體大多也帶有主要貨幣匯率行情；
注意事項：
匯率是不斷變化的，使用時請參考自身所需當日當時匯率，在銀行櫃台和網銀上兌換時依據的是當時的實時報價。
參考：http://www..com/s?ie=utf-8&f=8&rsv_bp=1&rsv_idx=2&tn=home_pg&wd=韓元對人民幣&rsv_spt=1&rsv_pq=886f20310001c45d&rsv_t=%&rsv_enter=0&inputT=1622&rsv_sug3=41&rsv_sug1=35&rsv_sug2=0&rsv_sug4=1622&rsv_sug=1
4. 西域網是真的嗎
首先說下西域網這個東西，個人認知他的可信度還是可以的 公司是有備案以及正規營業執照的，從去年開始運營 ，到目前為止可信度還是很不錯，收益也比較穩定。
其次教下大家注冊，打開西域網——然後注冊會員 邀請碼可以寫這個9A7006。
當然西域網是需要現金流支出的，所以這里提醒下，你可以先放個百來塊，試試，這個風險還是在控制之內的 ，然後根據你自己的判斷選擇相應的投入和支出。
最後個人評價下 這個日新月異的世界 敢於嘗試是不得已的路了
望採納啊 謝謝
5. 維卡幣跟羅斯柴爾德家族推出加密貨幣AFC0lN有關嗎
貨幣戰爭那本書錯誤很多 完全是臆想 當小說看看算了