字高3.5毫米:vb编程的问题 嘎嘎

来源：百度文库 编辑：高考问答 时间：2024/05/03 01:37:48
从文本框TEXT1中输入多个英文词句 单机转换按纽 将文本框TEXT1中的内容做如下转换
遇到句号时 ，将TEXT1中的每句的开头字母大写 每段开头的字母也大写 在文本框TEXT2显示

先用以。号为分隔符，转为数组
str1=replace(text1.text,".","。") '把.转为。
strarr=split(text1.text,"。") '转为数组

for i=0 to UBound(strarr)
strtem=ltrim(strarr(i))'去除左侧空格
a1=ucase(left(strarr(i)))
a2=right(strarr(i),len(strarr(i))-1)
strall=strall+"。"+a1+a2
next

这样就完成了，不过这样第一个是。开头，你自已修改一下就好了

用循环按照顺序检查有没有句号,如果有句号那么把句号后面的字母变大写的不就可以了么?

vb编程的问题 嘎嘎 VB编程的问题 vb编程的问题 vb的编程问题 VB编程的问题 vb 编程的问题 vb编程的问题 Vb编程的问题 VB编程的问题 VB编程的一些问题