VB字符出现最多字符以及次数数统计

Vb经典题型1，文本出现字符次数最多的字母，及出现的次数Dim a(1 To 26) As Integer Dim max As Integer n = Len(s) For i = 1 To n k = Asc(Mid$(s, i, 1) If (k = 65 And k = 97 And k = 122) Then a(k - 96) = a(k - 96) + 1 End If Next max = 0 For m = 1 To 26 If max a(m) Then max = a(m) End If Next Text2 = max For m = 1 To 26 If a(m) = max Then l = m End If Next Text1 = Chr(l + 64)2，打印出菱形Private Sub Form_Click() For i = 1 To 5 For j = 1 To 6 - i Print ; Next j For j = 1 To 2 * i - 1 Print *; Next j Print Next i For i = 1 To 4 For j = 1 To i + 1 Print ; Next j For j = 1 To (9 - 2 * i) Print *; Next j Print Next iEnd Sub3，最长单词的长度，以该长度最后一次出现的单词是？Option Base 1Dim s As StringPrivate Sub Command1_Click() Open App.Path & in5.dat For Input As #1 s = Input(LOF(1), #1) Close #1End SubPrivate Sub Command2_Click()需考生编写帮我解释一下一下的代码：Dim s as stringFor i = 1 To Len(s) J = Asc(Mid(s, i, 1) Select Case J Case 48 To 57, 65 To 90, 97 To 122 Case Else Mid(s, i, 1) = - End Select Next i J = Len(s) - 1 For i = 1 To J If Mid(s, i, 1) = - And Mid(s, i + 1, 1) = - Then s = Left(s, i) + Right(s, J - i) J = J - 1 i = i - 1 End If Next i s = Left(s, Len(s) - 1) R = Split(s, -) B = R(0) For i = 1 To UBound(R) If Len(B) maxval Then maxval = sumval If sumval minval Then minval = sumval Next k Close #1=考生应完成的程序（结束）=End SubPrivate Sub Command2_Click() Open App.Path & out5.dat For Output As #1 Print #1, maxval% Print #1, minval% Close #1End SubDim a(5, 40)Private Sub Command1_Click() Dim ch As String ch$ = Open App.Path & in5.dat For Input As #1 For i = 1 To 5 For j = 1 To 40 Input #1, a(i, j) ch = ch & a(i, j) & Next j ch = ch & Chr(13) & Chr(10) Next i Close #1 Text1.Text = chEnd SubPrivate Sub Command2_Click() =考生编写的程序= For i = 1 To 5 Max = -100 Sum = 0 n = 0 For j = 1 To 40 If a(i, j) Mod 2 = 0 Then If Max a(i, j) Then Max = a(i, j) Else Sum = Sum + a(i, j) n = n + 1 End If Next j Label1(i - 1).Caption = Max Text2(i - 1).Text = Int(Sum / n * 100) / 100 Next i =End SubPrivate Sub Command3_Click() Open App.Path & out5.dat For Output