写了个小计算器但没解决添入问题

Question

我有一个text1.text 我第一次输入123并且让string1=123  然后清空text1
然后我在想在text1上输入234并且让它储存为string2  到了这里就没法在继续下去了
   因为我晴空text1后 就没有办法把234复值到string2 中了。有什么方法没？？     我的意思就是让有个循环让234能输入到string 2 中，谢谢请帮忙

Answer 1

既然清空又输入，怎会没法赋值?
string2=trim(text1.text)

Answer 2

上一次你那个不能输入第二次数值的问题解决了没有?
我想在后面接着回复一句:"val()这个函数本身就可以去掉多个小数点并清除前置的"0",不用其它的编程语句",但由于论坛规则不能连续回贴四次的限制,没补上去,呵
你上面的文意我看不懂,呵

Answer 3

string2=string1
输入完第一个数，
string1=text1.text
text1.text=""
再输入第二个数啊
string2=text1.text
有什么困难的吗？

Answer 4

也许大家都明白我的意思。
Mi_Bo(东方云霄) 你理解错了，我的意思是当清空text 后，string2=""
所以没有办法输入234了，这个是我很困惑的地方。
  string=text1.text
  text1.text=""
  string2=""  
  当我实质要求是  当清空text后就可以再次输入234  
  并且让string2=234  就这个意思哎，我怎么叙述能明白呢。
  这个是text
|--------------|
|______________|  我在里面输入了123
 然后|--------------|
     |___123________|  并且 我让string1=text.tex1  
  这时，我学要text清空，
    |--------------|
    |______________|
 然后我再次输入234
    为的是string2能够得到我第二次副值  string2=text1.text
  可是第二次副值string2 得到的是  空的。。    
 我的意思是在TEXT1中怎么输入两次数，
Dim s As Integer
Dim get_Value As String
Dim obtain As String
Dim max As Integer
Private Sub cmd_Calculation_Click(Index As Integer)End SubPrivate Sub cmd_Num_Click(Index As Integer)End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Select Case KeyCode
 Case 96
 
  cmd_Num(0).SetFocus
  get_Value = "0"
  
 Case 97
  cmd_Num(1).SetFocus
  get_Value = "1"
 
  Case 98
  
  cmd_Num(2).SetFocus
  get_Value = "2"
  
  Case 99
  cmd_Num(3).SetFocus
  get_Value = "3"
  
  Case 100
  cmd_Num(4).SetFocus
  get_Value = "4"
  
  Case 101
  cmd_Num(5).SetFocus
 get_Value = "5"
 
  Case 102
  cmd_Num(6).SetFocus
  get_Value = "6"
  
  Case 103
  cmd_Num(7).SetFocus
 get_Value = "7"
 
  Case 104
  cmd_Num(8).SetFocus
  get_Value = "8"
  
  Case 105
  cmd_Num(9).SetFocus
  get_Value = "9"
  
   Case 48
 
  cmd_Num(0).SetFocus
  get_Value = "0"
  
 Case 49
  cmd_Num(1).SetFocus
  get_Value = "1"
 
  Case 50
  
  cmd_Num(2).SetFocus
  get_Value = "2"
  
  Case 51
  cmd_Num(3).SetFocus
  get_Value = "3"
  
  Case 52
  cmd_Num(4).SetFocus
  get_Value = "4"
  
  Case 53
  cmd_Num(5).SetFocus
 get_Value = "5"
 
  Case 54
  cmd_Num(6).SetFocus
  get_Value = "6"
  
  Case 55
  cmd_Num(7).SetFocus
 get_Value = "7"
 
  Case 56
  cmd_Num(8).SetFocus
  get_Value = "8"
  
  Case 57
  cmd_Num(9).SetFocus
  get_Value = "9"
  
  Case 107
   cmd_Calculation(0).SetFocus
   get_Value = "+"
   
 Case 109
  cmd_Calculation(1).SetFocus
  get_Value = "-"
 
 End Select obtain = Label1.Caption & get_Value
 Label1.Caption = obtain
 End SubPrivate Sub Label1_Change()
 Dim ss As String max = Len(obtain)
 ss = Mid(obtain, 1, 11)
 If max >= 11 Then
  Label1.Caption = ss
 End If
