vb機試答案word版(存儲版)
【正文】 Close 1 End Sub Private Sub Command1_Click() =我選的課程是 If =1 Then strtemp1=數(shù)據庫 End If If =1 Then strtemp2=網絡 End If =+strtemp1+strtemp2 End Sub 第三步：按題目要求存盤并進行相應的操作。在本 題中涉及到文件的操作，讀入順序文件以順序輸入的方式打開，用 Input 語句讀取數(shù)據；寫入順序文件以順序輸出的方式 打開，用 Print 語句將數(shù)據寫入文件。 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 第三步：按題目要求存盤。 文 本框中顯示的內容由 Text屬性設置。 本題用到的控件及其屬性如下表所示。 分析： 在窗體上建立好控件后，先設置控件的屬性，再編寫 事件過程。 本題用到的控件及其屬性如下表所示。編寫適當?shù)氖录^程，使得程序在運行時，如果在 P1 上按下鼠標右鍵，則清除 P1 中的圖片；如果按下鼠標左鍵，則重新載入原圖片。要使 T2 中同時顯示 T1 中的內容，可在 T1 的 Change 事件中，將其 Text 值賦給 T2 的 Text 屬性。 控件 屬性 設
試題試卷相關推薦
鄂ICP備17016276號-1