VB編程計算器

利用Label控件，在窗體上建立Label1,label2,label3,label4四個標簽對象其中label1和label2的caption改為第壹個數和第二個數,label4為其結果.在窗體上建立text1和

text2文體框對象輸入數據。

利用frame

控件在窗體上建立frame1框對象；利用optionbutton控件，在窗體上建立置於frame1

中的option1選項鈕，單擊“復制”按鈕，將option1復制6個，建立控件數組就可以了，分別將其caption改為“加”“減”“乘”“除”“整除”“求余”“指數”加以下代碼就可以了.

Private

Sub

Option1_Click(Index

As

Integer)

Dim

x

As

Single,

y

As

Single

x

=

Val(Text1.Text)

y

=

Val(Text2.Text)

Select

Case

Index

Case

0

Label4.Caption

=

x

+

y

Case

1

Label4.Caption

=

x

-

y

Case

2

Label4.Caption

=

x

*

y

Case

3

Label4.Caption

=

x

/

y

Case

4

Label4.Caption

=

x

\

y

Case

5

Label4.Caption

=

x

Mod

y

Case

6

Label4.Caption

=

x

^

y

End

Select

End

Sub

調試壹下就可以了。

上一篇:什麽是BS開發模式？誰能詳細解釋壹下。。。謝謝

下一篇:數控機床精度檢驗包括哪些內容，采用什麽工具檢測