求助:用VB设计个小程序 1个输入框,输入3个数字如:251, 一个按钮,计算结果显示在另一个输入框里
发布网友
发布时间：2022-04-27 10:34
共1个回答
热心网友
时间：2023-09-13 04:03
Private Sub Command1_Click()
Dim Str As String
Str = "01234"
If Len(Trim(Text1.Text)) < 2 Then Exit Sub
rightStr = Right(Text1.Text, 2)
For i = 1 To Len(rightStr)
splitChar = Mid(rightStr, i, 1)
Str = Replace(Str, splitChar, "")
Next i
Text2.Text = Left(rightStr & Str, 5)
End Sub
