习题解答VB NET

1、第7章 常用控件71 填空题1.答案：界面设计、程序功能设计2.答案：控件、组件、组件3.答案：“属性”、 程序代码4.答案：Control、所有5答案：True6答案：n=val（InputBox（“请输入一个求阶乘的数：”，“求数的阶乘”）7答案：r=MsgBox（“退出本系统?”，4+32+0，“提示信息”）8. 答案：UrI属性、Navigate方法9答案：Text10答案：True11. 答案：发生改变12答案：PictureBox1.Image = Image.FromFile("D:samplediannt.jpg ")13答案：AutoSize 14. 答案

2、：Select15答案：先后顺序16答案：Button1.Enabled=True17答案：False18. 答案：True19答案：False20答案：0、Count-121答案：ListBox1.Items.Remove(ListBox1.SelectedItem)22答案：ComboBox1.Items.Add(“计算机学院”)23答案：LargeChange24答案：Minimum25答案：Tick26答案：50072 选择题1答案：d2答案：b3 答案：c4答案：a5. 答案：c6答案：d7答案：d8答案：b9答案：d10答案：c11答案：c12答案：a13答案：a14答案：d15答

3、案：c16答案：c17答案：b18答案：d19答案：a20答案：c21答案：d22答案：a73 问答题 略74 编程题1. 解答：(1)界面设计和属性设置在窗体上建立两个标签、两个文本框和一个命令按钮。窗体和窗体上控件的主要属性设置如下表所示。 属性设置控件名称属性名属性值Form1Text英文单词翻译为中文单词Label1Text英文Label2Text中文TextBox1Text空串TextBox2Text空串Button1 Text翻译(2)程序代码 Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, _ B

