那位大侠能帮我答这份卷子 是VB的编程

来源：百度知道 编辑：UC知道 时间：2024/05/31 11:26:30
四．编程（10分）
用For循环语句编写一段程序，将0－100以内所有的奇数，以及所有奇数的和，输出到窗体上。

dim sum as long

for i=0 to 100
if (i mod 2)<>0 then
me.print i
sum=sum+i
endif
next
me.print "和=" & sum

Dim i As Integer, sum As Integer
Private Sub Form_Click()
For i = 0 To 100
If i Mod 10 = 0 Then Print
If i Mod 2 <> 0 Then
Print i,
sum = sum + i
End If

Next i
Print "sum=" & sum
End Sub

for i =1 to 100 step 2步长是2也就是1+2的结果再+2一直+2循环下去只到结果大于100，退出循环
print i;
j=j+i(对奇数进行累加)
next
print “和是：”;j；
end sub