习题7解答(VB.NET)

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

2、lect15.答案：先后顺序16.答案：Butt on 1.E nabled=True17.答案:False18.答案：True19.答案:False20.答案：0、Count-121.答案：ListBox1.ltems.Remove（ListBox1.Selectedltem）22.答案：ComboBox1.ltems.Add（ “计算机学院”）23.答案：LargeCha nge24.答案：Mi nimum25.答案：Tick26.答案：5007.2选 择题1.答案：d2.答案：b3答案：c4.答案：a5.答案：c6.答案：d7.答案：d&答案：b9.答案：d10.答案c11.答案c12.

3、答案a13.答案a14.答案d15.答案c16.答案c17.答案b18答案d19.答案a20.答案c21.答案d22.答案a7. 3问答题略7. 4编程题1.解答：(1)界面设计和属性设置在窗体上建立两个标签、两个文本框和一个命令按钮。窗体和窗体上控件的主要属性设置如下表所示。属性设置控件名称属性名属性值Form1Text英文单词翻译为中文单词Label1Text英文Label2Text中文TextBox1Text空串TextBox2Text空串Butto n1Text翻译(2)程序代码Public Class FormlPrivate Sub Form1_Load(ByVal sen der

4、 As Object, _ByVai e As System.Eve ntArgs) Han dies Me.L oadTextBoxl.Text = : TextBox2.Text =End SubPrivate Sub Butto n1_Click(ByVal sender As System.Object, _ByVal e As System.Eve ntArgs) Han dles Butto n1.ClickSelect Case LCase(Trim(TextBox1.Text)Case chi naTextBox2.Text =中国”Case franceTextBox2.Te

5、xt =法国”Case en gla ndTextBox2.Text =英国”Case americaTextBox2.Text =美国”Case in diaTextBox2.Text =印度”Case ElseTextBox2.Text =找不到该单词”End SelectEnd SubPrivate Sub TextBox1_Click(ByVal sen der As Object, _ByVal e As System.Eve ntArgs) Han dles TextBox1.ClickTextBox1.Text = : TextBox2.Text =End SubEnd Clas

6、s(3)运行情况上机运行程序后，屏幕出现用户界面。把鼠标移到TextBox1文本框并单击，然后输入 英文国家名，例如，China。英文国家名输入后，单击标题为翻译”的命令按钮Button1 , 系统执行相应的 Click事件过程。翻译结果在TextBox2显示。若继续输入英文国家名， 可 以单击TextBox1文本框，这时可以再次输入。单击Butto n1系统执行Butt on 1_Click 事件 过程完成翻译。2.解答：(1)界面设计和属性设置在窗体上建立一个文本框。窗体和文本框的主要属性设置如下表所示。属性设置控件名称属性名属性值Form1Text判别算术表达式中3.的圆括号是否配对Te

7、xtBox1Text空串(2)程序代码Public Class FormlDim n As In tegerPrivate Sub TextBox1_Click(ByVal sen der As Object, _ByVai e As System.Eve ntArgs) Ha ndles TextBox1.ClickTextBox1.Text =n = 0End SubPrivate Sub TextBox1_KeyDow n(ByVal sen der As Object, _ByVal e As System.Wi ndows.Forms.KeyEve ntArgs) Ha ndles

8、TextBoxl.KeyDow nIf e.KeyValue = 8 The ne.KeyValuen = n + 1Elself e.KeyValue = 9 The nn = n - 1End IfIf e.KeyValue = 13 The nIf n = 0 The n MsgBox(ElseIf n 0 The nMsgBox(ElseMsgBox(End IfEnd IfEnd Sub(3)运行情况上机运行程序后，屏幕出现用户界面。焦点在 例如，(1+2)*8-5)，然后按回车键。每按一个键，左右圆括号配对!)左圆括号多于右圆括号右圆括号多于左圆括号为按键的Asc码!)!)Text

9、Boxl文本框上，输入算术表达式， 系统都执行TextBoxl _ KeyDown事件过程。由消息框显示配对信息。若继续判别另一个算术表达式的左右圆括号是否配对，可 以单击TextBox1文本框，系统执行 TextBox1 _ KeyDown事件过程。这时可以再次输入算术 表达式和按回车键。解答：(1)界面设计和属性设置在窗体上建立两个标签、两个文本框和两个分组框。一个分组框包含两个单选按钮,3.另一个分组框包含三个单选按钮。窗体和窗体上控件的主要属性设置如下表所示。 属性设置控件名称属性名属性值FormlText计算三角函数的值十LabellText输入Label2Text输出TextBox

