当前位置:首页 » VB程序题 » 正文

编写程序,随机生成100个两位整数,并统计出其中小于等于40、大于40且小于等于70及大于70的数据个数。 第五章 新编Visual Basic程序设计教程 陈斌 著

10.编写程序,随机生成100个两位整数,并统计出其中小于等于40、大于40且小于等于70及大于70的数据个数。----wb86.com
解,此题VB代码如下:
Option Base 1
Private Sub Form_Click()
    Dim a(100) As Integer, i As Integer, m As Integer, n As Integer, k As Integer
    Cls'先清屏
    Print "生成100个两位随机整数"
    For i = 1 To 100
        a(i) = Int(Rnd * 90) + 10
        Print a(i);
        If i Mod 10 = 0 Then Print '一行只输出10个数据
    Next i

    m = 0: n = 0: k = 0
    For i = 1 To 100
        If a(i) <= 40 Then
            m = m + 1
        ElseIf a(i) > 40 And a(i) <= 70 Then
            n = n + 1
        Else
            k = k + 1
        End If
    Next i

    Print "统计情况:"
    Print "小于等于40的数有"; m
    Print "小于等于70的数有"; n
    Print "大于70的数有"; k
End Sub

运行程序,点击窗体,此题程序运行效果图如下:


---- 新编Visual Basic程序设计教程  答案 陈斌  著

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:http://wb86.com/post/155.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号