编一子过程Procmin（a（），amin），求一维数组中a的最小值amin.（随机产生10个200-400之间的数，并显示数组各元素；调用子函数，显示最小值）

编一子过程ProcMin(a(), amin)，求一维数组a中的最小值amin。主调程序随机产生10个-300～-400之间的数，显示产生的数组中各元素；调用ProcMin子过程，显示出数组中的最小值。程序运行效果如下图所示。保存工程和窗体，窗体文件名为：昵称-9-2.frm;工程名为：昵称-9-2.vbp。将工程文件和窗体文件压缩成：昵称-9-2.rar，以附件形式提交。

编一子过程ProcMin(a(), amin)，求一维数组a中的最小值amin。主调程序随机产生10个-300～-400之间的数，显示产生的数组中各元素；调用ProcMin子过程，显示出数组中的最小值。程序运行效果如下图所示。保存工程和窗体，窗体文件名为：昵称-8-2.frm;工程名为：昵称-8-2.vbp。将工程文件和窗体文件压缩成：昵称-8-2.rar，以附件形式提交。

编一子过程ProcMin(a(), amin)，求一维数组a中的最小值amin。主调程序随机产生10个100～200之间的数，显示产生的数组中各元素；调用ProcMin子过程，显示出数组中的最小值。 改正以下程序中划线语句的错误，在答题时，务必在答题框中写好题号和正确的语句，如下： (1)： (2)： (3)： Private Sub Form_Load() Dim b(1 To 10) As Integer, i%, min% For i = 1 To 10 b(i) = Int(Rnd * 101 + 100) Print b(i); Next i (1) Call Procmin(b%(), min%) Print Print "min="; min End Sub (2) Public Sub Procmin(a As Integer, ByVal amin%) Dim i% amin = a(LBound(a)) For i = LBound(a) + 1 To UBound(a) (3) If a(i) ＜ amin Then a(i)=amin Next i End Sub

编一子过程MaxLength(s，MaxWord)，在已知的字符串s中，找出最长的单词MaxWord。假定字符串s内只含有字母和空格，空格分隔不同的单词。程序运行界面如下图所示。以“昵称-11-3”为项目名保存。 项目完成后，将整个项目文件夹压缩成：昵称-11-3.rar，以附件形式提交。 【提示】 ① 首先利用InStr函数从S中从左开始找第一个出现的空格，利用Mid函数分离出空格左边的单词，与MaxWord最长单词比较（MaxWord初态为空）； i=InStr(S,” “) ‘ 找第一个出现的空格 Word=Mid(S,1，i-1) ‘ 分离出空格左边的单词 Word与MaxWord 比较决定是否替换为MaxWord ② 取S中剩余字符串，重复①，直到S为空。 S=Mid(S,i+1) ‘ 取S中剩余字符串

编一子过程dy(a())，可以将一维数组中的数据按每行10个元素打印在窗体上。主调程序单击“产生数据”按钮，则在窗体打印30个两位的随机整数；单击“排序”按钮则数据按升序排后，打印在窗体上；单击“插入数据”按钮，则可将用户输入的数据插入到数组中，仍保持数组升序，打印在窗体上。程序运行效果如下图所示。保存工程和窗体，窗体文件名为：昵称-8-2.frm;工程名为：昵称-8-2.vbp。将工程文件和窗体文件压缩成：昵称-8-2.rar，以附件形式提交。