有哪些信誉好的足球投注网站- 1、本文档共28页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
程序设计
〖第 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
文档评论（0）