【正文】
ommand1,標題為 計算并輸出 。然后在命令按鈕中添加事件代碼,其代碼如下: Private Sub Command1_Click() Dim i As Integer For i = 0 To 1 If (i) = True And Option1 = True Then = (i) + 筆試 End If If (i) = True And Option2 = True Then = (i) + 上機 End If Next i End Sub 當然,實現(xiàn)利用輸入對話框向文本框中輸入文本的代碼寫法有很多種,這只是比較常見的一種。 這一題主要考察了對于隨機文件的讀取與寫入操作,在讀文件時,可以使用 Get語句,其語法如下: Get 文件號 ,記錄號 ,變量名 本題主要代碼如下: Option Explicit Private Type PalInfo Name As String * 8 Tel As String * 10 Post As Long End Type Dim Pal As PalInfo Private Sub Command1_Click() Open For Random Access Read As 1 Len = Len(Pal) Get 1, 3, Pal = = = End Sub Private Sub Command2_Click() Open For Output As 1 Print 1, , , Close 1 End Sub