VB题库—程序设计VIP免费

程序设计 〖第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) '--------------------------------...