VB编程题完整版 3

(1)结构选择(2)循环结构(3)阵列(4)过程1.要输出最大数量，请输入3个数字2.有一元二次方程：通过依次输入aX2 bX c=0、a、b、c来确定此方程是否有真根3.输入以百分比为单位的成绩，大于60的话弹出消息框，表示“祝贺你！成绩通过了！”小于60时，消息框弹出，提示：“对不起！成绩不及格！”4.判断年度是否为闰年，并显示资讯。判断闰年的条件是，一年可以分成4，但不能分成100，也不能分成4005.输入学生的百分制成绩，输出为五分制分数，90 100分为优秀，80 89为良好，70 79为中等，60 69为及格，0 60为不及格。6.随机生成三个正整数，然后反向输出，以生成的数量和反向顺序显示。例如，如果生成246，则输出为642。7.输入两个整数以查找最大公约数。8.在200-400范围内，对5的倍数或7的倍数进行编程。(如果一个数是7和5的倍数，只能加一次。即可从workspace页面中移除物件。9.计算100到300之间所有数字的总和，可除以3和710.分别统计1-100中满足3的倍数、7的倍数的数量。11.一场歌曲大奖赛有7名评委。如果对参加者输入7名评价者的分数，将通过减去1个最高分数和1个最低分数的计算得出参加者的平均分数。12.输入一系列字母，计算字母a(不区分大小写)出现的次数。13.我国目前有13亿人口，按年人口增长率0.8%计算，几年后我们的人口将超过26亿。14.猴子有几个桃子，第一天吃一个或多个。第二天吃剩下一半以上的桃子；以后每天吃一半以上的桃子生存，只剩下一个，直到7天，问猴子有多少原桃子？15.求100内的小数100元白溪购买问题。假设鸡每只5角，公鸡每只2元，母鸡每只3元，通过编程解决了买鸡方案。17.编程斐波那契系列的前11个。(斐波那契数列：f (0)=f (1)=1，f (n)=f (n-1) f (n-2) n=2)18.反向显示输入的字符串。例如：输入“ASDFGT”以显示“TGFDSA”19.随机生成30，100内的10个整数，以查找最大值及其下标20.随机生成30，100内的10个整数，以获得最大值、最小值和平均值。21.随机生成30，100内的10个整数以查找最小值及其下标。22.随机生成以以下三角格式输出的10，20范围的整数二维数组：23.随机生成10个1-100个正整数，以显示最大值、最小值和平均值的结果数。24.使用随机函数生成由20，50内的整数组成的44个矩阵(二维矩阵)，以输出所有矩阵数据的总和25.已知对齐数组a()以编程方式插入x(x的值为14)。数组a的元素分别为12，6，4，89，75，63，100，20，31。26.编写计算Double类型的一维数组中所有元素的平均值的函数。27.使用函数过程，表达式1 1/2 1/3 1/4.寻找1/n的总和。28.求一维阵列a的最小值，子过程的几何参数自己决定。29.编译函数以获得一维数组a的最大值。函数的几何参数由自身确定。30.编写计算和输出间隔100，1000内所有小数的过程(小数使用过程(函数或子过程)。调用过程。(提示：只能分为1和本身的自然数称为小数。)，以获取详细信息1.要输出最大数量，请输入3个数字Private Sub Command1_Click()X=InputBox(输入第一个数字)Y=InputBox(输入第二个数字)Z=InputBox(输入第三个数字)Max=xIf Max y Then Max=yIf Max z Then Max=zPrint“最大值”；麦斯End Sub2.有一元二次方程：通过依次输入aX2 bX c=0、a、b、c来确定此方程是否有真根Private Sub Command1_Click()Dim a、b、c、nA=Text1B=Text2C=Text3N=b * b-4 * a * cIf n=0 ThenLabel1=方程式有根ElseLabel1=“无表达式根”End IfEnd Sub3.输入以百分比为单位的成绩，大于60的话弹出消息框，表示“祝贺你！成绩通过了！”小于60时，消息框弹出，提示：“对不起！成绩不及格！”Private Sub Form_Load()Text1= End SubPrivate Sub Command1_Click()Dim nN=Text1If n 60 ThenVal (MsgBox(恭喜！“成绩通过！”)，以获取详细信息ElseVal (MsgBox(对不起！“成绩不及格！”)，以获取详细信息End IfEnd Sub4.输入4年以确定是否是闰年，并显示信息。判断闰年的条件是，一年可以分成4，但不能分成100，也不能分成400Private Sub Command1_Click()Dim y%Y=Val(Text1)if y mod 4=0 and y mod 100 0 or y mod 400=0 thenMsgBox (y 年是闰年)ElseMsgBox (y 年不是闰年)End IfEnd Sub5.输入学生的百分制成绩，输出为五分制分数，90 100分为优秀，80 89为良好，70 79为中等，60 69为及格，0 60为不及格。Private Sub Command1_Click()A=Val(InputBox(“输入分数”)If a 100 Then Print“超出范围”if a=90 And a=100 Then Print storm sewersIf a=80 And a 90 Then Print“良好”If a=70 And a 80 Then Print medium If a=60 And a 70 Then Print pass If a 60 Then Print“不及格”End Sub6.随机生成三个正整数，然后反向输出，以生成的数量和反向顺序显示。例如，如果生成246，则输出为642。Private Sub Command1_Click()Dim x%、x1%、x2%、x3%Text1=Int(Rnd * 900 100)X=Val(Text1)X1=xsmod 10X2=(x Mod 100) 10X3=x 100Text2=x1 * 100 x2 * 10 x3End Sub7.输入两个整数以查找最大公约数Private Sub Command1_Click()N1=InputBox(输入 n )M1=InputBox(输入 m )If m1 n1 ThenM=m13300n=n1ElseM=n1: n=m1End IfR=m Mod nDo While r 0M=nN=rR=m Mod n回路Printm n的最大公约数为：nEnd Sub8.在200-400范围内，对5的倍数或7的倍数进行编程。(如果一个数是7和5的倍数，只能加一次。即可从workspace页面中移除物件。Private Sub Command1_Click()Dim s1%、s2%、s3%、i%S1=0S2=0For I=200 To 400If I Mod 5=0 Or I Mod 7=0 ThenS1=S1 IEnd If下一步IFor I=200 To 400If I Mod 5=0 And I Mod 7=0 ThenS2=S2 IEnd If下一步IS3=S1-S2打印机S3End Sub计算9、100和300之间所有可被3和7整除的数字的总和Private Sub Command1_Click()Dim ISum=0For I=100 To 300If I Mod 3=0 And I Mod 7=0 ThenSum=Sum IEnd If下一步I打印合计End Sub10，分别统计1-100中满足3的倍数、7的倍数的数量是多少。Private Sub Command1_Click()Dim i、s3、S7S3=0S7=0For I=1 To 100If I Mod 3=0 ThenS3=S3 1End If下一步IFor I=1 To 100If I Mod 7=0 ThenS7=S7 1End If下一步IPrint 3的倍数；S3print“7的倍数”；S7End Sub11、某歌曲大奖赛有7名评委。如果对参加者输入7名评价者的分数，将通过减去1个最高分数和1个最低分数的计算得出参加者的平均分数。Private Sub Command1_Click()Dim max、a(1 To 7)、min、sFor I=1 To 7A(i)=Val(输入 I number )下一步IMax=a(1)Min=a(1)S=a(1)For I=2 To 7If a(i) max Then max=a(i)If a(i) min Then min=a(i)S=s a(i)下一步IS=s-min-maxS=s/5打印“平均值”；sEnd Sub12、输入一系列字母，计算字母a(不区分大小写)出现的次数。Private Sub Command1_Click()Dim c As String，a As IntegerB=InputBox(输入字符)For I=1 To Len(b)C=UCase(Mid(b，I，1)If c=A ThenA=a 1End If下一步IPrint a出现的次数：；aEnd Sub13.我国目前为13亿人口，年人口增长率为0.8%，预计几年后将超过26亿人。Private Sub Command1_Click()Dim a，IA=13I=0Do While a 26A=a * (1.008)I=I 1回路打印IEnd Sub14、小猴子吃桃子，第一天半多；第二天吃剩下一半以上的桃子；以后每天吃一半以上的桃子生存，只剩下一个，直到7天，问猴子有多少原桃子？Private Sub Command1_Click()Dim a，IA=1For I=1 To 6A=2 * (a 1)下一步IPrint 猴子原来的桃子；a；“只有”End Sub求15，100内的小数Private Sub Command1_Click()Dim i，jFor I=2 To 100For j=2 To I-1If I Mod j=0 Then Exit ForNext jIf j=I Then Print I下一步IEnd Sub16，100元白溪购买问题。假设鸡每只5角，公鸡每只2元，母鸡每只3元，通过编程解决了买鸡方案。Private Sub Command1_Click()Print“小鸡”；雅母鸡；野公鸡Print For x=1 To 100For y=1 To 100For z=1 To 100If 0.5 * x 2 * y 3 * z=100 Then打印“