1、建立控制元件組的方法

b、然後進行“複製”和“貼上”，當選擇“貼上”時，出現對話方塊提示已有一個同名控制元件，詢問是否建立控制元件組，選擇“是”後，即建立了一個名為“Command”的控制元件組。這時，第一個按鈕的Index屬性值預設為“0”，第二個的Index屬性值自動設為“1”，並且大小與第一個按鈕相同，只需修改其Caption屬性為數字“1”並將其拖至合適位置即可。此後繼續使用“貼上”的方法建立其他控制元件組中其餘按鈕，共19個按鈕，每建立一個，就將它拖到合適處，並修改相應的Caption屬性值。

c、建立其他控制元件：如右圖所示

2、各控制元件屬性設定如下：

控制元件控制元件

控制元件名稱Caption控制元件名稱Caption

各個屬性修改後得到如圖所示的介面

程式如下

Dimshu1AsSingle,shu2AsSingle,suanfuAsString

"定義兩個單精度數變數用與存放參與運算的數,一個字元型存放運算子

PrivateSubCommand1_Click(IndexAsInteger)

Text1.Text=Text1.Text&Command1(Index).Caption

"將command1的單擊事件與文字框顯示的內容連線

EndSub

PrivateSubCommand2_Click(IndexAsInteger)

shu1=Val(Text1.Text)"將shu1隱藏起來

suanfu=Command2(Index).Caption

Text1.Text=""

EndSub

PrivateSubCommand4_Click()

Text1.Text=Text1.Text+"."

If(InStr(Text1.Text,".")=1)Then"第一位不能為小數

Text1.Text=""

EndIf

IfInStr(Text1.Text,".")<Len(Text1.Text)Then

"防止出現兩個小數點

Text1.Text=Left(Text1.Text,Len(Text1.Text)-1)

EndIf

EndSub

PrivateSubCommand5_Click()"開始加減乘除的運算

shu2=Val(Text1.Text)

SelectCasesuanfu

Case"+"

Text1.Text=shu1+shu2

Case"-"

Text1.Text=shu1-shu2

Case"*"

Text1.Text=shu1*shu2

Case"/"

Ifshu2=0Then

MsgBox"分母不能為零!",1+32+0,

"錯誤""錯誤提示框圖下所示

Text1.Text=""

Else

Text1.Text=shu1/shu2

EndIf

EndSelect

EndSub

PrivateSubCommand3_Click()"假如輸入錯誤,可每次退後一格

IfText1.Text=""Then

ExitSub

EndIf

Text1.Text=Left(Text1.Text,Len(Text1.Text)-1)

EndSub

PrivateSubCommand6_Click()

Text1.Text="""清除

EndSub

PrivateSubCommand7_Click()"平方運算

Text1.Text=Text1.Text*Text1.Text

EndSub

PrivateSubCommand8_Click()

IfLeft(Text1.Text,1)<>"-"Then

Text1.Text="-"&Text1.Text

Else

Text1.Text=Right(Text1.Text,Len(Text1.Text)-1)

EndIf

EndSub