VB数组习题1.ppt

91、用数组实现求数列的前10项，并在窗体上输出。数列的前两项分别是1，从第三项开始，每一项都是它的前两项和 Private Sub Form_Click() Dim a(1 To 10) As Integer Dim k% a(1) = 1 a(2) = 1 **********FOUND********** For k = 1 To 10 a(k) = a(k - 1) + a(k - 2) **********FOUND********** End for **********FOUND********** While k = 1 To 10 Step -1 Print a(k); Next End Sub 94、下面程序运行时单击窗体后，Form1上的输出结果 Option Explicit Private Sub Form_Click() Dim x(5) As Integer **********SPACE********** Dim i, j, t,【?】 As Integer x(1) = 8: x(2) = 3: x(3) = 1: x(4) = 6: x(5) = 4 For i = 1 To 4 For j = i + 1 To 5 **********SPACE********** If x(i)【?】x(j) Then t = x(i): x(i) = x(j): x(j) = t Next j, i **********SPACE********** For k = 1 To 【?】 Form1.Print x(; k; )=; x(k) Next k End Sub 95、下面程序段将7个随机整数从小到大排序。 Private Sub Form_Click() Dim t%, m%, n%, w%,a(7) as integer For m = 1 To 7 a(m) = Int(10 + Rnd() * 90) Print a(m); ; Next m Print For m = 1 To 6 t = m **********FOUND********** For n =2 To 7 **********FOUND********** If a(t) a(n) Then n = t Next n **********FOUND********** If t = m Then w = a(m)： a(m)=a(t)：a(t) = w End If Next m For m = 1 To 7 : Print a(m):Next m End Sub 96、用于将十个数字从小到大排序(冒泡) Option base 1 Private Sub Form_Click() Cls Dim a(10) As Integer dim i as integer,j as integer,temp as integer **********FOUND********** For i = 0 To 10 If i Mod 2=0 Then a(i)=i Else a(i)=-i Print a(i); Next Print For i = 1 To 10 For j = 1 To 10 - i **********FOUND********** If a(j)a(j + 1) Then temp=a(j):a(j)=a(j + 1):a(j + 1)=temp End If **********FOUND********** Next i,j For i = 1 To 10：Print a(i);：Next End Sub 97、本程序的功能是随机产生10个两位正整数，并进行递减排序。 Private Sub form_click() Dim Temp%，I%，N%，X%(10)，J% N = 10 Print 数据： For I = 0 To N-1 **********FOUND********** X(I) = Int(Rnd() * 90) Print X(I); Next I Print： Print 排序： For I = 0 To N - 1 For J = I + 1 To N **********FOUND********** If X(I) X(J) Then **********FOUND********** Temp = X(I) X(J) = X