VB程序设计题库(全)..pdfVIP

-- word 完美格式 程序设计 第一题、 题目：（事件）单击窗体 （响应）求 50 以内所有偶数的和，并在窗体上输出来。 将结果存入变量 S 中。 代码： Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求 s=1+1*2+1*2*3+ ? .+1*2*3* ? .*10 并将结果存入变量 S 中 代码： Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10