
一、 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 语句: