VB 为什么文本框里显示不出数字?

Question

要求在文本框里显示出1+1+2+3+5+8+……+n的结果，n分别为30，30，35，为什么我编的这个运行后文本框里只显示0？
Private Sub Command1_Click()Dim s As Long Text1.Text = sEnd Sub

Private Sub Option1_Click(Index As Integer)Dim a(1 To 30) As VariantDim n, i, s As Longa(1) = 1a(2) = 1s = 2For i = 3 To 30 a(i) = a(i - 2) + a(i - 1) s = s + a(i)Next iPrint sEnd Sub

Private Sub Option2_Click(Index As Integer)Dim a(1 To 33) As VariantDim n, i, s As Longa(1) = 1a(2) = 1s = 2For i = 3 To 33 a(i) = a(i - 2) + a(i - 1) s = s + a(i)Next iPrint sEnd Sub

Private Sub Option3_Click(Index As Integer)Dim a(1 To 35) As VariantDim n, i, s As Longa(1) = 1a(2) = 1s = 2For i = 3 To 35 a(i) = a(i - 2) + a(i - 1) s = s + a(i)Next iPrint sEnd Sub

Answer 1

因为变量的作用域问题。你的s全部定义成了过程级的变量，当过程结束后，其值不再有意义，因此，你在command1_click中的代码:
Dim s As Long
Text1.Text = s
只是对s进行了定义，并没有对它赋值，所以其值为0。
只需将s定义成全局变量就好了。

另外，不得不说你的代码非常不好。类似这样的题目，一般定义一个函数，当单击Option时，只是对n赋值，然后在command1_click中，调用函数并传给参数n，再显示结果就好了。

Answer 2

定义s为窗体变量，代码如下：

Option Explicit
    Dim s As Long
    
Private Sub Command1_Click()
    Text1.Text = s
End Sub
 
Private Sub Option1_Click()
    Dim a(1 To 30) As Long
    Dim n As Long, i As Long
    a(1) = 1
    a(2) = 1
    s = 2
    For i = 3 To 30
        a(i) = a(i - 2) + a(i - 1)
        s = s + a(i)
    Next i
    Print s
End Sub
 
Private Sub Option2_Click()
    Dim a(1 To 33) As Long
    Dim n As Long, i As Long
    a(1) = 1
    a(2) = 1
    s = 2
    For i = 3 To 33
        a(i) = a(i - 2) + a(i - 1)
        s = s + a(i)
    Next i
    Print s
End Sub
 
Private Sub Option3_Click()
    Dim a(1 To 35) As Long
    Dim n As Long, i As Long
    a(1) = 1
    a(2) = 1
    s = 2
    For i = 3 To 35
        a(i) = a(i - 2) + a(i - 1)
        s = s + a(i)
    Next i
    Print s
End Sub