UC知道关于VB TEXT的一些问题
来源：百度知道 编辑：UC知道 时间：2024/06/10 21:06:58
我把一些字母用数字表示，例如a=01,b=02
然后在TEXT1中输入若干字母（大于1个），想要将所表示的数字打印出来，怎么编写
一楼你的答案仍有遗漏，采用你的答案字母s,i,t在转换时会出现问题
然后在TEXT1中输入若干字母（大于1个），想要将所表示的数字打印出来，怎么编写
一楼你的答案仍有遗漏，采用你的答案字母s,i,t在转换时会出现问题
Private Sub Command1_Click()
Dim A As String, B As String, C As String
Dim I As Integer, STR As String
A = "01": B = "02": C = "03"
Text2.TEXT = ""
For I = 1 To Len(Trim(Text1.TEXT))
Select Case Mid(Trim(Text1.TEXT), I, 1)
Case "A"
STR = "01"
Case "B"
STR = "02"
Case "C"
STR = "03"
End Select
Text2.TEXT = Text2.TEXT + STR
Next
End Sub
完整代码如上,只需在窗体中添加一个CommandButton和两个TextBox控件即可.
好了，是我的疏忽。这样就行了，应该是！
=======================
建一个Text1，Command1。更好的方法我没有，你就用Select Case语句做吧。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Const a = "01"
Const b = "02"
'这里继续添加
Private Sub Command1_Click()
Dim iii As Long, sss As String, ttt As St