【文章內(nèi)容簡介】
(0), Sgn(10) Print Sin(30 * / 180), Cos(30 * / 180) End Sub ⑵ Private Sub Form_Click() Dim a As Single Dim b As Single Dim c As Single Dim d As Single a = 2: b = 10: c = + d = (a + 2) ^ (b / c) Print a, b, c, d Print a, b, c, d d = d / a * b c = (d / b + a) Print a, b, c, d End Sub 高中 — 1 第六章 第 7頁 ⑶ Private Sub Form_Click() Dim x As Integer Dim y As Integer x = 6: y = 7 Print x, y x = x + 1: y = y + 3 Print x。 y End Sub ⑷ Private Sub Form_Click() Print Computer。 Print Program Print Print Visual, Print Basic End Sub ⑸ Private Sub Form_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = 6: b = 4 Print a=。 a, b=。 b c = a: a = b: b = c Print a=。 a, b=。 b End Sub ⒉ 如圖 68 所示,已知小正方形的邊長為,大正方形的邊長為 ,請設計一個界面如圖 69 所示的程序,計算陰影部分的面積。 圖 68 圖 69 高中 — 1 第六章 第 8頁 要求:寫出 完成本程序界面需要設置的對象名和屬性,并編寫有關控件的事件過程。 缺省的對象名 設置的對象名 屬性 設置值 ⒊ 已知球的半徑為 r,設計程序計算球的全面積 s 和體積 v。計算公式為 s=4π r2, 。要求: ⑴ 球的半徑使用 InputBox函數(shù)輸入,計算結(jié)果使用 Print 方法輸出。 ⑵ 代碼放在窗體的 Click 事件過程中。 四、思考題 ⒈ 在 Visual Basic中,能不能使用 x x2形式的變量名? ⒉ 請仔細分析第 1 大題中第⑶小題的運行結(jié)果,比較符號“ =”作為賦值語句中的“賦值號”和數(shù)學中的“等于號”的區(qū)別? 高中 — 1 第六章 第 9頁 ⒊ 通過上機實踐,你覺得上機操作前應做好哪些準備工作? 五、發(fā)現(xiàn)與創(chuàng)新 實踐 63 一、實踐目的 1. 掌握關系表達式的使用。 2. 掌握 If 語句的四種格式及功能。 3. 學會用 MsgBox函數(shù)輸出信息。 4. 學會用流程圖描述算法。 5. 學會編寫具有分支結(jié)構(gòu)的程序。