用VB编程的数组问题，在线等，急啊！

用VB编程：设一维整型数组a具有10个元素，编程随机产生10个个位数字和十位数字之和是5的随机数作为数组元素并输出该数组。在线等，谢啦！

答案：
新建窗体 直接添加以下代码 按F5 运行



Private Sub Form_Load()
Me.AutoRedraw = True
Dim i%, k%
For i = 1 To 10
    Randomize
Re:
    k = Int(Rnd * 90) + 10
    If Val(Left(Trim(k), 1)) + Val(Right(Trim(k), 1)) = 5 Then
        Print k
    Else
        GoTo Re
    End If
Next
End Sub

似乎数组题特多。我寝室有抽到全是数组题的。还是一道题两个数组交叉

上一个：那里有最全面,详细的VB编程教程?
下一个：vb编程问题 去除不想要的一组数据