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