vb等級考試題目與評析54(參考版)
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 。最后把修改后的文件按原文件名存盤。請編寫適當(dāng)?shù)氖录^程完成以下功能：單擊“讀數(shù)”按鈕，則把考生目錄下的 Text1；單擊“計算”按鈕， 則計算出大于該數(shù)的第 1個素數(shù)，并顯示在 Text2中；
公司管理相關(guān)推薦
鄂ICP備17016276號-1