|
#2
风吹过b2016-08-14 19:33
|
还是学生所以难免会有些考虑不全的
还有就是有些阅读格式问题有点马虎希望不要介意
只有本站会员才能查看附件，请 登录
程序代码：Dim r$, b%, s$, l%, K%, z%, tx$
Private Sub Command1_Click()
a = Text1.Text
For i = 0 To 3
If Option1(i).Value = True Then x = i
If Option2(i).Value = True Then y = i
Next i
s = ""
Select Case x
Case 0
s = Text1.Text
Case 1
For i = 1 To Len(a)
t = Val(Mid(a, i, 1))
r = ""
Do
u = t Mod 2
t = Int(t / 2)
r = u & r
Loop Until t = 0
Do Until Len(r) Mod 3 = 0
r = "0" & r
Loop
s = s & r
Next i
Case 2
t = Val(a)
Do
u = t Mod 2
t = Int(t / 2)
s = u & s
Loop Until t = 0
Case 3
For i = 1 To Len(a)
t = Mid(a, i, 1)
If t >= "0" And t <= "9" Then
r = ""
Do
u = t Mod 2
t = Int(t / 2)
r = u & r
Loop Until t = 0
Do Until Len(r) Mod 4 = 0
r = "0" & r
Loop
s = s & r
Else
t = Asc(t) - 55
r = ""
Do
u = t Mod 2
t = Int(t / 2)
r = u & r
Loop Until t = 0
Do Until Len(r) Mod 4 = 0
r = "0" & r
Loop
s = s & r
End If
Next i
End Select
tx = ""
Select Case y
Case 0
tx = s
Case 1
Do Until Len(s) Mod 3 = 0
s = "0" & s
Loop
chang = Len(s)
For i = 1 To chang \ 3
u = Left(s, 3)
s = Right(s, Len(s) - 3)
a = 0
For j = 1 To 3
a = a + Val(Mid(u, j, 1)) * (2 ^ (3 - j))
Next j
tx = tx & a
Next i
Case 2
a = 0
For i = 1 To Len(s)
a = a + Val(Mid(s, i, 1)) * 2 ^ (Len(s) - i)
Next i
tx = a
Case 3
Do Until Len(s) Mod 4 = 0
s = "0" & s
Loop
chang = Len(s)
For i = 1 To chang \ 4
u = Left(s, 4)
s = Right(s, Len(s) - 4)
a = 0
For j = 1 To 4
a = a + Val(Mid(u, j, 1)) * (2 ^ (4 - j))
Next j
If a > 9 Then
tx = tx & Chr(a + 55)
Else
tx = tx & a
End If
Next i
End Select
Text2.Text = tx
End Sub
Private Sub Option1_Click(Index As Integer)
For i = 0 To 3
If Option1(i).Value = True Then p = i
Next i
Select Case p
Case 0
K = 48
z = 49
Case 1
K = 48
z = 55
Case 2
K = 48
z = 57
Case 3
K = 48
z = 57
End Select
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < K Or KeyAscii > z Then
If Option1(3).Value = True And KeyAscii >= 65 And KeyAscii <= 70 Then
Exit Sub
Else
KeyAscii = 0
End If
KeyAscii = 0
End If
End Sub
