3.1添加5個文本框txtName、txtMath、txtEN、txtTotal;
3.2添加5個標(biāo)簽labName、labMath、labEN、labTotal
其Caption屬性分別為姓名、數(shù)學(xué)、英語、總成績;
3.3添加2個命令按鈕ComSetValues、ComSearch
其Caption屬性分別為賦值、查詢。
Step4:編輯窗口事件
4.1.構(gòu)造Score對象及查詢關(guān)鍵字SearchKey。在面向?qū)ο蠓椒?/P>
中,我們可以這樣說定義類就是定義數(shù)據(jù)類型,而聲明對
象就是聲明變量。也就是說,對象實際上就是變量。
Dim Score As New TScore
Dim SearchKey As String
4.2.給模塊中四個私有變量賦值的單擊事件
Private Sub ComSetValues_Click()
If Val(txtMath.Text) >= 0 And Val(txtMath.Text) <= 100
And Val(txtEN.Text) >= 0 And Val(txtEN.Text) <= 100
Then
With Score
.SetName = txtName.Text
.SetMath = Val(txtMath.Text)
.SetEnglish = Val(txtEN.Text)
End With
txtName.Text = \"\"
txtMath.Text = \"\"
txtEN.Text = \"\"
Print \"姓名:\" & Score.GetName & \"數(shù)學(xué):\" & Score.GetMath & \"英語:\" & Score.GetEnglish
Else
MsgBox \"成績的取值范圍:[0,100]\", 64, \"提示\"
End If
End Sub
相關(guān)推薦:軟考系統(tǒng)分析師歷年真題匯總(2007年-2010年)
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |