vb 数字转换 一个数 转化成两个数
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/16 06:20:13
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.
这样的代码怎么写?
两个文本,一个按钮.第一个文本可以输入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.
这样的代码怎么写?
思路:
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 Su
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 Su
十进制数98转化为五进制数为?二进制数1101.11转换成十进制数是?
vb编程求两个数最小公倍数求法
计算机利用的是二进制,它共有两个数码,0、1,将一个十进制数转化成二进制数.
用vb设计一个求两个数最大公约数的函数过程
帮忙用VB写一个任意从1到50之间选两个数的程序
在C语言中,怎么把一个字符串(都是由数字组成)转换成一个浮点数?
求用VB程序解决~生成数字金字塔,要求一个等腰三角形金字塔尖朝下,另一个朝上,中间数字为1,向两个方向递推增加.最多到数
用VB编程,查找介于正整数A,B之间只有两个数字相同的完全平方数.所谓完全平方数是指其平方根为整数的数.
计算机利用的是二进制数,它共有两个数码0、1,将一个十进制数转化为二进制数.24是转化为二制数为( )
如何用VB求两个数的最大公约数和最小公倍数?
vb 一组三位数,选最大的两个数
vb产生两个数之间的随机数闭区间