锐客网

  1. 首页 > 睿知 > it技术 > >

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

IT技术text

如何用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
代码就这样，按照你的要求写的 希望给我加分哦
如何用vb.net编写一个简单的计算器程序?。慷嘈话?/h2>你自己加窗体和空件吧
Private Sub a1_Click()
X = Val(Text1.Text)
Y = Val(Text2.Text)
s = XY
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
【vb .net数组计算器 vb计算数组元素个数】不会的叫我 在线谈
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 = Text2Command1(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 = Text1Command1(j).Caption
End If
Next j
End Sub
vb .net数组计算器的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb计算数组元素个数、vb .net数组计算器的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何搭建DELL服务器系统？ DELL服务器系统怎么做

    下一篇：php定时提取数据，php取时间