Imports System
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n, m, o As Integer
Dim r1, s1, t1 As String
Dim sb As New System.Text.StringBuilder() '用 StringBuilder 来构建显示字符串
For n = 0 To 20
For m = 0 To 20
o = n + m
'用函数将整数转换为基数为 62 的字符串
r1 = IntToBaseString(n, 62)
s1 = IntToBaseString(m, 62)
t1 = IntToBaseString(o, 62)
'构建显示字符串
sb.AppendLine(r1 & " + " & s1 & " = " & t1)
Next
Next
TextBox1.Text = sb.ToString() '一次性将构建好的字符串赋值给 TextBox1
End Sub
Private Function IntToBaseString(ByVal num As Integer, ByVal base As Integer) As String
Dim buffer As New System.Text.StringBuilder(33)
Dim i As Integer = 0
Dim isNegative As Boolean = False
'处理负数
If num < 0 Then
isNegative = True
num = -num
End If
'转换为字符串
Do
Dim digit As Integer = num Mod base
If digit < 10 Then
buffer.Insert(0, ChrW(48 + digit))
ElseIf digit < 36 Then
buffer.Insert(0, ChrW(55 + digit)) '10 到 35 用 A 到 Z
ElseIf digit < 62 Then
buffer.Insert(0, ChrW(65 + digit - 36)) '36 到 61 用 a 到 z
End If
num = num \ base
Loop While num > 0
'如果是负数,添加负号
If isNegative Then
buffer.Insert(0, "-")
End If
Return buffer.ToString()
End Function
End Class