UC知道一段VB代码输入VB6.0中，却无法运行，不知道哪里错了
来源：百度知道 编辑：UC知道 时间：2024/09/21 05:04:35
Public Function fun(s1 As String)
Dim s1 As String
For i = 1 To Len(s)
s1 = s1 + UCase(Mid(s, i, 1))
Next i
fun = s1
End Function
Private Sub Command1_Click()
Dim strl As String, str2 As String
str1 = InputBox("请输入一个字符串")
Print
Print " 输入的字符串为;"; str1
str2 = fun(str1)
Print
Print "转换后的字符串为;"; str2
End Sub
代码的作用是将输入的字符串，变为大写
Dim s1 As String
For i = 1 To Len(s)
s1 = s1 + UCase(Mid(s, i, 1))
Next i
fun = s1
End Function
Private Sub Command1_Click()
Dim strl As String, str2 As String
str1 = InputBox("请输入一个字符串")
Print " 输入的字符串为;"; str1
str2 = fun(str1)
Print "转换后的字符串为;"; str2
End Sub
代码的作用是将输入的字符串，变为大写
程序十分复杂，应该写：
Private Sub Command1_Click()
Dim strl As String, str2 As String
str1 = InputBox("请输入一个字符串")
Print
Print " 输入的字符串为;"; str1
str2 = UCase(str1)
Print
Print "转换后的字符串为;"; str2
End Sub
如果你执意要自己写，那么：
Public Function fun(s1 As String)
Dim res As String
For i = 1 To Len(s)
res = res & UCase(Mid(s1, i, 1)) '注意s改为s1，字符串连接用&
Next i
fun = res
End Function
Private Sub Command1_Click()
Dim strl As String, str2 As String
str1 = InputBox("请输入一个字符串")
Print
Print " 输入的字符串为;"; str1
str2 = fun(str1)
Print
Print "转换后的字符串为;"; str2
End Sub
Public Function fun(s1 As String)
Dim a As String
For i = 1 To Len(s1)
a = a + UCase(Mid(s1, i, 1))
Next i
fun = a
End Function
Private Sub Command1_Click()
Dim str1 As String, str2 As String
st