🚀 go-pugleaf

6-1
�ڴ��������һ������ʽ��Ͽ���������ť�����г���ʱ��������ʽ��Ͽ��м��롰C++ 

������ơ�����Visual Basic ������ơ�����Fortran������ơ�����Photoshop��, 
����
ҳ��ơ�5���ѡ��һ���б���ʱ���ڱ�ǩ������ʾѡ���б������š�

Private Sub Form_Load()
Combo1.AddItem "C++ �������"
Combo1.AddItem "Visual Basic �������"
Combo1.AddItem "Fortran �������"
Combo1.AddItem "Photoshop"
Combo1.AddItem "��ҳ���"
Label1.Caption = ""
Label1.AutoSize = True
End Sub

Private Sub Combo1_Click()
Label1.Caption = "��ѡ���˵�" & Combo1.ListIndex + 1 & "�" & Combo1.Text 
& "��"
End Sub

7-4
���һ�����̣��ù��̰�һ�������һ����׼ģ�顣��׼ģ�����й��Array_Sum������
��ά����a(m,n) ����Ԫ�صĺͣ�������õĺʹ���һά����b(m)�У������������ť 

Command1,�����ð�ť������10-99֮���������ڶ�ά����iArray��5��8���У�����5��
8�е���ʽ�ڴ�������ʾ�����ñ�׼ģ���еĹ����ÿ��Ԫ�صĺͣ��������͵Ľ�� 


Private Sub Command1_Click()
Dim iArray(1 To 5, 1 To 8) As Integer, dat(1 To 8) As Integer, A As Integer, 
i As Integer, j As Integer
Randomize
i = 1
Do While i < 6
  j = 1
  Do While j < 9
    A = Int(100 * Rnd)
    If A > 9 Then iArray(i, j) = A: j = j + 1
  Loop
  i = i + 1
Loop
Width = 9800
Cls
For i = 1 To 5
  For j = 1 To 8
    Print Str(iArray(i, j)) & "  ",
  Next
  Print
Next
For i = 1 To 5
  For j = 1 To 8
    dat(j) = iArray(i, j)
  Next
  Print "��" & i & "��֮�ͣ�" & Array_Sum(dat)
Next
End Sub

Function Array_Sum(B() As Integer) As Integer
Dim k As Integer
For k = 1 To 8: Array_Sum = Array_Sum + B(k): Next
End Function