VB考试复习题.docx

1、VB考试复习题1、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得xyz。Private Sub Command1_Click()Dim x!, y!, z!x = InputBox(input x)y = InputBox(input y)z = InputBox(input z)Print Tab(8); ; x; y; zPrint 排序前:; x; ; y; ; zIf x y Then t = x: x = y: y = t:If x z Then t = x: x = z: z = t:If y c And b + c a And a + c b The

2、nMsgBox (能构成三角形)ElseMsgBox (不能构成三角形)End IfEnd Sub4、随机产生10个30,100内的整数，求最小值及所对应的下标。Private Sub Form_click()Dim a(1 To 10) As Integer, zb%, mina%, i%For i = 1 To 10a(i) = Int(Rnd * 71 + 30)Print a(i);Next i zb = 1 mina = a(1)For i = 2 To 10If mina a(i) Then mina = a(i): zb = iNext iPrintPrint min=; min

3、a, 下标=; zbEnd Sub5、随机产生10个30,100内的整数，求最大值、最小值和平均值。Dim a(1 To 10) As Integer, amin, amax, i%, avera!Private Sub Form_Click()For i = 1 To 10a(i) = Int(Rnd * 71 + 30)Next iamin = a(1)amax = a(1)avera = a(1)For i = 2 To 10If a(i) amax Then amax = a(i)If a(i) amin Then amin = a(i)avera = avera + a(i)Next

4、 iFor i = 1 To 10Print a(i);Next iPrintPrint max=; amax, min=; amin, avera=; avera / 10End Sub6、随机产生10个30,100内的整数，求最大值及所对应的下标Private Sub Form_Click()Dim a(9), max%, imax%For i = 0 To 9a(i) = Int(Rnd * 71 + 30)Print a(i);Next iPrintmax = a(0)For i = 1 To 9 If max a(i) Then max = a(i): imax = i Next i

5、Print max=; maxPrint 下标=; imaxEnd 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 =

6、 aver + markNext iaver = (aver - min - max) / 5Print averEnd Sub8,9、求s=a+aa+aaa+.aaaaa（n个a），其中a和n的值随机产生，a的范围是1,9的整数，n的范围是5,10。如a=3,n=6,则s=3+33+333+3333+33333+333333。编程确定n和a的值，并计算s。Private Sub Form_click()Dim s!, t!, i!, a%, n%a = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 5)t = 0: s = 0Print Tab(9); a=; a, n

7、=; nPrintFor i = 1 To nt = t * 10 + as = s + tPrint Tab(9); tNext iPrintPrint Tab(9); s=; Val(s)End Sub10.产生1100以内的素数Private Sub Command1_Click()Dim i%, j%, tag As BooleanFor j = 1 To 100tag = TrueFor i = 2 To j - 1If j Mod i = 0 Then tag = FalseNext iIf tag Then Print j;Next jEnd Sub11、计算100300之间所有

8、能被3和7整除的数之和。Private Sub Command1_Click()Dim s%, i%s = 0For i = 100 To 300If i Mod 3 = 0 Or i Mod 7 = 0 Thens = s + iEnd IfNext iPrint s= & sEnd Sub12.输入一年份，判断他是否为闰年，并现实是否是闰年的有关信息。Private 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 & 年是闰年)Else

9、MsgBox (y & 年是平年)End IfEnd Sub13、编程求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 =

10、s1 - s2Print s3End Sub14.利用inputbox函数输入两个整数，求它们的最大公约数Private Sub Command1_Click() n1 = InputBox(输入n) m1 = InputBox(输入m) If m1 n1 Then m = m1: n = n1 Else m = n1: n = m1 End If r = m Mod n Do While r 0 m = n n = r r = m Mod n LoopPrint m n 的最大公约数是：; nEnd Sub15、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246

11、，输出是642。Private Sub Command1_Click()Text1 = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Dim x%, x1%, x2%, x3%x = Val(Text1)x1 = x Mod 10x2 = (x Mod 100) 10x3 = x 100Text2 = x1 * 100 + x2 * 10 + x3End Sub方法二：Dim a%, m%, b%, c%, d%Private Sub Form_Click()a = Int(Rnd * 900 + 100)Print ad = (

12、a Mod 10) * 100b = (a Mod 100) - (a Mod 10)c = a 100m = c + b + dPrint mEnd Sub16、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。 Private Sub Form_Click()Dim i, a, b, n As Stringn = InputBox(输入字符)i = Len(n)For a = 1 To i / 2b = Mid(n, a, 1) Mid(n, a, 1) = Mid(n, i + 1 - a, 1) Mid(n, i + 1 - a,

13、 1) = b Next a Print nEnd Sub17、利用随机函数生成一个44的矩阵(即二维矩阵),范围是20,50内的整数,输出该矩阵所有数据之和Private Sub Form_Click()Dim a(3, 3), sum%For i = 0 To 3 For j = 0 To 3a(i, j) = Int(Rnd * 31 + 20) Next jNext iFor i = 0 To 3 For j = 0 To 3 Print a(i, j); Next j PrintNext iFor i = 0 To 3 For j = 0 To 3 sum = sum + a(i,

14、j) Next j Next i Print sum=; sumEnd Sub18.编一子过程Procmin(a(),amin)，求一维数组中a的最小值amin.（随机产生10个200-400之间的数，并显示数组各元素；调用子函数，显示最小值）Private Sub Form_Click()Dim a(1 To 10), amin, i%For i = 1 To 10a(i) = Int(Rnd * 200 + 200)Print a(i);Next iCall s(a(), amin)PrintPrint min=; aminEnd SubSub s(b(), min)Dim i%min =

