--
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 并将结果存入变量代码： Dim i,j As Integer
Dim k As Long k=1 s=0
For i =1To 10
精心整理 学习帮手
---
S 中
--
word 完美格式
For j=1 To i k=k*j Next s=s+k k=1 Next
Print(CStr(s)) 第三题
题目：（事件）单击窗体
（响应）求 100 以内偶数的和，并将结果输出在窗体上。
将结果存入变量 SUM中
代码： Dim i As Integer
For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题
题目：（事件）单击窗体
（响应）编写程序求
10*11*12+11*12*13+ ? .+15*16*17 并将结果输出到窗体上。将结果存入变量
精心整理 学习帮手
---
的结果M中。
--
Next
Print (CStr(m)) 第五题
题目：（事件）双击窗体 代码： Dim i,j As Integer
Dim s As Long For i =10 To 15 s=1
For j = i To i +2 s=s*j Next m=m+s
word 完美格式
（响应）求 100 以内奇数的和，并将结果输出在窗体上。
将结果存入变量 SUM中。
代码： Dim i As Integer
For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题
精心整理 学习帮手
---
VB程序设计题库(全)
