Dim a(1 To 100) As Single '依次存储100个学生成绩

Const n = 100

Private Sub Form_Load()

'本过程从数据库中读取1到100号学生成绩，并存储在数组a中

'代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, max As single

max =    ①      

For i = 2 To n

   if              ②                       

Next i

Text1.Text = "成绩最高分是：" + Str(max)

End Sub

Private Sub Cnd1_Click( )

   Dim W As Integer，T As String

   W = Val（Txt1.Text）

   T = ”Y”

   If  W < > 100 and W > 80 Then T = ”N”

   Txt2.Text = T

End Sub

  If (a Mod 3 = 0) Or (b Mod 3 = 0) Then

 c = a * b

  Else

  c = a + b

  End If

执行后变量c的值为（   ）

PRIVATE SUB FORM__CLICK( )

   S=0

  FOR A = 1 TO 5

    FOR B= 1 TO 3

    S=S+1

    NEXT B

  NEXT A

PRINT S

END SUB