Question

VB数组排序问题

1要求单击排序按钮，自动生成10个1－100之间的随机整数，并将这是个数存放在数组a（1 to 10）中，然后将这10个整数按从小到大的顺序输出
2要求程序运行后，在文本框1输入一个自然数N（大于0小于30），要求单击“S＝”命令按钮时求出Fibonacci数列的前N项，并保存于数组Fib（），然后将前N项的和显示在文本框2中

Answer 1

1.Private Sub Command1_Click()
dim a(1 to 10) as integer,I as integer,J as integer,R
for I=1 to 10
Randomize
a(i)=int(rnd()*99)+1
next I
for I=1 to 9
for J=I+1 to 10
if a(i)>a(j) then
r=a(i):a(i)=a(j):a(j)=r
end if
next j
next i
for i=1 to 10
print a(i);
next i
End Sub
2.Private Sub Command2_Click()
Dim Fib() As Long, A As Integer, I As Integer, J
A = Val(Text1.Text)
ReDim Fib(1 To A)
If A < 3 Then MsgBox "请输入大于3的数！": Exit Sub
Fib(1) = 1
Fib(2) = 2
Print Fib(1); Fib(2);
For I = 3 To A
Fib(I) = Fib(I - 1) + Fib(I - 2)
J = J + Fib(I)
Print Fib(I);
If I Mod 10 = 0 Then Print
Next I
J = J + Fib(1) + Fib(2)
Text2.Text = J
End Sub

Answer 2

我昨天写了个第一题
Dim a(20) As Integer
Dim i, j As Integer
Dim m As Integer
Dim t As Integer

Private Sub Form_Click()
Print "---------------------------------------"
Randomize
For i = 1 To 20
a(i) = Int(Rnd() * 91) + 10
Print a(i);
If i Mod 10 = 0 Then
Print
End If
Next i
End Sub

Private Sub Command1_Click()
Print "---------------------------------------"
For i = 1 To 19
m = i
For j = i + 1 To 20
If a(m) > a(j) Then m = j
Next j
If m <> i Then
t = a(m)
a(m) = a(i)
a(i) = t
End If
Next i
For i = 1 To 20
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub