计算器的问题

Question

处学VB，做个计算器，碰到一些问题，小数点的问题，还有没有按等于号以前累加累减累乘累除的问题，能详细的给点说明，不一定要有代码

Answer 1

先注册一下，再去下载
http://www.vbzx.net/soft.asp?id=1729

Answer 2

我也刚学，一开始我也搞不懂，后来自己慢慢搞定了，思路：
首先写一个过程，功能为根据操作符运算出结果！
过程大致为：isoper(数据A, 数据B, 操作符)
Select Case operc
Case "+"
isoper = Val(oper1) + Val(oper2)
Case "-"
isoper = Val(oper1) - Val(oper2)
Case "*"
isoper = Val(oper1) * Val(oper2)
Case "/"
isoper = Val(oper1) / Val(oper2)
Case "^"
isoper = Val(oper1) ^ Val(oper2)
Case Else
End Select
准备两个变量：数据A，数据B
输入完第一个数据后在点操作符或等号时将其存入变量数据B，
并执行：数据A=isoper(数据A, 数据B, 操作符)
不要忘记在每按一次操作符后将运算符保存至变量以供以上过程使用

Answer 3

可以用循环吗，哪本VB的书里都有呀，VB6.0，VB.NET这个程序是个事例程序

Answer 4

Private Sub Text1_Change()
    Dim Locate As Integer
    Dim sTemp As String
        
    '限制在数字中间插入"-"号
    If InStr(Text1.Text, "-") > 0 And Left$(Text1.Text, 1) <> "-" Then
        Locate = InStr(Text1.Text, "-")
        sTemp = Left$(Text1.Text, Locate - 1)
        sTemp = sTemp & Right(Text1.Text, Len(Text1.Text) - Locate)
        Text1.Text = sTemp
    End If
   
    '限制小数点
    If Trim(Text1.Text) = "" Or Trim(Text1.Text) = "." Then
        txtMerchandise(Index) = "0."
        SendKeys "{Home}+{End}"
    End If
Eend Sub

Answer 5

最后那里的Eend Sub 多了一个e,复制的时候要注意！！！
那是我的粗心大意！

Answer 6

小键盘的事件如何做，ACSII是什么

Answer 7

ACSII:美国标准信息交换码
小键盘的事件不用处理的,只要Text1的值改变了就会触发Text1_Change()的了!

Answer 8

我的意思是在小键盘的数字键中打数字可以在计算器的TEXT中显示并计算，但好象事件不行

Answer 9

http://www.vbzx.net/soft.asp?id=1729里有你想要的东西！