vb

打开vb后点击commandbutton拖入适当位置

点击上方工具按钮在选择选项打开其中的编辑器格式将字体设置为24

点击commandbutton后输入如下编码

Private Sub Command1_Click()

    Cls
    Font.Size = 30
    Dim n As Integer
    
    Dim sizerdun(15) As Integer
    n = 1
    While n <= 15
        sizerdun(n) = Int(Rnd * 1000)
        n = n + 1
    Wend

    n = 1
    While n <= 15
        Print sizerdun(n)
        n = n + 1
    Wend
End Sub