Question

VB的Text1.text输入数字，text2.text逆序输出

点option1,text2.text 显示逆序输出
option12,text2.text 显示和

Answer 1

Private Sub Text1_Change()
If Option1.Value Then
Text2.Text = StrReverse(Text1.Text) '逆序
ElseIf Option2.Value Then
l = Len(Text1.Text)
For i = 1 To l
s = s + Val(Mid(Text1.Text, i, 1)) '求各数之和
Next i
Text2.Text = s
End If
End Sub

Private Sub Option1_Click()
Text1_Change
End Sub

Private Sub Option2_Click()
Text1_Change
End Sub