求助大神小程序,补充完善

发布网友发布时间：2022-04-29 02:51

共2个回答

热心网友时间：2022-06-29 04:12

Private Sub Command1_Click()
If Text1.Text = "" Then
Text2.Text = ""
Else
Text2.Text = "(" + Text1.Text + ")"
End If
End Sub
Private Sub Command2_Click()
Dim str, str1 As String
str1 = ""
str = Text2.Text
If Len(str) > 0 Then
Dim i As Integer
For i = 1 To Len(str)
If Mid(str, i, 1) <> "(" And Mid(str, i, 1) <> ")" And IsNumeric(Mid(str, i, 1)) = False Then
str1 = str1 + Mid(str, i, 1)
End If
Next
End If
Text3.Text = str1
End Sub
Private Sub Command3_Click()
Text1.Text = ""
End Sub
Private Sub Command4_Click()
Text2.Text = ""
End Sub
Private Sub Command5_Click()
Text3.Text = ""
End Sub

这样应该就OK

热心网友时间：2022-06-29 04:12

要怎么转化呢？追问点击com1，text1的内容转换到text2 实现加括号
点击com2，text2的内容转换到text3 实现去括号去数字
这是我之前一个问题的补充啊还记得么大神

来自：求助得到的回答