随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上。---- 第五章 选择分支与循环 答案 新编Visual Basic程序设计教程 陈斌 著

11.随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上。

解，此题VB代码如下：
Option Base 1
 Private Sub Form_Click()
    Dim a(20) As Integer, i As Integer, m As String, n As String
    Cls'清屏
    Print "生成20个100以内的正整数"
    For i = 1 To 20
        a(i) = Int(Rnd * 100) + 1
        Print a(i);
        If i Mod 10 = 0 Then Print '一行只输出10个数据
    Next i
    For i = 1 To 20
        If a(i) Mod 2 <> 0 Then
            m = m + Str(a(i))
        Else
            n = n + Str(a(i))
        End If
    Next i
    Print "奇数行"
    Print m
    Print "偶数行"
    Print n
End Sub

此题程序运行效果图如下：

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

打赏 支付宝打赏 微信打赏

来源：济亨网

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