Visual Studio 2010旗舰版的vb.net版本18进制口诀表程序代码

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

            '用函数将整数转换为基数为 18 的字符串
            r1 = IntToBaseString(n, 18)
            s1 = IntToBaseString(m, 18)
            t1 = IntToBaseString(o, 18)

            '构建显示字符串
            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 < 18 Then
            buffer.Insert(0, ChrW(65 + digit - 10)) '10 到 17 用 A 到 H 表示
        End If
        num = num \ base
    Loop While num > 0

    '如果是负数，添加负号
    If isNegative Then
        buffer.Insert(0, "-")
    End If

    Return buffer.ToString()
End Function

End Class