Question

vb编程例题

用随机函数产生10个50以内(包括50)的随机整数存入一维数组，从键盘上输入一个数，

Answer 1

题目好像不全。以下的程序是实现这样的功能：

用随机函数产生10个50以内(包括50)的随机整数存入一维数组，从键盘上输入一个数，在数组中查找这样的数，最后返回查找结果：在数组的第几个元素中找到，或是未找到这样的数。

Private Sub Command1_Click()
  Dim a(10) As Integer, x As Integer
  Randomize
  For i = 1 To 10
    a(i) = Int(Rnd() * 51)
    Print a(i);
  Next i
  Print
  x = InputBox("请输入一个数：")
  For i = 1 To 10
    If a(i) = x Then Exit For
  Next i
  If i < 11 Then
    Print "a("; i; ")="; x
  Else
    Print "未找到"; x
  End If
End Sub