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

随机生成15个100以内的正整数并显示在一个文本框中,再将所有对称位置的两个数据对调后显示在另一个文本框中。 ---- 第六章 新编Visual Basic程序设计教程 陈斌 著

 随机生成15个100以内的正整数并显示在一个文本框中,再将所有对称位置的两个数据对调后显示在另一个文本框中。 ---- 第六章  数组 新编Visual Basic程序设计教程 陈斌 著

1. 随机生成15个100以内的正整数并显示在一个文本框中,再将所有对称位置的两个数据对调后显示在另一个文本框中。

解,在窗体上建2个按钮,再建2个文本框(文本框的 MultiLine 属性要设置为 True,此题VB代码如下:
Option Base 1
Dim a(15) As Integer

Private Sub Command1_Click()
    Dim i As Integer
    Randomize'随机种子
    Text1.Text = ""
    For i = 1 To 15
        a(i) = Int(Rnd * 100) + 1
        Text1.Text = Text1.Text + Format(a(i), "00") + Space(2)
    Next i
End Sub
Private Sub Command2_Click()
    Dim i As Integer, t As Integer
    Text2.Text = ""
    For i = 1 To UBound(a) / 2
        t = a(i)
        a(i) = a(UBound(a) + 1 - i)
        a(UBound(a) - i + 1) = t
    Next i
    For i = 1 To 15
        Text2.Text = Text2.Text + Format(a(i), "00") + Space(2)
    Next i
 End Sub


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


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

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:http://www.wb98.com/post/159.html

    << 上一篇 下一篇 >>

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