VB程序设计题库(全)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
程序设计
第一题、
题目：（事件）单击窗体
（响应）求 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 sum As Integer
For i = 1 To 100
For j = 2 To i - 1
Exit For
Next j
Next i
If i Mod j = 0 Then
End If
If j - i Then
sum = sum + i
End If
Print sum
第十一题
题目：（事件）单击窗体
（响应）编写程序求10*11*12+11*12*13+ ⋯ .+15*16*17 的结果
并将结果输出到窗体上。将结果存入变量M中。代码： Dim m As Long
For i = 1 To 6
t=(i+9)*(i+10)*(i+11)
m=m+t
Next
Print m
第十二题
题目：（事件）单击窗体
（响应）求 10~20 之间所有素数的乘积并输出在窗体上。
将结果存入变量 L 中
代码： Dim l As Long
l=1
For i=10 To 20
For j=2 To i-1
If i Mod j = 0 Then
Exit For
End If
Next j
If j = i Then
l=l*i
End If
Next i
Print l
第十三题
题目：（事件）单击窗体
（响应）求 50 以内所有偶数的和，并在窗体上输出来。