明代砚台特征:一道编程题

来源：百度文库编辑：神马品牌网时间：2024/04/29 18:38:14

在下面一段里，求出来的是从2一直加到102的和：
Private Sub Form_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 2 To 102
s = s + i
Next i
Form1.Print s
End Sub

如何在For i = 2 To 102 后面加上一句话，使得求出来的得数是从2一直加到102的偶数之和？
就是加上的那句话最好跟For i = 2 To 102 是同一行的
不要用其它表达式了（如：if,end if；do while，loop；……）

For i = 2 To 102 step 2
这个是 vb 中最简单的 for to step 语法阿

Private Sub Form_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 2 To 102
if i/2 = int(i/2) then
s = s + i
endif
Next i
Form1.Print s
End Sub

For i = 2 To 102 STEP 2

一道编程的题？一道Java编程题一道编程题一道vb编程题请教一道编程题? 一道编程题一道编程题！谢谢！！一道VB编程题一道编程题求解一道编程题