vb等級考試題目與評析55(參考版)
2024-09-08 16:52本頁面
【正文】 程序主要代碼如下： 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 。
公司管理相關(guān)推薦
鄂ICP備17016276號-1