End Sub

Answer 5

不知道你想说什么，写一个你看看吧！
Option Explicit
Private number1 As Double
Private number2 As Double
Private result As Double
Dim dian As Boolean
Dim flag As Boolean
Private flag1 As Boolean
Dim aaa As Boolean
Dim bbb As Boolean
Private yunsuan As StringPrivate Sub bai_Click()
If flag1 = False Then
If yunsuan = "+" Then
number2 = Val(Text1.Text) * 0.01 * number1
Text1.Text = Str(number2)
ElseIf yunsuan = "*" Then
number2 = Val(Text1.Text) * 0.01
Text1.Text = Str(number2)
End If
End If
flag1 = True
aaa = False
End SubPrivate Sub c_Click()
Text1.Text = "0."
dian = False
number1 = 0
number2 = 0
flag = False
flag1 = False
End Sub
Private Sub ce_Click()
If aaa = True Then
If flag = False Then
number1 = 0
Text1.Text = "0."
ElseIf flag = True Then
number2 = 0
Text1.Text = "0."
End If
End If
End SubPrivate Sub Command1_Click(Index As Integer)
If bbb = False Then
If Text1.Text = "0." And dian = False Then
Text1.Text = ""
End If
Dim Num As Integer
Select Case Index
Case 0
Num = 0
dian = True
Case 1
Num = 1
Case 2
Num = 2
Case 3
Num = 3
Case 4
Num = 4
Case 5
Num = 5
Case 6
Num = 6
Case 7
Num = 7
Case 8
Num = 8
Case 9
Num = 9
End Select
If Len(Text1.Text) < 10 Then
Text1.Text = Text1.Text & Num
End If
End If
aaa = True
End SubPrivate Sub Command2_Click()
If InStr(Text1.Text, ".") Then
Text1.Text = Text1.Text
Else
Text1.Text = Text1.Text + "."
End If
End SubPrivate Sub dengyu_Click()
If flag1 = False Then
number2 = Val(Text1.Text)
If yunsuan = "+" Then
result = number1 + number2
Text1.Text = Str(result)
number1 = Val(Text1.Text)
ElseIf yunsuan = "-" Then
result = number1 - number2
Text1.Text = Str(result)
number1 = Val(Text1.Text)
ElseIf yunsuan = "*" Then
result = number1 * number2
Text1.Text = Str(result)
number1 = Val(Text1.Text)
ElseIf yunsuan = "/" Then
If number2 = 0 Then
MsgBox "·&Ouml;&Auml;&cedil;&sup2;&raquo;&Auml;&Uuml;&Icirc;&ordf;&Aacute;&atilde;"
Text1.Text = ""
Else
result = number1 / number2
Text1.Text = Str(result)
number1 = Val(Text1.Text)
End If
End If
ElseIf flag1 = True Then
bai_Click
If yunsuan = "+" Then
result = number1 + number2
Text1.Text = Str(result)
number1 = Val(Text1.Text)
ElseIf yunsuan = "*" Then
result = number1 * number2
Text1.Text = Str(result)
number1 = Val(Text1.Text)
End If
End If
aaa = False
bbb = True
End SubPrivate Sub Form_Load()
Text1.Text = "0."
number1 = 0
number2 = 0
End SubPrivate Sub yun_Click(Index As Integer)
number1 = Val(Text1.Text)
Select Case Index
Case 0
yunsuan = "+"
Text1.Text = ""
flag = True
Case 1
yunsuan = "-"
Text1.Text = ""
flag = True
Case 2
yunsuan = "*"
Text1.Text = ""
flag = True
Case 3
yunsuan = "/"
Text1.Text = ""
flag = True
End Select
bbb = False
End Sub