UC知道String()函数
来源：百度知道 编辑：UC知道 时间：2024/05/13 20:10:52
在名称为Form1的窗体上画一个名称为Text1的文本框和一个名称为C1，标题为"转换"的命令按
钮，在程序运行时，单击"转换" 按钮，可以把Text1中的大写字母转换为小写，把小写字母转换为大写。所编代码如下：
Private Sub C1_Click()
Dim a$, b$, k%, n%
a$ = ""
n% = Asc("a") - Asc("A")
For k% = 1 To Len(Text1.Text)
b$ = Mid(Text1.Text, k%, 1)
If b$ >= "a" And b$ <= "z" Then
b$ = String(1, Asc(b$) - n%)
Else
If b$ >= "A" And b$ <= "Z" Then
b$ = String(1, Asc(b$) + n%)
End If
End If
a$ = a$ + b$
Next k%
Text1.Text = a$
End Sub
请问b$ = String(1, Asc(b$) - n%)是什么意思？String()函数怎么用？谢谢！
钮，在程序运行时，单击"转换" 按钮，可以把Text1中的大写字母转换为小写，把小写字母转换为大写。所编代码如下：
Private Sub C1_Click()
Dim a$, b$, k%, n%
a$ = ""
n% = Asc("a") - Asc("A")
For k% = 1 To Len(Text1.Text)
b$ = Mid(Text1.Text, k%, 1)
If b$ >= "a" And b$ <= "z" Then
b$ = String(1, Asc(b$) - n%)
Else
If b$ >= "A" And b$ <= "Z" Then
b$ = String(1, Asc(b$) + n%)
End If
End If
a$ = a$ + b$
Next k%
Text1.Text = a$
End Sub
请问b$ = String(1, Asc(b$) - n%)是什么意思？String()函数怎么用？谢谢！
string就是生成一个所有字符都相同的串,
第一个参数是串的长度,第二个是ASCII码.
这段啥程序啊,好没建设性,
跟chr(Asc(b$) + n%)的意思一样，非要弄这么复杂
本来想给你程序注解的，还没见过这么复杂的东西，作者真是“天才”啊，晕
其实很简单VB里面有转换函数 UCase(小写变大写)和LCase(大写变小写)
Private Sub C1_Click()
text1.text = UCase(text1.text)'变大写
end sub