求教VB里一道for循环题目！不胜感激！

2025-05-18 13:10:55

推荐回答（1个）

回答（1）：

Private Sub Command1_Click()
    Dim a As Integer, b As Integer, i As Integer, sum As Double
    a = Val(Text1.Text)
    b = Val(Text2.Text)
    If a >= b Then
        Text3.Text = "输入错误，请使得a        Exit Sub
    End if
    For i = a To b
        sum = sum + 2 ^ i
    Next i
    Text3.Text = sum
End Sub

求教VB里一道for循环题目！ 不胜感激！

求教VB里一道for循环题目！不胜感激！