(8) 下列事件過程的功能是：通過Form_Load事件給數組賦初值為35、48、15、22、67，Form_Click事件找出可以被3整除的數組元素并打印出來。請在空白處填入適當的內容，將程序補充完整。
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) 給定年份，下列程序用來判斷該年是否是閏年，請填空。
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盤當前目錄文件夾下建立一個名為"Student.txt"的順序文件，要求用InputBox函數輸入5個學生的姓名(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("請輸入要計算平方根的數")
   Msg=N & "的平方根"
   Select Case SR(N)
       Case 0
            Msg=Msg & "是0"
       Case -1
          Msg=Msg & "是一個虛數"
       Case Else
          Msg=Msg & "是" & SR(N)
   End Select
   MsgBox Msg
End Sub
程序運行后，單擊命令按鈕，在輸入對話框內輸入-1，輸出結果是 【15】 。
正確答案:  1.(-1的平方根是一個虛數)

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目