diz虛擬貨幣

① 求DZ論壇破解回復許可權及免金幣下載方法，或者軟體。

ni 你罵站長 罵到站長受不了的時候就不玩了 網站都送給你

② DZ論壇怎麼設置在帖子旁邊顯示發帖數和金幣等

登錄後台→用戶→用戶欄目 然後設置就行

③ 【淚求】DZ論壇的管理員無法操作編輯帖子是怎麼回事（能解決的話人民幣償都行~

有什麼提示呢？
胡亂猜測一下：
1、會不會是高級管理員（你的上級）取消了你的許可權？
2、也許是系統或瀏覽器出現錯誤。用360安全衛士→功能大全→系統急救箱→勾選兩個復選框，先進入深度修復。然後用其右側的「系統設置修復區」和「系統文件修復區」分別修復一下再試試

④ dz論壇購買主題，每次都要付金幣怎麼實現

這樣貌似是辦不到的。 只能一次性付費。 如果你想要主題內容不是那麼容易能看到,可以設置許可權。 閱讀許可權等。

⑤ DZ論壇的問題 我用金幣下載了一個收費附件，扣了一個金幣，第二次又下載了同樣的一個附件，又重復扣

不是你設置的 論壇規則 不過dz論壇3.50的有漏洞 下載可以不扣分

⑥ 怎樣用vb設計一個關於把人民幣小寫金額轉換為大寫

Public Function XiaoToDa(xiaoS As Currency) As String
Dim B_chang As Integer, Sxiao As String
B_chang = Len(Trim(Str(xiaoS)))
Sxiao = Trim(Str(xiaoS))
Dim i As Integer
Dim Zheng As String
Dim xiao As String
Dim Diz As Integer '最後一個大於0的數位
Dim zhengC As Integer
If B_chang > 0 And xiaoS > 0 Then

Zheng = ""
xiao = ""
Diz = 0
zhengC = 0
Zheng = ZengShu(Sxiao)
xiao = XiaoShu(Sxiao)
Diz = DiZhi(Zheng) '最後一個

zhengC = Len(Zheng)
For i = 1 To zhengC
XiaoToDa = XiaoToDa & DingZhi(Mid(Zheng, i, 1), zhengC + 1 - i, Diz, i, Zheng)
Next
If XiaoToDa <> "" Then
XiaoToDa = XiaoToDa & "元"
End If
If xiao <> "" Then
XiaoToDa = XiaoToDa & DingXiaoZ(xiao)
End If

If Right(XiaoToDa, 1) <> "分" Then
XiaoToDa = XiaoToDa & "整"
End If
ElseIf B_chang > 0 And xiaoS < 0 Then
xiaoS = Trim(Str(-Val(xiaoS)))
B_chang = Len(Trim(Str(xiaoS)))
Sxiao = Trim(Str(xiaoS))
Zheng = ""
xiao = ""
Diz = 0
zhengC = 0
Zheng = ZengShu(Sxiao)
xiao = XiaoShu(Sxiao)
Diz = DiZhi(Zheng) '最後一個

zhengC = Len(Zheng)
For i = 1 To zhengC
XiaoToDa = XiaoToDa & DingZhi(Mid(Zheng, i, 1), zhengC + 1 - i, Diz, i, Zheng)
Next
If XiaoToDa <> "" Then
XiaoToDa = XiaoToDa & "元"
End If
If xiao <> "" Then
XiaoToDa = XiaoToDa & DingXiaoZ(xiao)
End If

If Right(XiaoToDa, 1) <> "分" Then
XiaoToDa = XiaoToDa & "整"
End If
XiaoToDa = "負" & XiaoToDa

End If

End Function

Private Function DX(shu As String)
shu = Trim(shu)
If shu = "1" Then
DX = "壹"
ElseIf shu = "2" Then
DX = "貳"
ElseIf shu = "3" Then
DX = "叄"
ElseIf shu = "4" Then
DX = "肆"
ElseIf shu = "5" Then
DX = "伍"
ElseIf shu = "6" Then
DX = "陸"
ElseIf shu = "7" Then
DX = "柒"
ElseIf shu = "8" Then
DX = "捌"
ElseIf shu = "9" Then
DX = "玖"
ElseIf shu = "0" Then
DX = "零"

End If
End Function

'反回一個數的整數
Public Function ZengShu(shu As String) As String
Dim chang As Integer
chang = Len(Trim(shu))
shu = Trim(shu)
Dim i As Integer
Dim YC As Boolean
For i = 1 To chang
If YC = False Then
If Mid(shu, i, 1) <> "." Then
ZengShu = ZengShu & Mid(shu, i, 1)
Else
YC = True
End If
End If
Next
End Function

