VB试题用随机函数产生 10个两位数的整数放在数组a中并输出，用随机函数产生10个一位数的整数放入数

Question

用随机函数产生 10个两位数的整数放在数组a中并输出，用随机函数产生10个一位数的整数放入数组b中并输出，然后把两个数组中对应的下标的元素相加结果放入第三个数组c中并输出

Answer 1

　　新建一工程，在窗体上拖入一command控件。然后进入代码区，删除所有代码后，粘贴以下代码即可。

Option Explicit

Private Sub Command1_Click()
Dim A(9) As Integer, B(9) As Integer, C(9) As Integer
Dim I As Integer
Randomize
Cls
Print "数组A", "数组B", "数组C"
 For I = 0 To 9
    A(I) = Rnd() * 9 + 10 '产生随机两位整数
    B(I) = Rnd() * 9      '产生随机一位整数
    C(I) = A(I) + B(I)    '将对应的随机数相加
    Print A(I), B(I), C(I) '结果输出到窗体上
 Next I
End Sub

　　运行效果如下图所示：