(2)解析:在窗體上建立好控件后,先設(shè)置控件屬性,再編寫事件過程。
單擊命令按鈕觸發(fā)Click事件,程序中需要檢測(cè)復(fù)選按鈕的狀態(tài),可以通過Value屬性來實(shí)現(xiàn)。如果復(fù)選按鈕被選中,則Value值為1,否則Value值為0。
解題步驟:
第一步:建立界面并設(shè)置控件屬性。
程序中用到的控件及屬性見表1-3。
表 1-3
對(duì) 象 屬 性 設(shè) 置 值
復(fù)選按鈕 Name Caption Ch1 體育
復(fù)選按鈕 Name Caption Ch2 音樂
復(fù)選按鈕 Name Caption Ch2 美術(shù)
標(biāo)簽 Caption 愛好
按鈕 Name Caption C1 顯示
第二步:編寫程序代碼。
程序提供的代碼:
Option Explicit
Private Sub C1_Click()
' Dim s As ?
s = "我的愛好是"
If Ch1.Value = 1 Then
s = s + Ch1.Caption
End If
If Ch2.Value = 1 Then
s = s + Ch2.Caption
End If
If Ch3.Value = 1 Then
s = s + Ch3.Caption
End If
' Print ?
End Sub
參考代碼:
Option Explicit
Private Sub C1_Click()
Dim s As String
s = "我的愛好是"
If Ch1.Value = 1 Then
s = s + Ch1.Caption
End If
If Ch2.Value = 1 Then
s = s + Ch2.Caption
End If
If Ch3.Value = 1 Then
s = s + Ch3.Caption
End If
Print s
End Sub
第三步:調(diào)試并運(yùn)行程序。
第四步:按題目要求存盤。