东农Vb黄本作业题程序设计答案.docVIP

程序设计参考答案（注意：请在指定的事件内编写代码。） 期末模拟题1： 1、题目：(事件)单击窗体。 (响应)求200~300之间既能被3整除又能被7整除的数。 并求出所有数之和存入变量SUM中（注意：请在指定的事件内编写代码。） Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 2、题目：(事件)单击窗体。 (响应)已知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 ^ 2) Next Print (s) 3、题目：(事件)单击窗体。 (响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和。（注意：请在指定的事件内编写代码。） Dim i, j, k, m As Integer s = 0 i = 2 j = 1 For k = 1 To 10 m