-1

我这里有一个程序可以解决一个表达式......

首先，我需要在文本框中输入表达式。这将存储在 CharArray 中，然后使用输入框将变量替换为整数......

我的问题是：如何将整数存储到数组并存储操作？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim arr() As Char = TextBox1.Text.ToCharArray
    Dim aChar As Char
    Dim a As String
    Dim calc() as String

    'Me.Height = Me.Height + 90
    Me.Button1.Enabled = False
    Me.TextBox1.Enabled = False
    For i = 0 To TextBox1.Text.Length() - 1
        aChar = arr.ElementAt(i)
        If Char.IsLetter(aChar) Then
            a = InputBox("Enter value for " & aChar, "Expression")

            'Here what code?
            '    Try
            '        calc(i) = a

            '    Catch ex As Exception
            '        MsgBox("eee")
            '    End Try
            'Else
        End If
    Next i
End Sub
4

2 回答 2

0

我通常更喜欢使用通用列表，它们使添加和删除项目变得更加容易。下面的代码应该做你需要的：

    Dim arr() As Char = TextBox1.Text.ToCharArray
    Dim aChar As Char
    Dim a As String
    Dim calc As New List(Of String)

    Me.Button1.Enabled = False
    Me.TextBox1.Enabled = False
    For i = 0 To TextBox1.Text.Length() - 1
        aChar = arr.ElementAt(i)
        If Char.IsLetter(aChar) Then
            a = InputBox("Enter value for " & aChar, "Expression")
            ''//Add the result to the list
            calc.Add(a)
        Else
            ''//Add the operator to the list
            calc.Add(aChar)
        End If
    Next i

    ''//If you want to convert to list to an array you can use this
    Dim CalcArray = calc.ToArray()
于 2011-02-20T15:16:05.830 回答
0

我没有测试过这个或任何东西，但我认为重构它以使用 For Each 循环并确定范围或摆脱 a 和 aChar 变量会是一个更好的方法：

    Dim arr() As Char = TextBox1.Text.ToCharArray
    Dim calc As New List(Of String)

    Me.Button1.Enabled = False
    Me.TextBox1.Enabled = False

    For Each aChar As Char In arr
        If Char.IsLetter(aChar) Then
            ''//Add the result to the list
            calc.Add(InputBox(String.Format("Enter value for {0} Expression", aChar.ToString)))
        Else
            ''//Add the operator to the list
            calc.Add(aChar.ToString)
        End If
    Next

    ''//If you want to convert to list to an array you can use this
    Dim CalcArray = calc.ToArray()
于 2011-03-30T03:28:09.327 回答