當前位置:編程學習大全網 - 編程語言 - 怎麽用VB做壹個計算器

怎麽用VB做壹個計算器

壹、基礎練習:編制壹個數運算的數學小工具 利用VB編制壹個用於數學計算的小程序——《數學小工具1》,主要有計算平方、立方、平方根、正弦、余弦、正切、余切、對數值等功能。程序界面如下:

壹、分析問題:

本任務主要涉及數學運算,求平方、立方值、四次方可利用運算符計算.求平方根、正弦、余弦、正切、余切可利用VB函數計算。(VB常用數學函數)

二、算法設計:

程序流程: 輸入要計算數據——>計算結果——>顯示數據

VB的實現: 文本框TextBox控件 表達式 標簽Label控件

三、編制程序:

(壹) 在VB6.0中新建壹個標準EXE工程

(二) 建立壹個窗體,窗體屬性設置如下:

名稱 = Maths

Caption = "數學小工具"

(三) 在窗體上添加壹個文本框TextBox,用於輸入計算數值,屬性設置如下:

名稱 =InputData

text="請輸入數值"

(四) 在窗體上再添加壹個標簽Label(顯示得分),屬性設置如下:

名稱 = Answer

Caption = "答案:"

(五) 在窗體上再添加8個按鈕CommandButton,名稱不改,屬性(caption)分別設置為:“平方”、“立方”、“四次方”、“平方根”、正弦”、“余弦”、“正切”、“余切”。

(六)分別雙擊各按鈕,在Private Sub和End Sub之間給它們加上代碼:

Private Sub Command1_Click()

XXXXXXXX.......... 代碼(可多行)

End Sub

(1)求平方按鈕的代碼:

y=inputdata.text^2

answer.caption=y

(2)求三次方按鈕的代碼:

y=inputdata.text^3

answer.caption=y

(3)求四次方按鈕的代碼:

y=inputdata.text^4

answer.caption=y

(4)求平方根按鈕的代碼:

y=Sqr(inputdata.text)

answer.caption=y

(5)求正弦按鈕的代碼: y=Sin(inputdata.text*3.14/180)

answer.caption=y

(6)求余弦按鈕的代碼: y=Cos(inputdata.text*3.14/180)

answer.caption=y

(7)求正切按鈕的代碼: y=Tan(inputdata.text*3.14/180)

answer.caption=y

(8)求余切按鈕的代碼:

y=1/Tan(inputdata.text*3.14/180)

answer.caption=y

如果要控制輸出數值的小數位格式,可在兩行代碼中間加語句行:

y=format(y,"0.0") 1位整數,1位小數

(七) 在窗體上再添加2個按鈕CommandButton,名稱不改,屬性分別設置為:“清空”、“退出,分別雙擊各按鈕,在Private Sub和End Sub之間給它們加上代碼:

(1)清空按鈕代碼:

inputdata.text=""

answer.caption=""

(2)退出按鈕代碼:

End

四、運行,測試程序。

五、保存好源程序文件,生成exe文件。

二、擴展練習:編制兩個數運算的數學小工具 利用VB編制壹個用於兩數四則運算的小程序——《數學小工具2》,主要有兩數相加、相減、相乘、相除、乘方等功能。程序界面如下:

壹、分析問題:

本任務主要涉及兩數的數學運算,兩利用兩個文本框輸入數據,利用按鈕執行運算符計算.利用標簽顯示結果,並且兩數間的運算符根據按鈕的不同顯示相應的運算符號。

二、算法設計:

程序流程: 輸入要計算數據——>計算結果——>顯示數據

VB的實現: 文本框(兩個) 表達式 標簽

三、編制程序:

(壹) 在VB6.0中新建壹個標準EXE工程

(二) 建立壹個窗體,窗體屬性設置如下:

名稱 = Maths2

Caption = "數學小工具2"

(三) 在窗體上添加兩個文本框TextBox,名稱不改,分別為text1、text2,用於輸入計算數值,將兩個文本框的text屬性值清空

(四) 在窗體上再添加壹個標簽Label(顯示運算符),名稱不改,屬性設置為:

名稱 = Label1

Caption="?"

(五) 在窗體上再添加壹個標簽Label(顯示等號),名稱不改,屬性設置為"?"。

名稱 = Label2

Caption="="

(六) 在窗體上再添加壹個標簽Label(顯示結果),屬性設置如下:

名稱 = Answer

Caption="?"

(五) 在窗體上再添加4個按鈕CommandButton,名稱不改,屬性(caption)分別設置為:“加”、“減”、“乘”、“除”、"乘方”。

(六)分別雙擊各按鈕,在Private Sub和End Sub之間給它們加上代碼:

Private Sub Command1_Click()

XXXXXXXX.......... 代碼(可多行)

End Sub

(1)相加按鈕的代碼:

y=Val(Text1.Text) + Val(Text2.Text)

answer.caption=y

label1.caption="+"

(2)相減按鈕的代碼: y=Val(Text1.Text) - Val(Text2.Text)

answer.caption=y

label1.caption="-"

(3)相乘按鈕的代碼: y=Val(Text1.Text) * Val(Text2.Text)

answer.caption=y

label1.caption="*"

(4)相乘按鈕的代碼: y=Val(Text1.Text) / Val(Text2.Text)

answer.caption=y

label1.caption="/"

(5)相乘按鈕的代碼: y=Val(Text1.Text) ^ Val(Text2.Text)

answer.caption=y

label1.caption="^"

如果要控制輸出數值的小數位格式,可在兩名代碼中間加語句行:

y=format(y,"0.0") 1位整數,1位小數

四、運行,測試程序。

五、保存好源程序文件,生成exe文件。

  • 上一篇:linux軟件編程實驗linux軟件編程
  • 下一篇:多重彩票的C++算法
  • copyright 2024編程學習大全網