vb機(jī)試答案word版(參考版)
2025-01-12 17:25本頁(yè)面
【正文】 Private Function IsPrime(a As Integer)As Boolean Dim Flag As Boolean Flag=True b％ =2 Do While b％ =Int(a／ 2)And Flag If Int(a／ b％ )=a／ b％ Then Flag=False Else b％ =b％ +1 End If Loop IsPrime=Flag End Function Private Sub C1_Click() Dim i As Integer Open +＼ For Input As 1 Input 1， i Close 1 =Str(i) End Sub Private Sub C2_Click() Dim Flag As Boolean Dim i As Integer i=Val() Flag=False While Not Flag i =i+1 Flag=isprime(i) Wend =Str(i) End Sub Private Sub C3_Click() Dim i As Integer i=Val() Open +\ For Output As 1 Print 1， i Close 1 End Sub 第三步：按題目要求存盤。 題目提供了程序用到的控件及其屬性，如下表所示。在尋找題目要求的素?cái)?shù)時(shí)，可以使用 While語(yǔ)句，當(dāng)找到一個(gè)素?cái)?shù)時(shí)結(jié)束循環(huán)。在本 題中涉及到文件的操作，讀入順序文件以順序輸入的方式打開，用 Input 語(yǔ)句讀取數(shù)據(jù)；寫入順序文件以順序輸出的方式 打開，用 Print 語(yǔ)句將數(shù)據(jù)寫入文件。 文 本框中顯示的內(nèi)容由 Text屬性設(shè)置。 注意：考生必須把計(jì)算結(jié)果通過(guò)“存盤”按鈕存入 。該工程中有一個(gè)函數(shù)過(guò)程 IsPrime 可以在程序中調(diào)用，其作用是判斷參數(shù) x 是否為素?cái)?shù)，如果是素?cái)?shù)，則返回 True，否則返回 False。 Private Sub Form_Unload(Cancel As Integer) Open “” For Output As 1 Print 1， ， ， Close 1 End Sub Private Sub Command1_Click() =我選的課程是 If =1 Then strtemp1=數(shù)據(jù)庫(kù) End If If =1 Then strtemp2=網(wǎng)絡(luò) End If =+strt
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1