VisualBasic程序设计教学教材(第4版~)实验答案~范文.doc
《VisualBasic程序设计教学教材(第4版~)实验答案~范文.doc》由会员分享,可在线阅读,更多相关《VisualBasic程序设计教学教材(第4版~)实验答案~范文.doc(129页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、#*声明声明:1. 实验所属课本原件为Visual Basic 程序设计教程(第 4版) (主编 龚沛曾 编者 杨志强 陆慰民 谢步瀛) ;2. 实验答案代码采用红色字体突出 ;3. 仅提供课本前七个实验的代码,之后的实验上课考试均不涉及故不作 ;4. 教学平台上机实验、课本篇后实验,两者题目操作略有差异,作业以前者要求为准,故以下答案代码为前者代码,如对后者代码有所需求请私信 ;5. 本文为作者原创,复制转载请注明出处 ;6. 如果对代码有所疑问,或者略感繁琐想直接要已完成实验,请私信 ;7. 浏览、复制、下载后请给作者一个合理的评价,感激不尽 。实验实验 1-11-1编制简单的欢迎界面程序
2、。 要求:在屏幕上显示“欢迎学习 Visual Basic” ;在文本框Text1 中输入姓名;单击命令按钮“你输入的姓名是” ,在Label3 标签显示在文本框中输入的姓名。 程序运行效果如图 2.1.1 所示。程序以“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此,即“学号-实验号-实验题目” 。 (如某同学的学号为 A,所完成的是实验 2 的第 3 题,那么程序文件名为“A-2-3.frm”和“A-2-3.vbp” ) 图图 2.1.12.1.1 实验 1.1 运行界面提示: (1) 实验所用到的控件及属性设置见表 2.1.1。表表 2.1
3、.12.1.1 属 性 设 置控件名属 性Label1Caption=“欢迎学习 Visual Basic“;Font 属性:字号为二号,字体为隶书,Aligment=2(居中)Label2Caption=“请输入你的姓名“;Font 属性:字体为楷体,有下划线Label3Caption=“,BorderStyle=1Text1Text=“Command1Caption=“你输入的姓名是“(2) “欢迎学习 Visual Basic”要在两行显示,只要将Label1 控件的宽度缩小一些。Private Sub Command1_Click()Label3.Caption = Text1.Tex
4、tEnd Sub实验实验 1-21-2模仿教学篇例 1.1,将事件过程中的自上而下移动改为自右向左移动,同时考虑文字超出窗体边界的情况。各个控件及属性窗口的设置见表 2.1.2,背景图形文件可以选择自己喜欢的,按钮上的图标可通过 Windows 搜索功能查找。以“学号-1-2”为项目名保存。表表 2.1.22.1.2 属 性 设 置控件名属 性Form1Caption=“实验 1.2“;Picture:选择自己喜欢的图片Label1Caption=“我开始学习程序设计“;FontSize=36;BackStyle=0Command1Caption=“;Style=1;Picture=“cloc
5、k02.ico“;ToolTipText“自动“Command2Caption=“;Style=1;Picture=“key04.ico“;ToolTipText“手动“Timer1Interval=0注:因为印刷错误,例题 1.1 中两个命令按钮的图形与事件过程代码不一致,需要调整。提示: 自定义事件过程 MyMove 代码应调整为,可实现文字移动方向的改变Sub MyMove()Label1.Move Label1.Left - 50, Label1.TopIf Label1.Left “要求:(1) Command1:使得 Text1 的字体和字号根据命令按钮显示的要求改变(2) Com
6、mand2:要求将 Text1 选中的内容及其格式复制到Text2。选中的内容通过 Text1 的 SelText 属性获得提示:为使 Text2 文本框保持 Text1 中的字符格式,通过Text2.FontSize=Text1.FontSize 和Text2.FontName=Text1.FontName 实现Private Sub Command1_Click()Text1.FontName = “隶书“Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2 = Text1.SelTextText2.FontName = T
7、ext1.FontNameText2.FontSize = Text1.FontSizeEnd Sub实验实验 1-61-6图片缩小、还原的设置。窗体上放置一个 Image 图像控件和两个命令按钮。Image 图像控件装入自己喜欢的图片,设置 Stretch 属性为 True,使得图片随着图像控件的大小而变,如图 2.1.4 所示。以“学号-1-6”为项目名保存。图图 2.1.42.1.4 实验 1.6 运行界面要求:(1)单击“缩小一半”按钮,图片纵、横均缩小一半。(2)单击“还原”按钮,图片与初始装入时同大。提示:为了实现还原效果,要做以下 3 件事。(1)必须在事件过程外,即程序代码最上
8、方声明窗体级变量:Dim h%,w% 用户输入的变量声明语句(2)在 Form1_Load 事件中保存图像控件的初始值:w=Image1.Widthh=Image1.Height(3)在 Command2_Click 事件中还原为初始值:Image1.Width=wImage1.Height=h缩小一半 Command1_Click 事件请读者自行完成。思考:若要设置图片放大效果,如何修改代码?Dim h%, w%Private Sub Command1_Click()Image1.Width = Image1.Width * 0.5Image1.Height = Image1.Height
9、* 0.5End SubPrivate Sub Command2_Click()Image1.Width = wImage1.Height = hEnd SubPrivate Sub Form_Load()w = Image1.Widthh = Image1.HeightEnd Sub实验实验 2-12-1随机生成 3 个正整数,其中一个 1 位数,1 个 2 位数,1 个3 位数,计算它们的平均值,保留两位小数,运行界面如图2.2.1 所示。图图 2.2.12.2.1 实验 2.1 运行界面提示:(1)随机数生成某范围内的正整数公式为Int(Rnd*范围+基数)其中范围=数的上限-下限+1,
10、基数=数的下限。例如,要生成 2 位数,语句为Int(Rnd*(99-10+1)+10)=Int(Rnd*90+10)(2)保留两位小数,利用 Format 函数,形式为 Format(要显示的数值, “0.00 “)。Private Sub Command1_Click()Text1.Text = Int(Rnd * 9 + 1)Text2.Text = Int(Rnd * 90 + 10)Text3.Text = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Text4.Text = Format(Val(Text1.Text
11、) + Val(Text2.Text) + Val(Text3.Text) / 3, “0.00“)End SubPrivate Sub Command3_Click()Text1.Text = “Text2.Text = “Text3.Text = “Text4.Text = “End Sub实验实验 2-22-2我国有 13 亿人口,假定按人口年增长 0.8%计算,多少年后我国人口超过 26 亿。提示:(1)已知年增长率 r=0.8%,求人数超过 26 亿的年数n 公式为:其中:Log(x)为对数函数,Log(2)缘由 Log(13/26),0.8%需写成 0.008(2)该题目的界面设计
12、 由读者自行设计。Private Sub Command1_Click()n = Int(Log(2) / Log(1 + 0.008) + 1)Text1 = n String(2 * i - 1, “); String(10 - (2 * i - 1), “); String(2 * i - 1, “)Next iEnd SubPrivate Sub Command2_Click()ClsEnd Sub实验实验 2-72-7用 InputBox 输入一个正实数,用 Print 方法在一行上显示出它的平方和平方根、立方和立方根,每个数保留三位小数,其间有间隔。Private Sub comm
13、and1_Click()x = Val(InputBox(“输入一个正实数“, “计算“, 0)pf = Format(x * x, “0.000“)pfg = Format(Sqr(x), “0.000“)lf = Format(x * x * x, “0.000“)lfg = Format(x (1 / 3), “0.000“)Print “平方为:“; pf; Space(3); “平方根为:“; pfg; Space(3); “立方为:“; lf; Space(3); “立方根为:“; lfgEnd Sub实验实验 3-13-1在购买某物品时,若所标明的价钱 x 在下述范围内,所付钱
14、y 按对应折扣支付:提示:此例用多分支结构实现,注意计算公式和条件表达式的正确书写。Private Sub Form_Click()Dim x!, y!x = Val(InputBox(“输入 x 的值“)If x 150 Theny = 150End IfPrint yEnd Sub实验实验 3-33-3输入 x,y,z 三个数,按从大到小的次序显示,如图 2.3.1所示。图 2.3.1 实验 3.3 运行界面提示:利用 InputBox 函数输入 3 个数,存放到数值型变量中,然后对其进行比较;若放在字符串变量中,有时会得到不正确的结果(因为字符串是从左到右的规则比较,例如会出现“34”“
15、2345”“”的情况) 。对三个数进行排序,只能通过两两比较,一般可用三条单分支 if 语句来实现。方法如下:先将 x 与 y 比较,使得 xy;然后将 x 与 z 比较,使得xz,此时 x 最大;最后将 y 与 z 比较,使得 yz。要显示多个数据,可以用“;”逐一显示,也可利用“x;” ”;y;” ”;z 用分号将多个变量显示也可Print ”排序后” x; “ “; y; “ “; zIf x 0)图 2.3.3 实验 3.5 运行界面 若求出的只数为负数,提示数据错误的原因,如图 2.3.3所示,重新输入数据。(使用总只数和总脚数的关系,即N4*M Or N 0 ThenMsgBox
16、(“脚数必须是偶数“)Text2 = “Text2.SetFocusElsey = N / 2 - MIf N 4 * M Or N =0。Private Sub Command1_Click()Dim a!, b!, c!, x1!, x2!, de!a = Text1b = Text2c = Text3de = b * b - 4 * a * ct = 2 * aIf de = 0 ThenText4 = Format(-b / t, “0.00“)Text5 = Format(-b / t, “0.00“)ElseIf de 0 ThenText4 = Format(-b + Sqr(d
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VisualBasic 程序设计 教学 教材 实验 答案 范文
限制150内