作业帮 > 综合 > 作业

VB程序设计 简答题编写程序,利用随机函数产生100个0~99之间的整数,存放在数组中,然后在窗体上显示所有小于50的随

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 06:24:27
VB程序设计 简答题
编写程序,利用随机函数产生100个0~99之间的整数,存放在数组中,然后在窗体上显示所有小于50的随机数
Private Sub Form_Click()
    Randomize
    Dim A(100) As Integer
    Dim I As Integer, K As Integer
    Print "形成的100个数字的数组"
    For I = 1 To 100
        A(I) = Int(Rnd * 100)
        Print A(I);
        If I Mod 10 = 0 Then Print
    Next
    Print "其中<50的数字:"
    K = 0
    For I = 1 To 100
        If A(I) < 50 Then
            Print A(I);
            K = K + 1
            If K Mod 10 = 0 Then Print
        End If
    Next
    Print
    Print "共有"; K; "个"
End Sub已经运行过.有什么问题请留言.