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

1、1，文本出现字符次数最多的字母，及出现的次数Dim a(1 To 26) As IntegerDim max As Integern = Len(s)For i = 1 To nk = Asc(Mid$(s, i, 1)If (k = 65 And k = 97 And k = 122) Then a(k - 96) = a(k - 96) + 1End IfNextmax = 0For m = 1 To 26If max a(m) Then max = a(m)End IfNextText2 = maxFor m = 1 To 26If a(m) = max Then l = mEnd If

2、NextText1 = Chr(l + 64)2，打印出菱形Private Sub Form_Click()For i = 1 To 5For j = 1 To 6 - i Print ;Next jFor j = 1 To 2 * i - 1Print *;Next jPrintNext iFor i = 1 To 4For j = 1 To i + 1 Print ;Next jFor j = 1 To (9 - 2 * i)Prin t *Next jPrintNext iEnd Sub3,最长单词的长度，以该长度最后一次出现的单词是？在芳生文件夹下有一个工程文件sjtS.vbp,其窗悴

3、上有两个标题分别杲读数据和统计的命令按钮.谙添加两个标签， 其各称分别是Labell和Labels,标题分别为最长单词的长度和囚该长度最石一次出现的单词是；再添加两个答称分别为 Textl和Text2,初始內容为空的文本框：如图所示.程序功能如下： 如果单击读数据按钮，则将考主文件来下m5.dat文件的内容读到变量中此过程已给出）； 如果单击统计按祀，则程序自前统计in5.dat文件该文件中仅含有字母和空恪，而空恪是用来分隔不同单词的）中最长 单词的长度，以及in5.（fat中最石一个以该长度出现的单词，并将该单词的长度显示在Textl文本框內，其单词显示在Text?文 本框內-读数据命令扌妄

4、钮的Cliuk事件过程己经给出，谙为统计命令按祀蕭写适当的事件过程，实现上述功能注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须通过单击窗体右 上角的咲闭按钮结束程序，否则无成航最辰程序按原文件名存盘.maOption Base 1 Dim s As Stri ngPrivate Sub Comma nd1_Click()Ope n App.Path & in 5.dat For In put As #1 s = In put(LOF(1), #1)Close #1End SubPrivate Sub Comma nd2_Click()需考生编写帮我解

5、释一下一下的代码：Dim s as stri ngFor i = 1 To Len(s)J = Asc(Mid(s, i, 1)Select Case JCase 48 To 57, 65 To 90, 97 To 122Case ElseMid(s, i, 1)=-End SelectNext iJ = Len(s) - 1For i = 1 To JIf Mid(s, i, 1) = - And Mid(s, i + 1, 1) = - Then s = Left(s, i) + Right(s, J - i) J = J - 1i = i - 1 End IfNext i s = Lef

6、t(s, Len(s) - 1) R = Split(s, -) B = R(0)For i = 1 To UBound(R)If Len(B) maxval Then maxval = sumvalIf sumval min val Then min val = sumvalNext kClose #1= 考生应完成的程序(结束)=End SubPrivate Sub Comma nd2_Click()Open App.Path & out5.dat For Output As #1Print #1, maxval%Print #1, min val%Close #1End Sub专生文件夬

7、下有工程文件幻也啦.程序运行时，单击*显示数据对轴，则将考主文件先下i麻.dat文件的加读入到侖3 列的二準数粗沖.并按阳显示在框內，单击-费计濒钮，则找出坯行中阁数的量文値计型奇数前平均位（平 均值保留维小数，是否四會五入不限）,并将它们（共个値）分别显示在中和Ttx吃频绢中.单击*谍存搜 钮，则保存计程结果.显示数据和保存”捜钮的Hi咔事件过程已疑洽出，诘编写”统计持钮的Click壷件过程实现上述功 能.| 注言：君生未斜修改窗悴交件中豳存在的控件和握序.在结束程序运行之的.选狹进行”統计，且必狈单击保存按钮尿存结 果，否则无戚绩最后，程仔按痰文件名存盘.哇 fWWTiJ俚庄割B |时 |

8、價再Dim a(5, 40)Private Sub Comma nd1_Click()Dim ch As Stri ngch$ =Ope n App.Path & in 5.dat For In put As #1For i = 1 To 5For j = 1 To 40Input #1, a(i, j) ch = ch & a(i, j) & Next jch = ch & Chr(13) & Chr(10) Next iClose #1Text1.Text = chEnd SubPrivate Sub Command2_Click() = 考生编写的程序 = For i = 1 To 5Max = -100Sum = 0 n = 0For j = 1 To 40If a(i, j) Mod 2 = 0 ThenIf Max a(i, j) Then Max = a(i, j) ElseSum = Sum + a(i, j) n = n + 1 End IfNext jLabel1(i - 1).Caption = MaxText2(i - 1).Text = Int(Sum / n * 100) / 100 Next iEnd SubPrivate Sub Command3_C