15、 b(LBound(b)For i = LBound(b) + 1 To UBound(b)If b(i) min Then min = b(i)Next iEnd Sub19，20.编一个选择排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为sub sort1(a%()。Private Sub Command1_Click()Dim b%(10), i%Print 排序前For i = 1 To 10b(i) = Int(Rnd * 100)Print b(i);Next iPrintPrint 排序后Call sort(b()End SubSub sort(a%()Dim

16、i%, m%, n%, min%, t%n = UBound(a)For i = 0 To n - 1min = iFor j = i + 1 To nIf a(j) 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 Sub递减次序排列Private Sub Command1_Click()Dim b%(10), i%Print 排序前For i = 0 To 9b(i) = Int(Rnd * 100)Prin

17、t b(i);Next iPrintPrint 排序后Call sort(b()End SubSub sort(a%()Dim i%, m%, n%, min%, j%n = UBound(a)For i = 0 To n - 1For 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) - 1Print a(i);Next iEnd Sub21,22.已知有序数组a()，编程插入x（x的值为14）。数组

18、a中的元素分别为12，6，4，89，75，63，100，20，31。Ip = Val(InputBox(请输入数字x)For i = 0 To UBound(A) If Ip maxa Then maxa = a(i)If a(i) mina Then mina = a(i)suma = suma + a(i)Next iFor i = 1 To 10Print a(i);Next iPrintPrint max=; maxa, min=; mina, aver=; suma / 10End Sub26、利用随机函数生成一个44的矩阵(即二维矩阵),范围是20,50内的整数,输出每行中的最大值

19、和下标。Dim a%(3, 3), i%, j%, imax%Private Sub Command1_Click() For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 31 + 20) a(i, j); ; Next j Next iimax = 0 For i = 0 To 3 For j = 0 To 3 If a(i, imax) a(i, j) Then imax = j End If Next j 第; i + 1; 行; 最大值为; a(i, imax); 下标为; (; i; imax; ) Next iEnd Sub27、声明

20、一个整型的二维数组a(1 to 4,1 to 4)，用随机函数产生各元素，范围介于1,20之间，编程将第1行和第3行对应元素交换。Private Sub Form_Click()Dim a%(1 To 4, 1 To 4), i%, j%Print 排序前For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 20 + 1) Print Tab(j * 4); a(i, j); Next j PrintNext iPrint 排序后For j = 1 To 4t = a(1, j): a(1, j) = a(3, j): a(3, j) = tNex

21、t jFor i = 1 To 4 For j = 1 To 4 Print Tab(j * 4); a(i, j); Next j PrintNext iEnd Sub28.编写一个过程计算并输出区间100，1000内所有素数的和（要求判断素数使用过程（函数或子过程）来实现）。调用该过程。（提示：只能被1 和自身整除的自然数成为素数）Function sushu%(ByVal x%)Dim m%, Tag As Boolean, i% m = Val(x) Tag = True For i = 2 To m - 1 If (m Mod i) = 0 Then Tag = False Next

22、 i If Tag Then sushu = xEnd FunctionPrivate Sub Command1_Click()Dim i%, k%For i = 100 To 1000If sushu(i) Then iNext iSum = 0 For k = 0 To - 1 Sum = Sum + Val(k) Next kLabel1 = 100，1000内所有素数和为: & SumEnd Sub29，30、随机生成一个整型的二维数组，范围在10,20之间，以下三角形式输出该数组。 Private Sub Form_Click()Dim a(4, 4) As IntegerFor i

23、 = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd * 11 + 10) Next j Next iFor i = 0 To 4 For j = 0 To i Print a(i, j); Next j PrintNext iEnd Sub以上三角形式输出该数组Dim a%(4, 4)Private Sub Command1_Click()For i = 0 To 4For j = i To 4 Tab(j * 6); a(i, j);Next jNext iEnd SubPrivate Sub Form_Load()For i = 0 To 4For j = 0 To 4a(i, j) = Int(Rnd * 11 + 10)Next jNext iEnd Sub31、利用随机函数生成一个44的矩阵(即二维矩阵),范围是40,80内的整数，求它的最大值及所对应的下标。Private Sub Form_Click()Dim a(3,