vb程序设计0道编程题

1、1 .输入 3 个数，输出最大的数Private Sub Command11_Click()Dim max%X 仁 V al(lnputBox(input)X2=Val(lnputBox(input) x3=Val(lnputBox(input)max=X1If max=X2 Thenmax=X2End IfIf max=x3 Thenmax=x3End IfMsgBox(3 个数之中的最大数 max=&max)End SubPrivate Sub Command12_Click()2 有一元二次方程：aX2+bX+c=0 依次输入 a, b, c,判断此方程是否有实根a=Val(InputB

2、ox(input)B=Val(InputBox(input)c=Val(InputBox(input)s=BA2-4*a*cIf a0 ThenIf s=0 ThenMsgBox(两个相等实根)ElseIf s0 ThenMsgBox(两个不相等实根)ElseIf s0 ThenMsgBox(两个不相等虚根)End IfElseMsgBox(无 解)End IfEnd SubPrivate Sub Command13_Click()3.输入一个百分制的成绩，若大于等于 60,则用消息框 弹出，显示恭喜！成绩通过！，若小于 60,则弹出消 息框，显示抱歉！成绩没有通过！End SubPrivat

3、e Sub Command14_Click()4 输入一年份，判断它是否为闰年，并显示有关信息。(判断闰年的条件是： 年份能被4整除但不能被100整 除，或者能被 400 整除)yes=Val(lnputBox(year)If yes Mod 4=0 And yes Mod 1000 Or yes Mod 400=0ThenMsgBox(yes&是 闰年)ElseMsgBox(yes&不 是闰年)End IfEnd SubPrivate Sub Command15_Click()5.输入学生的百分制成绩，转换输出为五级制成绩，90100 分转换为优秀， 8089 转换为良好， 7079 转 换

4、为中等，60-69 转换为及格，060 转换为不及格。score=Val(InputBox(input)Select Case scoreCase Is=90MsgBox(优秀 JCase Is=80MsgBox(良好)Case Is=70MsgBox(中)Case Is=60MsgBox (吸格)Case ElseMsgBox(不及格)End SelectEnd Sub6.随机产生一个三位正整数，然后逆序输出，产生的数 与逆序数同时显示。例如，产生 246,输出是 642 a=645X=Val(InputBox(input)Mid(a,n-i+1,1)=cIf X=60 ThenNext i

5、MsgBox (恭喜！成绩通过！)MsgBox(a)ElseEnd SubMsgBox (抱歉！成绩没有通过！)7.输入两个整数，求它们的最大公约数End Ifn=Len(a)For i=1 To Int(n/2)c=Mid(a,i,1)Mid(a,i,1)=Mid(a,n-i+1,1)m=Val(lnputBox(input m 值)n=Val(lnputBox(input n值,)If nm Thent=nn=mm=tEnd Ifr=m Mod nDo While r0m=nn=rr=m Mod nLoopMsgBox (最大公约数=&n)End Sub21随机产生 10 个 30,100

6、 内的整数， 求最小值及所对 应的下标。Dim a(10)As IntegerFor i=0 To 9a(i)=lnt(Rnd*70+30)Next imin=a(0)Mini=0For i=1 To 9If a(i)=max Thenmax=a(i)Elsemin=a(i)End Ifsum=sum+a(i)Next iMsgBox(max=&max)MsgBox(min=&min)MsgBox(avg=&sum/10)End SubPrivate Sub Command2_Click()8.编程求 200-400 范围内 5 的倍数或 7 的倍数之和。 一 个数如果同时是 7 和 5 的倍

7、数，则只能加一次。Dim sum1%,sum2%sum1=0:sum2=0For i=200 To 400If i Mod 5=0 Thensum1=sum1+iElseIf i Mod 7=0 Thensum2=sun2+iEnd IfDebug.Print i,sum1,sum2Next iMsgBox(5 的倍数之和 sum=&sum1)MsgBox(7 的倍数之和 sum=&sum2)End SubPrivate Sub Command20_Click()17.编程求斐波那契数列前 11 项。(斐波那契数列：F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n=2 )Dim

8、f(11)As Integerf(0)=1f(1)=1For i=2 To 10f(i)=f(i-1)+f(i-2)Next iFor i=0 To 10Print f(i);Next iEnd SubPrivate Sub Command21_Click()18.将输入的字符串以反序显示。例如：输入ASDFG,显示TGFDSADim s(10)As StringFor i=0 To 9s(i)=lnputBox(input)Next iFor i=9 To 0 Step-1Print s(i)Next iEnd SubPrivate Sub Command22_Click()19随机产生 1

9、0 个30,100内的整数，求最大值及所对应的下标Dim a(10)As Integer,max%For i=0 To 9a(i)=lnt(Rnd*70+30)Next imax=a(0)maxi=0For i=1 To 9If a(i)=max Thenmax=a(i)maxi=iEnd IfNext iMsgBox(max=&max)MsgBox(maxi=&maxi)End SubPrivate Sub Command23_Click()20.随机产生 10 个30,100内的整数，求最大值、最小值和平均值。Dim a(10)As lnteger,max%,min%For i=0 To

10、9a(i)=Int(Rnd*70+30)Next imax=a(0)min=a(0)For i=1 To 9If a(i)=max Thenmax=a(i)Elsemin=a(i)End Ifsum=sum+a(i)Next iMsgBox(max=&max)MsgBox(min=&min)MsgBox(avg=&sum/10)End SubPrivate Sub Command24_Click()24.利用随机函数生成一个 4X4 的矩阵(即二维矩阵), 范围是20,50内的整数，输出该矩阵所有数据之和Dim a(4,4)As IntegerDim sum%,i%,j%For i=0 To

11、3For j=0 To 3a(i,j)=Int(Rnd*30+20)sum=sum+a(i,j)Next jNext iFor i=0 To 3For j=0 To 3Print a(i,j),Next jPrintNext iMsgBox(sum=&sum)End SubPrivate Sub Command25_Click()25.已知有序数组 a()，编程插入 x (x 的值为 14)。数 组 a中的元素分别为12, 6, 4, 89, 75, 63, 100, 20, 31。Dim a(),iMin%,n%,i%,j%,t%a=Array(2,6,4,89,75,63,100,20,3

12、1)X=14n=UBound(a)获得数组的下标上界For i=0 To n-1进行 n-1 轮比较iMin=i对第 i 轮比较时，初始假定第 i 个元素最小For j=i+1 To n在数组 i+1n 个元素中选最小元素的下标If a(j)a(iMin)Then iMin=jNext jt=a(i)i+1n 个元素中选出的最小元素与第 i 个元素交换a(i)=a(iMin)a(iMin)=tNext iFor k=0 To n查找欲插入数 x 在数组中的位置If Xa(k)Then Exit ForNext kReDim Preserve a(n+1)数组增加一个元素For i=n To k

13、 Step-1数组元素后移一位，腾出位置a(i+1)=a(i)Next ia(k)=XFor i=0 To n+1Print a(i);NextEnd SubPrivate Sub Command26_Click()26.编写一函数， 计算 Double 类型一维数组所有元素的 平均值。Dim a(),n%,s!a=Array(1,4,7,9,12,23,56)n=UBound(a)s=sum1(a()MsgBox(sum=&s)MsgBox(avg=&s/n)End SubFunction sum1%(X()Dim i%sum1=0For i=0 To UBound(X)sum1=sum1+

14、X(i)Next iEnd FunctionPrivate Sub Command27_Click()27 .用函数过程求表达式 1+1/2+1/3+1/4+1/n 的和.n=lnputBox(INPUT)s=sum2(n)MsgBox(SUM2=&s)End SubFunction sum2!(ByVal n As Integer)Dim i%sum2=0For i=1 To nsum2=sum2+1/iNext iEnd FunctionPrivate Sub Command28_Click()28.编一子过程 ProcMin,求一维数组 a 中的最小值，子 过程的形参自己确定Dim a(

15、),n%,min%a=Array(1,4,7,9,12,-23,56)n=UBound(a)Call procmin(a(),min)MsgBox(min=&min)End SubSub procmin(X(),ByRef min%)Dim i%min=X(0)For i=1 To UBound(X)If X(i)max Then max=X(i)Next iEnd FunctionPrivate Sub Command3_Click()9.计算 100300 之间所有能被 3 和 7 整除的数之和Dim sum%sum=OFor i=100 To 300If i Mod 3=0 And i

16、Mod 7=0 Thensum=sum+iPrivate Sub Command30_Click()30.编写一个过程计算并输出区间100, 1000内所有素数的和(要求判断素数使用过程(函数或子过程)来实现。调用该过程。(提示：只能被 1 和自身整除的自然数称为 素数。)Dim i%,sum!,f%sum=0For i=100 To 1000Call procs(i,f)If f=1 Thensum=sum+iEnd IfNext iMsgBox(sum=&sum)End SubSub procs(ByVal X%,ByRef f%)Dim i%f=1For i=2 To X-1If i M

17、od X=0 Thenf=0Exit ForEnd IfNext iEnd SubPrivate Sub Command4_Click()10.分别统计 1-100 中， 满足 3 的倍数、 7 的倍数的数各 有多少m=0:n=0For i=1 To 100If i Mod 3=0 Thenn=n+1ElseIf i Mod 7=0 Thenm=m+1End IfNext iMsgBox(3 的倍数个数=&=&小小MsgBox(7 的倍数个数=&m)End SubPrivate Sub Command5_Click()11.某次歌曲大奖赛，有 7 个评委。如果分别输入 7 个 评委对某个参赛者

18、的打分数，按照去掉一个最高分和一 个最低分的计算办法，求出该参赛者的平均得分Dim sum%,max%,min%sum=0:max=0:min=999For i=1 To 7X=Val(InputBox(input)If max=X Thenmin=XEnd Ifsum=sum+XNext iAvg=(sum-max-min)/5MsgBox(最高分=&max)MsgBox(最低分=&min)MsgBox(总和=&sum)MsgBox (平均分=&Avg)End Sub12.输入一串字符， 统计其中字母 A(不区分大小写)出现 的次数。Dim ch As Stringch=ASDEASn=0For i=1 To Len(ch)st=Mid(ch,i,1)If UCase(st)=AThenn=n+1End IfNext iMsgBoxC 字符串中出现 A 字符的系数&n)End SubPrivate S