VB期末考试大答案2.docVIP

1用两种循环结构输出101~500之间的所有奇数并输出它们的和。 Private Sub Command1_Click() Dim i%, n%, sum! i = 101: sum = 0: n = 0 Do Until i 500 sum = sum + i n = n + 1 i = i + 2 Loop Text1.Text = sum Text2.Text = n End Sub Private Sub Command2_Click() Dim i%, n%, sum! sum = 0: n = 0 For i = 101 To 500 Step 2 sum = sum + i n = n + 1 Next i Text1.Text = sum Text2.Text = n End Sub 2 S=1 + 1 X 2 + 1 X 2 X 3 +...+ 1 X 2 X 3 X ... X n，任意输入n的值，求S的值。Private Sub Command1_Click()Dim n As IntegerDim i As IntegerDim ss As VariantDim sum As Variantn = Val(Text1)ss = 1For i = 1 To n