vb作业求助

vb作业求助

不难,不过手头没有VB工具,就随便给你说说了先用split函数将待加密的字符串切割成单个字符然后用asc()函数逐个取ASCII码然后取出来的ASCII码加上加密密钥,然后再用chr()函数将ASCII反转为单个字符然后拼接这些字符成字符串显示到结果框,这就是加密解密就是减去密钥清空就是所有TextBox的值为空字符串退出..退出就退出了..打字不易,给分吧

按下面的方法来，不需要数组。
dim a as integer,b as integer,c as integer
dim x1 as integer,x2 as integer
for a = 0 to 9
for b = 0 to 9
for c = 0 to 9
x1 = a * 100 + b* 10 + c
x2= c * 100 + b * 10 + a
if x1+x2= 1333 then
MsgBox "a=" & a & "b=" & b & "c=" & c & vbCrLf & "公式=" & x1 & " + " & x2 & "=1333"
end if
next c
next b
next a

Private Sub Command1_Click()
Dim ChkValX As Variant, xJJ_tmp As Variant, xJJ As Variant
Dim VLval1 As Variant, VLval2 As Variant, VLval3 As Variant, VLval4 As Variant, VLval5 As Variant
Dim VJval1 As Variant, VJval2 As Variant, VJval3 As Variant, VJval4 As Variant, VJval5 As Variant, VJval6 As Variant

VLval1 = 10
VLval2 = 20
VLval3 = 40
VLval4 = 60
VLval5 = 100

VJval1 = 0.1
VJval2 = 0.075
VJval3 = 0.05
VJval4 = 0.03
VJval5 = 0.015
VJval6 = 0.01

ChkValX = Val(InputBox("请输入当月利润（单位：万元）", "利润输入"))

If ChkValX <= VLval1 Then
xJJ_tmp = ChkValX * VJval1: xJJ = xJJ + xJJ_tmp
Else
xJJ_tmp = VLval1 * VJval1: xJJ = xJJ + xJJ_tmp
End If

If ChkValX >= VLval5 Then xJJ_tmp = (ChkValX - VLval5) * VJval6: xJJ = xJJ + xJJ_tmp: ChkValX = ChkValX - (ChkValX - VLval5)
If ChkValX >= VLval4 Then xJJ_tmp = (ChkValX - VLval4) * VJval5: xJJ = xJJ + xJJ_tmp: ChkValX = ChkValX - (ChkValX - VLval4)
If ChkValX >= VLval3 Then xJJ_tmp = (ChkValX - VLval3) * VJval4: xJJ = xJJ + xJJ_tmp: ChkValX = ChkValX - (ChkValX - VLval3)
If ChkValX >= VLval2 Then xJJ_tmp = (ChkValX - VLval2) * VJval3: xJJ = xJJ + xJJ_tmp: ChkValX = ChkValX - (ChkValX - VLval2)
If ChkValX >= VLval1 Then xJJ_tmp = (ChkValX - VLval1) * VJval2: xJJ = xJJ + xJJ_tmp: ChkValX = ChkValX - (ChkValX - VLval1)

MsgBox "应发奖金总额" & xJJ & "万元"
End Sub