【正文】 Return length * width End Function End Class Public Class rectangular Inherits rectangle Private height As Single Public Sub New(ByVal l As Single, ByVal w As Single, ByVal h As Single) (l, w) height = h End Sub Public Function getheight() Return height End Function Public Function volume() Return length * width * height End Function End Class Sub Main() Dim obj1 As New rectangle(3, 5) WriteLine(length={0}, ()) WriteLine(width={0}, ()) WriteLine(area={0}, ()) Dim obj2 As New rectangular(5, 8, 10) WriteLine(length={0}, ()) WriteLine(width={0}, ()) WriteLine(height={0}, ()) WriteLine(volume={0}, ()) End Sub End Module第7章 常用控件7．1 填空題：界面設(shè)計、程序功能設(shè)計：控件、組件、組件：“屬性”、 程序代碼：Control、所有5．答案：True6．答案：n=val（InputBox（“請輸入一個求階乘的數(shù)：”，“求數(shù)的階乘”）7．答案：r=MsgBox（“退出本系統(tǒng)?”，4+32+0，“提示信息”）8. 答案：UrI屬性、Navigate方法9．答案：Text10．答案：True11. 答案：發(fā)生改變12．答案： = (D:\sample\ )13．答案：AutoSize 14. 答案：Select15．答案：先后順序16．答案：=True17．答案：False18. 答案：True19．答案：False20．答案：0、Count121．答案：()22．答案：(“計算機學(xué)院”)23．答案：LargeChange24．答案：Minimum25．答案：Tick 26．答案：5007．2 選擇題1．答案：d2．答案：b3 答案：c4．答案：a5. 答案：c6．答案：d7．答案：d8．答案：b9．答案：d10．答案：c11．答案：c12．答案：a13．答案：a14．答案：d15．答案：c16．答案：c17．答案：b18．答案：d19．答案：a20．答案：c21．答案：d22．答案：a7．3 問答題 略7．4 編程題1. 解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個標(biāo)簽、兩個文本框和一個命令按鈕。窗體和窗體上控件的主要屬性設(shè)置如下表所示。 屬性設(shè)置控件名稱屬性名屬性值Form1Text英文單詞翻譯為中文單詞Label1Text英文Label2Text中文TextBox1Text空串TextBox2Text空串Button1 Text翻譯(2)程序代碼 Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, _ ByVal e As ) Handles = : = End Sub Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles Select Case LCase(Trim()) Case china = 中國 Case france = 法國 Case england = 英國 Case america = 美國 Case india = 印度 Case Else = 找不到該單詞 End Select End Sub Private Sub TextBox1_Click(ByVal sender As Object, _ ByVal e As ) Handles = : = End Sub End Class (3)運行情況上機運行程序后，屏幕出現(xiàn)用戶界面。把鼠標(biāo)移到TextBox1文本框并單擊，然后輸入英文國家名，例如，China。英文國家名輸入后，單擊標(biāo)題為“翻譯”的命令按鈕Button1，系統(tǒng)執(zhí)行相應(yīng)的Click事件過程。翻譯結(jié)果在TextBox2顯示。若繼續(xù)輸入英文國家名，可以單擊TextBox1文本框，這時可以再次輸入。單擊Button1系統(tǒng)執(zhí)行Button1_Click事件過程完成翻譯。2. 解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立一個文本框。窗體和文本框的主要屬性設(shè)置如下表所示。 屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Text判別算術(shù)表達(dá)式中的圓括號是否配對 TextBox1 Text 空串(2)程序代碼 Public Class Form1 Dim n As Integer Private Sub TextBox1_Click(ByVal sender As Object, _ ByVal e As ) Handles = n = 0 End SubPrivate Sub TextBox1_KeyDown(ByVal sender As Object, _ ByVal e As ) Handles If = 8 Then 39。 n = n + 1 ElseIf = 9 Then n = n 1 End If If = 13 Then If n = 0 Then MsgBox(左右圓括號配對!) ElseIf n 0 Then MsgBox(左圓括號多于右圓括號!) Else MsgBox(右圓括號多于左圓括號!) End If End If End Sub (3)運行情況上機運行程序后，屏幕出現(xiàn)用戶界面。焦點在TextBox1文本框上，輸入算術(shù)表達(dá)式，例如，（（1+2）*85），然后按回車鍵。每按一個鍵，系統(tǒng)都執(zhí)行TextBox1_ KeyDown事件過程。由消息框顯示配對信息。若繼續(xù)判別另一個算術(shù)表達(dá)式的左右圓括號是否配對，可以單擊TextBox1文本框，系統(tǒng)執(zhí)行TextBox1_ KeyDown事件過程。這時可以再次輸入算術(shù)表達(dá)式和按回車鍵。3. 解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個標(biāo)簽、兩個文本框和兩個分組框。一個分組框包含兩個單選按鈕，另一個分組框包含三個單選按鈕。窗體和窗體上控件的主要屬性設(shè)置如下表所示。 屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Text計算三角函數(shù)的值 Label1Text 輸入 Label2Text 輸出 TextBox1 Text 空串 TextBox2 Text 空串 GroupBox1Text 輸入選擇RadioButton1Text 角度 RadioButton2Text 弧度 GroupBox2 Text 函數(shù)選擇 RadioButton3Text 正弦 RadioButton4Text 余弦 RadioButton5Text 正切(2)程序代碼 Imports Public Class Form1 Const Pi = Private Sub Form1_Load(ByVal sender As Object, _ ByVal e As ) Handles = True = True = : = End Sub Private Sub TextBox1_Click(ByVal sender As Object, _ ByVal e As ) Handles = : = End Sub Private Sub TextBox1_TextChanged(ByVal sender As Object, _ ByVal e As ) Handles Dim X As Single If () Then X = Val() * Pi / 180 Else X = Val() End If If () Then = Sin(X) ElseIf () Then = Cos(X) ElseIf () Then = Tan(X) End If End Sub End Class (3)運行情況上機運行程序后，屏幕出現(xiàn)用戶界面。在文本框TextBox1輸入角度，例如，90。系統(tǒng)執(zhí)行TextBox1_TextChanged事件過程,結(jié)果在文本框TextBox2顯示。單擊標(biāo)題為“弧度”的單選按鈕和標(biāo)題為“余弦”的單選按鈕，并把鼠標(biāo)移到文本框TextBox1中和單擊，在文本框TextBox1輸入弧度，例如。系統(tǒng)執(zhí)行TextBox1_TextChanged事件過程, 結(jié)果在文本框TextBox2顯示。4. 解答：(1)界面設(shè)計和屬性設(shè)置在窗體上建立兩個文本框、一個列表框、一個組合框和兩個命令按鈕。窗體和窗體上控件的主要屬性設(shè)置如下表所示。 屬性設(shè)置 控件名稱 屬性名 屬性值 Form1 Text輸入和顯示職工個人信息 Button1Text 顯示 Button2Text 退出(2)程序代碼Public Class Form1Private Sub Form1_Load(ByVal sender As , _ByVal e As ) Handles (計算機) (信息)