Private Sub Form_Load() Me.Hide Open App.Path & "\in.txt" For Input As #1 Open App.Path & "\out.txt" For Output As #2 Do While Not EOF(1) ans = "" Input #1, a, b Do n = Split("0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z") d = b Mod a b = b \ a ans = n(d) & ans Loop Until b = 0 Print #2, ans Loop Close Close End End Sub
Private Sub Form_Load() Me.Hide Open App.Path & "\in.txt" For Input As #1 Open App.Path & "\out.txt" For Output As #2 c = Split("0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z", " ") Do While Not EOF(1) Input #1, a, b ans = "" Do d = b Mod a b = b \ a ans = c(d) & ans Loop Until b = 0 Print #2, ans Loop Close #2 Close #1 End End Sub
Private Sub Form_Load() Me.Hide Open App.Path & "\in.txt" For Input As #1 Open App.Path & "\out.txt" For Output As #2 Dim ans As String n = Split("0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z") Do While Not EOF(1) Input #1, a, b ans = "" Do c = b Mod a b = b \ a ans = n(c) & ans Loop Until b = 0 Print #2, ans Loop Close #2 Close #1 End End Sub
Private Sub Form_Load() Me.Hide Open App.Path & "\in.txt" For Input As #1 Open App.Path & "\out.txt" For Output As #2 strA = "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z" arr = Split(strA) Do While Not EOF(1) Input #1, a, b ans = "" Do Until b = 0 qq = Val(b) Mod Val(a) b = Val(b) \ Val(a) If qq >= 10 Then qq = arr(qq - 10) ans = qq & ans Loop Print #2, ans Loop Close #2 Close #1 End End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do While Not EOF(1)
ans = ""
Input #1, a, b
Do
n = Split("0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z")
d = b Mod a
b = b \ a
ans = n(d) & ans
Loop Until b = 0
Print #2, ans
Loop
Close
Close
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
c = Split("0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z", " ")
Do While Not EOF(1)
Input #1, a, b
ans = ""
Do
d = b Mod a
b = b \ a
ans = c(d) & ans
Loop Until b = 0
Print #2, ans
Loop
Close #2
Close #1
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Dim ans As String
n = Split("0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z")
Do While Not EOF(1)
Input #1, a, b
ans = ""
Do
c = b Mod a
b = b \ a
ans = n(c) & ans
Loop Until b = 0
Print #2, ans
Loop
Close #2
Close #1
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
strA = "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
arr = Split(strA)
Do While Not EOF(1)
Input #1, a, b
ans = ""
Do Until b = 0
qq = Val(b) Mod Val(a)
b = Val(b) \ Val(a)
If qq >= 10 Then qq = arr(qq - 10)
ans = qq & ans
Loop
Print #2, ans
Loop
Close #2
Close #1
End
End Sub