VB做计算器问题2

len(text1.text)<>0

很简单的：窗口放入四个COMMAND控件（Caption属性分别为+、－、X、÷），三个TEXT控件，再放入三个Label控件（Caption属性分别为：操作数1、操作数2和计算结果），窗口的Caption属性改为“四则运算”代码如下：Private Sub Command1_Click()If Val(Text1.Text) + Val(Text2.Text) <> Int(Val(Text...

在VB 中 有个特殊的运算符“^”键盘上6上面那一个！比如2的5次方，那么你只需要输入 2^6即可！这个运算符是VB里面自带的！

Public nn As Long '定义公共变量NN 为长整型 Dim zlb As Boolean '同上 zlb为布尔型 Private Sub Command1_Click(Index As Integer)'数组按钮1单击事件 Select Case Index '情况测试表达式 Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 '如果点击0-9按钮 Text1.Text = Val(Text1.Text) *...

1.用VB编程序设计一个简易的计算器 代码：Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = Label1.Caption + "." Case 1...

if i=5 then '五分钟定时 SendKeys "{F5}"i=0 end if End Sub '这个程序是对Form1也就是自己建立的窗口,执行按F5的 '如果要对其他程序按F5,比方说是计算机,那就在sendkeys上面加这段代码 'ReturnValue = Shell("CALC.EXE", 1) ' 运行计算器。'AppActivate ReturnValue ' 激活计算器。

Private Sub Command1_Click()n = Val(Text1.Text)m = Val(Text2.Text)Label1.Caption = Command1.Caption s = n + m Text3.Text = CStr(s)End Sub Private Sub Command2_Click()n = Val(Text1.Text)m = Val(Text2.Text)Label1.Caption = Command2.Caption s = n - m Text3....

vb乘法是 * ,5乘以6 就是 5*6，点击计算按钮写 text3=val(text1)*val(text2)'这样就可以了

可以就是将文本框后面增加一个数字,就是在文本框内容最后增加命令按钮所显示的数字 比如 Private Sub Command3_Click()text1.Text = text1.Text & "3"End Sub 或通用的按钮组 Private Sub Command1_Click(Index As Integer)text1.Text = text1.Text & Index End Sub 都行 ...

Private Sub Command1_Click()Select Case Text2.Text Case "+"Text4.Text = Str(Val(Text1.Text) + Val(Text3.Text))Case "-"Text4.Text = Str(Val(Text1.Text) - Val(Text3.Text))Case "*"Text4.Text = Str(Val(Text1.Text) * Val(Text3.Text))Case "/"If Val(Text3.Text...