急求！！帮我编写VB程序

来源：百度知道 编辑：UC知道 时间：2024/06/08 18:27:29
【题目】
编写程序，功能是在文本框1中生成的数字中 删去最大的数字后输出
【编程要求】
1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见（5分）
2. 按“运行”按钮，在文本框2中显示结果（10分）；按“清除”按钮，将文本框清空，焦点置于文本框（5分）；
3. 程序中应定义一个名为lookup的过程 找出数组中最大的元素，以及一个过程将数组中最大的数字删除并且生成新的数组（15分）
4. 将窗体文件和工程文件分别命名为F3和P3，并保存到考试文件夹中。
（5分）

Private Sub Command1_Click()
Dim b As String, t
b = Trim(Text1.Text)
Dim a() As String
a() = Split(b, " ")
lookup a, t
delmax a, t
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Cls
Print "请单击窗体生成数组，或在文本框内输入！"
Text1.SetFocus
End Sub

Private Sub Form_Activate()
Form_Click
Command1.Caption="运行"
Command2.Caption="清除"
Text2.Locked = True
Text2.Text = ""
Command1.SetFocus
End Sub

Private Sub Form_Click()
Randomize
Text1.Text = ""
For i = 1 To 10
Text1.Text = Text1.Text & " " & Int(100 * Rnd)
Next

End Sub

Private Sub lookup(a() As String, amax)
alb% = LBound(a)
aub% = UBound(a)
aamax = Val(Trim(a(LBound(a))))
For i = alb + 1 To aub
If Val(Trim(