10、lText空串TextBox2Text空串GroupBoxlText输入选择RadioButto n1Text角度RadioButto n2Text弧度GroupBox2Text函数选择RadioButto n3Text正弦RadioButto n4Text余弦RadioButto n5Text正切(2)程序代码Imports System.MathPublic Class FormlConst Pi = 3.14159265Private Sub Form1_Load(ByVal sen der As Object, _ByVal e As System.Eve ntArgs) Han dl

11、es Me.LoadRadioButto n1.Checked = TrueRadioButto n3.Checked = TrueTextBox1.Text = : TextBox2.Text =End SubPrivate Sub TextBox1_Click(ByVal sen der As Object, _ByVal e As System.Eve ntArgs) Ha ndles TextBox1.ClickTextBox1.Text = : TextBox2.Text =End SubPrivate Sub TextBox1_TextCha nged(ByVal sen der

12、As Object, _ByVal e As System.Eve ntArgs) Han dles TextBox1.TextCha nged Dim X As Si ngleIf (RadioButton1.Checked) ThenX = Val(TextBox1.Text) * Pi / 180ElseX = Val(TextBoxl.Text)End IfIf (RadioButton3.Checked) ThenTextBox2.Text = Sin(X)ElseIf (RadioButton4.Checked) ThenTextBox2.Text = Cos(X)Elself (

13、RadioButto n5.Checked) The nTextBox2.Text = Tan(X)End IfEnd SubEnd Class(3)运行情况上机运行程序后，屏幕出现用户界面。在文本框TextBox1输入角度，例如，90。系统执行TextBox1_TextChanged事件过程，结果在文本框 TextBox2显示。单击标题为弧度” 的单选按钮和标题为余弦”的单选按钮，并把鼠标移到文本框 TextBox1中和单击，在文 本框TextBox1输入弧度，例如，3.14159。系统执行 TextBox1_TextChanged事件过程，结 果在文本框TextBox2显示。4.解答：(1

14、)界面设计和属性设置在窗体上建立两个文本框、一个列表框、一个组合框和两个命令按钮。窗体和窗体上 控件的主要属性设置如下表所示。属性设置控件名称属性名属性值Form1Text输入和显示职工个人信息Butt on1Text显示Butt on2Text退出(2)程序代码Public Class Form1Private Sub Form1_Load(ByVal sen der As System.Object, _ByVal e As System.Eve ntArgs) Han dles MyBase.LoadListBox1.ltems.Add(”计算机)ListBox1.ltems.Add(”

15、信息)ListBox1.ltems.Add(”机械)ListBox1.ltems.Add(”建筑)ListBox1.ltems.Add(”材料)ListBox1.ltems.Add(”食品与轻化)ListBox1.ltems.Add(”外国语)ListBox1.ltems.Add(”交通)ComboBox1.ltems.Add(”教授)ComboBox1.ltems.Add(”副教授)ComboBox1.ltems.Add(”讲师)ComboBox1.ltems.Add(”助教)End SubPrivate Sub Butto n1_Click(ByVal sen der As System.

16、Object, _ByVai e As System.Eve ntArgs) Han dles Butt on 1.ClickTextBox2.Text =姓名：& TextBoxl.Text & ” 学院：& ListBoxl.Text & 职称:& ComboBoxl.TextEnd SubPrivate Sub Butto n2_Click(ByVal sen der As System.Object, _ByVal e As System.Eve ntArgs) Ha ndles Butto n2.ClickClose()End SubEnd Class(3)运行情况上机运行程序后，在

17、文本框输入姓名，在列表框选择学院名称，在组合框选择职称名 称，信息输入后，单击“显示”按钮，在文本框显示该职工个人信息。单击标题为“退出” 按钮，系统执行相应的 Click事件过程，结束程序的执行。5.解答：(1)界面设计和属性设置在窗体上建立一个图像框、一个计时器和一个命令按钮。窗体和窗体上控件的主要属 性设置如下表所示。属性设置控件名称属性名属性值FormlText使图片从左至右移动PictureBoxlImage一幅图片(在程序中装入)TimerlIn tervalEn abled1000 (在程序中给定)TrueButt on1Text结束(2)程序代码Public Class For