Public Function XiaoShu(shu As String) As String
Dim chang As Integer
chang = Len(shu)
Dim i As Integer
For i = 1 To chang
If Mid(shu, i, 1) = "." Then
XiaoShu = Mid(shu, i + 1, chang - i + 1)
End If
Next
If Len(XiaoShu) > 2 Then
XiaoShu = Mid(XiaoShu, 1, 2)
End If
End Function
'反回最後一個大於0的數位
Private Function DiZhi(shu As String)
Dim chang As Integer
chang = Len(shu)
Dim i As Integer
For i = 1 To chang
If Val(Mid(shu, i, 1)) > 0 Then
DiZhi = i
End If
Next
End Function

Private Function DingZhi(shu As String, Wei As Integer, DiWei As Integer, zhengWei As Integer, ZShu As String) As String
If zhengWei <= DiWei Then

If shu <> "0" Then
DingZhi = DX(shu) & WeiMing(Wei, shu)
Else
If LingChongFu(ZShu, zhengWei) = True And WeiDuan(ZShu, Wei) = True Then
DingZhi = "零"
End If

If Wei = 5 Then

DingZhi = "萬"

ElseIf Wei = 9 Then

DingZhi = "億"

End If

End If

Else

If Wei = 5 Then

DingZhi = "萬"

ElseIf Wei = 9 Then

DingZhi = "億"

End If

End If

End Function

Private Function WeiMing(Wei As Integer, shu As String) As String
' If shu <> "0" Then
If Wei = 2 Then
WeiMing = "拾"
ElseIf Wei = 3 Then
WeiMing = "佰"
ElseIf Wei = 4 Then
WeiMing = "仟"
ElseIf Wei = 5 Then
WeiMing = "萬"
ElseIf Wei = 6 Then
WeiMing = "拾"
ElseIf Wei = 7 Then
WeiMing = "佰"
ElseIf Wei = 8 Then
WeiMing = "仟"
ElseIf Wei = 9 Then
WeiMing = "億"
ElseIf Wei = 10 Then
WeiMing = "拾"
End If
'End If
End Function

'看一個數給定位數的前一位是不是零
Private Function LingChongFu(shu As String, Wei As Integer) As Boolean
Dim chang As Integer
chang = Len(shu)

If Wei - 1 <> 0 Then
If Mid(shu, Wei - 1, 1) <> "0" Or ((chang + 1 - Wei + 1) = 5 Or (chang + 1 - Wei + 1) = 9) Then
LingChongFu = True
Else
LingChongFu = False
End If
End If
End Function

Private Function WeiDuan(shu As String, Wei As Integer) As Boolean
'If wei = 9 Or wei = 5 Then WeiDuan = False

WeiDuan = False
If Wei > 9 And XiaWei(shu, Wei) >= 9 Then
WeiDuan = True
End If
If 9 > Wei And Wei > 5 And XiaWei(shu, Wei) >= 5 Then
WeiDuan = True
End If
If Wei > 0 And Wei < 5 Then
WeiDuan = True
End If
End Function

Private Function XiaWei(shu As String, Wei As Integer) As Integer
Dim chang As Integer
chang = Len(shu)
Dim Bx_Wei As Integer
Bx_Wei = Wei
Bx_Wei = chang + 1 - Bx_Wei
Dim i As Integer
If chang >= Bx_Wei + 1 Then
Dim YC As Boolean
For i = Bx_Wei + 1 To chang
If Val(Mid(shu, i, 1)) > 0 And YC = False Then
XiaWei = chang + 1 - i
YC = True
End If
Next
End If
End Function

Private Function DingXiaoZ(xi As String) As String
If Mid(xi, 1, 1) <> "0" Then
DingXiaoZ = DX(Mid(xi, 1, 1)) & "角"
Else
DingXiaoZ = DX(Mid(xi, 1, 1))
End If
If Trim(Mid(xi, 2, 1)) <> "" Then
DingXiaoZ = DingXiaoZ & DX(Mid(xi, 2, 1)) & "分"
End If
End Function

Public Function G_SuWei(Str As String, Wei As Integer, z As Integer) As String
Dim chang As Integer
Dim i As Integer
If Wei = 21 Then
i = 1
End If
Str = Trim(Str)
chang = Len(Trim(Str))
If z = 1 Then

If chang + 1 - Wei > 0 Then
G_SuWei = Mid(Str, chang + 1 - Wei, 1)
Else
G_SuWei = ""
If Wei - chang = 1 Then
G_SuWei = "￥"
End If

End If

Else

If chang >= Wei Then
G_SuWei = Mid(Str, Wei, 1)
Else
G_SuWei = "0"
End If

End If
End Function

'上面是我寫的一個函數，調用函數：XiaoToDa(小寫金額) 就可以了。 金額不可以大於十億

⑦ dz論壇怎麼給用戶加威望和金幣

後台 用戶 用戶管理 搜索用戶名 積分獎懲 然後開始加吧。加完記得提交！

⑧ 如何修改DZ論壇的貨幣

1）登錄到後台，找到全局--積分設置--基本設置，可以設置論壇的貨幣類型、名稱、兌換值、初始比例等。