一、 1. 2. 3. 4. a)b)g）i) 5. (x+y)+2*a)*80-5*c或(x+y+2*a)*80-5*c 6. πr2+e x-y+√3x+4y 7. +xy-1 4(xy)1 8.Sin(30*Math.PI/180)+math.Abs(a+b)+Log10(x) 9.40 10.15.1 11.-1 12.a)b)c) 13.a 14.-5-10 15.c)d0 二、提示：设置窗体背景属性BackColor 三、提示：设置Label.Text属性 四、解题步骤： (1)新建项目：按要求在指定位置新建指定类型的项目Exp。 (2)删除项目中的缺省窗体“forml.vb”。右击文件“forml.vb”,选取弹出菜单中的“删 除”命令，如图2.2所示
一、 1. ： 2. _ 3. ′ 4. a) b) g) i) 5. ((x+y)+2*a)*80-5*c 或 (x+y+2*a)*80-5*c 6. r 2+e 7. 1 4( ) 3 4 4 + − − + + xy xy x y x y 8. Sin(30*Math.PI/180)+math.Abs(a+b)+Log10(x) 9. 40 10. 15.1 11. -1 12. a) b) c) 13. a) 14. -5 -10 15. c) d) 二、提示：设置窗体背景属性 BackColor 三、提示：设置 Label.Text 属性 四、解题步骤： （1）新建项目：按要求在指定位置新建指定类型的项目 Exp。 （2）删除项目中的缺省窗体“form1.vb”。右击文件“form1.vb”，选取弹出菜单中的“删 除”命令，如图 2.2 所示
解决方案资源管理器一xD ☒ 国国团 解决方案“xp”1项目) 图ExP 引用 图AssemblyInfo..h 国家1丽 打开0) 打开方式). 国 查看代码C) 国 视图设计器①) 从项目中排除①) 剪切红) 蹈 复制) X 册除①) 重命名仙) 自属性⑧) 图2.2删除所选窗体文件界面 然后产生图23所示的确认对话框，单击“确定”按钮即可。 Microsoft Development Environment ☒ A “Form1.b”将被永久册除。 确定二 取消 图2.3删除窗体文件的确认对话框 (3)给项目Exp添加指定的窗体文件。右击项目名Exp,顺次选取“添加一添加现有项”， 如图2.4所示，随即产生如图2.5所示的“添加现有项”对话框
图 2.2 删除所选窗体文件界面 然后产生图 2.3 所示的确认对话框，单击“确定”按钮即可。 图 2.3 删除窗体文件的确认对话框 （3）给项目 Exp 添加指定的窗体文件。右击项目名 Exp，顺次选取“添加—添加现有项”， 如图 2.4 所示，随即产生如图 2.5 所示的“添加现有项”对话框
解决方案资源管理器~x卫 国田自自 解决方案“x”1项目) 白塑量 9幽 生成心 重新生成) 添加新项) 添加) 添加现有项@).> 添加引用⑧).. 新建文件夹血) 添加胃b引用).. 国 添加Windows窗体). 设为启动项目) 自添加继承的窗体) 调试) 闺 添加用户控件心妙 日 保存ExpS) 闺 添加继承的控件①). 色 粘贴) 细 添加组件).， X移除) 图 添加模块).· 重命名随) 添加类C)· 哈 属性⑧) 图2.4 给项目Exp添加已有的窗体文件 添加现有项一Exp 查找范围) □Chapter2 白·臼QX卧国，工具)， 图p1 历史记录 我的项目 收藏卖 醒 文件名 打开0)· 文件类型红)： B代码文件体.b:*.re5x:*,xsd:*.Ws)> 取消 图2.5 “添加现有项”对话框 在对话框中选取指定文件，然后点击“打开”按钮即可。视点回到“解决方案资源管理器” 窗口，选取窗体文件“xpl.vb”,通过点击“设计窗体”按钮国和“代码窗体”按钮国查 看窗体。到目前为止，代码一行也没写，所以界面各个控件之间无任何关联，若单击“标 准”工具栏上的“启动”按钮，在产生的运行界面上，单击任何按钮，都没反应。 由于该界面是现成的，加载之后，有必要重点熟悉各个控件的类型以及其name属性值， 因为这些都和下一步的编写代码密切相关：也可以自己修改控件的name属性值，使自己 参与得更多一些。 (4)给b按钮编写代码。 为方便后面的说明，用引线表明各控件的name属性值，如图2.6所示。设计界面上有6
图 2.4 给项目 Exp 添加已有的窗体文件 图 2.5 “添加现有项”对话框 在对话框中选取指定文件，然后点击“打开”按钮即可。视点回到“解决方案资源管理器” 窗口，选取窗体文件“exp1.vb”，通过点击“设计窗体”按钮 和“代码窗体”按钮 查 看窗体。到目前为止，代码一行也没写，所以界面各个控件之间无任何关联，若单击“标 准”工具栏上的“启动”按钮 ，在产生的运行界面上，单击任何按钮，都没反应。 由于该界面是现成的，加载之后，有必要重点熟悉各个控件的类型以及其 name 属性值， 因为这些都和下一步的编写代码密切相关；也可以自己修改控件的 name 属性值，使自己 参与得更多一些。 （4）给 按钮编写代码。 为方便后面的说明，用引线表明各控件的 name 属性值,，如图 2.6 所示。设计界面上有 6
个按钮，其代码编写的套路如出一辙，现以按钮atb为例，即给控件名为btnPlus的click 事件编写代码，实现将左边两个文本框中的数据相加，结果在右边的标签控件中显示。 txtA txtB btnPlus Lbll 两个 数的算术运算 输 ,b的值 btnMinus * btnMultiply a/b btnDivide 输入m,的值（必须是正整数） txtM m对n取整 btnInt Lbl2 m对n取余 btnMod txtN 图2.6加载已有窗体的设计界面 1)具体思路是：获取文本框txtA和txtB的内容（通过引用文本框的text属性）用变量 来保存，然后进行加运算，结果还是用变量保存，最后将结果在标签控件中显示。两个细 节：一是由于算术运算符是针对于数值型的变量或者常量，所以需要利用系统提供的标准 函数Convert.toDouble将文本型的数字变成Double型，同样Double型的数据显示到控件 上之前，使用函数Convert.ToString将Double型转变成文本型：二是进行加运算的 两个数整数、实数都行，所以将用来保存文本框内容的变量和结果变量声明为double。 2)最后代码编写如图2.7所示： btnPlus Click 白Public Class forml Inherits System.Windows.Forms.Form 电Windows窗体设计器生成的代码] Private Sub btnPlus_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btnPlus.Click Dim a,b,c As Double 按需声明3个Doub1e型的变量 用文本框txtA内容并将利用☒数Convert..ToDoub1e将内容转换成Double型的数据 '最后将结果由变量á保存 a=Convert.ToDouble(txtA.Text) b=Convert..ToDouble(txtB.Text)'同上 c=a b ’两个数相加，并将结果赋值给变量。 lbll.Text=Convert..ToString(c)'利用标准函数Convert..ToString将数据变成文本，然后显示于标签控件 End Sub 图2.7代码截图 3)运行调试。单击“启动”按钮，测试程序。成功之后，继续编写其他3个按钮的代 码，主要过程依然是：从界面获取数据、处理数据、显示数据。注意是编写一个事件，测 试一个，最忌讳一次写完所有按钮事件，再测试。 (5)给按钮m对n取整编写代码，即给控件名为btnInt的click事件编写代码，代码截图
个按钮，其代码编写的套路如出一辙，现以按钮 为例，即给控件名为 btnPlus 的 click 事件编写代码，实现将左边两个文本框中的数据相加，结果在右边的标签控件中显示。 图 2.6 加载已有窗体的设计界面 1）具体思路是：获取文本框 txtA 和 txtB 的内容（通过引用文本框的 text 属性）用变量 来保存，然后进行加运算，结果还是用变量保存，最后将结果在标签控件中显示。两个细 节：一是由于算术运算符是针对于数值型的变量或者常量，所以需要利用系统提供的标准 函数 Convert.toDouble 将文本型的数字变成 Double 型，同样 Double 型的数据显示到控件 上之前，使用函数 Convert.ToString 将 Double 型转变成文本型；二是进行加运算的 两个数整数、实数都行，所以将用来保存文本框内容的变量和结果变量声明为 double。 2）最后代码编写如图 2.7 所示： 图 2.7 代码截图 3）运行调试。单击“启动”按钮 ，测试程序。成功之后，继续编写其他 3 个按钮的代 码，主要过程依然是：从界面获取数据、处理数据、显示数据。注意是编写一个事件，测 试一个，最忌讳一次写完所有按钮事件，再测试。 （5）给按钮 编写代码，即给控件名为 btnInt 的 click 事件编写代码，代码截图 btnMinus txtA txtB btnPlus Lbl1 btnMultiply btnDivide btnInt btnMod Lbl2 txtN txtM
如2.8所示，不同之处是因数据类型不同而采用的类型转换函数不同。 Private Sub btnInt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnInt.Click Dim m,n,p As Integer 按需声明3个Integer型的变量 ,用文本框txtL内容并将利用函数Convert..ToInt32将内容转换成Integer型的数据 '最后将结果由变量保存 m Convert.ToInt32(txtl.Text) n=Convert.ToInt32(txtN.Text) p=m n ”处理数据 1b12.Text Convert.ToString(p) ·转换数据类型并显示结果 End Sub 图2.8给按钮m对n取整编写代码的截图 五、解题步骤： 1)给项目Exp添加指定的窗体文件Exp3.vb。 2)为调试方便，项目设置项目的启动对象为Exp3。 3)给按钮=编写代码并运行测试。代码中，b的值从界面文本框获取并进行相应的数 据类型转换，表示运算符的char型变量p从文本框直接获取，表示结果c的值取决于a,b 和运算符P,若运算符是“”，则要考虑除数为零的情形并进行相应的提示，参考代码截图 如图2.26所示。 功能：实现两个数的+*/运算，并显示结果 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Dim a,b,c As Double 声明三个Double型的变量 Dim p As Char '声明一个Char型的变量 获取基础数据 a=Convert.ToDouble(txtA.Text) b Convert.ToDouble(txtB.Text) p.=txtP.Text ”状现西算符 根据运算符进行不同的数据加工 Select Case p Case"+ c=a b Case " c=a-b Case"*” c三a*b Case "/ Ifb◇0Then c=a/b Els MsgBox("除数不能为零”，MsgBoxStyle.Exclamation) txtB.Focus() ”将名为txt控件设置为当前控件 End If Case Else MsgBox("本题只讨论+-*”，MsgBoxStyle.Critical) txtP.Focus() Exit Sub End Select ”输出结果 lblresult.Text Convert.ToString(c) End Sub 图2.26实现两个数的加、减、乘、除运算的参考代码截图 4)给按钮当月天题☐编写代码并运行测试。考虑以下两点： ①在获取年份和月份的信息后，为了确定2月份的天数，需知道当年是闰年还是平年，所 以获取年份数据后首先对它进行平、闰年的判断，依据是：若该年份能被400整除或者能被 4但不能被100整除，则是该年份闰年否则是平年。 ②注意Select case语句的使用细节，参考代码截图如图2.27所示
如 2.8 所示，不同之处是因数据类型不同而采用的类型转换函数不同。 图 2.8 给按钮 编写代码的截图 五、解题步骤： 1）给项目 Exp 添加指定的窗体文件 Exp3.vb。 2）为调试方便，项目设置项目的启动对象为 Exp3。 3）给按钮 编写代码并运行测试。代码中 a，b 的值从界面文本框获取并进行相应的数 据类型转换，表示运算符的 char 型变量 p 从文本框直接获取，表示结果 c 的值取决于 a，b 和运算符 p，若运算符是“/”，则要考虑除数为零的情形并进行相应的提示，参考代码截图 如图 2.26 所示。 图 2.26 实现两个数的加、减、乘、除运算的参考代码截图 4）给按钮 编写代码并运行测试。考虑以下两点： ① 在获取年份和月份的信息后，为了确定 2 月份的天数，需知道当年是闰年还是平年，所 以获取年份数据后首先对它进行平、闰年的判断，依据是：若该年份能被 400 整除或者能被 4 但不能被 100 整除，则是该年份闰年否则是平年。 ② 注意 Select case 语句的使用细节，参考代码截图如图 2.27 所示
·功能：获取年份和月份计算并输出天数 Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Dim year,month,day As Integer Dim isLeap.As Boolean '声明一个Boolean型的变量 ·获取基础数据 year Convert.ToInt32(txtYear.Text) month Convert.ToInt32(txtMonth.Text) ’判断年份是否为闰年，若是1 sLeap为Truc,否则为False If year Mod 400 =0 Or (year Mod 4 =0 And year Mod 100 <100)Then isLeap True Else isLeap False End If ”根据是否闰年和月份，计算天数 Select Case month Case1,3,5,7,8,10,12表示month的值为其中之-即可 day 31 Case 2 If isLeap Then ’表示当年份为闰年 day 29 Else ’表示当年份为平年 day =28 End If Case4,6,9,11 day 30 End Select 输出结果 1blday.Text Convert.ToString(day) End Sub 图2.27根据年份和月份显示天数的参考代码截图 对于分段函数或者类似的情形，使用f语句和Select Case语句都很方便，如假设已知x, 计算y的函数是： x<1 y= 2x-1 1≤x<10 3x+2 x≥10 参考代码如下： 使用If语句： 使用Select Case语句： If x<1 Then Select Case x y=x Case Is <1 ElseIf x 10 Then y=x y=2*x-1 Case Is <10 Else y=2*x-1 y=3*x+2 Case Else End If y=3*x+2 End Select
图 2.27 根据年份和月份显示天数的参考代码截图 对于分段函数或者类似的情形，使用 If 语句和 Select Case 语句都很方便，如假设已知 x， 计算 y 的函数是： + − = 3 2 10 2 1 1 10 1 x x x x x x y 参考代码如下： 使用 If 语句： 使用 Select Case 语句：