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

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

2024-12-27 01:30:00

推荐回答（2个）

回答1：

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

回答2：

你好，vb程序做好了吗？