随机生成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://wb86.com/post/159.html