VB编程求代码。 判断一个大的正整数（几十位）是否能被9整除。 实验要求， 1，利用文本框输入整数

Question

VB编程求代码。
判断一个大的正整数（几十位）是否能被9整除。
实验要求，
1，利用文本框输入整数
2，使用Do语句求解
3，由Print输出判断结果。
急用，谢谢

Answer 1

Private Sub Command1_Click()
Dim s As String, i As Integer, n As Integer
s = Trim(Text1.Text)
Do While i < Len(s)
    i = i + 1
    n = n + Val(Mid(s, i, 1))
Loop
If n Mod 9 = 0 Then
    Print "这个数能被9整除"
Else
    Print "这个数不能被9整除"
End If
End Sub

在Text1中输入数字，再点Command1获得结果

Answer 2

Private Sub Command1_Click()
    Dim i As Integer
    i = 1
    Dim m As Integer
    Do Until i > Len(Text1.Text)
        m = CInt(m & Mid(Text1.Text, i, 1)) Mod 9
        i = i + 1
    Loop
    Debug.Print IIf(m > 0, "不能整除", "能整除")
End Sub

从左到右取数求余，把它与下位结合，直到最后看还有没有余数。