UC知道VB题目,有关大小写的
来源：百度知道 编辑：UC知道 时间：2024/06/17 12:40:35
下面程的功能是输入英文句子，将其每个单词的首字母边为大写字母，再输出。
Public Sub Form-Click()
Dim oldsen As String, newsen as string
Dim char as srring ,lasrchar as srring
Dim n as integer,I as integer
Oldsen=InputBox(“请输入英文句子：”)
n=
’以空格作为单词的界定，空格后的字母转换为大写字母
lastchar=” ”
For i=1 to n
char=
If lastchar =” ” then
char=
End if
newsen=newsen & char
lastchar=
Next i
Print “input:”; oldsen
Print “output:”; newsen
End sub
Public Sub Form-Click()
Dim oldsen As String, newsen as string
Dim char as srring ,lasrchar as srring
Dim n as integer,I as integer
Oldsen=InputBox(“请输入英文句子：”)
n= ( )
’以空格作为单词的界定，空格后的字母转换为大写字母
lastchar=” ”
For i=1 to n
char= ( )
If lastchar =” ” then
char= ( )
Public Sub Form-Click()
Dim oldsen As String, newsen as string
Dim char as srring ,lasrchar as srring
Dim n as integer,I as integer
Oldsen=InputBox(“请输入英文句子：”)
n=
’以空格作为单词的界定，空格后的字母转换为大写字母
lastchar=” ”
For i=1 to n
char=
If lastchar =” ” then
char=
End if
newsen=newsen & char
lastchar=
Next i
Print “input:”; oldsen
Print “output:”; newsen
End sub
Public Sub Form-Click()
Dim oldsen As String, newsen as string
Dim char as srring ,lasrchar as srring
Dim n as integer,I as integer
Oldsen=InputBox(“请输入英文句子：”)
n= ( )
’以空格作为单词的界定，空格后的字母转换为大写字母
lastchar=” ”
For i=1 to n
char= ( )
If lastchar =” ” then
char= ( )
Dim char as srring，lasrchar as srring
---数据类型不对---Dim char as string，lasrchar as string
n= 是什么？
没有你说的转换呀！你这个程序可能没有你说的这个功能。
newsen=ucase(left(Oldsen,1))&right(Oldsen,len(Oldsen)-1)
大小写之间的ASCII就差32，只要在输出的时候加上32就可以了。