《上海海事大学VB题库程序设计》由会员分享，可在线阅读，更多相关《上海海事大学VB题库程序设计（111页珍藏版）》请在金锄头文库上搜索。
1、程序设计 第 1 题 程序设计(5 分)(题号:148) - 【程序设计】 - 题目：(事件)单击窗体。 (响应)求 1020 之间所有素数的乘积并输出在窗体上。 将结果存入变量 L 中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If
2、b = False Next Print Str(l) - 第 2 题 程序设计(5 分)(题号:150) - 【程序设计】 - 题目：(事件)单击窗体。 (响应)求 1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100 的值。 将结果存入变量 J 中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j - 第 3 题 程序
3、设计(5 分)(题号:131) - 【程序设计】 - 题目：(事件)单击窗体。 (响应)已知 S=1+1/4+1/9+1/16+1/25+1/100， 结果输出在窗体上。 - 将结果存入变量 S 中 - 答案：- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i i) Next Print (s) - 第 4 题 程序设计(5 分)(题号:152) - 【程序设计】 题目：(事件)双击窗体。 (响应)求 1+2+3+5+8+13+前 20 项的和，并将结 果在窗体上输出。将结果存入变量 SUM 中。 - 注意：请在指定的事件内编写代码。
4、 - 答案：- Dim i As Integer Dim j(1 To 20) As Integer For i = 1 To 20 If i 3 Then j(i) = i Else j(i) = j(i - 1) + j(i - 2) End If sum = sum + j(i) Next Print sum - 第 5 题 程序设计(5 分)(题号:157) - 【程序设计】 - 题目：(事件)单击窗体。 (响应)求 10!的值，并将结果输出到窗体上。 将结果存入变量 SUM 中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer sum = 1 F
5、or i = 1 To 10 sum = sum * i Next Print sum - 第 6 题 程序设计(5 分)(题号:489) - 【程序设计】 - 题目： (事件)单击窗体。 (响应)已知 sum=1-1/3!+1/5!-1/7!+1/9!, 请将 sum结果值输出到窗体上。 使用 do while.loop 语句完成程序 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer Dim n As Integer i = 1 p = 1 Do While i = 101 p = p * i If i Mod 2 = 1 Then n = n + 1 s
6、um = sum + (-1) (n - 1) / p End If i = i + 1 Loop Print sum - 第 7 题 程序设计(5 分)(题号:154) - 【程序设计】 - 题目：(事件)单击窗体。 (响应)求 100 以内偶数的和，并将结果输出在窗体上。 将结果存入变量 SUM 中 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum - 第 8 题 程序设计(5 分)(题号:134) - 【程序
7、设计】 - 题目：(事件)双击窗体。 (响应)s=20+21+22+263，求 s 的值，并将结果 存储到变量 S 中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer i = 20 While i 3000 then exit for endif endif i=i+1 next Print sum - 第 5 题 程序设计(5 分)(题号:156) - 【程序设计】 - 题目：(事件)双击窗体。 (响应)求 3+6+9+12+15+18+300 的和，并将结 果输出到窗体上。将结果存入变量 SUM 中。 - 注意：请在指定的事件内编写代码。 - 答案：- Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum - 第 6 题 程序设计(5 分)(题号:412) - 【程序设计】 - 题目： (事件)单击窗体。 (响应)输出所有的三位数，它满足该数中有某两位 为相同的数，且该数是一个完全平方数。 求出所有这些数的和，并将结果存入变量 SUM 中。 - 注意：请在指定的事件内编写代码。 - 答案：- dim a as intege
