考试的VB题目,没多少时间了,输入一段文章,将每个单词的首字母从小写改为大写,要求,不能用数组做.有没有高手帮帮忙啊~我才学了大概10节课左右的VB,希望能用比较易懂的方法做~,谢谢!!!!

Ucase

Ucase 是将小写改大写,这我知道,但是怎么样才能将每个单词的首字母改掉呢?

ASCII码算法....

a的ASCII 是97
A的ASCII是65

[此贴子已经被作者于2006-12-7 15:39:06编辑过]

主要是获取每一个单词，单词与单词之间，是用空格隔开的，，你只要利用这个来做文章就行了。

不是啊,如果一句话是这样呢?today,we say :"world is changing more and more quickle."
那中间的标点符号怎么办啊

ASC码我也用过啊~~那怎么选定每个单词的首字母呢?

aaa=你输入的文章
aaa=ltrim(aaa) '去掉左边的空格,最好再加一句去掉双空格，就是用二个空格替换一个空格，注意要用循环，用aaa里是不是含双空格为条件。
b1=1 '单词的第一个字母
a=mid(aaa,b1,1) '取第一个字符
a=ucase(a) '转成大写
aaa=a+right(aaa,len(aaa)-1) '用大写的字符替换
for n=1 to len(aaa) '循环
a=mid(aaa,n,1) '取一个字符
if a=" " then
b1=n+1 '得到第一个字符的位置
'在这儿再把第一个字符转成大字，注意：替换的语句要写正确
end if
next

[此贴子已经被作者于2006-12-7 15:42:49编辑过]

还是那个问题,你的IF那里是用a=" "是空格,那如果是标点呢?标点后面应该可以直接跟单词,不需要+空格吧~?

这是用数组做的，等下有时间写个不用数组的给你。

Option Explicit

Private Sub Command1_Click()
Dim lcaseString As String
lcaseString = "this is my bbs"

Dim arrayCaseString
arrayCaseString = Split(lcaseString, " ", -1)

Dim arrayLBound As Integer
Dim arrayUBound As Integer
arrayLBound = LBound(arrayCaseString)
arrayUBound = UBound(arrayCaseString)

Dim i As Integer

For i = 0 To arrayUBound
Dim strLine As String
strLine = arrayCaseString(i)
Dim leftString As String, rightString As String

leftString = Left(strLine, 1)
rightString = Mid(strLine, 2)
leftString = UCase(leftString)
strLine = leftString & rightString

arrayCaseString(i) = strLine
Next

Dim newWord As String
For i = 0 To arrayUBound
newWord = newWord & arrayCaseString(i) & " "
Next

Print newWord
End Sub