计算机作业

今天，老师教给我们的作业是团体合作完成上次的作业，就是随机生成10个正整数，

然后，我就跟张姝静同学一起合作完成了程序，我是负责制作主要框架，加上背景制作，而她是负责代码还有程序总体修改。一下就是我们的操作。

首先，我们先打开了程序，在窗体上放置了一个flame，在flame里面放置了一个label。并且，我在吧flame的caption修改为随机生成10个正整数。把label的caption去掉，变成空，然后就设置了一个按钮，吧按钮上面的字改称为输出。如图：

然后，我就接着设置背景,在picture里面设置背景。把其余的按钮根据自己的喜好设置。

最后，根据同伴的协助，最后完成了！

完成了代码：

Dim a(1 To 10) As Integer

 

Private Sub Command1_Click()

Form_Load

 

End Sub

 

 

Private Sub Form_Load()

Dim p As String  'p用来表示随机生成的10个数字

  Randomize

p = ""

For i = 1 To 10 '生成10个随机整数

  Do

  x = Int(Rnd * 90) + 10 '存放中间生成的一个随机整数，范围是10到99之间的整数

  yes = 0 '用来判断生成的x是要还是不,0:表示要;1:表示不要

  For j = 1 To i - 1 '对要生成的第一个整数进行检测,检测结果存放在yes中

      If x = a(j) Then yes = 1: Exit For

     

     

        Next

Loop While yes = 1

 a(i) = x

 p = p & Str(a(j)) & ","

 Next

 

Label1.Caption = LTrim(Left(p, Len(p) - 1)) '用label显示最终做的结果

 

 

     

End Sub