VB题库—程序设计[1]
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：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
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)
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------