VB的题目，求答案
你不用考了。我是你老师！
VB 题目，求答案，急！！！！ （题目在问题补充中）
创建两个窗口，在窗口1上添加Listbox .Text与Label控件，然后“工具/菜单编辑器”创建菜单。窗口2上添加两个按钮，分别命名为Btn_draw和Btn_comback。完成后输入如下代码：
窗口1代码：
Option Explicit
Private Sub Menu11_Click() '产生
Dim Int_Numeric As Integer
Dim Int_Number As Integer
List1.Clear
For Int_Number = 1 To 20
Int_Numeric = Fix(Rnd * 1000)
List1.AddItem Int_Numeric
Next Int_Number
End Sub
Private Sub Menu12_Click() '求平均值
Dim sum As Double
Dim List_index As Integer
If List1.ListCount < 20 Then '如果无数据或数据笔数小于20笔
MsgBox "列表框内无数据或数据笔数小于20笔", vbCritical + vbOKOnly, "错误"
Exit Sub
Else
For List_index = 0 To List1.ListCount - 1
sum = sum + List1.List(List_index)
Next List_index
Text1.Text = sum / List1.ListCount
End If
End Sub
Private Sub Menu13_Click() '退出
End
End Sub
Private Sub Menu2_Click() '窗口2
Load Form2
Form2.Show 1
End Sub
窗口2代码：
Option Explicit
Const pi = 3.14159
Dim a
Private Sub Btn_comback_Click()
Unload Me
End Sub
Private Sub Btn_draw_Click() '绘图
Dim x, y
Me.Cls
For a = 0 To 2 * pi Step 0.1
x = a * Cos(a)
y = a * Sin(a)
Me.Line (0, 0)-(x, y), QBColor(QBColor_val)
Next
End Sub
Private Sub Form_Load()
Me.Cls
Btn_draw.Caption = "绘图"
Btn_comback.Caption = "返回"
'以下为定义坐标系
Me.ScaleMode = 0
Me.ScaleMode = 3 '像素
Me.Scale (-4, 4)-(4, -8)
'设置绘线宽度
Me.DrawWidth = 1
'将窗口刷新设为自动
Me.AutoRedraw = True
End Sub
Private Function QBColor_val() As Integer '随机颜色
Dim n As Integer
n = Rnd * 10
QBColor_val = IIf(n < 15, n, 1)
End Function