VB经典的程序计题.docVIP

累加求和1到100 Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 100 sum = sum + i Next Text1.Text = sum End Sub Private Sub Command2_Click() End End Sub 1到100的奇数和 Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 100 step 2 sum = sum + i Next Text1.Text = sum End Sub Private Sub Command2_Click() End 求n! Private Sub Command1_Click() Dim fact As Double, n As Integer, i As Integer n = Val(Text1.Text) fact = 1 For i = 1 To n fact = fact * i Next Text2.Text = fact End Sub 计算人口 Private Sub Label1_Click() Dim p As Single, r As Single, i