vb等級(jí)考試題目與評(píng)析60(參考版)
2024-09-08 16:51本頁(yè)面
【正文】 主要代碼如下： Private Sub Command1_Click() Dim x As Integer Open For Input As 1 Input 1, x Close 1 Text1 = x End Sub Private Sub Command2_Click() Dim i As Integer i = Do Until isprime(i) i = i 1 Loop = i i = + 1 Do Until isprime(i) i = i + 1 Loop = i End Sub Private Sub Command3_Click() Open For Output As 1 Print 1, Text2, Text3 Close 1 End Sub Function isprime(x As Integer) Dim k As Integer, flag As Boolean k = 2 flag = True While k = Int(x / 2) And flag If Int(x / k) = x / k Then flag = False Else k = k + 1 End If Wend isprime = flag End Function 。最后把修改后的文件按原文件名存盤。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1