VB.net如何删除数组内元素
'这是文本框里----------------PrivateSubTextBox2_KeyUp(ByValsenderAsObject,ByValeAsSystem.Wi...
'这是文本框里----------------
Private Sub TextBox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
If (e.KeyCode = 13) Then
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
z = x * y
TextBox3.Text = z
ListBox1.Items.Add("每项结果:" & z)
GTnumstr(I) = TextBox3.Text
GTresult = GTresult + GTnumstr(I)
'按钮----------------------------
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox3.Text = GTresult
ListBox1.Items.Add("-------------------")
ListBox1.Items.Add("本张单总额:" & GTresult)
ListBox1.Items.Add("-------------------")
问题来了,当我下次再在文本框输入的数,进行计算。
那第一次的GTnumstr(I)数组内的元素。如何清空呢!!!!
问题如图:
正常是第二张单也是10的,但这明显是。第一次计算后。数组内的元素还在。。所以我想清除数组元素。
还有这里变量,我是全局的。姐通用。是否有应响!?
Dim x, y, z As Double 'x,y获取text1,2值,z计算结果
Dim GTnumstr(100) As Single '数组
Dim I As Integer '数组变量 展开
Private Sub TextBox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
If (e.KeyCode = 13) Then
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
z = x * y
TextBox3.Text = z
ListBox1.Items.Add("每项结果:" & z)
GTnumstr(I) = TextBox3.Text
GTresult = GTresult + GTnumstr(I)
'按钮----------------------------
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox3.Text = GTresult
ListBox1.Items.Add("-------------------")
ListBox1.Items.Add("本张单总额:" & GTresult)
ListBox1.Items.Add("-------------------")
问题来了,当我下次再在文本框输入的数,进行计算。
那第一次的GTnumstr(I)数组内的元素。如何清空呢!!!!
问题如图:
正常是第二张单也是10的,但这明显是。第一次计算后。数组内的元素还在。。所以我想清除数组元素。
还有这里变量,我是全局的。姐通用。是否有应响!?
Dim x, y, z As Double 'x,y获取text1,2值,z计算结果
Dim GTnumstr(100) As Single '数组
Dim I As Integer '数组变量 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询