程序设计复习题Word格式.docx

1、Private Sub Form_Click（） Dim sum As Integer* Begin * * End * Call TestFunc（sum）End SubPrivate Sub TestFunc（i As Integer） Dim OUT As Integer OUT = FreeFile Open App.Path & out.txt For Output As #OUT Print #OUT, i Close #OUT答案Dim i As Integersum=0for i=100 to 1000 if i mod 3=0 then sum=sum+i if sum300

2、0 then exit for endifi=i+1nextPrint sum（事件）双击窗体。 （响应）求1+5+10+15+500的和，并将结果输出到窗体上。 将结果存入变量SUM中 Private Sub Form_dblClick（） Dim sum As Long sum = 1* Begin * End * TestFunc （sum） For i = 5 To 500 If i Mod 5 = 0 Then sum = sum + i End If Next Print sum+1 （响应）s=20+21+22+263，求s的值，并将结果 存储到变量S中。Private Sub

3、Form_DblClick（）Dim s As Long* Begin * End *TestFunc （s）Private Sub TestFunc（i As Long）6.outi = 20While i = 263 s = s + i i = i + 1WendPrint （CStr（s） （响应）求100以内奇数的和，并将结果输出在窗体上。Private Sub Form_dblClick（）Dim sum As Integer* Begin * End *25.out Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then Prin

4、t sum （响应）编写代码功能如（图1）。 将结果存入变量S中Dim s As Double* Begin * End *Private Sub TestFunc（i As Double）12.outs = 1For i = 1 To 10s = s * i * iNext （响应）求出100200之间，能被5整除，但不能被3整除的数。 并求所有数之和，存入变量中SUM中sum = 0* Begin * End *TestFunc （sum）17.outFor i = 100 To 200 If （i Mod 5） = 0） And （i Mod 3） 0） Then Print （CStr（i） （响应）求出50以内所有奇数的和。* Begin * End *19.out For i = 1 To 50（事件）单击窗体。 （响应）求200300之间既能被3整除又能被7整除的数。 并求出所有数之和存入变量SUM中* Begin * End *2.outFor i = 201 To 300 If （i Mod 3） = 0） And （i Mod 7） = 0） Then （响应）求1+2+3+100的值，并把结果输出在窗体上。 结果存入变量SUM中-