题目：输入一段文章，将每个单词开头字母从小写改为大写
dim para,d,c,e,g as string,i,f,tot as integer
tot=len(text1.text)
d=mid(text1,3,1)
d=ucase(d)
for i=4 to tot
c=mid (text1,i,1)
if c=" " or c="." or c="?" or c=";" or c=":" or c=" " " or c=" ' " or c="?" or c="!" then
e=mid(text1,i+1,1)
f=Asc(e)-32
g=chr(f)
end if
next i
大家看下，是否开头字母从小改大了~我的问题是如何把输入进去的文章打印出来~，希望大家帮忙啊，谢谢了！