vb题1.将fibonacci数列11235813……前30vb题1.将fibonacci数列11235813……前30个数存入数组A，再输出其中的素数2.随机产生15个1到100的数字放在一维数组中，输入一个数，要求找出

Question

vb题 1.将fibonacci数列1 1 2 3 5 8 13……前30
vb题
1.将fibonacci数列1 1 2 3 5 8 13……前30个数存入数组A，再输出其中的素数
2.随机产生15个1到100的数字放在一维数组中，输入一个数，要求找出该数是数组中第几个元素的值。如果该数不在数组中，则输出no

Answer 1

1.

Private Sub Command1_Click()
Dim a(30), i, j As Long
a(1) = 1
a(2) = 1
For i = 3 To 30
  a(i) = a(i - 2) + a(i - 1)
  For j = 2 To a(i) - 1
    If a(i) Mod j = 0 Then Exit For
  Next
  If j = a(i) Then Print a(i);
Next
End Sub

2.

Private Sub Command1_Click()
Dim a(15), i, j As Integer
Randomize
For i = 1 To 15
  a(i) = Int(Rnd * 100) + 1
  Print a(i);
Next
Print
n = Val(InputBox("请输入一个数"))
For i = 1 To 15
  If a(i) = n Then Exit For
Next
If i <= 15 Then
  Print n & "是数组的第" & i & "个元素"
Else
  Print "no"
End If
End Sub