【程序代碼】
Private Sub chkFont Click()
If (1) Then
txtPassage.FontName="黑體"
Else
txtPassage.FontName="宋體"
End If
End Sub
Private Sub (2) ()
If chkColor.Value=1 Then
txtPassage.ForeColor=QBColor (13)
Else
txtPassage.ForeColor=QBColor(0)
End If
End Sub
Private Sub chkltalic_Click()
If chkltalic.
Value=1 Then
txtPassage.FontI talic= (3)
Else
txtPassage.FontItalic= (4)
End If
End Sub
Private Sub chkSize_Click()
If (5) Then
txtPassage.Font.Size=16
Else
txtPassage.Font.Size=9
End If
End Sub
2007計(jì)算機(jī)軟件水平考試考前沖刺專題
2007計(jì)算機(jī)軟件水平考試模擬試題匯總
希望與其他軟考考生進(jìn)行交流?點(diǎn)擊進(jìn)入軟考論壇>>>
進(jìn)入考試吧博客記錄下自己的備考?xì)v程吧
更多信息請?jiān)L問:考試吧軟件水平考試欄目