VB的Text1.text输入数字

来源：百度知道 编辑：UC知道 时间：2024/05/28 18:18:57
点option1 ，text2.text显示逆序输出
点option2 ，text2.text显示各数字和
点option3 ，text2.text显示各数字积
备注：不调用函数，用最基础的方法来实现！
不甚感激！

Private Sub Option1_Click()
Text2.Text = "逆序输出"
End Sub

Private Sub Option2_Click()
Text2.Text = "各数字和"
End Sub

Private Sub Option2_Click()
Text2.Text = "各数字积"
End Sub

Dim s, s1, sx, ss As String
Dim s2, s3 As Long

Private Sub Command1_Click()
i = 0
ss = Str(s)
For i = 0 To Len(s)
sx = Mid(ss, Len(ss) - i, 1)
s1 = s1 & sx
Next i
Text1.Text = " "
Text1.Text = s1
End Sub

Private Sub Command2_Click()

ss = Str(s)
i = 0
For i = 0 To Len(s)
sx = Mid(ss, Len(ss) - i, 1)
s2 = s2 + Val(sx)
Next i
Text2.Text = " "
Text2.Text = s2
End Sub

Private Sub Command3_Click()

ss = Str(s)
s3 = 1
i = 0
For i = 0 To Len(s)
sx = Mid(ss, Len(ss) - i, 1)
If sx <> " " Then s3 = s3 * Val(sx)
Next i
Text3.Text =