计算机语言B课后练习题答案.docVIP

试验15-41 Private Sub Command1_Click() Form1.Cls Dim a(1 To 10) As Single, i As Integer, sum1 As Single, sum2 As Single, ave As Single sum1 = 0 sum2 = 0 For i = 1 To 10 a(i) = InputBox(请输入第 i 个数) If a(i) 0 Then sum1 = sum1 + a(i) If a(i) = 0 Then sum2 = sum2 + a(i) Next i Print 输入的十个数是:; For i = 1 To 10 Print a(i); Next Print Print 正数的和是:; sum1 Print 负数的和是:; sum2 Print 平均数是：; (sum1 + sum2) / 10 End Sub Private Sub Form_Load() Form1.Caption = 数据统计试验 Form1.FontSize = 20 Form1.FontBold = True End Sub 试验15-42 Option Base 1 Private Sub Command1_Click() Dim a(2, 3) As Integer, b(3, 2) As Integer, i As Integer, j As Integer Print A矩阵为： For i = 1 To 2 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); b(j, i) = a(i, j) Next j Print Next i Print A的转置矩阵B为： For j = 1 To 3 For i = 1 To 2 Print b(j, i); Next i Print Next j End Sub Private Sub Form_Load() Form1.FontSize = 25 Form1.FontBold = True End Sub 试验15-44 Dim a(1 To 3, 1 To 4) As Integer Dim i%, j%, max%, min%, s%, t%, k%, l% Private Sub Command1_Click() Print 产生的矩阵为： For i = 1 To 3 For j = 1 To 4 Randomize a(i, j) = Int(Rnd * 90 + 10) Print a(i, j); Next j Print Next i max = a(1, 1): min = a(1, 1): s = 1: t = 1: k = 1: l = 1 For i = 1 To 3 For j = 1 To 4 If a(i, j) max Then max = a(i, j): s = i: t = j If a(i, j) min Then min = a(i, j): k = i: l = j Next j Next i Print 最大值：; max; Spc(2); 行号：; s; Spc(2); 列号：; t Print 最小值：; min; Spc(2); 行号：; k; Spc(2); 列号：; l End Sub Private Sub Form_Load() Form1.FontSize = 12 End Sub 试验15-48 暂缺！！！ 试验15-50 Option Base 1 Dim a%(1 To 10), i%, j%, b%, n% Private Sub Form_Click() For i = 1 To 10 a(i) = Rnd * 20 + 1 Print a(i); Next Print b = InputBox(输入要查找的数) Print 该数出现的位置：; n = 0 For i = 1 To 10 If a(i) = b Then n = n + 1 Print i; End If Next Print Print 该数出现次数：; n End Sub Private Sub Form_Load() Form1.FontSize = 12 End Sub 试验15-50 Option Base 1 Private Sub Form_Click() Form1.Cls Dim a, i%, j%, x% a =