VB.统计定冠词个数.docVIP

统计文本框（要求输入字母或者空格）中定冠词‘the’出现的个数。 代码 Public Class Form1 Dim a As String, i%, b Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a = TextBox1.Text i = 0 b = InStr(a, the) Do While InStr(a, the) 0 i = i + 1 a = Mid(a, b + 3) Loop TextBox2.Text = i End Sub End Class 随机产生10个数，进行排序后，插入一个数值（键盘输入）到有序数数组中，显示出来。 代码 Public Class Form1 Dim s(9), i, j, t, k, n, m As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = For i = 0 To 9 s(i) = Int(Rnd() * 90 + 10) Label1.Text = s(i) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label2.Text = For i = 0 To 8 For j = 0 To 8 - i If s(j) s(j + 1) Then t = s(j) : s(j) = s(j + 1) : s(j + 1) = t End If Next j Next i For k = 0 To 9 Label2.Text = s(k) Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click n = Val(TextBox3.Text) Label3.Text = For m = 0 To 9 If s(m) n Then Exit For Next m ReDim Preserve s(10) For i = 9 To m Step -1 s(i + 1) = s(i) Next i s(m) = n For i = 0 To 10 Label3.Text = s(i) Space(2) Next i End Sub End Class 要求将文本框内容从头尾至中间依次各取字符，组成一个新的字符串并输出。例如代码： Public Class Form1 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim s$ Dim i, j As Integer If Asc(e.KeyChar) = 13 Then s = TextBox1.Text i