vb+.net数组计算器 vb计算数组元素个数

如何用vb中控件数组做一个简易计算器？

我给你做个简单的 吧 只做 + - * \ 创建工程后 2个textbox 文本框控件 4个command 按纽控件 1个lalbel 标签控件 代码实现如下：

dim a as integer , b as integer, sum as integer

a=text1.text

b=text2.text

Private Sub command1_Click()

sum=a+b

lalbel1.caption=sum

end sub

Private Sub command2_Click()

sum=a-b

lalbel1.caption=sum

end sub

Private Sub command3_Click()

sum=a*b

lalbel1.caption=sum

end sub

Private Sub command4_Click()

sum=a\b

lalbel1.caption=sum

end sub

代码就这样 ， 按照你的要求写的 希望给我加分哦

相关问答

Q1: 如何用vb.net编写一个简单的计算器程序啊？多谢啊

你自己加窗体和空件吧

Private Sub a1_Click()

X = Val(Text1.Text)

Y = Val(Text2.Text)

s = X + Y

Text3.Text = s

Text3.Locked = True

End Sub

Private Sub a2_Click()

X = Val(Text1.Text)

Y = Val(Text2.Text)

s = X - Y

Text3.Text = s

Text3.Locked = True

End Sub

Private Sub a3_Click()

X = Val(Text1.Text)

Y = Val(Text2.Text)

s = X * Y

Text3.Text = s

Text3.Locked = True

End Sub

Private Sub a4_Click()

X = Val(Text1.Text)

Y = Val(Text2.Text)

s = X / Y

Text3.Text = s

Text3.Locked = True

End Sub

不会的叫我 在线谈

Q2: vb控件数组制作一个只有加减乘除的简易计算器

以下是一个简单的+-*/的计算器代码，按钮采用数组，text2不可见。详情也可在我的百度空间里查看“vb6 比较简单的计算器代码”下载源文件和说明。

Function Eval(ByVal Expressions As String) As String '文本运算vbs

Dim Mssc As Object

Set Mssc = CreateObject("MSScriptControl.ScriptControl")

Mssc.Language = "vbscript"

On Error GoTo EvalErr

Eval = Mssc.Eval(Expressions)

Exit Function

EvalErr:

Exit Function

End Function

Private Sub Command1_Click(Index As Integer)

Dim i As Long, j As Long

For i = 0 To 10 '数字输出0-9和小数点，输入按钮的Caption值

If Index = i Then

Text2 = Text2 Command1(i).Caption

Text1 = Format$(Eval(Text2), "0.########") '格式化小于1大于-1的数，下同

End If

Next i

For j = 11 To 14 '运算符号输出+-*/，输入按钮的Caption值

If Index = j Then

Text1 = Format$(Eval(Text2), "0.########")

Text2 = Text1 Command1(j).Caption

End If

Next j

End Sub

vb+.net数组计算器的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb计算数组元素个数、vb+.net数组计算器的信息别忘了在本站进行查找喔。