VB中如何将任意输入的一个数转换成制定格式的数值

来源：百度知道 编辑：UC知道 时间：2024/05/15 18:25:50
各位大虾：

如何将随意输入的一个abcdefghij.kl（整数9位，小数2位）数转换为
l=?
k=?
j=?
i=?
.....
a=?

中间要涉及到：1把输入数转换为字符串，2判断小数位，如果输入整数，小数位补零，

考试题，望高手救命啊！！！

Private Sub Command1_Click()
Dim sTemp As String
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String
Dim s5 As String
Dim s6 As String
Dim s7 As String
Dim s8 As String
Dim s9 As String
Dim s10 As String
Dim s11 As String

sTemp = Format(Val(Text1.Text), "0.00")

s1 = Left(sTemp, 1)
s2 = Mid(sTemp, 2, 1)
s3 = Mid(sTemp, 3, 1)
s4 = Mid(sTemp, 4, 1)
s5 = Mid(sTemp, 5, 1)
s6 = Mid(sTemp, 6, 1)
s7 = Mid(sTemp, 7, 1)
s8 = Mid(sTemp, 8, 1)
s9 = Mid(sTemp, 9, 1)
s10 = Mid(sTemp, 11, 1)
s11 = Right(sTemp, 1)

MsgBox s1 & s2 & s3 & s4 & s5 & s6 & s7 & s8 & s9 & s10 & s11

End Sub

Option Explicit
Dim sz As String
Dim l As Byte
Dim b As Byte
Dim Ustr As String
Private Sub Comm