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

VB 程序设计练习题 第一题、 题目：（事件）单击窗体 （响应）求 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 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中。 代码： Dim i,j As Integer Dim