《Visual Basic程序设计教程(第4版)实验答案》由会员分享，可在线阅读，更多相关《Visual Basic程序设计教程(第4版)实验答案（129页珍藏版）》请在金锄头文库上搜索。
1、声明：1. 实验所属课本原件为Visual Basic 程序设计教程（第 4版） （主编 龚沛曾 编者 杨志强 陆慰民 谢步瀛） ；2. 实验答案代码采用红色字体突出 ；3. 仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故不作 ；4. 教学平台上机实验、课本篇后实验，两者题目操作略有差异，作业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信 ；5. 本文为作者原创，复制转载请注明出处 ；6. 如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私信 ；7. 浏览、复制、下载后请给作者一个合理的评价，感激不尽 。实验 1-1编制简单的欢迎界面程序。 要求：在屏幕上
2、显示“欢迎学习 Visual Basic”；在文本框Text1中输入姓名；单击命令按钮“你输入的姓名是” ，在Label3标签显示在文本框中输入的姓名。 程序运行效果如图 2.1.1所示。程序以“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此，即“学号-实验号-实验题目” 。 （如某同学的学号为 A10414001，所完成的是实验 2的第 3题，那么程序文件名为“A10414001-2-3.frm”和“A10414001-2-3.vbp”） 图 2.1.1 实验 1.1运行界面提示： (1) 实验所用到的控件及属性设置见表 2.1.1。表 2.1
3、.1 属 性 设 置控件名 属 性Label1 Caption=欢迎学习 Visual Basic；Font 属性：字号为二号，字体为隶书，Aligment=2(居中)Label2 Caption=请输入你的姓名；Font 属性：字体为楷体，有下划线Label3 Caption=，BorderStyle=1Text1 Text=Command1 Caption=你输入的姓名是(2) “欢迎学习 Visual Basic”要在两行显示，只要将Label1控件的宽度缩小一些。Private Sub Command1_Click()Label3.Caption = Text1.TextEnd Sub
4、实验 1-2模仿教学篇例 1.1，将事件过程中的自上而下移动改为自右向左移动，同时考虑文字超出窗体边界的情况。各个控件及属性窗口的设置见表 2.1.2，背景图形文件可以选择自己喜欢的，按钮上的图标可通过 Windows搜索功能查找。以“学号-1-2”为项目名保存。表 2.1.2 属 性 设 置控件名 属 性Form1 Caption=实验 1.2；Picture：选择自己喜欢的图片Label1 Caption=我开始学习程序设计；FontSize=36；BackStyle=0Command1 Caption=；Style=1；Picture=clock02.ico；ToolTipText自动C
5、ommand2 Caption=；Style=1；Picture=key04.ico；ToolTipText手动Timer1 Interval=0注：因为印刷错误，例题 1.1中两个命令按钮的图形与事件过程代码不一致，需要调整。提示： 自定义事件过程 MyMove代码应调整为，可实现文字移动方向的改变Sub MyMove()Label1.Move Label1.Left - 50, Label1.TopIf Label1.Left 要求：(1) Command1：使得 Text1的字体和字号根据命令按钮显示的要求改变(2) Command2：要求将 Text1选中的内容及其格式复制到Text2
6、。选中的内容通过 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 = Text1.FontNameText2.FontSize = Text1.FontS
7、izeEnd Sub实验 1-6图片缩小、还原的设置。窗体上放置一个 Image图像控件和两个命令按钮。Image 图像控件装入自己喜欢的图片，设置 Stretch属性为 True，使得图片随着图像控件的大小而变，如图 2.1.4所示。以“学号-1-6”为项目名保存。图 2.1.4 实验 1.6运行界面要求：（1）单击“缩小一半”按钮，图片纵、横均缩小一半。（2）单击“还原”按钮，图片与初始装入时同大。提示：为了实现还原效果，要做以下 3件事。（1）必须在事件过程外，即程序代码最上方声明窗体级变量：Dim h%,w% 用户输入的变量声明语句（2）在 Form1_Load事件中保存图像控件的初始
8、值：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 * 0.5End SubPrivate Sub Command2_Click()Image1.Width = wImag
9、e1.Height = hEnd SubPrivate Sub Form_Load()w = Image1.Widthh = Image1.HeightEnd Sub实验 2-1随机生成 3个正整数，其中一个 1位数，1 个 2位数，1 个3位数，计算它们的平均值，保留两位小数，运行界面如图2.2.1所示。图 2.2.1 实验 2.1运行界面提示：（1）随机数生成某范围内的正整数公式为Int(Rnd*范围+基数)其中范围=数的上限-下限+1，基数=数的下限。例如，要生成 2位数，语句为Int(Rnd*(99-10+1)+10)=Int(Rnd*90+10)（2）保留两位小数，利用 Format
10、函数，形式为 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) + Val(Text2.Text) + Val(Text3.Text) / 3, 0.00)End SubPrivate Sub Command3_Click
11、()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub实验 2-2我国有 13亿人口，假定按人口年增长 0.8%计算，多少年后我国人口超过 26亿。提示：（1）已知年增长率 r=0.8%，求人数超过 26亿的年数n公式为：其中：Log(x)为对数函数，Log（2）缘由 Log（13/26）,0.8%需写成 0.008（2）该题目的界面设计 由读者自行设计。Private Sub Command1_Click()n = Int(Log(2) / Log(1 + 0.008) + 1)Text1 = n & 年后人口超过 26 亿
12、End Sub实验 2-3输入一个合法的 3位正整数，测试其数值合法性后，逆序输出并显示。例如，输入“734” ，输出是“437” ，如图2.2.2所示。提示：（1）利用 Text1_LostFocus事件，输入数据合法性检查调用 IsNumeric函数，参阅教学篇例 2.5；若有错利用MsgBox显示出错信息，如图 2.2.3所示；清除文本框内输入的非法数据，通过 SetFocus定位于文本框处，重新输入。（2）利用“MOD”和“”运算符将一个 3位数分离出 3个1位数，然后利用乘法和加法运算将 3个 1位数连接成一个逆序的 3位数。图 2.2.2 实验 2.3运行界面 图 2.2.3 出错
13、信息Private Sub Command1_Click()Dim x%, x1%, x2%, x3%x = Val(Text1)x1 = x Mod 10x2 = (x Mod 100) 10x3 = x 100Label2 = x1 * 100 + x2 * 10 + x3End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf Not IsNumeric(Text1.Text) ThenText1.Text = End IfEnd IfEnd SubPrivate Sub Text1_Los
14、tFocus()If Not IsNumeric(Text1.Text) ThenMsgBox 输入非数值数据，请重新输入, , 数据检验Text1.Text = Text1.SetFocusEnd IfEnd Sub实验 2-4输入一个字符串，分别调用UCase、Len、Mid、Left、Right 函数，显示如图 2.2.4所示的效果。图 2.2.4 实验 2.4运行界面提示：事件过程可以在 Form_Click中编码，输出控件可以使用标签控件。Private Sub Form_click()Label1 = UCase(Text1.Text)Label2 = Len(Text1.Text
15、)Label3 = Left(Text1, 11)Label4 = Mid(Text1, 12, 6)Label5 = Right(Text1, 5)End Sub实验 2-5效仿实验 2.4，验证转换函数的使用，Text1 文本框输入字符串，Text2 文本框显示调用所选函数的结果，4 个命令按钮为转换函数，Label2 显示对应的函数名，运行效果如图2.2.5所示。图 2.2.5 实验 2.5运行界面Private Sub Command1_Click()Label2 = Val 函数的结果Text2 = Val(Text1.Text)End SubPrivate Sub Command2
16、_Click()Label2 = Str 函数的 结果Text2 = Str(Text1.Text)End SubPrivate Sub Command3_Click()Label2 = Chr 函数的结果Text2 = Chr(Text1.Text)End SubPrivate Sub Command4_Click()Label2 = Asc 函数的 结果Text2 = Asc(Text1.Text)End Sub实验 2-6Print方法练习，显示字符图形。参考教学篇例 4.4输出简单图形，如图 2.2.6所示。要求窗体不可改变大小，当单击“清屏”按钮后，清除窗体所显示的图形。提示：利用循环语句和 String函数。读者也可以发挥自己的想像力，设计更美观的图形。进一步要求：若要显示如图
