今天又开始做老师留的作业了,感觉学了很久还是不知道这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。(结果如下图显示)
又超过限制。。。。。。也是够了,描述一下这个图片,中部是这个屏幕,正下方就是按钮(名字也叫按钮)。
那让我们来看看结果吧。
好的,三张图只出来一张,这次的图片很失败啊,不过大概的东西已经都整出来了,有些地方脑补一下好了。这次就到这里了,下次作业再见。