VB程序设计

VB程序设计

--------------------------

'

'-------------------------------------------------

'题目： (事件)单击窗体。

' (响应)求出100以内所有奇数的和，并将结果输出

' 到窗体上,并存入所给变量SUM中。

'-------------------------------------------------

Private Sub Form_Click()

'**********Program**********

For i = 1 To 99 Step 2

Sum = i + Sum

Next i

Print Sum

'********** End **********

End Sub

'程序设计）-------------------------------------------------

'题目：(事件)双击窗体。

' (响应)求3+6+9+12+15+18+……+300的和，并将结

' 果输出到窗体上。将结果存入变量 SUM中。

'-------------------------------------------------

Private Sub Form_DblClick()

'**********Program**********

For i = 3 To 300 Step 3

Sum = i + Sum

Next i

Print Sum

'********** End **********

End Sub

'-------------------------------------------------

'

'-------------------------------------------------

'题目： (事件)单击窗体。

' (响应)求从100到1000之间所有是3的倍数的数之

' 和，当和大于3000时，停止计算并输出和。请将结果输

' 出到窗体上,并存入所给变量SUM中。使用for...next语

' 句完成程序

'-------------------------------------------------

'**********Program**********

Private Sub Form_Click()

For i = 100 To 1000

If i Mod 3 = 0 And Sum <= 3000 Then Sum = Sum + i

Next i

End Sub

Print Sum

'********** End **********

'-------------------------------------------------

'

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)求1+2+3+……+100的值，并把结果输出在窗体上。

' 结果存入变量SUM中。

'-------------------------------------------------

Private Sub Form_Click()

'**********Program**********

For i = 1 To 100

Sum = Sum + i

Next i

Print Sum

'********** End **********

End Sub '程序设计）-------------------------------------------------

'题目：(事件)双击窗体。

' (响应)求3+6+9+12+15+18+……+300的和，并将结

' 果输出到窗体上。将结果存入变量 SUM中。

'-------------------------------------------------

Private Sub Form_DblClick()

'**********Program**********

For i = 3 To 300 Step 3

Sum = Sum + i

Next i

Print Sum

'********** End **********

End Sub

你Fn是不是忘记赋初值了？

Fn为0的话Fx就一直为0，Fx为0的话vx就一直为0，vx为0的话x就一直为0，而你又要求x在6.24和6.26之间才能退出循环，所以这就成了个死循环。