18、mlPrivate Sub Form1_Load(ByVal sen der As Object, _ByVal e As System.Eve ntArgs) Han dles Me.L oadPictureBoxl.Image = lmage.FromFile(D:PictureFACE03.ico)Timerl.I nterval = 1000 设定Timer事件每隔1000毫秒发生一次PictureBoxl.Left = 0End SubPrivate Sub Timer1_Tick(ByVal sen der As System.Object, _ByVal e As System.

19、Eve ntArgs) Han dles Timerl.TickIf PictureBoxl.Left Me.Width The n PictureBoxl.Left =PictureBoxl.Left + 30 Else PictureBoxl.Left = 0 使图片向右移动，当图片移到窗体的左边界时，把图片移到初始位置End SubPrivate Sub Butto n1_Click(ByVal sen der As System.Object, _ByVai e As System.Eve ntArgs) Ha ndles Butto n1.ClickClose()End SubEnd

20、 Class(3)运行情况上机运行程序后，屏幕出现一幅从左至右移动的图片。单击标题为“结束”的命令按 钮，系统执行相应的Click事件过程，结束程序的执行。6.提示：程序中要用到FromOle方法，需要使用语句Imports System.Draw in g.ColorTra nslator引入FromOle方法所在的命名空间。也需使用RGB函数对输入的三种基色进行合成得到复合颜色。调用RGB!数的一般格式为：RGB(Red Green. Blue)其中Red, Green和Blue分别为红、绿和蓝三种基色值的分量，它们的值在0255之间。在文本框中设置背景颜色的语句为：文本框名.BackCo

21、lor = FromOle(RGB(Red , Green, Blue)解答：(1)界面设计和属性设置在窗体上建立三个标签、三个滚动条和一个文本框。窗体和窗体上控件的主要属性设 置如下表所示。属性设置控件名称属性名属性值FormlText颜色合成演示LabellText红色份量值：Label2Text绿色份量值：Label3Text蓝色份量值：TextBoxITextMultili ne空串TrueHScrollBarlMaximum255HScrollBar2Maximum255HScrollBar3Maximum255(2)程序代码Imports System.Draw in g.Colo

22、rTra nslator引入FromOle方法所在的命名空间Public Class FormlPrivate Sub HScrollBar1_Scroll(ByVal sen der As Object, ByVai e As _System.Wi ndows.Forms.ScrollEve ntArgs) Han dles HScrollBarl.ScrollLabell.Text =红色份量值：” & HScrollBarl.ValueTextBoxl.BackColor = FromOle(RGB(HScrollBar1.Value, _HScrollBar2.Value, HScro

23、llBar3.Value)End SubPrivate Sub HScrollBar2_Scroll(ByVal sen der As Object,ByVal e As _System.Wi ndows.Forms.ScrollEve ntArgs) Ha ndles HScrollBar2.ScrollLabel2.Text =绿色份量值：” & HScrollBar2.ValueTextBoxl.BackColor = FromOle(RGB(HScrollBar1.Value, _HScrollBar2.Value, HScrollBar3.Value)End SubPrivate S

24、ub HScrollBar3_Scroll(ByVal sen der As Object,ByVal e As _System.Wi ndows.Forms.ScrollEve ntArgs) Han dles HScrollBar3.ScrollLabel3.Text =蓝色份量值：” & HScrollBar3.ValueTextBoxl.BackColor = FromOle(RGB(HScrollBar1.Value, _HScrollBar2.Value, HScrollBar3.Value)End SubEnd Class(3)运行情况 上机运行程序后，屏幕出现用户界面。把鼠标移到各个滚动条的滚动块，然后单击并 拉着滚动块移动一段距离，系统执行相应的事件过程，。7.(1)界面设计和属性设置在窗体上建立一个标签和两个命令按钮。窗体和窗体上控件的主要属性设置如下表所 示。属性设置控件名称属性名属性值FormlText改变或恢复前景颜色和字体TextBoxlTextVisual Basic.NET程序设计Butt on1Text改变前景颜色和字体Butt on2Text恢复前景颜色和字体(