程序设计复习题.doc

【程序设计】-题目： (事件)单击窗体。 (响应)求从100到1000之间所有是3的倍数的数之 和，当和大于3000时，停止计算并输出和。请将结果输 出到窗体上,并存入所给变量SUM中。使用for.next语 句完成程序-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 #OUTEnd Sub答案Dim i As Integersum=0for i=100 to 1000 if i mod 3=0 then sum=sum+i if sum3000 thenexit for endif endifi=i+1nextPrint sum【程序设计】-题目：(事件)双击窗体。 (响应)求1+5+10+15+500的和，并将结果输出到窗体上。 将结果存入变量SUM中- Private Sub Form_dblClick() Dim sum As Long sum = 1* Begin * * End * TestFunc (sum)答案Dim i As Integer 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 Form_DblClick()Dim s As Long* Begin * End *TestFunc (s)End SubPrivate Sub TestFunc(i As Long) Dim OUT As Integer OUT = FreeFile Open App.Path & 6.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As Integeri = 20While i = 263 s = s + i i = i + 1WendPrint (CStr(s)-【程序设计】-题目：(事件)双击窗体。 (响应)求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中-Private Sub Form_dblClick()Dim sum As Integer* Begin * * End * TestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 25.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案 Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum【程序设计】- 题目：(事件)双击窗体。 (响应)编写代码功能如(图1)。 将结果存入变量S中-Private Sub Form_dblClick()Dim s As Double* Begin * End *TestFunc (s)End SubPrivate Sub TestFunc(i As Double) Dim OUT As Integer OUT = FreeFile Open App.Path & 12.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As Integers = 1For i = 1 To 10s = s * i * iNextPrint (CStr(s)【程序设计】-题目：(事件)双击窗体。 (响应)求出100200之间，能被5整除，但不能被3整除的数。 并求所有数之和，存入变量中SUM中-Private Sub Form_dblClick()Dim sum As Integersum = 0* Begin * End *Print sumTestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 17.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As IntegerFor i = 100 To 200 If (i Mod 5) = 0) And (i Mod 3) 0) Then Print (CStr(i) sum = sum + i End IfNext【程序设计】-题目：(事件)双击窗体。 (响应)求出50以内所有奇数的和。 将结果存入变量SUM中-Private Sub Form_dblClick() Dim sum As Integer* Begin * * End * TestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 19.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As Integer For i = 1 To 50 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum【程序设计】-题目：(事件)单击窗体。 (响应)求200300之间既能被3整除又能被7整除的数。 并求出所有数之和存入变量SUM中-Private Sub Form_Click()Dim sum As Integersum = 0* Begin * End *TestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 2.out For Output As #OUT Print #OUT, i Close #OUTEnd Sub答案Dim i As IntegerFor i = 201 To 300 If (i Mod 3) = 0) And (i Mod 7) = 0) Then Print (CStr(i) sum = sum + i End IfNextPrint sum-【程序设计】-题目：(事件)单击窗体。 (响应)求1+2+3+100的值，并把结果输出在窗体上。 结果存入变量SUM中-Private Sub Form_Click()Dim sum As Integer* Begin * * End * TestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 23.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum-【程序设计】-题目：(事件)单击窗体。 (响应)求1!+2!+3!+10!的值，并在窗体上输出。 结果存入变量L中-注意：请在指定的事件内编写代码。-Private Sub Form_Click()Dim l As Long* Begin * * End * TestFunc (l)End SubPrivate Sub TestFunc(i As Long) Dim OUT As Integer OUT = FreeFile Open App.Path & 21.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As Integer Dim s As Long Dim j As Integer s = 1 For i = 1 To 10 s = s * i l = l + s Next Print Str(l)【程序设计】-题目：(事件)单击窗体。 (响应)求50以内所有偶数的和，并在窗体上输出出来。 将结果存入变量S中-Private Sub Form_Click()Dim s As Integer* Begin * End *TestFunc (s)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 18.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As IntegerFor i = 2 To 50 If (i Mod 2) = 0 Then s = s + i End IfNextPrint (CStr(s)【程序设计】-题目：(事件)双击窗体。 (响应)求3+6+9+12+15+18+300的和，并将结果输出到窗体上。 将结果存入变量 SUM中-Private Sub Form_DblClick()Dim sum As Integer* Begin * * End * TestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 28.out For Output As #OUT Print #OUT, i Close #OUTEnd Sub答案Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum【程序设计】-题目：(事件)单击窗体。 (响应)求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中-Private Sub Form_Click()Dim sum As Integer* Begin * * End * TestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 26.out For Output As #OUT Print #OUT, i Close #OUTEnd Sub答案Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum-【程序设计】-题目：(事件)单击窗体。 (响应)已知S=1+1/4+1/9+1/16+1/25+1/100， 结果输出在窗体上。-Private Sub Form_Click()Dim s As Single* Begin * End *TestFunc (s)End SubPrivate Sub TestFunc(i As Single) Dim OUT As Integer OUT = FreeFile Open App.Path & 3.out For Output As #OUT Print #OUT, i Close #OUTEnd Sub答案Dim i As Integers = 0For i = 1 To 10 s = s + 1 / (i 2)Next iPrint s-【程序设计】-题目：(事件)单击窗体。 (响应)我国现有人口为13亿，设年增长率为1%， 计算多少年后增加到20亿。并将结果输出 在窗体上。将结果存入变量year中。 使用do while .loop语句完成程序。-Private Sub Form_Click()Dim year As Integer* Begin * * End * Call TestFunc(year)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 #OUTEnd Sub答案dim p as doubledim r as singledim n as integerp=1300000000r=0.01do while p3000 thenexit for endif endifi=i+1nextPrint sum-【程序设计】-题目：(事件)双击窗体。 (响应)求1+5+10+15+500的和，并将结果输出到窗体上。 将结果存入变量SUM中- Private Sub Form_dblClick() Dim sum As Long sum = 1* Begin * * End * TestFunc (sum)答案Dim i As Integer 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 Form_DblClick()Dim s As Long* Begin * End *TestFunc (s)End SubPrivate Sub TestFunc(i As Long) Dim OUT As Integer OUT = FreeFile Open App.Path & 6.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As Integeri = 20While i = 263 s = s + i i = i + 1WendPrint (CStr(s)-【程序设计】-题目：(事件)双击窗体。 (响应)求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中-Private Sub Form_dblClick()Dim sum As Integer* Begin * * End * TestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 25.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案 Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum-【程序设计】- 题目：(事件)双击窗体。 (响应)编写代码功能如(图1)。 将结果存入变量S中-Private Sub Form_dblClick()Dim s As Double* Begin * End *TestFunc (s)End SubPrivate Sub TestFunc(i As Double) Dim OUT As Integer OUT = FreeFile Open App.Path & 12.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As Integers = 1For i = 1 To 10s = s * i * iNextPrint (CStr(s)-【程序设计】-题目：(事件)双击窗体。 (响应)求出100200之间，能被5整除，但不能被3整除的数。 并求所有数之和，存入变量中SUM中-Private Sub Form_dblClick()Dim sum As Integersum = 0* Begin * End *Print sumTestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 17.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As IntegerFor i = 100 To 200 If (i Mod 5) = 0) And (i Mod 3) 0) Then Print (CStr(i) sum = sum + i End IfNext-【程序设计】-题目：(事件)双击窗体。 (响应)求出50以内所有奇数的和。 将结果存入变量SUM中-Private Sub Form_dblClick() Dim sum As Integer* Begin * * End * TestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 19.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As Integer For i = 1 To 50 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum-【程序设计】-题目：(事件)单击窗体。 (响应)求200300之间既能被3整除又能被7整除的数。 并求出所有数之和存入变量SUM中-Private Sub Form_Click()Dim sum As Integersum = 0* Begin * End *TestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 2.out For Output As #OUT Print #OUT, i Close #OUTEnd Sub答案Dim i As IntegerFor i = 201 To 300 If (i Mod 3) = 0) And (i Mod 7) = 0) Then Print (CStr(i) sum = sum + i End IfNextPrint sum-【程序设计】-题目：(事件)单击窗体。 (响应)求1+2+3+100的值，并把结果输出在窗体上。 结果存入变量SUM中-Private Sub Form_Click()Dim sum As Integer* Begin * * End * TestFunc (sum)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 23.out For Output As #OUT Print #OUT, i Close #OUT End Sub答案Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum-【