ywtl.net
当前位置:首页>>关于VB 加减乘除的资料>>

VB 加减乘除

第一个命令按钮输入text3=val(text1)+val(text2)! 第二text3=val(text1)-val(text2)! 第三个text3=val(text1)*val(text2) 第四个text3=val(text1)/val(text2)第五个text1.text="" text2.text=""text3.text="" Visual Basic是一种由 Microsoft ...

代码如下 '已增加操作数正确性验证及 除数不能为0验证 Private Sub Command1_Click() If IsNumeric(Text1.Text) And Text1.Text "" And IsNumeric(Text2.Text) And Text2.Text "" Then Select Case Combo1.ListIndex Case 0 Text3.Text = Val(Te...

Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Text3.Text = Val(Text1.Text) - Val(Text2.Text) End Sub Private Sub Command3_Click() Text3.Text = Val(Text1.Text) *...

Private a As Integer Private b As Integer Private c As Integer Private d As Integer Private Const ds As String = "+-*/"Private Sub Command1_Click() a = Int(Rnd * 10 + 1) b = Int(Rnd * 10 + 1) d = Int(Rnd * 4 + 1) Text1.Text = ...

在第一个命令按钮输入text3=val(text1)+val(text2)!第二text3=val(text1)-val(text2)!第三个text3=val(text1)*val(text2)第四个text3=val(text1)/val(text2)第五个text1.text="" text2.text=""text3.text=""

这里我假定数1的是text1 运算符是text2 数2为text3 结果为text4 private sub form_load() text1=""text2=""text3=""text4=""end subPrivate Sub Command1_Click() Select Case Text2.Text Case "+" Text4.Text = Text1 + Text3 Case "-" Text4.T...

Combo1.AddItem "+" Combo1.AddItem "-" Combo1.AddItem "*" Combo1.AddItem "/"

不明白你是否要做一个简易的计算器,如是,可以参考如下:其中command2,command3,command4,command5代表加减乘除按钮,Command1代表清除按钮,Command6代表计算按钮,两个label控件,一个是用来指定计算符的,由点击按钮实现,另一个是“=”,代码...

Private Sub Command1_Click() If Option1.Value Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) If Option2.Value Then Text3.Text = Val(Text1.Text) - Val(Text2.Text) If Option3.Value Then Text3.Text = Val(Text1.Text) * Val(Tex...

' ------------------------------------------------------------------------' 版权所有 (C) 1994 Microsoft Corporation'' 您可以免费以任何方式使用、修改、复制并分发您认为有用的' 示例应用程序文件 (或任何修改过的版本)。Microsoft 对任...

网站首页 | 网站地图
All rights reserved Powered by www.ywtl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com