VB题库-程序设计(1].doc

程序设计 〖第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中。 ------------------------------------------------- 注意：请在指定的