(8) 下列事件過程的功能是:通過Form_Load事件給數(shù)組賦初值為35、48、15、22、67,F(xiàn)orm_Click事件找出可以被3整除的數(shù)組元素并打印出來。請在空白處填入適當(dāng)?shù)膬?nèi)容,將程序補充完整。
Dim Arr()
Private Sub Form_Load()
【8】
End Sub
Private Sub Form_Click()
【9】
If Int(x / 3) =x / 3 Then
Print x
End If
Next x
End Sub
正確答案: 1.(Arr = Array(35, 48, 15, 22, 67)) 2.(For Each x In Arr)
(9) 給定年份,下列程序用來判斷該年是否是閏年,請?zhí)羁铡?BR>Sub YN()
Dim x As Integer
x=InputBox("請輸入年號")
If (x Mod 4=0 【10】 x Mod 100 <> 0) 【11】 (x Mod 400=0) Then
Print "是閏年"
Else
Print "不是閏年,是普通年份"
End If
End Sub
正確答案: 1.(And) 2.(Or)
(10) 在E盤當(dāng)前目錄文件夾下建立一個名為"Student.txt"的順序文件,要求用InputBox函數(shù)輸入5個學(xué)生的姓名(StuName) 、年級(StuGrade) 和年齡(StuAge) 。
Private Sub Form_Click()
【12】
For i=1 To 5
StuName=InputBox("請輸入姓名")
StuGrade=InputBox("請輸入年級號")
StuAge=InputBox("請輸入年齡")
【13】
Next i
【14】
End Sub
正確答案: 1.(Open) 2.("E:\Student.txt" For Output As #1) 3.(Write #1, S)
(11) 在窗體上有一個命令按鈕,然后編如下事件過程:
Function SR(x As Double) As Double
Select Case Sgn(x)
Case 1
SR=Sqr(x)
Exit Function
Case 0
SR=0
Case -1
SR=-1
End Select
End Function
Private Sub Command1_Click()
Dim Msg, SRN
Dim N As Double
N=InputBox("請輸入要計算平方根的數(shù)")
Msg=N & "的平方根"
Select Case SR(N)
Case 0
Msg=Msg & "是0"
Case -1
Msg=Msg & "是一個虛數(shù)"
Case Else
Msg=Msg & "是" & SR(N)
End Select
MsgBox Msg
End Sub
程序運行后,單擊命令按鈕,在輸入對話框內(nèi)輸入-1,輸出結(jié)果是 【15】 。
正確答案: 1.(-1的平方根是一個虛數(shù))
希望與更多計算機等級考試的網(wǎng)友交流,請進(jìn)入計算機等級考試論壇
更多信息請訪問:考試吧計算機等級考試欄目
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |