VB题库—程序设计.docxVIP

程序设计 〖第1题〗『程序设计』（5分）（题号：148） 题目：（事件）单击窗体。 （响应）求10~20之间所有素数的乘积并输出在窗体上。 将结果存入变量L中。 注意：请在指定的事件内编写代码。 答案： Dim i As In teger Dim j As In teger Dim b As Boolea n l = 1 b = False For i = 10 To 20 Forj = 2 To i-2 If i Mod j = 0 Then b = True End If Next If b = False The n l = l * i End If b = False Next Print Str（l） 1第2题〗『程序设计』（5分）（题号:150） 题目：（事件）单击窗体。 （响应）求 1-1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100 的值。 将结果存入变量J中。 注意：请在指定的事件内编写代码。 答案： Dim i As In teger For i = 1 To 100 If i Mod 2 = 1 The n j = j + 1 / i ElseIf i Mod 2 = 0 The n j = j - 1 / i End If Next Print j 1第3题〗『程序设计』（5分）（题号:131） 【程序设计】 题目： 1 1