1、編寫判斷一個正整數是否為“水仙花數”的函數過程。在事件過程中調用該過程，計算區間200，500上“水仙花數”的個數，并顯示所有水仙花數?！八苫〝怠钡暮x是一個數的每個數位的立方和等于該數。例153=13+53+33。結果：3Function sxhs(ByVal n As Integer) As Boolean Dim bw, gw, sw As Integer bw = n 100 sw = (n Mod 100) 10 gw = n Mod 10 If bw 3 + sw 3 + gw 3 = n Then sxhs = True Else sxhs = False End If End

2、 Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m, i As Integer Dim s1 As String m = 0 For i = 200 To 500 If sxhs(i) Then s1 = s1 + Str(i) m = m + 1 End If Next MsgBox(Str(m) + vbCrLf + s1)End Sub301、編寫程序，計算并輸出下列數列前35項的和。 (1-2

3、-3),(4-5-6),(7-8-9), ,(3n+1)-(3n+2)-(3n+3), (注意，n=0,1,2,3)-1925Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, s As Integer s = 0 For i = 0 To 34 s += (3 * i + 1) - (3 * i + 2) - (3 * i + 3) Next MsgBox(s) End Sub 521.已知數據文件da5.dat中已

4、存儲有20個學生一門課程的成績（整型），編程將該文件中20個學生的成績賦給整型數組score，然后按照從高分到低分對成績排序，并按一行五個輸出顯示。Dim score(19), i, j, t As Integer Dim str1 As String = FileOpen(1, d:da5.dat, OpenMode.Input) For i = 0 To 19 Input(1, score(i) Next FileClose(1) For i = 0 To 18 For j = i + 1 To 19 If score(i) = 90) Then n = n + 1 End If tota

5、l = total + cj i = i + 1 End While If i 0 Then aver = total / i End If MsgBox(total= + CStr(total) + + aver= + CStr(aver) + + i= + CStr(i) + + n= + CStr(n) Write(2, aver, n) FileClose(1) FileClose(2)End Sub1A1. 編寫程序，計算并輸出下面數列前n項的和 (設n=20,結果取4位小數)。 數列為： 2/1,3/2,5/3,8/5,13/8,21/13,dim a,b, t,i,n as integerdim sum,q as si