vb通过控件数组实现简单计算器

以下是一个使用控件数组实现简单计算器的VB代码示例：

Dim nums(1 To 2) As Double
Dim op As String

Private Sub btnNum_Click(Index As Integer)
    Dim num As String
    num = btnNum(Index).Caption
    txtResult.Text = txtResult.Text & num
End Sub

Private Sub btnOperator_Click(Index As Integer)
    nums(1) = CDbl(txtResult.Text)
    op = btnOperator(Index).Caption
    txtResult.Text = ""
End Sub

Private Sub btnClear_Click()
    txtResult.Text = ""
    nums(1) = 0
    nums(2) = 0
End Sub

Private Sub btnEquals_Click()
    nums(2) = CDbl(txtResult.Text)
    Dim result As Double
    Select Case op
        Case "+"
            result = nums(1) + nums(2)
        Case "-"
            result = nums(1) - nums(2)
        Case "*"
            result = nums(1) * nums(2)
        Case "/"
            result = nums(1) / nums(2)
    End Select
    txtResult.Text = result
End Sub

在这个示例中，我们使用了控件数组来处理数字和运算符按钮。当用户点击一个数字按钮时，我们将该按钮的标签文本追加到文本框txtResult中。当用户点击一个运算符按钮时，我们将当前文本框中的值转换为Double类型，并将其存储在nums(1)数组元素中。我们还将当前运算符存储在op变量中，并清空文本框txtResult。

当用户点击等于号按钮时，我们将文本框中的值转换为Double类型，并将其存储在nums(2)数组元素中。然后，我们使用一个Select Case语句来根据所选的运算符执行相应的计算，并将结果存储在变量result中。最后，我们将结果显示在文本框txtResult中。

我们还定义了一个清除按钮（btnClear），用于清空文本框和数组中的内容。