期末復(fù)習(xí)題(1)

1、編寫判斷一個(gè)正整數(shù)是否為“水仙花數(shù)”的函數(shù)過程。在事件過程中調(diào)用該過程，計(jì)算區(qū)間200，500上“水仙花數(shù)”的個(gè)數(shù)，并顯示所有水仙花數(shù)?！八苫〝?shù)”的含義是一個(gè)數(shù)的每個(gè)數(shù)位的立方和等于該數(shù)。例153=13+53+33。結(jié)果：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、編寫程序，計(jì)算并輸出下列數(shù)列前35項(xiàng)的和。 (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.已知數(shù)據(jù)文件da5.dat中已

4、存儲(chǔ)有20個(gè)學(xué)生一門課程的成績(jī)（整型），編程將該文件中20個(gè)學(xué)生的成績(jī)賦給整型數(shù)組score，然后按照從高分到低分對(duì)成績(jī)排序，并按一行五個(gè)輸出顯示。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. 編寫程序，計(jì)算并輸出下面數(shù)列前n項(xiàng)的和 (設(shè)n=20,結(jié)果取4位小數(shù))。 數(shù)列為： 2/1,3/2,5/3,8/5,13/8,21/13,dim a,b, t,i,n as integerdim sum,q as si