回答数
3
浏览数
116
小昕总理
Private Sub Command1_Click()dim s as string,s1 as strings = text1For i = 1 To Len(s)ch = Mid(s, i, 1)If ch >= "a" And ch <= "z" Thens1 = s1 + UCase(ch)ElseIf ch >= "A" And ch <= "Z" Thens1 = s1 + LCase(ch)End IfNext itext1=s1End Sub
百变粉豹子
textbox
多多吃多多评价
如果出现这种情况,可能是你的ppt没有装自动语法、拼写纠正功能吧?实在不行,你就手动了,把文本框拉长一点~
优质英语培训问答知识库