交院VB程序设计.docVIP

交院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 s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求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 第六题 题目：（事件）单击窗体 （响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100, 结果输出在窗体上 代码：Dim s As Single For i=1 To 10 a=i*i Sum =1/a + Sum Next Print Sum 第七题 题目：（事件）双击窗体 （响应）求1+1*2+1*2*3+….+1*2*3*….*10, 并将结果存到变量S中 代码：Dim s As Long j=1 For i = 1 To 10 j= j*i Sum = Sum + j Next Print Sum 第八题 题目：（事件）单击窗体 （响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。 将结果存入变量J中 代码：Dim j As Single Dim i As Single j=0 For i = 1 To 100 k=(-1)^(i+1)/i j=k+j Next i Print j 第九题 题目：（事件）双击窗体 （响应）s=20+21+22+…+263,求s的值，并将结果存储到变量S中。 代码：Dim s As Long s=20 For s= 21 To 263 b=s+1 Sum=Sum+b Next Print Sum 第十题 题目：（事件）单击窗体 （响应）求出100以内所有素数的和，并将结果输出 到窗体上，并存入所给变量SUM中 代码：Dim