程序设计复习题

程序设计 题目 事件 单击窗体 响应 求从 100 到 1000 之间所有是 3 的倍数的数之 和 当和大于 3000 时 停止计算并输出和 请将结果输 出到窗体上 并存入所给变量 SUM 中 使用 for next 语 句完成程序 Private Sub Form Click Dim sum As Integer Begin End Call TestFunc sum End Sub Private 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 End Sub 答案 Dim i As Integer sum 0 for i 100 to 1000 if i mod 3 0 then sum sum i if sum 3000 then exit for endif endif i i 1 next Print 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 Sub Private 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 Integer i 20 While i 263 s s i i i 1 Wend Print CStr s 程序设计 题目 事件 双击窗体 响应 求 100 以内奇数的和 并将结果输出在窗体上 将结果存入变量 SUM 中 Private Sub Form dblClick Dim sum As Integer Begin End TestFunc sum End Sub Private 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 Sub Private 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 Integer s 1 For i 1 To 10 s s i i Next Print CStr s 程序设计 题目 事件 双击窗体 响应 求出 100 200 之间 能被 5 整除 但不能被 3 整除的数 并求所有数之和 存入变量中 SUM 中 Private Sub Form dblClick Dim sum As Integer sum 0 Begin End Print sum TestFunc sum End Sub Private 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 Integer For i 100 To 200 If i Mod 5 0 And i Mod 3 0 Then Print CStr i sum sum i End If Next 程序设计 题目 事件 双击窗体 响应 求出 50 以内所有奇数的和 将结果存入变量 SUM 中 Private Sub Form dblClick Dim sum As Integer Begin End TestFunc sum End Sub Private 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 程序设计 题目 事件 单击窗体 响应 求 200 300 之间既能被 3 整除又能被 7 整除的数 并求出所有数之和存入变量 SUM 中 Private Sub Form Click Dim sum As Integer sum 0 Begin End TestFunc sum End Sub Private Sub TestFunc i As Integer Dim OUT As Integer OUT FreeFile Open App Path 2 out For Output As OUT Print OUT i Close OUT End Sub 答案 Dim i As Integer For i 201 To 300 If i Mod 3 0 And i Mod 7 0 Then Print CStr i sum sum i End If Next Print sum 程序设计 题目 事件 单击窗体 响应 求 1 2 3 100 的值 并把结果输出在窗体上 结果存入变量 SUM 中 Private Sub Form Click Dim sum As Integer Begin End TestFunc sum End Sub Private 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 Sub Private 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 Sub Private 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 Integer For i 2 To 50 If i Mod 2 0 Then s s i End If Next Print CStr s 程序设计 题目 事件 双击窗体 响应 求 3 6 9 12 15 18 300 的和 并将结果输出到窗体上 将结果存入变量 SUM 中 Private Sub Form DblClick Dim sum As Integer Begin End TestFunc sum End Sub Private Sub TestFunc i As Integer Dim OUT As Integer OUT FreeFile Open App Path 28 out For Output As OUT Print OUT i Close OUT End 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 Sub Private Sub TestFunc i As Integer Dim OUT As Integer OUT FreeFile Open App Path 26 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 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 Sub Private Sub TestFunc i As Single Dim OUT As Integer OUT FreeFile Open App Path 3 out For Output As OUT Print OUT i Close OUT End Sub 答案 Dim i As Integer s 0 For i 1 To 10 s s 1 i 2 Next i Print s 程序设计 题目 事件 单击窗体 响应 我国现有人口为 13 亿 设年增长率为 1 计算多少年后增加到 20 亿 并将结果输出 在窗体上 将结果存入变量 year 中 使用 do while loop 语句完成程序 Private Sub Form Click Dim year As Integer Begin End Call TestFunc year End Sub Private 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 End Sub 答案 dim p as double dim r as single dim n as integer p 1300000000 r 0 01 do while p3000 then exit for endif endif i i 1 next Print 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 Sub Private 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 Integer i 20 While i 263 s s i i i 1 Wend Print CStr s 程序设计 题目 事件 双击窗体 响应 求 100 以内奇数的和 并将结果输出在窗体上 将结果存入变量 SUM 中 Private Sub Form dblClick Dim sum As Integer Begin End TestFunc sum End Sub Private 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 Sub Private 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 Integer s 1 For i 1 To 10 s s i i Next Print CStr s 程序设计 题目 事件 双击窗体 响应 求出 100 200 之间 能被 5 整除 但不能被 3 整除的数 并求所有数之和 存入变量中 SUM 中 Private Sub Form dblClick Dim sum As Integer sum 0 Begin End Print sum TestFunc sum End Sub Private 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 Integer For i 100 To 200 If i Mod 5 0 And i Mod 3 0 Then Print CStr i sum sum i End If Next 程序设计 题目 事件 双击窗体 响应 求出 50 以内所有奇数的和 将结果存入变量 SUM 中 Private Sub Form dblClick Dim sum As Integer Begin End TestFunc sum End Sub Private 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 程序设计 题目 事件 单击窗体 响应 求 200 300 之间既能被 3 整除又能被 7 整除的数 并求出所有数之和存入变量 SUM 中 Private Sub Form Click Dim sum As Integer sum 0 Begin End TestFunc sum End Sub Private Sub TestFunc i As Integer Dim OUT As Integer OUT FreeFile Open App Path 2 out For Output As OUT Print OUT i Close OUT End Sub 答案 Dim i As Integer For i 201 To 300 If i Mod 3 0 And i Mod 7 0 Then Print CStr i sum sum i End If Next Print sum 程序设计 题目 事件 单击窗体 响应 求 1 2 3 100 的值 并把结果输出在窗体上 结果存入变量 SUM 中 Private Sub Form Click Dim sum As Integer Begin End TestFunc sum End Sub Private 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 Sub Private 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 Sub Private 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 Integer For i 2 To 50 If i Mod 2 0 Then s s i End If Next Print CStr s 程序设计 题目 事件 双击窗体 响应 求 3 6 9 12 15 18 300 的和 并将结果输出到窗体上 将结果存入变量 SUM 中 Private Sub Form DblClick Dim sum As Integer Begin End TestFunc sum End Sub Private Sub TestFunc i As Integer Dim OUT As Integer OUT FreeFile Open App Path 28 out For Output As OUT Print OUT i Close OUT End 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 Sub Private Sub TestFunc i As Integer Dim OUT As Integer OUT FreeFile Open App Path 26 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 0 Then sum sum i End If Next Print sum 程序设计 题目 事件 单击窗体 响应 已知 S 1 1 4 1 9 1 16 1