VB题库—程序的设计说明书.docVIP

. . . 程序设计 〖第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 + ……