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

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 = 90) Then a(k - 64) = a(k - 64) + 1 End If If (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 i End Sub 3，最长单词的长度，以该长度最后一次出现的单词是？ Option Base 1 Dim s As String Private Sub Command1_Click() Open App.Path \in5.dat For Input As #1 s = Input(LOF(1), #1) Close #1 End Sub Private Sub Command2_Click() 需考生编写 帮我解释一下一下的代码： Dim s as string For 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) Len(R(i)) Then B = R(i) Next i For m = UBound(R) To 1 Step -1 If Len(B) = Len(R(m)) Then Exit For End If Next Text1.Text = Len(B) Text2.Text = R(m) End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path \out5.dat For Output As #1