程序设计〖第1题〗『程序设计』(5分)(题号:148)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求10~20之间所有素数的乘积并输出在窗体上。
' 将结果存入变量L中。
'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As IntegerDim j As IntegerDim b As Booleanl = 1b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False Thenl = l * iEnd Ifb = FalseNextPrint Str(l)----------------------〖第2题〗『程序设计』(5分)(题号:150)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。
' 将结果存入变量J中。
'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j----------------------〖第3题〗『程序设计』(5分)(题号:131)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，' 结果输出在窗体上。
'-------------------------------------------------'将结果存入变量S中'-------------------------------------------------答案：----------------------Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ i)NextPrint (s)----------------------〖第4题〗『程序设计』(5分)(题号:152)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)双击窗体。
' (响应)求1+2+3+5+8+13+……前20项的和，并将结' 果在窗体上输出。
将结果存入变量SUM中。
'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As IntegerDim j(1 To 20) As IntegerFor i = 1 To 20If i < 3 Thenj(i) = iElsej(i) = j(i - 1) + j(i - 2)End Ifsum = sum + j(i)NextPrint sum----------------------〖第5题〗『程序设计』(5分)(题号:157)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求10!的值，并将结果输出到窗体上。
' 将结果存入变量SUM中。
'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As Integersum = 1For i = 1 To 10sum = sum * iNextPrint sum----------------------〖第6题〗『程序设计』(5分)(题号:489)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)已知sum=1-1/3!+1/5!-1/7!+1/9!,' 请将sum结果值输出到窗体上。
' 使用do while...loop语句完成程序'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As IntegerDim n As Integeri = 1p = 1Do While i <= 10p = p * iIf i Mod 2 = 1 Thenn = n + 1sum = sum + (-1) ^ (n - 1) / pEnd Ifi = i + 1LoopPrint sum----------------------〖第7题〗『程序设计』(5分)(题号:154)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求100以内偶数的和，并将结果输出在窗体上。
' 将结果存入变量SUM中'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum----------------------〖第8题〗『程序设计』(5分)(题号:134)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)双击窗体。
' (响应)s=20+21+22+…+263，求s的值，并将结果' 存储到变量S中。
'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i As Integeri = 20While i <= 263s = s + ii = i + 1WendPrint (CStr(s))----------------------〖第9题〗『程序设计』(5分)(题号:142) '------------------------------------------------- '【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，' 并将结果输出到窗体上。
' 将结果存入变量M中'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------答案：----------------------Dim i, j As IntegerDim s As LongFor i = 10 To 15s = 1For j = i To i + 2s = s * jNextm = m + sNextPrint (CStr(m))〖第1题〗『程序设计』(5分)(题号:149)'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。