《vb機試答案》word版(文件)
【正文】 示。 請編寫適當(dāng)?shù)氖录^程 ， 使得在運行時，選中復(fù)選框并單擊“確定”按鈕后，按照下表在文本框中顯示相應(yīng)內(nèi)容。 分析： 在窗體上建立好控件后，先設(shè)置控件的屬性，再編寫 事件過程。 文 本框中顯示的文本由其 Text 屬性表示。 本題用到的控件及其屬性如下表所示。該工程中有一個函數(shù)過程 IsPrime 可以在程序中調(diào)用，其作用是判斷參數(shù) x 是否為素數(shù)，如果是素數(shù)，則返回 True，否則返回 False。 文 本框中顯示的內(nèi)容由 Text屬性設(shè)置。在尋找題目要求的素數(shù)時，可以使用 While語句，當(dāng)找到一個素數(shù)時結(jié)束循環(huán)。 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 第三步：按題目要求存盤。 題目提供了程序用到的控件及其屬性，如下表所示。在本 題中涉及到文件的操作，讀入順序文件以順序輸入的方式打開，用 Input 語句讀取數(shù)據(jù)；寫入順序文件以順序輸出的方式 打開，用 Print 語句將數(shù)據(jù)寫入文件。 注意：考生必須把計算結(jié)果通過“存盤”按鈕存入 。 Private Sub Form_Unload(Cancel As Integer) Open “” For Output As 1 Print 1， ， ， Close 1 End Sub Private Sub Command1_Click()
試題試卷相關(guān)推薦
鄂ICP備17016276號-1