壹、分析問題:
本任務主要涉及數學運算,求平方、立方值、四次方可利用運算符計算.求平方根、正弦、余弦、正切、余切可利用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文件。