4、yVal e As System.EventArgs) Handles Me.Load TextBox1.Text = "" : TextBox2.Text = "" End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Select Case LCase(Trim(TextBox1.Text) Case "china" TextBox2.Text = &

5、quot;中国" Case "france" TextBox2.Text = "法国" Case "england" TextBox2.Text = "英国" Case "america" TextBox2.Text = "美国" Case "india" TextBox2.Text = "印度" Case Else TextBox2.Text = "找不到该单词" End Select End Sub P

6、rivate Sub TextBox1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles TextBox1.Click TextBox1.Text = "" : TextBox2.Text = "" End Sub End Class (3)运行情况上机运行程序后，屏幕出现用户界面。把鼠标移到TextBox1文本框并单击，然后输入英文国家名，例如，China。英文国家名输入后，单击标题为“翻译”的命令按钮Button1，系统执行相应的Click事件过程。翻译结果在Te

7、xtBox2显示。若继续输入英文国家名，可以单击TextBox1文本框，这时可以再次输入。单击Button1系统执行Button1_Click事件过程完成翻译。2. 解答：(1)界面设计和属性设置在窗体上建立一个文本框。窗体和文本框的主要属性设置如下表所示。 属性设置 控件名称 属性名 属性值 Form1 Text判别算术表达式中的圆括号是否配对 TextBox1 Text 空串(2)程序代码 Public Class Form1 Dim n As Integer Private Sub TextBox1_Click(ByVal sender As Object, _ ByVal e As S

8、ystem.EventArgs) Handles TextBox1.Click TextBox1.Text = "" n = 0 End SubPrivate Sub TextBox1_KeyDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown If e.KeyValue = 8 Then 'e.KeyValue为按键的Asc码 n = n + 1 ElseIf e.KeyValue = 9 Then n = n -

9、1 End If If e.KeyValue = 13 Then If n = 0 Then MsgBox("左右圆括号配对!") ElseIf n > 0 Then MsgBox("左圆括号多于右圆括号!") Else MsgBox("右圆括号多于左圆括号!") End If End If End Sub (3)运行情况上机运行程序后，屏幕出现用户界面。焦点在TextBox1文本框上，输入算术表达式，例如，（1+2）*8-5），然后按回车键。每按一个键，系统都执行TextBox1_ KeyDown事件过程。由消息框显示配对信息

10、。若继续判别另一个算术表达式的左右圆括号是否配对，可以单击TextBox1文本框，系统执行TextBox1_ KeyDown事件过程。这时可以再次输入算术表达式和按回车键。3. 解答：(1)界面设计和属性设置在窗体上建立两个标签、两个文本框和两个分组框。一个分组框包含两个单选按钮，另一个分组框包含三个单选按钮。窗体和窗体上控件的主要属性设置如下表所示。 属性设置 控件名称 属性名 属性值 Form1 Text计算三角函数的值 Label1Text 输入 Label2Text 输出 TextBox1 Text 空串 TextBox2 Text 空串 GroupBox1Text 输入选择Radio

11、Button1Text 角度 RadioButton2Text 弧度 GroupBox2 Text 函数选择 RadioButton3Text 正弦 RadioButton4Text 余弦 RadioButton5Text 正切(2)程序代码 Imports System.Math Public Class Form1 Const Pi = 3.14159265 Private Sub Form1_Load(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Me.Load RadioButton1.Checked =

12、True RadioButton3.Checked = True TextBox1.Text = "" : TextBox2.Text = "" End Sub Private Sub TextBox1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles TextBox1.Click TextBox1.Text = "" : TextBox2.Text = "" End Sub Private Sub TextBox1_TextC

13、hanged(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim X As Single If (RadioButton1.Checked) Then X = Val(TextBox1.Text) * Pi / 180 Else X = Val(TextBox1.Text) End If If (RadioButton3.Checked) Then TextBox2.Text = Sin(X) ElseIf (RadioButton4.Checked) Then Text

14、Box2.Text = Cos(X) ElseIf (RadioButton5.Checked) Then TextBox2.Text = Tan(X) End If End Sub End Class (3)运行情况上机运行程序后，屏幕出现用户界面。在文本框TextBox1输入角度，例如，90。系统执行TextBox1_TextChanged事件过程,结果在文本框TextBox2显示。单击标题为“弧度”的单选按钮和标题为“余弦”的单选按钮，并把鼠标移到文本框TextBox1中和单击，在文本框TextBox1输入弧度，例如，3.14159。系统执行TextBox1_TextChanged事件过

15、程, 结果在文本框TextBox2显示。4. 解答：(1)界面设计和属性设置在窗体上建立两个文本框、一个列表框、一个组合框和两个命令按钮。窗体和窗体上控件的主要属性设置如下表所示。 属性设置 控件名称 属性名 属性值 Form1 Text输入和显示职工个人信息 Button1Text 显示 Button2Text 退出(2)程序代码Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles MyBase.Load ListBox1.It

16、ems.Add("计算机") ListBox1.Items.Add("信息") ListBox1.Items.Add("机械") ListBox1.Items.Add("建筑") ListBox1.Items.Add("材料") ListBox1.Items.Add("食品与轻化") ListBox1.Items.Add("外国语") ListBox1.Items.Add("交通") ComboBox1.Items.Add("

17、教授) ComboBox1.Items.Add("副教授") ComboBox1.Items.Add("讲师") ComboBox1.Items.Add("助教") End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = "姓名:" & TextBox1.Text & " 学院:&

18、quot; & ListBox1.Text & " 职称:" & ComboBox1.Text End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles Button2.Click Close() End SubEnd Class (3)运行情况上机运行程序后，在文本框输入姓名，在列表框选择学院名称，在组合框选择职称名称，信息输入后，单击“显示”按钮，在文本框显示该职工个人信息。单击标题为“退出”按钮，系

19、统执行相应的Click事件过程，结束程序的执行。5. 解答：(1)界面设计和属性设置在窗体上建立一个图像框、一个计时器和一个命令按钮。窗体和窗体上控件的主要属性设置如下表所示。 属性设置 控件名称 属性名 属性值 Form1 Text使图片从左至右移动 PictureBox1 Image一幅图片（在程序中装入） Timer1 Interval Enabled1000（在程序中给定） True Button1Text 结束(2)程序代码Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, _ ByVal e As Sy

20、stem.EventArgs) Handles Me.Load PictureBox1.Image = Image.FromFile("D:PictureFACE03.ico") Timer1.Interval = 1000 '设定Timer事件每隔1000毫秒发生一次 PictureBox1.Left = 0 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Timer1.Tick If PictureBox1.

21、Left < Me.Width Then PictureBox1.Left = _ PictureBox1.Left + 30 Else PictureBox1.Left = 0 '使图片向右移动 ,当图片移到窗体的左边界时,把图片移到初始位置 End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles Button1.Click Close() End SubEnd Class(3)运行情况上机运行程序后，屏幕出现一幅从左至右移动的图

22、片。单击标题为“结束”的命令按钮，系统执行相应的Click事件过程，结束程序的执行。6. 提示：程序中要用到FromOle方法，需要使用语句引入FromOle方法所在的命名空间。也需使用RGB函数对输入的三种基色进行合成得到复合颜色。调用RGB函数的一般格式为:RGB(Red，Green，Blue)其中Red，Green和Blue分别为红、绿和蓝三种基色值的分量，它们的值在0255之间。在文本框中设置背景颜色的语句为：文本框名.BackColor = FromOle(RGB(Red，Green，Blue)解答：(1)界面设计和属性设置在窗体上建立三个标签、三个滚动条和一个文本框。窗体和窗体上控

23、件的主要属性设置如下表所示。 属性设置 控件名称 属性名 属性值 Form1Text颜色合成演示 Label1Text 红色份量值： Label2Text 绿色份量值： Label3Text 蓝色份量值： TextBox1TextMultiline空串 TrueHScrollBar1Maximum255HScrollBar2Maximum255HScrollBar3Maximum255(2)程序代码Imports System.Drawing.ColorTranslator '引入FromOle方法所在的命名空间Public Class Form1 Private Sub HScrol

24、lBar1_Scroll(ByVal sender As Object, ByVal e As _System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll Label1.Text = "红色份量值：" & HScrollBar1.Value TextBox1.BackColor = FromOle(RGB(HScrollBar1.Value, _HScrollBar2.Value, HScrollBar3.Value) End SubPrivate Sub HScrollBar2_Scroll(

25、ByVal sender As Object,ByVal e As _System.Windows.Forms.ScrollEventArgs) Handles HScrollBar2.Scroll Label2.Text = "绿色份量值：" & HScrollBar2.Value TextBox1.BackColor = FromOle(RGB(HScrollBar1.Value, _HScrollBar2.Value, HScrollBar3.Value) End SubPrivate Sub HScrollBar3_Scroll(ByVal sender A

26、s Object,ByVal e As _ System.Windows.Forms.ScrollEventArgs) Handles HScrollBar3.Scroll Label3.Text = "蓝色份量值：" & HScrollBar3.Value TextBox1.BackColor = FromOle(RGB(HScrollBar1.Value, _HScrollBar2.Value, HScrollBar3.Value) End SubEnd Class (3)运行情况上机运行程序后，屏幕出现用户界面。把鼠标移到各个滚动条的滚动块，然后单击并拉着滚动块移动一段距离，系统执行相应的事件过程，。7. (1)界面设计和属性设置在窗体上建立一个标签和两个命令按钮。窗体和窗体上控件的主要属性设置如下表所示。 属性设置 控件名称 属性名 属性值 Form1 Text改变或恢复前景颜色和字体TextBox1 TextVisual Basic.NET程序设计 Button1Text 改变前