因為Text1里是存放字符串的,所以要把輸入的數據進行運算,必須把字符型變量轉變為實型變量,分別用Num1、Num2和StrNum1、StrNum2進行存放。
在Form_Load事件里給變量初賦值:
Num1=0
Num2=0
StrNum1=""
StrNum2=""
FirstNum=True
因為17個按鈕使用的是同一事件,所以我們用一個SelectCase語句區分各個按鈕,雙擊任意按鈕輸入代碼:
PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0To9
IfFirstNumThen
StrNum1=Str(Index)’實型轉字符型
FirstNum=False’初賦值為假
Else’非初賦值
StrNum1=StrNum1 Str(Index)
EndIf
Text1.Text=StrNum1’顯示
<還有其他語句,等待插入>
EndSelect
EndSub
運行程序的話已經可以輸入數據,下面我們來處理小數點。
在General里聲明新的變量:
DimPointFlagAsBoolean'判斷是否已有小數點
我們知道小數點只能輸入一次,一個數據中不能有多個小數點存在,所以需要一個布爾變量做判斷。
在Form_Load里進行初賦值:
PointFlag=False
在Command的單擊事件里接著上面輸入新的代碼:
Case10
IfNotPointFlagThen’如果沒有小數點
IfFirstNumThen’如果是第一個字符
StrNum1="0."
FirstNum=False
Else
StrNum1=StrNum1 "."
EndIf
Else’已有小數點
ExitSub’則退出單擊事件
EndIf
PointFlag=True
Text1.Text=StrNum1
->