VB.统计定冠词个数.doc

统计文本框（要求输入字母或者空格）中定冠词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 SubEnd 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 SubEnd Class要求将文本框内容从头尾至中间依次各取字符，组成一个新的字符串并输出。例如:12345678输出18273645代码：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 = 0 j = Len(s) - 1 Do While i = j If i = j Then TextBox2.Text &= s(i) Else TextBox2.Text &= s(i) & s(j) End If i = i + 1 j = j - 1 Loop End If End Sub Private Sub Button1_Click(ByVal sender As System.Object,