vb 数字转换 一个数 转化成两个数两个文本,一个按钮.第一个文本可以输入1-5个数.分别是13579中的1-5个.其中1=38,3=49,5=05,7=16,9=27.目的:第一个文本输入1-3个数,比如输入119,那么第二个文本能把1
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 14:57:44
![vb 数字转换 一个数 转化成两个数两个文本,一个按钮.第一个文本可以输入1-5个数.分别是13579中的1-5个.其中1=38,3=49,5=05,7=16,9=27.目的:第一个文本输入1-3个数,比如输入119,那么第二个文本能把1](/uploads/image/z/2756135-47-5.jpg?t=vb+%E6%95%B0%E5%AD%97%E8%BD%AC%E6%8D%A2+%E4%B8%80%E4%B8%AA%E6%95%B0+%E8%BD%AC%E5%8C%96%E6%88%90%E4%B8%A4%E4%B8%AA%E6%95%B0%E4%B8%A4%E4%B8%AA%E6%96%87%E6%9C%AC%2C%E4%B8%80%E4%B8%AA%E6%8C%89%E9%92%AE.%E7%AC%AC%E4%B8%80%E4%B8%AA%E6%96%87%E6%9C%AC%E5%8F%AF%E4%BB%A5%E8%BE%93%E5%85%A51-5%E4%B8%AA%E6%95%B0.%E5%88%86%E5%88%AB%E6%98%AF13579%E4%B8%AD%E7%9A%841-5%E4%B8%AA.%E5%85%B6%E4%B8%AD1%3D38%2C3%3D49%2C5%3D05%2C7%3D16%2C9%3D27.%E7%9B%AE%E7%9A%84%EF%BC%9A%E7%AC%AC%E4%B8%80%E4%B8%AA%E6%96%87%E6%9C%AC%E8%BE%93%E5%85%A51-3%E4%B8%AA%E6%95%B0%2C%E6%AF%94%E5%A6%82%E8%BE%93%E5%85%A5119%2C%E9%82%A3%E4%B9%88%E7%AC%AC%E4%BA%8C%E4%B8%AA%E6%96%87%E6%9C%AC%E8%83%BD%E6%8A%8A1)
vb 数字转换 一个数 转化成两个数两个文本,一个按钮.第一个文本可以输入1-5个数.分别是13579中的1-5个.其中1=38,3=49,5=05,7=16,9=27.目的:第一个文本输入1-3个数,比如输入119,那么第二个文本能把1
vb 数字转换 一个数 转化成两个数
两个文本,一个按钮.第一个文本可以输入1-5个数.分别是13579中的1-5个.其中1=38,3=49,5=05,7=16,9=27.
目的:第一个文本输入1-3个数,比如输入119,那么第二个文本能把1转化成38,9转化成27,重复的去重,结果就是3827.如果输入357,那么把3转化成49,5转化成05,7转化成16,结果就是490516.
这样的代码怎么写?
vb 数字转换 一个数 转化成两个数两个文本,一个按钮.第一个文本可以输入1-5个数.分别是13579中的1-5个.其中1=38,3=49,5=05,7=16,9=27.目的:第一个文本输入1-3个数,比如输入119,那么第二个文本能把1
思路:
1.将文本框1的内容,读入到变量LinStr
2.将变量LinStr的值,分成若干个单个数字的值,存入数组变量D,去掉重复的不输入.
3.按照你的要求的规则,转换成字符串Ls
4.将Ls显示在文本框2
代码如下:
Private Sub Command1_Click()
Dim LinStr As String
Dim Ls As String
Dim L As Integer
Dim i As Integer
Dim d() As String
Dim n As Integer
Dim YesNo As Boolean
Dim j As Integer
LinStr = Text1.Text
L = Len(LinStr)
n = 0
For i = 1 To L
YesNo = False
For j = 1 To n
If d(j) = Mid(LinStr,i,1) Then
YesNo = True
Exit For
End If
Next j
If Not YesNo Then
n = n + 1
ReDim Preserve d(1 To n) As String
d(n) = Mid(LinStr,i,1)
End If
Next i
Ls = ""
For i = 1 To n
Select Case d(i)
Case "1"
Ls = Ls & "38"
Case "3"
Ls = Ls & "49"
Case "5"
Ls = Ls & "05"
Case "7"
Ls = Ls & "16"
Case "9"
Ls = Ls & "27"
End Select
Next i
Text2.Text = Ls
End Sub