Diz virtual currency

2. This seems impossible. Only one-time payment. If you want the subject content to be less visible, you can set permissions. Reading rights, etc.

3. Background user management search user name points reward and punishment, and then start to add it. Remember to submit after adding!

4. It's not the forum rules you set, but DZ forum 3.50 has loopholes, so you can download it without dection

5. Log in to the background → user → user column, and then set it

6. What's the hint
make a random guess:
1. Is it the senior administrator (your superior) who cancelled your permission
2. Maybe there is an error in the system or browser. Use 360 security guard → function complete → system first aid kit → check the two check boxes to enter the deep repair first. Then use the "system settings repair area" and "system file repair area" on the right to repair them, and try again

7. Ni you scold stationmaster scold to stationmaster cannot stand when not playing, website gives you

8. 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(小写金额) 就可以了 金额不可以大于十亿