注意：下面出現的“考生文件夾”均為%USER%

　　解題思路：

　　啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，需在"計算"命令按鈕的Click事件過程中加入語句：

　　Private Sub Command2_Click()

　　'考生應完成的程序

　　Dim s As Long, n As Integer

　　For i = 1 To 100

　　If isnarc(a(i)) Then

　　s = s + a(i)

　　n = n + 1

　　End If

　　Next i

　　Text1.Text = Fix(s / n)

　　End Sub

　　編寫一個通用函數：

　　Function isnarc(p As Integer)

　　x = Fix(p / 100)

　　y = Fix((p - x * 100) / 10)

　　z = p - x * 100 - y * 10

　　If p = x ^ 3 + y ^ 3 + z ^ 3 Then

　　isnarc = True

　　Else

　　isnarc = False

　　End If

　　End Function

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運行。

　　相關推薦：

　　2012年計算機等考四級數據庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總