当前位置:首页 » 程序代码 » 正文

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://www.wb98.com/post/156.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

赞助商链接

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