VB题库程序设计.docVIP

题目：求10~20之间所有素数的乘积并输出在窗体上 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean S = 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 s = s * i End If b = False Next Print s ---------------------- 题目：求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。 答案：---------------------- 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 ---------------------- 题目： S=1+1/4+1/9+1/16+1/25+…+1/100 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ 2) Next Print s ---------------------- 题目：求1+2+3+5+8+13+……前20项的和。 答案：---------------------- 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 ---------------------- 题目：求10! 的值，并将结果输出到窗体上。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum ---------------------- 题目：已知sum = 1-1/3!+1/5!-1/7!+1/9!, 答案：---------------------- Dim i As Integer Dim n As Integer i = 1 p = 1 Do While i = 9 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 ---------------------- 或 Dim I As Integer Dim n As Integer I = 1 p = 1 For I = 1 To 9 p = p * I If I Mod 2 = 1 Then n = n + 1 Sum = Sum + (-1) ^ (n - 1) / p End If Next Print Sum ---------------------- 题目：求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中 ---------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Pr