'-------------------------------------------------
' 题目： ( 事件) 单击窗体。
' ( 响应) 求从 100 到1000 之间所有是 3 的倍数的数之
' 和，当和大于 3000 时，停止计算并输出和。请将结果输
' 出到窗体上 , 并存入所给变量 SUM中。使用 语
' 句完成程序
'-------------------------------------------------
Dim sum As Integer
sum = 0
Dim i As Integer
For i = 100 To 1000
If i Mod 3 = 0 Then
sum = sum + i
End If
If sum > 3000 Then
Exit For
End If
Next i Print sum
题目（事件）点击窗体
（响应）求 1！+2！+3！+,,,,,,, +10! 的值，并在窗体上输出，结果存
入变量 L 中
Dim l as long
Dim p as long
p=1
Fori=1to10
p=p*i
l=l+p
next i
print l
3 题目点击窗体
求 100 以内偶数的和，并将结果输出在窗体上，将结果存入变量 sum 中
Dim sum as integer For i=0 to 100 step2
Sum=sum+i
Next i
Print sum
题目：单击窗体
求 1+2+3+4+5+,,,,,, .+100 的值并将结果输入在窗体上，结果存入变量
sum 中
Dim sum as integer
For i=0 to 100
Sum=sum+i
Next
Print sum
题目双击窗体
求 1+5+10+15+,,,,, ..+500 的和，并将结果输出在窗体上，将结果存入变
量 sum 中
Dim sum as long
Sum=0
For i=0 to 500 step 5
Sum=sum+i
Next Print sum
' 题目：( 事件) 单击窗体。
' ( 响应) 求10~20 之间所有素数的乘积并输出在窗体上。
' 将结果存入变量 L 中
'-------------------------------------------------
' 注意：请在指定的事件内编写代码。
'-------------------------------------------------
Dim l As Long Dim I as integer
Dim j as integer
Dim b as Boolean
l=1
B= True
For i =10 to 20
For j =2 to i-2
If i mod j=0 then
b= false
End if
Next
If b = True then
l=l*i
End if
b= True
Next
Print Str(1)
' 题目：：编写函数 fun 其功能是 : 判断一个整数 w 的各位
' 数字平方之和能否被 5 整除 , 可以被 5 整除则返
' 回 1 , 否则返回 0
'-------------------------------------------------
Private Function fun(w As Integer) As Boolean
'********** Begin *********
Dim k as integer ,s as integer
Do
s=s+(w mod 10)*(w mod 10)
w=Int(w/10)
Loop whilew<>0
If s mod 5=0 then
K=1
Else
K=0
End if
Fun=k
'********** End *************
End Function
题目：编写函数 fun ，函数的功能是：根据一个百分制
' 成绩 mark（整数），显示对应五级制的评定。条件如下：
'mark 大于等于 90显示"优秀"
'mark 小于 90且大于等于 80 显示"良好"
'mark 小于 80且大于等于 70 显示"中等"
'mark 小于 70且大于等于 60 显示"及格"
'mark 小于 60显示" 不及格"
' 要求使用 IF 语句来实现。
'-------------------------------------------------
'-------------------------------------------------
Private Function fun(mark As Integer) As String
'********** Begin **********
if mark>=90 then
fun=”优秀“
Else if mark>=80 then
fun=”良好“
else if mark>=70 then
fun = ”中等“
else if mark>=60 then
fun=”及格”
else
fun=”不及格“
end if
'********** End **********
End Function
' 题目：( 事件) 双击窗体。
' ( 响应) 求出 100~200之间，能被 5 整除，但不能被 3 vb程序设计课本整除的数。
' 并求所有数之和，存入变量中 SUM中
'-------------------------------------------------
Private Sub Form_dblClick()
Dim sum As Integer
sum = 0
Dim i as integer
For i =100 to 200
If ((i mod 5)=0) and ((i mod 3)<>0) then
Print (CStr(i))
sum=sum+i
End if
Next
End sub