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

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 精心整理 学习帮手 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中。 精心整理 学习帮手 word 完