‌编写VB程序，实现如下功能:在文本框text1中输入一个正整数，单击“求数根”按钮command

如题所述

Private Sub Command1_Click()
  Dim x As Integer
  x = Text1
  While x > 0
    s = s + x Mod 10
    x = x \ 10
    If x = 0 And s > 9 Then
      x = s
      s = 0
    End If
  Wend
  Text2 = s
End Sub

Private Sub Form_Load()
  Text1 = ""
  Text2 = ""
  Command1.Caption = "求数根"
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://22.t2y.org/zz/2sst00tscs0ch6cis2.html