VB写的程序

来源：百度知道 编辑：UC知道 时间：2024/05/24 05:22:42
1、统计文本框中英文单词的个数（设单词由空格、逗号、分号、感叹号、回车符（ASCII码为13）、换行符（ASCII码为10）作为单词之间的分隔符）
2、输入下列所示图形

1
222
33333
4444444
555555555
66666666666
7777777777777

麻烦好心帮我写下这两个程序。。本人新手。。！万分感谢

第1题
Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = " " Or Mid(Text1.Text, i, 1) = "," Or Mid(Text1.Text, i, 1) = ";" Or Mid(Text1.Text, i, 1) = "!" Or Mid(Text1.Text, i, 1) = Chr(13) Or Mid(Text1.Text, i, 1) = Chr(10) Then n = n + 1
Next i
If Len(Text1.Text) <> 0 Then n = n + 1
MsgBox n
End Sub
第2题
Private Sub Command1_Click()
For i = 1 To 7
For j = 1 To i * 2 - 1
Print Trim(i);
Next j
Print
Next i
End Sub

1.
Dim i, l, count As Integer
Dim s As String
Dim word As Boolean
s = Text1.Text
l = Len(s)
word = False
For i = 1 To l
If Mid(s, i, 1) = " " Or Mid(s, i, 1) = "," Or Mid(s, i, 1) = ";" Or Mid(s, i, 1) = "!" Or Asc(Mid(s, i, 1)) = 13 Or Asc(Mid(s, i, 1)) = 10 Then
word = False
End If
If Mid(s