试验试验15-41Private Sub Command1_Click()Form1.ClsDim a(1 To 10) As Single, i As Integer, sum1 As Single, sum2 As Single, ave As Singlesum1 = 0sum2 = 0For i = 1 To 10a(i) = InputBox(“请输入第请输入第“ max; Spc(2); “行号：行号：“; s; Spc(2); “列号：列号：“; tPrint “最小值：最小值：“; min; Spc(2); “行号：行号：“; k; Spc(2); “列号：列号：“; lEnd SubPrivate Sub Form_Load()Form1.FontSize = 12End Sub试验试验15-48暂缺！暂缺！试验试验15-50Option Base 1Dim a%(1 To 10), i%, j%, b%, n%Private Sub Form_Click()For i = 1 To 10a(i) = Rnd * 20 + 1Print a(i);NextPrintb = InputBox(“输入要查找的数输入要查找的数“)Print “该数出现的位置：该数出现的位置：“;n = 0For i = 1 To 10If a(i) = b Thenn = n + 1Print i;End IfNextPrintPrint “该数出现次数：该数出现次数：“; nEnd SubPrivate Sub Form_Load()Form1.FontSize = 12End Sub试验试验15-50Option Base 1Private Sub Form_Click()Form1.ClsDim a, i%, j%, x%a = Array(7, 6, 5, 1, 8, 5, 3, 9, 4)Print “删除前的数组：删除前的数组：“;For i = 1 To 9Print a(i);NextPrintx = InputBox(“请输入要删除的数请输入要删除的数“)For i = 1 To 9If a(i) = x Then Exit ForNextIf i = 9 ThenFor j = i + 1 To UBound(a, 1)a(j - 1) = a(j)NextReDim Preserve a(1 To UBound(a, 1) - 1)End IfPrint “删除后的数组：删除后的数组：“;For i = 1 To 8Print a(i);NextEnd SubPrivate Sub Form_Load()Form1.FontSize = 12Form1.FontBold = TrueEnd Sub试验试验15-53Private Type Studname As Stringeng As Singlemath As Singlevb As Singletotal As Singleave As SingleEnd TypeDim i As IntegerPrivate Sub Form_Click()Form1.Print “姓名姓名“; Spc(4); “英语英语“; Spc(4); “数学数学“; Spc(4); “vb“; Spc(4); “总分总分“; Spc(4); “平均分平均分“Printn = InputBox(“输入人数输入人数“)Dim s() As StudReDim s(n)For i = 1 To ns(i).name = InputBox(“输入第输入第“ Spc(4); s(i).eng; Spc(4); s(i).math; Spc(4); s(i).vb; Spc(4); s(i).eng + s(i).math + s(i).vb; Spc(4); Format(s(i).eng + s(i).math + s(i).vb) / 3, 0#)NextEnd Sub