高校问答星期恋人百度云链接:VB的问题
来源：百度文库 编辑：高校问答 时间：2024/04/24 07:18:50
怎样写这样一个程序：“输入一个信息（例如1234567），将其存储在程序中，但存储的结果是01020304050607”
谢谢
谢谢
'新建一个窗体,写如下代码以看效果
'这是窗口的双击事件,双击窗口则可以看到效果
Private Sub Form_DblClick()
MsgBox "1234567 改变为: " & changeStr("1234567")
End Sub
Function changeStr(str As String) As String
Dim i As Integer
Dim tempStr As String
tempStr = ""
For i = 1 To Len(str)
tempStr = tempStr & "0" & Mid(str, i, 1)
Next
changeStr = tempStr
End Function