前一阵子，做一个表达式计算器。在网上查了许多相关资料，都没有思路，或者有的只有程序，没有源代码。看来，求人不如求己，后来，在学长的帮助下，终于完成了该程序，这其中包含了三个模块：Module Module1，Module Module2，Module sign。由于篇幅限制，这里只给出部分代码:

Public Class Form1

    Inherits System.Windows.Forms.Form

    Dim a As Short = 1

    Dim b As Short = 1

    Dim tb1, tb2 As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        tb1 = ""

        tb2 = ""

 

        If TextBox1.Text = "" Then

        Else

            tb2 = TextBox1.Text

            While a > 0

                a = sign1(tb2)

                b = sign2(tb2)

 

                If a > 0 Then

                    tb1 = Mid(tb2, b + 1, a - b - 1)

                    tb1 = js(tb1)

 

                    If b - 1 >= 1 And Len(tb2) > a Then

                        tb2 = Mid(tb2, 1, b - 1) & tb1 & Mid(tb2, a + 1, Len(tb2) - a)

                    ElseIf b - 1 >= 1 Then

                        tb2 = Mid(tb2, 1, b - 1) & tb1

                    ElseIf Len(tb2) > a Then

                        tb2 = tb1 & Mid(tb2, a + 1, Len(tb2) - a)

                    Else

.............

评论 (0) All

登陆 还没注册？