【程序代碼】
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計算機軟件水平考試考前沖刺專題

2007計算機軟件水平考試模擬試題匯總

希望與其他軟考考生進行交流？點擊進入軟考論壇>>>

進入考試吧博客記錄下自己的備考歷程吧

更多信息請訪問：考試吧軟件水平考試欄目