Question

如图所示，生成一个大小为10的一维数组，元素值为100以内的随机正整数？

用vb编写程序，实现题目要求的功能。如图所示，生成一个大小为10的一维数组，元素值为100以内的随机正整数；在第一个文本框中显示所有元素；其中是偶数的元素在第二个文本框中显示。设计界面如图：

Answer 1

要想在VB中生成一个大小为10的一维数组，元素值为100以内的随机正整数。可以使用：

Private Sub Command1_Click()

  Randomize

  Text1 = ""

  Text2 = ""

  Dim a(10) As Integer

  For i = 1 To 10

    a(i) = 10 + Rnd * 90

    Text1 = Text1 & "A(" & i & ")=" & a(i) & "  "

    If a(i) Mod 2 = 0 Then

        Text2 = Text2 & "A(" & i & ")=" & a(i) & "  "

    End If

  Next i

End Sub