鞍点

最新推荐文章于 2025-04-12 20:47:06 发布

zhang67505

最新推荐文章于 2025-04-12 20:47:06 发布

阅读量280

点赞数

本文链接：https://blog.youkuaiyun.com/zhang67505/article/details/51568922

版权

本文介绍了一个使用Visual Basic编写的程序，该程序通过数组来生成随机整数，并将其显示出来。程序包括了窗体加载时数组的初始化及按钮点击事件中数组元素的输出。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Base 1
Dim anma() As Integer
Dim m As Integer
Private Sub Command1_Click()
    Dim i As Byte, j As Byte
    For i = 1 To m
        For j = 1 To n
        Print anma(i, j); Spc(3)
        Next j
        Print
    Next i
End Sub
Private Sub form_load()
    Dim m As Byte, n As Byte
    m = 5: n = 6
    ReDim anma(m, n)
    Dim i As Byte, j As Byte
    For i = 1 To m
        For j = 1 To n
            anma(i, j) = 10 + Int(Rnd * 90)
            Print anma(i, j); Spc(3)
        Next j
        Print
    Next i
End Sub
Private Sub form_load1()
    Dim m As Byte, n As Byte
    m = 5: n = 6
    ReDim anma(m, n)
    Dim i As Byte, j As Byte
    For i = 1 To m
        For j = 1 To n
            anma(i, j) = 10 * Int(Rnd * 90)
            Print anma(i, j); Spc(3)
        Next j
    Next i
End Sub