vb程序设计相关问题

单击窗体实现功能
一、新建窗体，输入如下程序：
Private Sub Form_Click()
Dim A(1 To 5) As Integer
Print "原始数组为:"
For i = 1 To 5
A(i) = 2 * i
Print A(i);
Next
Print
Print "循环右移后为:"
temp = A(5)
For i = 5 To 2 Step -1
A(i) = A(i - 1)
Next
A(1) = temp
For i = 1 To 5
Print A(i);
Next
Print
End Sub
二、
Private Sub Form_Click()
Dim A As Variant
A = Array(5, 2, 8, 7, 6, 9)
Print "原始数组为:"
For i = 1 To 6
Print A(i - 1);
Next
Print
'找出最小元素并与第一个对调位置
Print "找出最小元素并与第一个对调位置"
For i = 1 To 6
For j = 1 To i
If A(i - 1) < A(j - 1) Then
temp = A(i - 1)
ElseIf A(j - 1) < temp Then
temp = A(j - 1)
End If
Next
Next
For i = 1 To 6
If A(i - 1) = temp Then
A(i - 1) = A(0)
A(0) = temp
End If
Next
For i = 1 To 6
Print A(i - 1);
Next
Print
End Sub
三、
Private Sub Form_Click()
Dim A() As Variant
k = InputBox("请输入Fibonacci数列项数n:")
If k < 1 Then
Print "输入错误";
ElseIf k = 1 Then
ReDim A(1 To k)
A(1) = 1
Print A(1);
ElseIf k = 2 Then
ReDim A(1 To k)
A(1) = 1
A(2) = 1
Print A(1); A(2);
Else
ReDim A(1 To k)
A(1) = 1
A(2) = 1
For i = 1 To k
If i > 2 Then
A(i) = A(i - 2) + A(i - 1)
End If
Next
For j = 1 To k
If j Mod 10 <> 0 Then
Print A(j);
Else
Print A(j);
Print
End If
Next
End If
Print
End Sub