Question

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

不知道自己哪里写错了，就是运行a>b情况时并不会显示我设定的" 输入错误，请使得a<b "语句，不知道为什么





Answer 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<b"
        Exit Sub
    End if
    For i = a To b
        sum = sum + 2 ^ i
    Next i
    Text3.Text = sum
End Sub

追问

不好意思啊，我是初学者，您可以跟我说说我是错在哪里所以显示不出“输入错误，请使得a<b”的么？不好意思，麻烦您了

追答

那是因为你把它放入for循环里面了，当a大于或等于b时，for循环根本就不会运行（只有a<b时才会运行），所以当然就显示不出来咯。此外，你把字符串赋值给一个数值型变量也是错误的（sum = "..." 这句）。