【正文】
C:\WEXAM\00000000\ 在考生目錄下有一個工程文件 。 程序主要代碼如下: Private Sub Command1_Click() Open For Input As 1 Input 1, a% = a% Close 1 End Sub Private Function Check(i As Integer) As Boolean For j = 2 To CInt(Sqr(i)) + 1 If i Mod j = 0 Then Check = False Exit Function End If Next j Check = True End Function Private Sub Command2_Click() Dim i As Integer i = CInt() If i Mod 2 = 0 Then i = i + 1 Else i = i + 2 End If Do Until Check(i) i = i + 2 Loop = i End Sub Private Sub Command3_Click() Open For Output As 1 Print 1, Close 1 End Sub 。 Enable屬性可停止或啟用計時器。文件中已經(jīng)給出了所有控件和部分程序,不得修改已有程序和其它控件的屬性;編寫的事件過程