关于vb 多任意数字大小排列问题

今天又开始做老师留的作业了，感觉学了很久还是不知道这vb到底咋用，目前还是只能跟着图片做题。

下面开始就是今天是程序步骤了：

首先打开VB软件，点击按钮，开始编程。（以下用图片显示）

图片大小超过限制。。。。。。

我来把前一段打上去

Cls

Font.size = 30

Dim n As Integer

Dim size As Integer

size = Int(Val.(Me.Text1.Text))

Dim sierdun() As Integer

n = LBound(sierdun)

While n <= UBound(sierdun)

sierdun(n) = Int(Rnd * 1000)

n = n + 1

Wend

Dim swap As Integer

m = LBound(sierdun)

While m <= UBound(sierdun) - 1

n = LBound(sierdun)

OK,这就是这个按钮的程序，接下来还需要一个屏幕来写入数字，那就来一个Text1。（结果如下图显示）

又超过限制。。。。。。也是够了，描述一下这个图片，中部是这个屏幕，正下方就是按钮（名字也叫按钮）。

那让我们来看看结果吧。

好的，三张图只出来一张，这次的图片很失败啊，不过大概的东西已经都整出来了，有些地方脑补一下好了。这次就到这里了，下次作业再见。