VB程序编辑题

一、 求和、求均值，最大、最小值；1.求和及平均值（1）每一行的和及平均值Dim sum as integer, sum1 as integerFor i = 1 To 4sum = 0For j = 1 To 4sum = sum + a(i, j)Next jPrint sum / 4-每行平均值Next i2.找最值Dim max As Integer, min As Integermax = a(1)：min = a(1)For i = 2 To 10If max =a(i) Thenmin = a(i)End IfNext iPrint max；min二、 判断字母、数字、其他字符（1）If.ElseIf. .：Private Sub Command1_Click()Dim a As String * 1a = Text1If UCase(a) = A And UCase(a) = 0 And a = 9 ThenText1.Text = a & 是数字ElseText1.Text = a & 是其它字符End IfEnd Sub（2）Select Case ：Private Sub Command2_Click()Dim a As String * 1a = Text1Select Case aCase a To z, A To ZText1.Text = a & 是字母Case 0 To 9Text1.Text = a & 是数字Case ElseText1.Text = a & 是其它字符End SelectEnd Sub三、 计数(统计各个字母个数、各个数字个数)（1）统计各个字母个数：【实验十】2.Private Sub Form_Click()FontSize = 20ClsDim a%(65 To 90), b$, cb = InputBox(输入一串字符串（字母）：)Print 输入的字母串为; bFor i = 1 To Len(b) c = Asc(UCase(Mid(b, i, 1) a(c) = a(c) + 1Next iFor i = 65 To 90 If a(i) 0 Then Print Chr(i); 的个数为:; a(i)Next iEnd Sub（2）各个数字个数编写一程序，用随机函数产生099范围的随机整数，统计个位上数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。 Private Sub Form_Click() Dim a(100), b(100) As Integer For i = 1 To 100 a(i) = Int(Rnd * 100) Print a(i); If i Mod 10 = 0 Then Print End If Next For i = 1 To 100 b(i) = a(i) Mod 10 Print b(i); If i Mod 10 = 0 Then Print End If Select Case b(i) Case b(i) = 0 a0 = a0 + 1 Case b(i) = 1 a1 = a1 + 1 Case b(i) = 2 a2 = a2 + 1 Case b(i) = 3 a3 = a3 + 1 Case b(i) = 4 a4 = a4 + 1 Case b(i) = 5 a5 = a5 + 1 Case b(i) = 6 a6 = a6 + 1 Case b(i) = 7 a7 = a7 + 1 Case b(i) = 8 a8 = a8 + 1 Case b(i) = 9 a9 = a9 + 1 End Select Next i Print Print a0=; a0 Print a1=; a1 Print a2=; a2 Print a3=; a3 Print a4=; a4 Print a5=; a5 Print a6=; a6 Print a7=; a7 Print a8=; a8 Print a9=; a9 End Sub四、 回文数、水仙花数、百元买百鸡（1）回文数（设n是一任意自然数。若将n的各位数字反向排列所得自然数n1与n相等，则称n为一回文数。例如，若n=1234321，则称n为一回文数；但若n=1234567，则n不是回文数。）Private Sub Form_Load()Dim l As Integera = Int(InputBox(请输入一个正整数)l = Len(a)For i = 1 To l / 2If Mid(a, i, 1) = Mid(a, l + 1 - i, 1) ThenClsPrintPrint Tab(12); a & 是回文数ElseClsPrintPrint Tab(12); a & 不是回文数End IfNext iEnd Sub（2）水仙花数: 水仙花数是指一个 n 位数 ( n3 )，它的每个位上的数字的 n 次幂之和等于它本身。(例如:13 + 53+ 33 = 153)Private Sub Command1_Click()Dim x As IntegerDim g%, s%, b%x = 153g = x Mod 10s = x 10 Mod 10b = x 100If g 3 + s 3 + b 3 = x ThenForm1.Print 水仙花数ElseForm1.Print noEnd IfEnd Sub（3）百元买百鸡问题：编写程序解决百钱买百鸡问题：公鸡5元/只，母鸡3元/只，小鸡一元买3只，用100元买100只鸡，问有哪些购买方案？（p34）Private Sub Command1_Click() Dim a, b, c As Integer Dim aconst, bconst As Integer Dim sum As Integer aconst = Int(100 - (100 / 3) / 5) + 1 For a = 0 To aconst bconst = Int(100 - a * 5) / 3) + 1 For b = 0 To bconst c = 100 - a - b If Not (c Mod 3) Then sum = a * 5 + 3 * b + c / 3 If sum = 100 Then Print 公鸡 & a, 母鸡 & b, 小鸡 & c ElseIf sum 100 Then Exit For End If End If Next NextEnd Sub五、 数组排序（冒泡、选择），交换（1） 数组排序（冒泡、选择）1. 冒泡 ：Private Sub Command2_Click()FontSize = 15ClsPrint 随机产生的原数组为： n = InputBox(数组元素的个数N：) ReDim a(n) For i = 1 To UBound(a) a(i) = Int(Rnd * 200 + 1) Print a(i); Next i Print For i = 1 To UBound(a) - 1 p = i For j = i + 1 To UBound(a) If a(j) a(p) Then p = j Next j t = a(i) a(i) = a(p) a(p) = t Next i Print 排序后数组为： For i = 1 To UBound(a) Print a(i); Next i PrintEnd Sub2. 选择：Private Sub Command1_Click()FontSize = 15ClsPrint 随机产生的原数组为： n = InputBox(数组元素的个数N：) ReDim a(n) For i = 1 To UBound(a) a(i) = Int(Rnd * 200 + 1) Print a(i); Next i Print For i = 1 To UBound(a) - 1 p = i For j = i + 1 To UBound(a) If a(j) a(p) Then p = j Next j t = a(i) a(i) = a(p) a(p) = t Next i Print 选择法排序后数组为： For i = 1 To UBound(a) Print a(i); Next i PrintEnd Sub（2） 交换1.【实验七】1.Private Sub Form_Click()Dim i%, a$, b$, c$a = InputBox(请输入一个任意整数：)Print 输入的整数为：; aFor i = 1 To Len(a) b = Mid(a, i, 1) Print b & ,; c = b & c Next iPrint 逆向排列数为：; cEnd Sub2.【实验十】1.1Private Sub Form_Click()FontSize = 20ClsDim i%, a%(10), t%RandomizePrint 随机产生的10个数字为： For i = 1 To 10 a(i) = Int(Rnd * 101 + 200) Print a(i); If i Mod 5 = 0 Then Print Next i For i = 1 To 5 t = a(i): a(i) = a(i + 5): a(i + 5) = t Next iPrint 交换后的数字为： For i = 1 To 10 Print a(i); If i Mod 5 = 0 Then Print Next iEnd Sub六、 阶乘、阶乘和组合数。（1） 阶乘1.X%=inputbox(“”) 6Dim s as integerS=0For i=1 to x-1 5If x mod i=0 thenS=s+i 0+1+2+3EndifNext i 2 3 4 5If s=x thenPrint “yes”ElsePrint “no”End if2.【实验十三】Private Sub form_Click()Dim a%, s!FontSize = 20n = InputBox(输入一个正整数：)s = fac(n)Print n & != & sEnd SubPublic Function fac(k) As SingleDim i%fac = 1For i = 1 To k fac = fac * iNext iEnd Function（2） 阶乘Private Sub Form_Click()Dim x As Long, y As Double, z As DoublePrint Tab(15); 1-10的阶乘y = 1For x = 1 To 10y = y * x: z = z + yPrint x; !; y:Next xPrint 1!+2!+3!+4!+5!+6!+7!+8!+9!+10!=; zEnd Sub3. 阶乘和Private Sub Command1_Click()For i = 1 To 10 Sum = Sum + jiecheng(i)NextPrint SumEnd SubFunction jiecheng(num)jiecheng = 1 For i = 1 To num jiecheng = jiecheng * i NextEnd Function七、 素数；斐波那契数列（1） 斐波那契数列：1 .题目：输出斐波那契级数1、2、3、5、8、13.，当某项数值大于或等于30000时结束。此级数项的规律是：前两项的值各为1，从第3项起，每一项是前两项的和。（要求一行输出6项）。Private Sub Form_Click()Dim a&, b&, c&, i%a = 1b = 1i = 2Print a; b;Doc = a + bIf c = N Then 如果正常跳出For循环,则I跳出循环For后的值应该是N,所以满足这个条件Print N & 是素数ElsePrint N & 不是素数End If 方法二:(一般都是用这种方法)一个数n是素数的条件:不能被2 Sqr(n)整除, 1、用For.Next语句Dim I as Integer,N As IntegerN=val(InputBox()For I=2 to int(Sqr(N)If N Mod I=0 Then Exit ForNext IIf I int(Sqr(N) Then Print N & 是素数ElsePrint N & 不是素数End If2.【实验十三过程】Private Sub Form_Click()Dim n%FontSize = 20n = InputBox(请输入一个正整数n：) If Prime(n) = True ThenPrint n; 是素数 ElsePrint n; 不是素数 End IfEnd SubFunction Prime(n%) As Boolean d = True For i = 2 To n - 1 If n Mod i = 0 Then d = False Exit For End If NextPrime = dEnd Function3. Dim x as integer Dim n as intger n=0-统计因子的个数 x=inputbox(“”) for k=1 to x -表示因子的范围 if x mod k=0 then-满足条件说明k为一个因子 n=n+1 end if next k if n=2 then print x;”是素数” print “不是素数”end if 八、 顺序文件的读写操作（p25）（1） 读：Private Sub C