(9) 在一個窗體上有兩個命令按鈕,cmdMax和cmdMin。單擊cmdMax時,窗體上顯示"字體由小變大",字號每次增加2;單擊cmdMin時,窗體上顯示"字體由大變小",字號每次減小2。請?zhí)羁铡?BR>Private Sub Form_Load()
Form1.Caption="字體變化示范"
cmdMax.Caption="字體變大"
cmdMin.Caption="字體變小"
End Sub
Private Sub cmdMax_Click()
【9】
Form1.Print "字體由小變大"
End Sub
Private Sub cmdMin_Click()
【10】
Form1.Print "字體由大變小"
End Sub
正確答案: 1.(Form1.FontSize = Form1.FontSize + 2) 2.(Form1.FontSize)
(10) 下列程序的功能是:將數(shù)據(jù)1,2,…,10寫入順序文件Base.txt中,請?zhí)羁铡?BR>Private Sub Form_Click()
Dim i As Integer
Open 【11】 As #1
For i=1 To 10
【12】
Next i
Close #1
End Sub
正確答案: 1.("Base.txt" For Output) 2.(Print #1, i)
(11) 下面的程序用于根據(jù)文本框Text中輸入的內容進行以下處理:
若Text為1,則打印"您的成績?yōu)閮?yōu)秀!";若Text為2,則打印"您的成績?yōu)榱己茫?
若Text為3,則打印"您的成績?yōu)橐话?;否則打印"您的成績一般以下!",請?zhí)羁铡?BR>Private Sub Command1_Click()
Select Case Val(Text1.Text)
Case 【13】
Print "您的成績?yōu)閮?yōu)秀!"
Case 【14】
Print "您的成績?yōu)榱己茫?
Case 【15】
Print "您的成績?yōu)橐话?
Case Else
Print "您的成績一般以下!"
End Select
End Sub
正確答案: 1.(1) 2.(2) 3.(3)
希望與更多計算機等級考試的網(wǎng)友交流,請進入計算機等級考試論壇
更多信息請訪問:考試吧計算機等級考試欄目
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |