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）登录到后台，找到全局--积分设置--基本设置，可以设置论坛的货币类型、名称、兑换值、初始比例等。