VB程序设计循环结构讲课文档.pptVIP

Private Sub Command1_Click() Dim N As Integer, Result As DoubleDim i As Integer N = Val(InputBox(n=)) Result = 1 For i = 1 To N Result = Result * i Next i MsgBox N != ResultEnd Sub0 Private Sub Command2_Click() Dim N As Integer, Result As Double Dim i As Integer N = Val(InputBox(n=)) Result = 1: i = 1 Do While i = N Result = Result * i i = i + 1 Loop MsgBox N != ResultEnd Sub Private Sub Command3_Click() Dim N As Integer, Result As Double Dim i As Integer N = Val(InputBox(n=)) Result = 1: i = 1 Do Until i N Result = Result * i i =