VB编程题(20道) (2).doc

1. 求100以内的素数。Private Sub Form_Click()Dim i%, j%For i = 2 To 100For j = 2 To i - 1If i Mod j = 0 Then Exit ForNext jIf j = i Then Print i;Next iEnd Sub2、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。Dim a%, m%, b%, c%, d%Private Sub Form_Click()a = Int(Rnd * 900 + 100)Print ad = (a Mod 10) * 100b = (a Mod 100) - (a Mod 10)c = a 100m = c + b + dPrint mEnd Sub3、利用InputBox函数输入两个整数，求它们的最大公约数。Private Sub command1_click()Dim x As Integer, y As Integerx = InputBox(请输入x的值)y = InputBox(请输入y的)Print x & 和 & y & 的最大公约数是; ; gys(x, y)End SubPrivate Function gys(ByVal m As Integer, ByVal n As Integer) As IntegerDim a As Integer a = m Mod nDo Until a = 0 m = n: n = a: a = m Mod nLoopgys = nEnd Function4、编程求200-400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。)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 IfNext iFor i = 200 To 400If i Mod 5 = 0 And i Mod 7 = 0 Thens2 = s2 + iEnd IfNext is3 = s1 - s2Print s3End Sub5、输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim a As Integera = InputBox(请输入年份)If a Mod 400 = 0 Or a Mod 4 = 0 And a Mod 100 0 ThenMsgBox (Yes)ElseMsgBox (No)End IfEnd Sub6、计算100300之间所有能被3和7整除的数之和。Private Sub Form_Click()For i = 100 To 300If i Mod 21 = 0 Thens = s + iPrint i;End IfNext iPrintPrint s=; sEnd Sub7、某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。Private Sub Command1_Click()Dim mark!, max!, min!, aver!, i%aver = 0For i = 1 To 7mark = InputBox(输入第 & i & 位评委的打分)If i = 1 Thenmax = mark: min = markElseIf mark max Then max = markEnd Ifaver = aver + markNext iaver = (aver - min - max) / 5Print averEnd Sub8、随机产生10个30,100内的整数，求最大值及所对应的下标Private Sub Command1_Click()Dim a(1 To 10) As Integer, i%, maxa%, m%For i = 1 To 10a(i) = Int(Rnd * 70) + 30Next imaxa = a(1)For i = 2 To 10If a(i) a(1) Thenmaxa = a(i)m = iEnd IfNext iFor i = 1 To 10Print a(i);Next iPrint maxa= & maxa; 下标为 & mEnd Sub9、随机产生10个30,100内的整数，求最小值及所对应的下标。Private Sub Command1_Click()Dim a(1 To 10) As Integer, i%, mina%, m%For i = 1 To 10a(i) = Int(Rnd * 71 + 30)Next im = 1mina = a(1)For i = 2 To 10If a(i) amax Then amax = a(i)If a(i) amax Then amax = a(i)If a(i) amin Then amin = a(i)avera = avera + a(i)Next iFor i = 1 To 10Print a(i);Next iPrintPrint max=; amax, min=; amin, avera=; avera / 10End Sub15、编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next iCall ProcMin(a(), amin)PrintPrint amin =; aminEnd SubSub ProcMin(b(), min)Dim i%min = b(LBound(b)For i = LBound(b) + 1 To UBound(b)If b(i) a(min) Then min = jNext jm = a(i): a(i) = a(min): a(min) = mNext iFor i = LBound(a) To UBound(a)Print a(i);Next iEnd Sub17、编一个冒泡排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为sub sort1(a%()。Private Sub Command1_Click()Dim b%(10), i%Print 排序前For i = 0 To 9b(i) = Int(Rnd * 100)Print b(i);Next iPrintPrint 排序后Call sort(b()End SubSub sort(a%()Dim i%, m%, n%, min%, j%n = UBound(a)For i = 1 To nFor j = 0 To n - 1 - iIf a(j) a(j + 1) Then m = a(j): a(j) = a(j + 1): a(j + 1) = mNext jNext iFor i = LBound(a) To UBound(a)Print a(i);Next iEnd Sub18、输入一串字符，统计其中字母A(不区分大小写)出现的次数。Private Sub Command1_Click()Dim a(1 To 26) As Integer, c As Stringle = Len(Text1)For i = 1 To le c = UCase(Mid(Text1, i, 1) If c = A Then j = Asc(c) - 65 + 1 a(j) = a(j) + 1 End IfNext iLabel2 = A的个数为 & a(j)End Sub19、已知有序数组a()，编程插入x（x的值为14）。数组a中的元素分别为12，6，4，89，75，63，100，20，31。Private Sub Command1_Click()Dim a(), i%, m%, x%, n%a = Array(4, 6, 12, 20, 31, 63, 75, 89, 100)n = UBound(a)x = Val(Text1)Print 插入前For i = 0 To n Print a(i);Next iFor m = 0 To n If x a(m) Then Exit ForNext mReDim Preserve a(n + 1)For i = n To m Step -1 a(i + 1) = a(i)Next ia(m) = xPrintPrint 插入后For i = 0 To n + 1 Print a(i);Next iEnd Sub20、我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。Private Sub Command1_Click()n = Int(Log(2) / Log(1.008) + 1)Label1 = n & 年后人数超过26亿End Sub1. 求100以内的素数。2. 随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。3. 利用InputBox函数输入两个整数，求它们的最大公约数。4. 编程求200-400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。)5. 输入一年份，判断它是否为闰年，并显示有关信息。6. 计算100300之间所有能被3和7整除的数之和。7. 某次歌曲大奖赛，有7个评委。分别输入7个评委对某个参赛者的打分数，求出该参赛者的平均得分。8. 随机产生10个30,100内的整数，求最大值及所对应的下标9. 随机产生10个30,100内的整数，求最小值及所对应的下标。10. 随机生成一个整型的二维数组，范围在10,20之间，以下三角形式输出该数组。11. 编写一个过程计算并输出区间100，1000内所有素数的和12. 随机产生10个1100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。13. 利用随机函数生成一个44的矩阵(即二维矩阵),范围是20,50内的整数,输出该矩阵所有数据之和14. 随机产生10个30,100内的整数，求最大值、最小值和平均值。15. 编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。16. 编