VB程序设计道编程题

1、1.输入3个数，输出最大的数Private Sub Comma nd12_Click()End SubPrivate Sub Comma nd11_Click()Dim max%X1=Val(I nputBox(i nput)X2=Val(I nputBox(i nput)x3=Val(I nputBox(i nput)max=X1If max=X2 Thenmax=X2End IfIf max=x3 Thenmax=x3End IfMsgBox(3个数之中的最大数max=&max)2 有一元二次方程：aX2+bX+c=,0依 次输入a, b, c,判断此方程是否有实 根a=Val(I npu

2、tBox(i nput)B=Val(I nputBox(i nput)c=Val(I nputBox(i nput)s=BA2-4*a*cIf a0 ThenIf s=0 ThenMsgBox(两个相等实根)ElseIf s0 ThenMsgBox(两个不相等实根JElseIf s=60 ThenMsgBox(恭喜！成绩通过！ ”)ElseMsgBox(抱歉！成绩没有通过！)End IfEnd Sub并显示有关信息。(判断闰年的条件是： 年份能被4整除但不能被100整除，或 者能被400整除)yes=Val(I nputBox(year)If yes Mod 4=0 And yes Mod 1

3、000Or yes Mod 400=0 ThenMsgBox(yes&是 闰年)ElseMsgBox(yes&不 是闰年)End IfEnd SubPrivate Sub Comma nd15_Click()5输入学生的百分制成绩，转换输出 为五级制成绩,90100分转换为优秀,8089转换为良好，7079转换为中 等，6069转换为及格，060转换为score二Val(l nputBox(i nput)例如，产生246,输出是642。Select Case scoreCase ls=90MsgBox (优秀)Case ls=80MsgBox(良好)Case ls=70MsgBox(中)Cas

4、e ls=60MsgBox (及格)Case ElseMsgBox(不 及格)End SelectEnd Sub6.随机产生一个三位正整数，然后逆a=645n 二Le n(a)For i=1 To I nt(n/2)c=Mid(a,i,1)Mid(a,i,1)=Mid(a, n-i+1,1)Mid(a, n-i+1,1)=cNext iMsgBox(a)End Sub7输入两个整数，求它们的最大公约 数m=Val(InputBox(input m 值)n=Val(I nputBox(i nput n 值)If nm The n该数组a(i)=I nt(R nd*70+30)n=mm=tEnd

5、Ifr=m Mod nDo While r0m=nn=rr=m Mod nLoopMsgBox(最大公约数二&n)End Sub21.随机产生10个30,100内的整数,求最小值及所对应的下标。Dim a(10)As In tegerFor i=0 To 9Next imi n=a(0)Mi ni=0For i=1 To 9If a(i)=max Thenmax=a(i)Elsemin二 a(i)End If入数组，显示产生的数，求最大值、最Next iDim a(10,10)As In teger小值、平均值MsgBox(max二&max)Debug.Pri nt i,sum1,sum2Ms

6、gBox(mi n=&min)MsgBox(avg=&sum/10)End SubPrivate Sub Comma nd2_Click()8.编程求200-400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，贝y只能加一次。Dim sum1%,sum2%sum1=0:sum2=0For i=200 To 400If i Mod 5=0 Thensum1=sum1+iElseIf i Mod 7=0 ThenNext iMsgBox(5 的倍数之和 sum二&sum1)MsgBox(7 的倍数之和 sum二&sum2)End SubPrivate Sub Comma nd20_

7、Click()17.编程求斐波那契数列前11项。(斐 波 那 契 数 列：F(0)=f(1)=1,F( n)=F( n-1)+F( n-2) n=2)Dim f(11)As In tegerf(0)=1f(1)=1For i=2 To 10f(i)=f(i-1)+f(i-2)End IfFor i=0 To 10Pri nt f(i);Next iDim a(10)As In teger,max%End SubFor i=0 To 9Private Sub Comma nd21_Click()a(i)=I nt(R nd*70+30)18.将输入的字符串以反序显示。例Next i如：输入ASD

8、FGT显示TGFDSAmax=a(0)Dim s(10)As Stri ngmaxi=0For i=0 To 9For i=1 To 9s(i)=I nputBox(i nput)If a(i)=max ThenNext imax=a(i)For i=9 To 0 Step-1maxi=iPri nt s(i)End IfNext iNext iEnd SubMsgBox(max=&max)Private Sub Comma nd22_Click()MsgBox(maxi=&maxi)求最大值及所对应的下标19.随机产生10个30,100内的整数,End Sub20.随机产生10个30,100

9、内的整数,求最大值、最小值和平均值。Dim a(10)As In teger,max%,mi n%For i=0 To 9a(i)=I nt(R nd*70+30)Next imax=a(0)mi n=a(0)For i=1 To 9If a(i)=max Thenmax=a(i)Elsemin二 a(i)End IfMsgBox(max=&max)MsgBox(mi n=&min)MsgBox(avg=&sum/10)End SubPrivate Sub Comma nd24_Click()24.利用随机函数生成一个4X4的矩 阵(即二维矩阵),范围是20,50内的 整数，输出该矩阵所有数据

10、之和Dim a(4,4)As In tegerDim sum%,i%,j%For i=0 To 3For j=0 To 3a(i,j)=I nt(R nd*30+20)sum=sum+a(i)Next in=UBou nd(a)获得数组的下标上界X=14For i=0 To 3For j=0 To 3Pri nt a(i,j),Next jPri ntNext iMsgBox(sum=&sum)End SubPrivate Sub Comma nd25_Click()25.已知有序数组a()，编程插入x (x 的值为14)。数组a中的元素分别为12, 6, 4, 89, 75, 63, 100

11、, 20, 31。Dim a(),iMi n%, n%,i%,j%,t%a二Array(2,6,4,89,75,63,100,20,31)For i=0 To n-1进行n-1轮比较iMin=i对第i轮比较时，初始假定第i个元素最小For j=i+1 To n在数组i+1n个元素中选最小元素的下标If a(j)a(iMi n) Then iMin二jNext jt=a(i)i+1n个元素中选出的最小元素与第i个元素交换a(i)=a(iMi n)a(iMi n)=tNext iFor k=0 To n查找欲插入数x在数组中的位置If Xa(k)The n Exit Forn=UBou nd(a)

12、s=sum2( n)ReDim Preserve a( n+1)数组增加一个兀素For i=n To k Step-1数组元素后移一位，腾出位置a(i+1)=a(i)Next ia(k)=XFor i=0 To n+1Pri nt a(i);NextEnd SubPrivate Sub Comma nd26_Click()26.编写一函数，计算Double类型一 维数组所有元素的平均值。Dim a(), n%,s!a二Array(1,4,7,9,12,23,56)s=sum1(a()MsgBox(sum二&s)MsgBox(avg二&s/n)End SubFun ction sum1%(X()

13、Dim i%sum1=0For i=0 To UBou nd(X)sum1=sum1+X(i)Next iEnd Fun cti onPrivate Sub Comma nd27_Click()27.用函数过程求表达式1+1/2+1/3+1/4+-+1/n 的和.n=ln putBox(INPUT)MsgBox(SUM2二&s)MsgBox(mi n=&min)End SubFun cti on sum2!(ByVal n As In teger)Dim i%sum2=0For i=1 To nsum2=sum2+1/iNext iEnd Fun cti onPrivate Sub Comma

14、 nd28_Click()28.编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定Dim a(), n%,mi n%a二Array(1,4,7,9,12,-23,56)n=UBou nd(a)End SubSub procmi n(X(),ByRef mi n%)Dim i%min=X(0)For i=1 To UBou nd(X)If X(i)max The n max=X(i)Next iEnd Fun cti onPrivate Sub Comma nd3_Click()9计算100300之间所有能被3和7整除的数之和Dim sum%sum=0For i=100 To

15、 300Private Sub Comma nd30_Click()30.编写一个过程计算并输出区间 100，1000内所有素数的和(要求判断 素数使用过程(函数或子过程)来实现。 调用该过程。(提示：只能被1和自身 整除的自然数称为素数。)Dim i%,sum!,f%sum=0For i=100 To 1000Call procs(i,f)If f=1 The nsum=sum+iEnd IfNext iMsgBox(sum=&sum)Dim i%f=1For i=2 To X-1If i Mod X=0 The nf=0Exit ForEnd IfNext iEnd SubPrivate

16、Sub Comma nd4_Click()10.分别统计1-100中，满足3的倍数、7的倍数的数各有多少ElseIf i Mod 7=0 Thenm=m+1End IfNext iMsgBox（3的倍数个数二&n）MsgBox（7的倍数个数二&m）End SubPrivate Sub Comma nd5_Click（）m=0: n=0Dim sum%,max%,mi n%For i=1 To 100sum=0:max=0:m in=99911.某次歌曲大奖赛，有7个评委。如 果分别输入7个评委对某个参赛者的打 分数，按照去掉一个最高分和一个最低 分的计算办法，求出该参赛者的平均得 分X=Val

17、(l nputBox(i nput)区分大小写）出现的次数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 Stri ngch=ASDEASn=0For i=1 To Len( ch)st=Mid(ch,i,1)If UCase(st)二AThe nn=n+1End IfNext iMsgBox(字符串中出现A字符的系数&n)En

18、d SubPrivate Sub Comma nd6_Click()13.我国目前有13亿人口，按人口年 增长率0.8%十算,多少年后我国人口将 超过26亿。X=13Do While X=26X=X*1.008n=n+1LoopMsgBox( n)End SubPrivate Sub Comma nd7_Click()14.小猴有桃若干，第一天吃掉一半多 一个；第二天吃剩下桃子的一半多一 个；以后每天都吃尚存桃子的一半多一 个，到第7天只剩一个，问小猴原有桃 多少？X=1For i=6 To 1 Step-1MsgBox(X)End SubPrivate Sub Comma nd8_Click()15.求100以内的素数For i=1 To 100