VB题！！！

显示全部楼层 · 2008-12-10 11:58:54

在窗口上新建一个text1 ，command1控件。
在文本框中输入英文单词，单击command按钮，要将文本框中的每个单词的首字母大写！！！
（设单词由空格，逗号，分号，感叹号，回车符，换行符作为单词之间的分隔符）

千问 · 2008-12-10 11:58:54

Private Sub Command1_Click()
Dim s() As String
Dim i As Integer
s() = Split(Me.Text3.Text, vbCrLf) '根据空格分隔成数组
For i = 0 To UBound(s)
s(i) = Replace(s(i), Left(s(i), 1), UCase(Left(s(i), 1)), 1, 1) '替换小写
Next i
Me.Text3.Text = ""
For i = 0 To UBound(s)
Me.Text3.Text = IIf(Me.Te...

千问 · 2008-12-10 11:58:54

Private Sub Command1_Click() Dim f, s As String f = " ,;!" & vbCrLf
'如果还有别的间隔符号都加进来s = "abcdefghijklmnopqrstuvwxyz" For i = 1 To Len(f) For j = 1 To Len(s) Text1.Tex...

千问 · 2008-12-10 11:58:54

Private Sub Command1_Click() Dim a, b, i, c, d, temp a = Text1 b = Len(Text1) d = 1 For i = 1 To b c = Mid(a, i, 1) If ((Asc(c) > 96 And Asc(c) < 123) Or (Asc(c...