VB6.0設計一個簡單的計算器程式

用的控制元件陣列

"然後新增如下程式碼：

DimflagAsInteger

DimisClickNumLastAsBoolean

Dims1AsString"前一步的值

Dims2AsString"當前框中的值

PrivateSubForm_Load()

isClickNumLast=True

flag=1

EndSub

"點數字的操作

PrivateSubcmdNum_Click(IndexAsInteger)"點數字的操作

Text1.Text=IIf(isClickNumLast,Text1.Text,"")&CStr(Index)

isClickNumLast=True

EndSub

PrivateSubcmdOper_Click(IndexAsInteger)"點運算子的操作

IfisClickNumLastThen

CallcomputeResult

Text1.Text=s1

EndIf

flag=Index

isClickNumLast=False

EndSub

PrivateSubcmdOK_Click()"得出結果

CallcomputeResult

Text1.Text=s1

isClickNumLast=False

EndSub

PrivateSubcmdClear_Click()"清屏

Text1.Text=""

isClickNumLast=True

flag=1

EndSub

PrivateSubcomputeResult()"計算結果

s2=Text1.Text

SelectCaseflag"flag為運算子，分別為+-*/

Case1

s1=CStr(Val(s1)+Val(s2))

Case2

s1=CStr(Val(s1)-Val(s2))

Case3

s1=CStr(Val(s1)*Val(s2))

Case4

s1=CStr(Val(s1)/Val(s2))

EndSelect

EndSub