UC知道VB与过程间数据传递有关的命题
来源：百度知道 编辑：UC知道 时间：2024/05/26 20:49:25
假设有以下函数过程:
Function fun(s As String) As String
Dim s1 As String
For i = 1 To Len(s)
s1 = UCase(Mid(s, i, 1)) + s1
Next i
fun = s1
End Function
画一个命令按钮:
Private Sub Command1_Click()
Dim str1 As String, str2 As String
str1 = InputBox("请输入一个字符串")
str2 = Fun(str1)
Print str2
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg",则单击Command1按钮后在窗体上输出的结果为_____.
麻烦写下过程,详细些最好,谢谢了.
答案应该是GFEDCBA
Function fun(s As String) As String
Dim s1 As String
For i = 1 To Len(s)
s1 = UCase(Mid(s, i, 1)) + s1
Next i
fun = s1
End Function
画一个命令按钮:
Private Sub Command1_Click()
Dim str1 As String, str2 As String
str1 = InputBox("请输入一个字符串")
str2 = Fun(str1)
Print str2
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg",则单击Command1按钮后在窗体上输出的结果为_____.
麻烦写下过程,详细些最好,谢谢了.
答案应该是GFEDCBA
ABCDEFG
这段代码是将小写换成大写
太简单了，完全没有内容
只有一个UCase函数是将小写换成大写
不好意思啊
没看仔细
s1 = UCase(Mid(s, i, 1)) + s1
s1是加在后面的