2012VB程序设计VIP专享VIP免费

VB 程序设计 第一题 题目：（事件）单击窗体 （响应）求50 以内所有偶数的和，并在窗体上输出来。 将结果存入变量 S 中。 代码：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Nex t 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 Nex t s=s+k k=1 Nex t Print(CStr(s)) 第三题 题目：（事件）单击窗体 （响应）求100 以内偶数的和，并将结果输出在窗体上。 将结果存入变量 SUM 中 代码：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Su m=su m+i End If Nex t Print su m 第四题 题目：（事件）单击窗体 （响应）编写程序求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 Nex t m=m+s Nex t Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求100 以内奇数的和，并将结果输出在窗体上。 将结果存入变量 SUM 中。 代码：Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then su m = su m + i End If Nex t Print su m 第六题 题目：（事件）单击窗体 （响应）已知 S=1+1/4+1/9+1/16+1/25+…+1/100, 结果输出在窗体上 代码：Dim s As Single For i=1 To 10 a=i*i Su m =1/a + Su m Nex t Print Su m 第七题 题目：（事件）双击窗体 （响应）求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 Su m = Su m + j Nex t Print Su m 第八题 题目：（事件）单击窗体 （响应）求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 Nex t i Print j 第九题 题目：（事件）双击窗体 （响应）s=20+21+22+…+263,求s 的值，并将结果存储到变量 S 中。 代码：Dim s As Long s=20 For s= 21 To ...