Question

求助:用VB设计个小程序 1个输入框,输入3个数字如:251, 一个按钮,计算结果显示在另一个输入框里

1个输入框,输入3个数字如:251, 一个按钮,点击按钮计算,计算结果显示在另一个输入框里

计算过程:取输入框的数字后2位,和01234合并去掉重复的取5位

例如:
567 显示成67012
012 显示成12034
516 显示成16023

求助:输入框代码,按钮代码 结果框代码
因为是VB菜鸟,特求助
谢谢,补充一下,
其它显示都对,现在出现个问题
例如:
522 应该显示成20134,可现在显示成:22013了,望能修改一下,谢谢

Answer 1

'第一个文本框Text1 按钮Command1 第二个文本框Text2

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