程序设计 〖第1题〗『程序设计』(5分)(题号:148)
'------------------------------------------------- '【程序设计】
'-------------------------------------------------
'题目：(事件)单击窗体。
' (响应)求10~20之间所有素数的乘积并输出在窗体上。
' 将结果存入变量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 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题〗『程序设计』(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中。
'------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- 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
For 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 <= 10 p = p * i
If i Mod 2 = 1 Then n = n + 1 sum = 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)
'------------------------------------------------- '【程序设计】
'------------------------------------------------- '题目：(事件)双击窗体。
' (响应)s=20+21+22+…+263，求s的值，并将结果
' 存储到变量S中。
'------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer
i = 20
While i <= 263 s = s + i i = i + 1 Wend
Print (CStr(s)) ----------------------
〖第9题〗『程序设计』(5分)(题号:142)
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：(事件)单击窗体。
' (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，
' 并将结果输出到窗体上。 ' 将结果存入变量M中 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '-------------------------------------------------
答案：---------------------- Dim i, j As Integer Dim s As Long For i = 10 To 15 s = 1
For j = i To i + 2 s = s * j Next
m = m + s Next
Print (CStr(m))
〖第1题〗『程序设计』(5分)(题号:149)
'------------------------------------------------- '【程序设计】
'-------------------------------------------------
'题目：(事件)单击窗体。
' (响应)求1!+2!+3!+……+10!的值，并在窗体上输出。
' 结果存入变量L中。
'------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim s As Long Dim j As Integer s = 1
For i = 1 To 10