专升本VB上机编程作业2.docVIP

专升本Visual Basic上机编程作业（二） 一、字符串处理问题： 例1： 统计键盘输入的一个字符串中包含字母e的个数，并输统计出结果。 Dim x As String, i %,k% x=InputBox(“请输入字符串X：”) k=0 For i=1 to Len(x) If Mid(x,i,1))=”e” Then k=k+1 Next i Pirnt “字符串：”;x;”中包含e的个数为：”;k 请参考以上程序，完成下列编程。 1、编写程序，运行时接收用户键盘输入的一个长字符串，统计其中包含字母a的个数（不区分大小写），并在屏幕上输出统计结果。 2、编写窗体Form的click事件过程，完成如下功能： （1）键盘输入一个字符串； （2）将字符串逆序，如输入字符串“abcd”，逆序后变成“dcba”； （3）输出逆序后的字符串。 解： Private sub Form_click() Dim s1 as string ,s2 as string s1=inputbox(“请输入一个字符串”) Print “输入的字符串为：”; s1 For i=1 to Len(s1) s2=Mid(s1,i,1) s2 Next i Print “逆序后的字符串为：”;s2 End sub 3、有5个英文单词，分别为：Word，Excel，PowrPoint，Type，Angle，要求设计出如下程序： （1）在键盘输入N个数（本例输入5），把英文单词放入名为X的数组中； （2）显示X数组中英文单词； （3）对数组中的英语单词从小到大排序； （4）显示出排序后X数组中英文单词。 Dim x( ) as String ,i%,n% n=Val(InputBox(“请输入单词个数N的值：”)) ReDim x(n) For i=1 to n x(i)=InputBox(“输入单词”) Print x(i);Space(2); Next i For i = 1 To n-1 For j = i + 1 To n If x(i) x(j) Then t = x(i): x(i) = x(j): x(j) = t 交换位置 End If Next j Next i Print Print 排序结果： For i = 1 To n Print x(i); Space(2); Next i 二、数组 （一）找最大值、最小值及位置问题： 例1：随机产生20 个两位整数存放在一维数组中，找出其中的最大值、最小值。 解： Dim a%(20),i%,min%,max% For i=1 to 20 a(i)=int(rnd*90)+10 Print a(i); Next i Min=a(1) Max=a(1) For i=2 to 20 If a(i)min then min=a(i) If a(i)min then max=a(i) Next i Print min ,max 若要求：（1）该数组的平均数，该如何实现？ （2）找出大于平均数的数并输出，该如何实现？ （3）找出最大数（或最小数）的位置，该如何实现？ P138编程第（6）题可参考该程序代码。 例2：找矩阵中最大值及其位置： 随机产生30个3位整数，形成6行5列的二维数组，然后指出其中的最大数及其所在的行、列的位置。 Dim a(6, 5) As Integer s = 0: m = 0: n = 0 For i = 1 To 6 For j = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); If a(i, j) s Then s = a(i, j) : m = i: n = j Next j Print Next i Print 最大的数=; s Print 最大的数所在的行=; m Print 最大的数所在的列=; n （二）数组元素的排序问题 例1：随机产生10个两位整数，并按从小到大的顺序显示出来。 选择法排序： Dim a(10) As Integer, i%,j%,T% For i=1 To 10 a(i)=Int(Rnd*90)+10 Print a(i); Next i For i=1 To 9 For j=i+1 To 10 If a(i)a(j) Then T=a(i) : a(i)=a(j) : a(j)=T Next j Next i Print Print