Question

VB 题目，求答案，急！！！！ （题目在问题补充中）

1. 界面设计

在Form1窗体上添加1个列表框List1、1个文本框Text1和 1个标签Label1控件，标签显示考生的真实姓名和学号，按下表建立菜单：

菜单标题
菜单名称
备注

窗体1
Menu1
一级菜单

…产生
Menu11
二级菜单

…求平均值
Menu12
二级菜单

…退出
Menu13
二级菜单

窗体2
Menu2
一级菜单

在窗体Form2上放置"绘图"和"返回"两个命令按钮。

2. 程序功能如下：

（1）单击"产生"菜单项时，在List1内随机产生 20 个1000以内的正整数。

（2）单击"求平均值"菜单项时，在文本框显示20 个随机数的平均值。

（3）当单击"窗体2"菜单项时，显示Form2窗体；单击"退出"菜单项时，结束程序的运行。

（4）在Form2上单击"绘图"命令按钮：定义窗体的坐标系为(-4, 4)-(4, -8)；用Line方法在窗体上按阿基米德螺线方程x = α Cos α，y = α Sin α 在0～2π之间展开随机彩色直线（直线的一端为坐标系原点，另一端坐标用阿基米德方程计算），循环步长为0.1。颜色函数：QBColor(n) n = 0～15

Answer 1

创建两个窗口，在窗口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

Answer 2

(10)在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。下面是实现上述功能的程序，请填空。
Private Sub Command1_Click()
If List1.ListIndex >= __0_ Then
List1.RemoveItem __list1.list(list1.listindex)___
Label1.Caption = ___list1.listcount___
Else
MsgBox "请选择要删除的项目"
End If
End Sub
(11)以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ""
Open ".\smtext1.txt" __for input__ As #1
Do While __not eof(1)__
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub

(12)在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 " 城市名称 " 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 " 已成功添加新输入页。 " ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 " 输入项已在组合框中。 " 。请填空。
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1.ListCount-1
If Combo1.Text= __combo1.list(i)__ Then
Label2.Caption=" 输入项已在组合框中。 "
Exit Sub
End If
Next i
Label2.Caption=" 已成功添加新输入项。 "
__combo1.additem__Combo1.Text
End If
End Sub

(13)以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。
Private Sub Command1_Click( )
Dim k As Integer
Dim sum As Single, max As Single, min As Single
sum = Text1(0)
max = Text1(0)
min = __text1(0)__
For k = __0__ To 6
If max < Text1(k) Then
max = Text1(k)
End If
If min > Text1(k) Then
min = Text1(k)
End If
sum = sum + Text1(k)
Next k
Text2 = (__sum-max-min__ ) / 5
End Sub