程序设计_百度文库
赠送免券下载特权
10W篇文档免费专享
部分付费文档8折起
每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
阅读已结束，下载本文需要
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
加入VIP
还剩15页未读，
定制HR最喜欢的简历
你可能喜欢您现在的位置： >> vb第四版实验答案 >> vb实验报告册答案
vb实验报告册答案
来源： 时间：
【vb实验报告册答案】编号： 学年第二学期实 验 报 告实验课程名称 专 业 班 级 学 生 姓 号 学 生 姓 名实验指导老师实验项目清单实验一 程序设计初步 实验二 程序设计基础 实验三 顺序结构程序设计 实验四 分支结构程序设计 实验五 简单循环结构程序设计 实验六 循环结构程序设计深入 实验七 数组与相应算法程序设计 实验八 函数与过程 实验九 命令按钮、标签和文本框 实验十 VBA（一）实验十一 VBA（二） 实验十二 VBA（三）浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验一 专业 程序设计初步 学号实验成绩指导老师（签名 ）日期一. 实验目的和要求1. 2. 3. 4. 熟悉 VB 开发环境，掌握 VB 程序设计步骤。理解基本概念：工程、窗体、属性、事件、方法。熟悉立即窗口的使用。掌握 Print、赋值语的正确书写。二. 实验内容和原理1）在 E 盘或你的 U 盘上，建立一个自己的文件夹，准备用来保存 VB 编程过程中的相 盘上，建立一个自己的文件夹， ） 关文件。关文件。文件夹的名字是学号。文件夹的名字是学号。如 E:\）将窗体文件“1-1.Frm” 和 工程文件 ）将窗体文件 工程文件“1-1.Vbp”上传到老师的 ftp 服务器上的 上传到老师的 ”周三下午 或 ”周四下午” 或 ”周五下午” 你的文件夹中。周三下午” 周四下午 周五下午 你的文件夹中。张三” 如：“ 传媒 0901 张三”. 3）练习 1-2，1-3，1-4，1-5 也同样将窗体文件和工程文件上传到老师的 ） 同样将窗体文件和工程文件上传到老师的 ， ， ， ftp 服务器上。服务器上。谢谢！ 谢谢！ 【练习 1-1】新建一个工程，单击窗体时，在窗体上显示“这是我的第一个 VB 实验”；双击 窗体时，清除窗体上显示的所有信息。研究下面的代码，考虑应填入什么内容？ Private Sub Form_Click Form1.Print &这是我的第一个 VB 实验& End Sub Private Sub Form_DblClick ClsEnd Sub 上机实践 调试运行以上程序，在同一文件夹下保存工程 1-1.vbp 和窗体文件 1-1.frm。【练习 1-2】设计一个程序，窗体上有一个文本框、两个命令按钮，命令按钮的标题是 隶 】设计一个程序，窗体上有一个文本框、两个命令按钮，命令按钮的标题是“隶 黑体”， 世界”，是用粗体、 书”和“黑体 ，当程序运行后，在文本框中输入 欢迎光临 VB 世界 ，是用粗体、18 号、宋 和 黑体 当程序运行后，在文本框中输入“欢迎光临 红色字显示(通过窗体加载事件完成 单击 隶书 按钮文本框中显示内容的字体是隶书， 通过窗体加载事件完成)； 单击“隶书 按钮文本框中显示内容的字体是隶书， 隶书”按钮文本框中显示内容的字体是隶书 体、 红色字显示 通过窗体加载事件完成 ； 单击“黑体 按钮文本框中显示内容的字体是黑体。黑体”按钮文本框中显示内容的字体是黑体 单击 黑体 按钮文本框中显示内容的字体是黑体。文本框属性的设置在 Form_load 事件中 设置，研究下面的代码段，考虑应填入什么内容？ 设置，研究下面的代码段，考虑应填入什么内容？练习 1-2 运行界面Private Sub Form_Load() Text1.FontName = &宋体& Text1.FontBold = True Text1.FontSize = 18 Text1.ForeColor = vbRed End Sub Private Sub Command1_Click() Text1.FontName =____&隶书&___ End Sub Private Sub Command2_Click() __________ Text1.FontName = &黑体&___________ End Sub 上机实践 调试运行以上程序。请你思考 文本框属性的设置如改在属性窗口中设置，以上代码会怎样？编程， command2、 【练习 1-3】 】 编程， 窗体界面设计如下图 1， ， 分别有三个命令按钮 command1、 、 、 command3，命令按钮的 Caption 属性分别为 改变位置 、“还原 和“退出 。窗体加载 属性分别为“改变位置 改变位置”、 还原 还原”和 退出 退出”。， 事件，使窗体定位在（ 后，运行 Form_Load 事件，使窗体定位在（）坐标值上，运行效果如下图 2。， ）坐标值上， 。图1图2Private Sub Form_Load() Form1.Left = 2000 Form1.Top = 2000 Command2.Enabled = False End Sub 点击命令按钮 command1 后，使窗体定位在（100，100）坐标值上，运行效果如图 3：图 3 Private Sub Command1_Click() Form1.Left = 100 Form1.Top = 100 Command1.Enabled = False Command2.Enabled = True End Sub 点击命令按钮 command2，窗体又重回图 2 的情况。请写出另外两个命令按钮事件的内容。Private Sub Command2_Click() Form1.Left = 2000 Form1.Top = 2000 Command1.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() EndEnd Sub 上机实践 调试运行以上程序。请你思考 怎样用 move 方法来改变窗体位置，完成此题？ 【 练习 1-4】 在窗体上建立 5 个命令按钮 Command1、 Command2、 Command3、 】 、 、 、 Command4 和 Command5，运行界面如 ，运行界面如错误！未找到引用源。。要求（1） 命令按钮的 Caption 属性分别为“窗体变大”、 “窗体变小”、 “窗体左移”、 “窗体右移”和“关 闭窗体”。（2）每单击 Command1 按钮和 Command2 按钮一次，窗体变大或变小 1/4 倍。（3）单击 Command3 按钮和 Command4 按钮一次，窗体左移或右移 200 缇。（4）单击 Command5 按钮退出。练习 1-4 运行界面以下是两个命令按钮的事件过程，写出另外三个命令按钮的事件过程。Private Sub Command1_Click() Form1.Height = Form1.Height * 1.25 Form1.Width = Form1.Width * 1.25 End Sub Private Sub Command3_Click() Form1.Left = Form1.Left - 200 End SubPrivate Sub Command2_Click() Form1.Height = Form1.Height / 1.25 Form1.Width = Form1.Width / 1.25 End Sub Private Sub Command4_Click() Form1.Left = Form1.Left + 200 End Sub Private Sub Command5_Click() EndEnd Sub上机实践 调试运行以上程序。、 个命令按钮， 【 练习 1-5】 在窗体上建立 4 个命令按钮 ， command1、command2、 command3、 】 、 、 、 command4， ， 要求1．命令按钮的 Caption 属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。2．每单击按钮 command1 和 command2 一次，字体变大或变小 2 个（提示：改 变的是 Form1.fontsize 属性值） 。3．单击 command3 时，字体变粗；单击 command4 时，字体又由粗体变标准； （提示改变的是 Form1.fontbold 属性值） 。4．4 个按钮每单击一次，都在窗体上显示“欢迎使用 VB”。5．双击窗体后清除窗体内容。研究下面的代码段，考虑应填入什么内容？ Private Sub Command1_Click() '字体变大 Form1.FontSize = Form1.FontSize + 2 Print &欢迎使用 VB& End Sub Private Sub Command2_Click() '字体变小 ______ Form1.FontSize = Form1.FontSize - 2 Print &欢迎使用 VB& __________________________ ______________ End Sub Private Sub Command3_Click() Form1.FontBold = True Print &欢迎使用 VB& End Sub Private Sub Command4_Click() Form1.FontBold = ____ False ______ Print &欢迎使用 VB& End Sub Private Sub Form_DblClick() ______ Cls _______ End Sub 上机实践 调试运行以上程序，运行界面参考如上图。'字体加粗'字体不加粗选做题选做题：启动窗体”、 第二个窗体 第二个窗体”， 【练习 1-6】两个窗体的运行界面 两窗体标题分别为 启动窗体 、“第二个窗体 ，启动窗 】两个窗体的运行界面, 两窗体标题分别为“启动窗体 体的背景色是红色，第二个窗体的背景色是绿色，单击启动窗体的命令按钮“下一窗体 下一窗体”， 体的背景色是红色，第二个窗体的背景色是绿色，单击启动窗体的命令按钮 下一窗体 ， 显示出第二个窗体，隐藏启动窗体，单击第二个窗体的命令按钮“返回 关闭第二个窗体， 返回”， 显示出第二个窗体，隐藏启动窗体，单击第二个窗体的命令按钮 返回 ，关闭第二个窗体， 显示出启动窗体。显示出启动窗体。练习 1-6 运行界面命令按钮“返回”的事件过程如下，写出启动窗体命令按钮的事件过程。Private Sub Command1_Click() Form2.Hide Form1.Show End Sub Private Sub Command2_Click() End End Sub Private Sub Command1_Click() Form1.Show Form2.Hide End Sub上机实践 编写、调试运行以上程序，运行界面参考上图。请你思考 在这个练习中要考虑怎样在同一工程中建立多个窗体， 以及多个窗体的保存。在此题中保存 了几个文件？先后次序分别是什么？三. 讨论、（必须做）
浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验二 专业班级 程序设计基础 学号实验成绩指导老师（签名 ）日期一. 实验目的和要求1. 2. 3. 4. 5. 6. 掌握运算符的使用。掌握表达式的正确书写规则。掌握常用函数的使用。掌握 InputBox、MsgBox 函数的使用。熟悉掌握赋值语句的使用。掌握顺序结构的应用程序的编程过程。二. 实验内容和原理1）将窗体文件“2-2.Frm” 和 工程文件 ）将窗体文件 工程文件“2-2.Vbp”上传到老师的 ftp 服务器上的 上传到老师的 ”周三下午 或 ”周四下午” 或 ”周五下午” 你的文件夹中。周三下午” 周四下午 周五下午 你的文件夹中。周三下午 周四下 周五下 张三” 如：“ 传媒 0901 张三”. 2）练习 2-3 也同样将窗体文件和工程文件上传到老师的 ftp 服务器上。） 同样将窗体文件和工程文件上传到老师的 服务器上。打开立即窗口， 输入以下内容， 每行以回车键结束， 查看结果来掌握赋值语句、 【练习 2-1】 】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、 运算符、表达式、常用内部函数。运行结果填在右侧表中运算符、表达式、常用内部函数。运行结果填在右侧表中? 35 /5 mod 13 \2+5^2 Print Not(&bad&&&bed&) BirthDay = #5/18/1980# Birth$ = &出生日期：& & BirthDay Print Birth$ a = 10 b = 15-------26----------------------------------True------------------------出生日期：-------出生日期出生日期c = -9 Print a & 2 ^ 3 And (b = 13 Or Not c = 0) Print len(str(a)) Print len(str(c)) Print Chr(Asc(&A&) + 3) Print Trim(& a b &) & &cde& Print & a b & & &cde& Print Left(&Visual Basic 6.0&, 7) Print Mid(&Visual Basic 6.0&, 8, 5) Print Instr(&Visual Basic 6.0&,” Ba”) Print Len(&VB 程序设计&) Print UCase(&Hello!&) Print &浙江& & Space(2) & &杭州& Print Date, Date+7 Print hour(Time) Print 345 / 7347, Format(345 / 7347, &#0.0000&) Print Sqr(9) Print Abs(-25) Print Rnd, Rnd Print Sin(30 * 3.1415926 / 180) Print Int(-3.4), Int(3.8)---- True ----------------------------3-------------------------------------2-------------------------------------D--------------------------------- a bcde--------------------- a b cde---------- Visual -------------------------- Basic-------------------------6------------------------------- HELLO!-------------------------- 浙 江 杭 州 --------------------- -- ---21--------------------------
------4.99E-02 0.0470 ----3--------------------------------25-----------------------------0...98 ----- -4 3 -----21-------------------------上有两个文本框，窗体界面如错误！未找到引用源。【练习 2-2】设计一程序，窗体 Form1 上有两个文本框，窗体界面如 】设计一程序， 所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次， 所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次，两个文本框的内容 交换一次。交换一次。提示(1)可以参考教材中两个变量值交换的例子 (2)可以定义中间交换变量 Dim c as string (3)赋值语句的”=”的前后项不要写颠倒练习 2-2 运行界面上机实践 编写、调试运行以上程序。Private Sub Form_Load() Text1.Text = &杭州 杭州& 杭州 Text2.Text = &西湖 西湖& 西湖 End Sub Private Sub Form_Click() Dim c As String c = Text1.Text Text1.Text = Text2.Text Text2.Text = c End Sub【练习 2-3】设计一个函数计算器。其功能要求如下】设计一个函数计算器。其功能要求如下（1） 运行的界面如图所示。有 12 个命令按钮。每使用一个函数按钮前，先单击“清除”按钮， 文本框和标签框中的内容清空。（2）Sin、Cos、Sqr、Int、Chr、Asc 等函数将文本框中的数据作为函数的输入参数，单击 这些函数命令按钮，在标签框中显示其函数值。（3）单击“Rnd”按钮，用 Rnd 函数产生一随机数，显示在标签框中。（4）单击“Date”按钮在标签框中显示系统日期；单击“Time”按钮在标签框中显示系统时间； （5）单击“InputBox”按钮，弹出一对话框，提示输入姓名，当用户输入后，再将输入信息 显示在标签框中。单击“MsgBox”按钮，将文本框中的内容通过一信息框显示出来，要求信 息框提供给用户的有“是”、“否”、“取消”3 个按钮，根据用户的不同选择，将函数返回结果显 示在标签框中。练习 2-3 运行界面部分命令按钮的提示代码如下Sin 命令按钮的事件过程可以写作Const pi = 3.1415926 Dim x As Single, fx As Single x = Val(Text1.Text) ‘注意类型转换函数 fx = Sin(x * pi / 180) Label1.Caption = Str(fx) ‘注意类型转换函数 Asc 命令按钮的事件过程可以写作Label1.Caption = Str(Asc(Text1.Text))‘注意类型转换函数MsgBox 命令按钮的事件过程可以写作Dim n As String n = MsgBox(&你输入的数据是& & Text1.Text, 3 + 32 + 0, &数据检查&) Label1.Caption = Str(n) Rnd 命令按钮的事件过程可以写作Randomize Label1.Caption = Str(Rnd) 请完整写出所有命令按钮的事件过程。Const pi = 3.1415926 Private Sub Command1_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Sin(x * pi / 180) Label3.Caption = Str(fx) End Sub Private Sub Command2_Click() Dim x As Single, fx As Single x = Val(Text1.Text)fx = Cos(x * pi / 180) Label3.Caption = Str(fx) End Sub 'Rnd 命令按钮的事件过程可以写作Private Sub Command3_Click() Randomize Label3.Caption = Str(Rnd) End Sub Private Sub Command4_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Sqr(x) Label3.Caption = Str(fx) End Sub Private Sub Command5_Click() Dim x As Single x = Val(Text1.Text) Label3.Caption =str( Int(x)) End Sub Private Sub Command6_Click() Dim x As Integer x = Val(Text1.Text) Label3.Caption = Chr(x) End Sub Private Sub Command7_Click() Label3.Caption = str(Asc(Text1.Text)) End Sub Private Sub Command8_Click() Dim x As String x = InputBox(&请输入姓名:&, &输入姓名:&) Label3.Caption = x End Sub 'msgbox 命令按钮的事件过程可以写作Private Sub Command9_Click() Dim n As String n = MsgBox(&你输入的数据是& & Text1.Text, 3 + 32 + 0, &数据检查&) Label3.Caption = Str(n)End Sub Private Sub Command10_Click() Label3.Caption = Date End Sub Private Sub Command11_Click() Label3.Caption = Time() End Sub Private Sub Command12_Click() Text1.text=”” Label3.Caption = “” End Sub上机实践 编写、调试运行以上程序，运行界面参考如上图。三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验三、 顺序结构程序设计 专业班级 学号实验成绩指导老师（签名 ）日期一. 实验目的和要求1. 熟悉输入、输出语句的使用。2. 熟悉顺序结构的应用程序的编程过程.二. 实验内容和原理1）将窗体文件“3-1.Frm” 和 工程文件 ）将窗体文件 工程文件“3-1.Vbp”上传到老师的 ftp 服务器上的 上传到老师的 ”周三下午 或 ”周四下午” 或 ”周五下午” 你的文件夹中。周三下午” 周四下午 周五下午 你的文件夹中。周三下午 周四下 周五下 张三” 如：“ 传媒 0901 张三”. 2）练习 3-2，3-3 也同样将窗体文件和工程文件上传到老师的 ftp 服务器上。） 同样将窗体文件和工程文件上传到老师的 服务器上。， 【练习 3-1】设计一个根据摄氏温度求对应的华氏温度的程序。如错误！未找到引用源。是 】设计一个根据摄氏温度求对应的华氏温度的程序。是 设计窗体， 个标签框作提示使用； 设计窗体，窗体上有 2 个标签框作提示使用；2 个文本框 Text1 和 Text2 分别作输入和显 个命令按钮， 标题分别是“计 示；3 个命令按钮， 名称分别是 Command1、 、Command2、 、Command3， ，标题分别是 计 清除”、 退出 退出”。算”、“清除 、“退出 。、 清除 在 Text1 中输入摄氏温度后，单击“计算”按钮，右文本框内显示出该摄氏温度对应的华氏温 度；单击“清除”按钮使得 2 个文本框的内容被清除；单击“退出”按钮结束程序运行。计算公式：F=9C/5+32，其中 C 表示摄氏温度，F 表示华氏温度。练习 3-1 设计界面上机实践 编写、调试运行以上程序。Private Sub Form_Load() Label1.Caption = &摄氏温度& Label2.Caption = &华氏温度& Command1.Caption = &计算& Command2.Caption = &清除& Command3.Caption = &退出& Text1.Text = && Text2.Text = && End Sub Private Sub Command1_Click() Dim c As Single, f As Single c = Val(Text1.Text) f = 9 * c / 5 + 32 Text2.Text = f End Sub Private Sub Command2_Click() Text1.Text = && Text2.Text = && End Sub Private Sub Command3_Click() End End Sub【练习 3-2】设计一个用计算机给出三位整数加法练习程序。程序界面如 】设计一个用计算机给出三位整数加法练习程序。程序界面如错误！未找到引用 源。所示，单击一次，则在文本框中产生一题。所示， 所示 单击一次，则在文本框中产生一题。练习 3-2 运行界面提示（1）将文本框的 Multiline 属性设置为 true,并设置垂直滚动(ScrollBars=2) （2）用 Rnd 函数产生 100~999 之间的随机整数 （3）回车换行符用函数 chr(13)+chr(10)表示 研究下面的代码段，考虑应填入什么内容？ Private Sub Form_Load() Text1.text= “” End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer x= 100 + Int(Rnd * 900) y= 100 + Int(Rnd * 900) Text1.Text = Text1.Text Chr(10) End Sub 上机实践 调试运行以上程序，运行界面参考如上图。'产生三位随机数 '产生三位随机数 & x & &+& & y & &=( )& & Chr(13) &【练习 3-3】 在标签框中有一串英文字符串，有三个命令按钮名称分别为 command1、 】 在标签框中有一串英文字符串， 、 command2、command3，按“转大写 按钮，文本变为大写，按“转小写 按钮，文本变为 转大写”按钮 转小写”按钮 、 ， 转大写 按钮，文本变为大写， 转小写 按钮， 小写。其他字符不变。还原 按钮，回到启动状态。还原”按钮 小写。其他字符不变。按“还原 按钮，回到启动状态。练习 3-3 运行界面在本实验中需要在通用中声明一个模块级变量 s，考虑一下为什么？研究下面的代码段，考虑应填入什么内容？ Dim s As String Private Sub Form_Load() s = Label1.Caption End Sub Private Sub Command1_Click() Label1.Caption = End Sub Private Sub Command2_Click() Label1.Caption = End Sub Private Sub Command3_Click() Label1.Caption = s End Sub‘声明模块级变量 sUCase(s)LCase(s)‘“还原”的事件代码三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验四、 专业班级 分支结构程序设计 学号实验成绩指导老师（签名 ）日期一. 实验目的和要求1. 2. 3. 掌握单分支与双分支条件语句 IF 的使用。掌握多分支条件语句的使用。掌握情况语句 Select Case 的使用及其与多分支条件语句的区别。二. 实验内容和原理1）将窗体文件“4-1.Frm” 和 工程文件 ）将窗体文件 工程文件“4-1.Vbp”上传到老师的 ftp 服务器上的 上传到老师的 ”周三下午 或 ”周四下午” 或 ”周五下午” 你的文件夹中。周三下午” 周四下午 周五下午 你的文件夹中。周三下午 周四下 周五下 张三” 如：“ 传媒 0901 张三”. 2）练习 4-2，4-3，4-4，4-5，4-6 也同样将窗体文件和工程文件上传到老师的 ftp ） 同样将窗体文件和工程文件上传到老师的 ， ， ， ， 服务器上。服务器上。【练习 4-1】研究下面的代码段，画程序流程图，当输入 93，81，74，65，42 时，写出窗 】研究下面的代码段，画程序流程图， ， ， ， ， 体中显示的结果。体中显示的结果。Private Sub Form_Click() score = Val(InputBox(&输入成绩&)) If score & 60 Then Print &不合格& If score &= 60 and score&85 Then Print &合格& If score &= 85 Then Print &优秀& End sub 流程图结果优秀 合格 合格引伸 1 若把程序代码写成如下形式，画出它的流程图。问当输入成绩为 90 分时，显示什么结果？ 为什么？用嵌套块 If 语句应如何写？ Private Sub Form_Click() score = Val(InputBox(&输入成绩&)) If score &= 85 Then st= &优秀& If score & 60 Then st=” 不合格” Else st=&合格& End If Print st End Sub流程图：结果：为什么？用嵌套块 If 语句修改：引伸 2 若把程序写成如下形式，当输入成绩为 90、80、50 时，显示什么结果？画出流程图。Private Sub Form_Click() score = Val(InputBox(&输入成绩&))If score &= 85 Then Print &优秀& ElseIf score &= 60 Then Print &合格& Else Print &不合格& End If End Sub 流程图结果：优秀 合格 不合格上机实践 调试运行以上程序，采用单步跟踪的方法(按 F8)查看程序执行流程，进一步加深对分支结 构的理解。【练习 4-2】研究下面的代码段。】研究下面的代码段。Dim flag As Integer Private Sub Form_click() If flag = 0 Then ‘注 1 Dim falg as IntegerForm1.Print &欢迎使用 Visual Basic!&flag = 1 ElseIf flag = 1 Then Form1.Cls flag = 0 End If End Sub 提问1．当在窗体上单击三下，窗体中显示什么结果？ 欢迎使用 Visual Basic! 2．注意变量 flag 定义的位置，为何这样定义？ 若把变量 flag 定义放在 Form_click()事件过程里，如Private Sub Form_click() Dim flag As Integer If flag = 0 Then …… 欢迎使用 Visual Basic! 在窗体上单击三下，此时程序的运行结果怎样？ 3．若要求窗体显示的字体是隶书 18 号字，则如何补充程序？FontName=“隶书” FontSize=18 4．若把程序代码修改如下。Dim flag As Integer Private Sub Form_click() If flag = 0 Then Form1.Print &欢迎使用 Visual Basic!&flag = 1 If flag = 1 Then Form1.Clsflag = 0 End Sub 问出现什么结果，为什么？ 屏幕上无显示 5．若在 Form_Click()事件过程中第一行的变量名 Flag 拼写错了，写成了 Falg，如注 1 所 示，则程序执行结果如何？为什么？ 单击第一下欢迎使用 Visual Basic! 单击第二下欢迎使用 Visual Basic! 单击第三下欢迎使用 Visual Basic!上机实践 调试运行以上程序。优秀” 【 练习 4-3】 根据所输入的百分制成绩 score， 给出相应的五级计分等级 ， 即 “优秀 】 ， 给出相应的五级计分等级， 优秀 及格”(60&=score&70)， (score&=90)，“良好 良好”(80&=score&90)，“中”(70&=score&80)，“及格 ， 及格 ， ， 良好 ，中 “不及格 不及格”(score&60)， 用块 ElseIf 语句完成，请把下面的程序填写完整。语句完成，请把下面的程序填写完整。不及格 ， Dim score As Integer Private Sub Form_click() score = Val(InputBox(&输入成绩&)) If score&=90 then Print “优秀” Elseif score&=80 then Print &良好& ElseIf score &= 70 Then Print &中& ElseIf score &= 60 Then Print &及格& Else Print &不及格& End If‘补充 ElseIf 语句 End Sub引伸 若把上面的 ElseIf 语句写成如下形式，则如何补充。If score&=90 then Print “优秀” Else if score&=80 then Print &良好& Else If score &= 70 Then Print &中& Else If score &= 60 Then Print &及格& Else Print &不及格& End If End If End If End If‘补充 IF 语句 End Sub 上机实践：运行调试以上程序，若给出如下的程序运行界面，请上机完成。图 4-4 程序运行界面【练习 4-4】根据所输入的百分制成绩 score，给出相应的五级计分等级，用 Select Case 】 ，给出相应的五级计分等级， 语句完成。提示信息的下一行是错误的， 语句完成。'****** 错误 1 *******提示信息的下一行是错误的，请在横线上写出正确答案。提示信息的下一行是错误的 请在横线上写出正确答案。Private Sub Command1_Click() Dim score as single score = val(Text1.Text) '****** 错误 1 ******* Select Case x----------- Select Case score 1 ----------'****** 错误 2 ******* Case x &= 90 Text2.Text = &优秀& '****** 错误 3 ******* Case x&90 and x&=80 ---------Text2.Text = &良好& '****** 错误 4 ******* Case x &= 70 and x&80 4 ---------Text2.Text = &中& '****** 错误 5 ******* Case x &= 60 Text2.Text = &及格& Case else Text2.Text = &不及格& End Select End Sub 上机实践 运行调试程序，运行界面参考图 4-4。----------- Case Is &= 90 2 --------------------- 3 Case Is &= 80----------- Case Is &= 70----------- 5 Case Is &= 60 ----------【练习 4-5】编程，输入上网时间计算上网费用，计算方法如下】编程，输入上网时间计算上网费用，计算方法如下：基数30元，　　　　上网时间＜10小时 费用＝ 每小时2.5元，　　 上网时间10~50小时　　 每小时2元，　　　 上网时间＞＝50小时同时为了鼓励多上网，每月收费最多不超过 150 元。上机实践 编写、运行、调试以上程序。Private Sub Form_Click() Dim x As Integer, y As Single x = InputBox(&输入上网时间：&) If x & 10 Then y = 30 ElseIf x & 50 Then y = 30 + (x-10) * 2.5 ElseIf x &= 50 Then y = 30 + 40 * 2.5 + (x-50) * 2 If y &= 150 Then y = 150 End If Print y End Sub【练习 4-6】编程，在窗体上循环输出字符串 欢迎使用 Visual Basic”。第一次单击窗体时 】编程，在窗体上循环输出字符串“欢迎使用 。以红色显示；第二次单击时以绿色显示；第三次单击时以篮色显示； 以红色显示；第二次单击时以绿色显示；第三次单击时以篮色显示；第四次单击时则清除 窗体上的信息；第五次又重新开始。窗体上的信息；第五次又重新开始。上机实践 编写、运行、调试以上程序。Dim Flag As Integer Dim Mystring As String Private Sub Form_Load() Flag = 0 Mystring = &欢迎使用 Visual Basic!& End Sub Private Sub Form_Click() Flag = Flag + 1 Select Case Flag Case 1 Form1.ForeColor = vbRed Form1.Print Mystring Case 2 Form1.ForeColor = vbGreen Form1.Print Mystring Case 3 Form1.ForeColor = vbBlue Form1.Print Mystring Case 4 Form1.Cls Case 5 Flag = 0 End Select End Sub三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 实验五、 专业班级 VB 程序设计基础实验 简单循环结构程序设计 学号实验成绩指导老师（签名 ）日期一. 实验目的和要求1．理解并掌握循环的基本作用。2．掌握 FOR/NEXT 语句的使用。3．掌握 While/Wend，DO/Loop 语句的形式和使用。4．掌握如何控制循环条件，防止死循环或不循环。二. 实验内容和原理1）将窗体文件“5-2.Frm” 和 工程文件 ）将窗体文件 工程文件“5-2.Vbp”上传到老师的 ftp 服务器上的 上传到老师的 ”周三下午 或 ”周四下午” 或 ”周五下午” 你的文件夹中。周三下午” 周四下午 周五下午 你的文件夹中。周三下午 周四下 周五下 张三” 如：“ 传媒 0901 张三”.2）练习 5-3，5-4，5-5，5-6 也同样将窗体文件和工程文件上传到老师的 ftp ） 同样将窗体文件和工程文件上传到老师的 ， ， ， 服务器上。服务器上。判断下面两个循环语句的循环体分别被执行了多少次， 【练习 5-1】 】 判断下面两个循环语句的循环体分别被执行了多少次， 程序执行完毕后变量 s， ， i 的值为多少？ 的值为多少？ 程序 1 s=0 for i=1 to 10 step 1 s=s+1 next i print s,i 循环体执行了多少次？ 变量 s 的值10 10 程序 2 s=0 for i=1 to s=s+1 next i print s,i 变量 s 的值：10step-1循环体执行了多少次？0 0变量 i 的值：11变量 i 的值：1上机实践 用 Form_Click()事件过程来运行调试以上程序。【练习 5-2】阅读以下程序，回答问题。】阅读以下程序，回答问题。Private Sub Form_Click() Dim Str1 As String, str2 As String, str3 As String Str1 = Text1.Text ‘str1 为原字符串，str2 存放临时字符，str3 为目标字符串 str2 = && str3 = && n = Len(Str1) For i = 1 To n str2 = Mid(Str1, i, 1) If str2 &= &0& And str2 &= &9& Then str3 = str3 + str2 ‘注 1 End If Next i Form1.Print str3 End Sub 问：若在文本框中输入字符串“A123b45C_de”，窗体中显示什么结果？。12345 引申 1：若把注 1 语句改写成 str3= str2 + str3 问结果如何？ 54321 引申 2：若要求显示结果为“AbCde”，则应如何修改程序？ If str2 &= &a& And str2 &= &z& Or str2 &= &A& And str2 &= &Z& Then str3 = str3 + str2 End If上机实践 调试运行以上程序， 采用断点调试的方法查看程序执行的中间变量值， 进一步加深对循环结 构的理解。【练习 5-3】从键盘输入一批数，以-1 作为结束标记 单击窗体输入 ，分别求出其中偶数的 练习 从键盘输入一批数， 作为结束标记(单击窗体输入 单击窗体输入)， 从键盘输入一批数 平均值和奇数的平均值，把程序补充完整。平均值和奇数的平均值，把程序补充完整。Public Sub form_click() Dim sum1!, sum2!, x% Dim i%, j% x = InputBox(&输入 x 的值&) Do While x && -1 If x mod 2=0 then sum1=sum1+x i=i+1Else sum2 = sum2 + x j=j+1‘程序填空 ‘程序填空 ‘程序填空 ‘程序填空 ‘程序填空End if x = InputBox(&输入 x 的值&) Loop If i = 0 Then Print &偶数平均值为 0& else Print &偶数平均值为&; sum1 / i If j = 0 Then Print &奇数平均值为 0& else print &奇数平均值为&; sum2 / j End Sub 上机实践 调试运行以上程序，采用断点调试方法查看程序执行的中间变量值。【练习 5-4】计算下列表达式的值并打印，修改程序中所标识语句处的错误。练习 计算下列表达式的值并打印， 计算下列表达式的值并打印 修改程序中所标识语句处的错误。‘程序填空s = 1?程序 Public Sub form_click() Dim i As Integer '****** 错误 1 ******* Dim k As Integer Dim s As Single s=0 '******* 错误 2 ******* For i = 1 To 100 k=1/i s=s+k '******* 错误 3 ******* k=1/i+1 s=s-k Next I Form1.Print &s=&; s End Sub 上机实践 运用调试工具调试运行以上程序。1 1 1 1 + ?…+ ? 2 3 99 100‘修改为：Dim k As Single‘修改为：For i = 1 To 100 Step 2‘修改为：k = 1 / (i + 1)【练习 5-5】command1_click()过程用于判断一个字符串是否 回文 ，所谓 回文 是指字 练习 过程用于判断一个字符串是否“回文 所谓“回文 回文”是指字 过程用于判断一个字符串是否 回文”， 符串顺读与倒读都是一样的， 潮起潮落 落潮起潮”，运行界面如错误！未找到引用源。潮起潮落， 符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮 ，运行界面如 所示。请编程实现。所示。请编程实现。练习 5 运行界面分析 解题的步骤是：先求原字符串的逆串，再判断原字符串和逆串是否完全相同，若相同则结论 为“是回文”否则“不是回文”。上机实践 编写、运行、调试以上程序。Private Sub Form_Load() Label1.Caption = &源字符串：& Label2.Caption = &结论：& Command1.Caption = &判断& Command2.Caption = &结束& End Sub Private Sub Command1_Click() Dim s As String, t As String Dim i As Integer, k As Integer s = Text1.Text k = Len(s) For i = 1 To k t = Mid(s, i, 1) + t Next i For i = 1 To k \ 2 If Mid(s, i, 1) && Mid(t, i, 1) Then Exit For Next i If i & k \ 2 Then Label3.Caption = &是回文！& Else Label3.Caption = &不是回文！&End If End Sub Private Sub Command2_Click() End End Sub【练习 5-6】编程，求下述表达式的值。】编程，求下述表达式的值。w=1 1 1 1 + + +…+ 1× 2 2 × 3 3 × 4 n × (n + 1)上机实践 用 Form_Click 事件过程来实现，调试运行以上程序。Private Sub Form_Click() Dim i As Integer, w As Double, y As Double w=0 y=0 n = InputBox(&输入 n：&) For i = 1 To n y = 1 / i / (i + 1) w=w+y Next i Print “w=”;w End Sub三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验六、 专业班级 循环结构程序设计深入 学号实验成绩指导老师（签名 ）日期一. 实验目的和要求1．理解并掌握嵌套结构的基本用法。2．掌握各种循环结构的嵌套使用。3．熟悉典型题目的解题方法。二. 实验内容和原理1）将窗体文件“6-1.Frm” 和 工程文件 ）将窗体文件 工程文件“6-1.Vbp”上传到老师的 ftp 服务器上的 上传到老师的 ”周三下午 或 ”周四下午” 或 ”周五下午” 你的文件夹中。周三下午” 周四下午 周五下午 你的文件夹中。周三下午 周四下 周五下 张三” 如：“ 传媒 0901 张三”. 2）练习 6-2，6-3，6-4，6-6 也同样将窗体文件和工程文件上传到老师的 ftp ） 同样将窗体文件和工程文件上传到老师的 ， ， ， 服务器上。服务器上。写出窗体中显示的图案。【练习 6-1】读程序，当从键盘输入 5 时，写出窗体中显示的图案。】读程序， Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer n = Val(InputBox(&n=&, &输入 1-9 之间的整数&)) For i = n To 1 Step -1 Print Tab(n - i + 1); For j = 1 To 2 * i - 1 Print &*&; ‘注 1 代码段 1 Next j Print Next iFor i = 1 To n Print Tab(n - i + 1); For j = 1 To 2 * i C 1 Print &*&; ‘注 2 Next j Print Next i End Sub 运行结果：代码段 2引伸 1：若把代码段 1 和代码段 2 交换位置，写出新的打印结果。引伸 2：若把注 1，注 2 所示的语句改写为 Print Chr(64+i)；写出新的打印结果。引伸 3：若把 Print 语句后的“；”删除，结果会怎样？上机实践 用 Form_Click 事件过程来实现，调试运行以上程序。【练习 6-2】读程序，写出程序运行结果。】读程序，写出程序运行结果。Private Sub Form_click() Dim k As Integer, i As Integer For i = 100 To 200 If i Mod 5 = 0 Then P k=k+1 ‘计数变量 k，对满足条件的数计数 If k Mod 10 = 0 Then Print ‘计数到 k mod 10=0 时换行。End If Next i End Sub 运行结果：引伸 1：若把上面的代码写成如下形式Private Sub Form_click() Dim k As Integer, i As Integer For i = 100 To 200 If i Mod 5 = 0 Then P k=k+1 ‘计数变量 k，对满足条件的数计数If k Mod 10 = 0 Then Print Next i End Sub 结果如何？为什么？‘计数到 k mod 10=0 时换行。上机实践 用 Form_Click 事件过程来实现，调试运行以上程序。读程序， 当从键盘输入字符串“I 时写出窗体中输出结果。【练习 6-3】 】读程序，当从键盘输入字符串 am a good student.”时写出窗体中输出结果。时写出窗体中输出结果 Public Sub Uppersen() Dim oldsen As String, newsen As String Dim char As String, lastchar As String Dim l As Integer, i As Integer oldsen = InputBox(&请输入英文：&) l=len(oldsen) '以空格作为单的界定，空格后的字母转换为大写字母 lastchar=“ ” For i = 1 To l char = mid(oldsen , i, 1) If lastchar = & & Then char = ucase(char) End If newsen = newsen & char lastchar = char Next i Form1.Print &input:&; oldsen Form1.Print &output:&; newsen End Sub 输出结果上机实践 用 Form_Click 事件过程来实现，调试运行以上程序。【练习 6-4】从一堆一分、二分、五分的硬币中取出 20 枚，使其总值为 60 分，输出取法 】从一堆一分、二分、 的数量及每一种取法的一分、二分、五分的个数，请把下面的程序补充完整。的数量及每一种取法的一分、二分、五分的个数，请把下面的程序补充完整。Private Sub form_click() Dim one As Integer '一分硬币个数 Dim two As Integer '二分硬币个数 Dim five As Integer '五分硬币个数 Const n = 20 '总数 20 枚 Dim k As Integer '取法数量 k=0 For one = 1 To n For two = 1 To n-oneIf one + two*2 + five*5 = 60 Then Form1.Print &one=&; &two=&; &five=&; five End If Next two Next one Form1.Print &k=&; k End Sub 上机实践 用 Form_Click 事件过程来实现，调试运行以上程序。【练习 6-5】 选做题）编程输出下列数字图案（行数由键盘输入） （选做题 选做题） 56 23 67891 … 上机实践 编写、运行、调试以上程序。之间的所有素数， 个数据。【练习 6-6】编程输出 2~100 之间的所有素数，每行显示 10 个数据。】 上机实践 编写、运行、调试以上程序。三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验七、 专业班级 数组与相应算法程序设计 学号实验成绩指导老师（签名 ）日期一. 实验目的和要求1．掌握数组的声明、数组元素的引用。2．掌握固定长度数组和动态数组的使用差别。3．掌握数组常用的操作和常用算法。二. 实验内容和原理1）将窗体文件“7-1.Frm” 和 工程文件 ）将窗体文件 工程文件“7-1.Vbp”上传到老师的 ftp 服务器上的 上传到老师的 ”周三下午 或 ”周四下午” 或 ”周五下午” 你的文件夹中。周三下午” 周四下午 周五下午 你的文件夹中。周三下午 周四下 周五下 张三” 如：“ 传媒 0901 张三”. 2）练习 7-2，7-3，7-4，7-5 也同样将窗体文件和工程文件上传到老师的 ftp ） 同样将窗体文件和工程文件上传到老师的 ， ， ， 服务器上。服务器上。【练习 7-1】阅读下面程序段，当从键盘输入一字符串 】阅读下面程序段，当从键盘输入一字符串“You are a good student.”时，写 时 出运行结果，提示出运行结果，提示：字母 a 的 ASCII 值是 97，字母 z 的 ASCII 值是 122，Chr(97)即是字 ， ， 即是字 母 a。。Private Sub Form_click() Dim s As String, a() As String, i As Integer, j As Integer s = InputBox(&请输入一串字符&) n = Len(s) ReDim a(n) as String For i = 1 To n a(i) = Mid(s, i, 1) Next i For j = 97 To 122 ‘注 1 k=0For i = 1 To n If a(i) = Chr(j) Then k=k+1 End If Next i If k && 0 Then Print Chr(j) + &有& + Str(k) + &个&; Spc(3) End If Next j End Sub 写出本程序的意图及运行结果：引伸 1：若把标注 1 的代码写成如下形式：For j = 65 To 91 则运行结果为：引伸 2：若输入字符串“ABAaba”时要得到结论：a 有 2 个， b 有 1 个， A 有 2 个， B 有 1 个，则应如何修改程序。上机实践 运用各种工手段，调试运行以上程序。的数据序列是， ， ， 【练习 7-2】阅读下面程序段，写出运行结果。假设从键盘输入的数据序列是：1，2，3， 】阅读下面程序段，写出运行结果。假设从键盘输入的数据序列是 4，5，6，7，8，9，10，11，12。， ， ， ， ， ， ， ， 。Private Sub Form_Click() Dim a(1 To 3, 1 To 5) As Single Dim i As Integer, j As Integer For i = 1 To 3 a(i, 5) = 0 For j = 1 To 4 a(i, j) = Val(InputBox(&a(& & i & &,& & j & &)=&)) a(i, 5) = a(i, 5) + a(i, j) Next j a(i, 5) =a(I,5)/4 Next i For i = 1 To 3 '输出 3 行 5 列的数组 For j = 1 To 5 Print a(i, j); Next j Print ‘注 1 Next i End Sub 运行结果引伸 1：若把标注 1 语句删除，则运行结果为：上机实践 调试运行以上程序。【练习 7-3】从键盘输入一个任意的字符串，将该字符串的所有组成字符拆分开，再按照字 】从键盘输入一个任意的字符串，将该字符串的所有组成字符拆分开， 码从小到大的顺序将这些字符重新组成新的字符串。例如输入“a4fkze5”， 符 ASCII 码从小到大的顺序将这些字符重新组成新的字符串。例如输入 ，重新组 合的字符串为“45aefkz”。把程序补充完整。合的字符串为 。把程序补充完整。Public Sub form_click() Dim x As String '原始字符串 Dim y As String '重新组合的字符串 Dim c() As String '拆分出的字符 Dim k As Integer '字符串长度 Dim i As Integer, j As Integer Dim temp As String x = InputBox(&输入一个字符串&) k = len(x) ReDim c(k) As String '字符串拆分 For i = 1 To k c(i) = mid(x,i,1) Next i '用选择法对字符排序 For i = 1 To k - 1 For j = ------ 1 ----If ------ 2 ----- Then temp = c(i) c(i) = c(j) c(j) = temp End If Next j Next i '排序后的字符组成新字符串 y = && For i = 1 To k ------ 3 ----Next i Form1.Print &原始字符串&; x Form1.Print &重新组合的字符串&; y End Sub 上机实践 调试运行以上程序。位同学的编号和成绩，求他们的平均成绩， 【练习 7-4】编程。输入 30 位同学的编号和成绩，求他们的平均成绩，并输出高于平均分 】编程。的同学编号和成绩，以及这些同学的人数。的同学编号和成绩，以及这些同学的人数。分析 提示声明两个大小为 30 的一维数组 ID 和 Score， ID(i)表示第 i 位同学的编号， 使 Score(i) 表示第 i 位同学的成绩。上机实践 编写、运行、调试以上程序。个两位随机整数、 【练习 7-5】编程：产生 30 个两位随机整数、并按从小到大的顺序存入数组 a 中，再将其 】编程中的奇数按从小到大的顺序在窗体中用紧凑格式输出。中的奇数按从小到大的顺序在窗体中用紧凑格式输出。上机实践 编写、运行、调试以上程序。三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验八、 专业班级 函数与过程 学号实验成绩指导老师（签名 ）日期一. 实验目的和要求1. 2. 3. 4. 掌握函数与过程的定义和调用方法 掌握形参和实参的对应关系 掌握值传递和地址传递的参数传递方式 掌握标准模块的使用，掌握变量、函数和过程的作用域二. 实验内容和原理1）将窗体文件“8-1.Frm” 和 工程文件 ）将窗体文件 工程文件“8-1.Vbp”上传到老师的 ftp 服务器上的 上传到老师的 ”周三下午 或 ”周四下午” 或 ”周五下午” 你的文件夹中。周三下午” 周四下午 周五下午 你的文件夹中。周三下午 周四下 周五下 张三” 如：“ 传媒 0901 张三”. 2）练习 8-2，8-3，8-4，8-5，8-6 也同样将窗体文件和工程文件上传到老师的 ftp ） 同样将窗体文件和工程文件上传到老师的 ， ， ， ， 服务器上。服务器上。的值。【练习 8-1】按下式计算，并在窗体上显示 x 分别为 1、3 时函数 f(x)的值。研究下面的代 】按下式计算， 、 的值 码段，考虑应填入什么内容？ 码段，考虑应填入什么内容？f ( x) =sh(1 + sh( x)) sh(2 x) + sh(3 x)其中函数 sh 的公式为sh(t ) =e t ? e ?t 2提示在考虑 pnt 子过程应当填几个形参、类型如何时，应参考 Form_Click 的调用语句，形参变 量名应和 pnt 子过程中使用的变量名一致。Public Function sh End Function '自定义函数过程 shPublic Sub pnt( Dim result As Single result = sh(1 + sh(n)) / Print &f(& & n & &)=&; result End Sub Private Sub Form_Click() Call pnt(1) pnt 3 End Sub 上机实践 调试运行以上程序。)'自定义 Sub 过程 pnt，计算并显示 f(x)'窗体单击事件 '调用过程 pnt，计算 x＝1 时的结果并输出 '调用过程 pnt，计算 x＝3 时的结果并输出删去， 【练习 8-2】编写过程 DeleStr(s1,s2)，将字符串 s1 中出现的字符串 s2 删去，结果仍存放 】 ， 在 s1 中。例如：s1=“1234567ABCDEF456789”， s2=“4567” 结果：s1=“123ABCDEF89”练习 8-2 运行界面研究下面的代码段，考虑应填入什么内容？ Private Function delestr( ) As String Dim s As String, m%, n%, k% m = Len(s2) Do While InStr(s1, s2) & 0 k = Len(s1) n = InStr(s1, s2) s = left(s1,n-1) s1 = s Loop End Function Private Sub Form_Click() Dim s1 As String, s2 As String, s As String s1 = Text1.Text s2 = Text2.Texts = delestr( Text3.Text = s End Sub 上机实践 调试运行以上程序。)中找出这样的数， 【练习 8-3】以下事件过程是用于从 1 到 10000 中找出这样的数，该数各个位的数字的阶 】 乘相加之和等于该数，并将结果输出。函数用于计算阶乘。研究下面的代码段， 乘相加之和等于该数，并将结果输出。fact 函数用于计算阶乘。研究下面的代码段，考虑 应填入什么内容？ 应填入什么内容？ Private Sub Form_Click() Dim k as integer, a as string, n as long, i as integer Dim p As Integer For k = 1 To 10000 a = LTrim(Str(k)) n=0 For i= p = Val(Mid(a, i, 1)) n= Next i If n = k Then form1.Print k Next k End Sub Function fact( Dim y As Long, i as integer y=1 For i = 1 To x y=y*i Next i End Function 上机实践 调试运行以上程序。的值， 【练习 8-4】写程序求表达式：x/2!+x^3/4!+…+x^(2n-1)/(2n)!的值，并在窗体上输出。要 】写程序求表达式的值 并在窗体上输出。求如下求如下（1）变量 x 与 n 的值在窗体单击事件中用 InputBox()函数输入。（2）求表达式的值用函数过程 Function fs(n As Integer, x As Single) As Single 完成。（3）求阶乘时可以使用上一练习题的函数 fact 完成。上机实践 编写、运行、调试以上程序。) As Long个整数并存入数组中，编制通用函数过程， 【练习 8-5】从键盘输入 10 个整数并存入数组中，编制通用函数过程，求出数组中元素的 】 最大值和最小值，并在窗体上输出。最大值和最小值，并在窗体上输出。上机实践 编写、运行、调试以上程序。【练习 8-6】编程，使窗体的背景色在四种颜色间变换。第一次单击窗体是红色；第二次单 】编程，使窗体的背景色在四种颜色间变换。第一次单击窗体是红色； 击窗体是绿色；第三次单击窗体是蓝色；第四次单击窗体是黄色；第五次又重新开始。击窗体是绿色；第三次单击窗体是蓝色；第四次单击窗体是黄色；第五次又重新开始。要 求其中使用静态变量。求其中使用静态变量。上机实践 编写、运行、调试以上程序。三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验九、 专业班级 命令按钮、标签和文本框 学号实验成绩指导老师（签名 ）日期一. 实验目的和要求1. 2. 3. 熟练掌握命令按钮、标签和文本框的使用方法 掌握命令按钮、标签和文本框的常用属性、事件和方法 熟悉事件过程的代码编写，建立基于图形用户界面的应用程序二. 实验内容和原理1）将窗体文件“9-1.Frm” 和 工程文件 ）将窗体文件 工程文件“9-1.Vbp”上传到老师的 ftp 服务器上的 上传到老师的 ”周三下午 或 ”周四下午” 或 ”周五下午” 你的文件夹中。周三下午” 周四下午 周五下午 你的文件夹中。周三下午 周四下 周五下 张三” 如：“ 传媒 0901 张三”. 2）练习 9-2，9-3，9-4 也同样将窗体文件和工程文件上传到老师的 ftp ） 同样将窗体文件和工程文件上传到老师的 ， ， 服务器上。服务器上。【练习 9-1】窗体上有两个文本框 Text1、Text2 和两个标签框 Label1、Label2，为了实时 】 、 、 ， 的内容、 的内容，也为了比较两个事件的区别， 的使 Label1 显示 Text1 的内容、Label2 显示 Text2 的内容，也为了比较两个事件的区别， 编写了如下的事件过程。编写了如下的事件过程。Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) Label2.Caption = Text2.Text End Sub 上机实践 调试运行以上程序。工程运行后，观察结果，如果要使 Label2 实时显示 Text2 的内容，应 当怎样修改 Keypress 事件中的代码？的标题初态为“前 【练习 9-2】编程，为图片框控件加载汽车图片，命令按钮 Command1 的标题初态为 前 】编程，为图片框控件加载汽车图片， 前进”， 进”，按该按钮时：若标题为 前进 ，则图片向左移动，当图片移到窗体的左边沿时，将按 ，按该按钮时：若标题为“前进 则图片向左移动，当图片移到窗体的左边沿时， 钮标题改为“倒车 倒车”；若标题为“倒车 倒车”，则图片向右移动，当图片移到窗体的右边沿时， 钮标题改为 倒车 ；若标题为 倒车 ，则图片向右移动，当图片移到窗体的右边沿时，将 按钮标题改为“前进 前进”。按钮标题改为 前进 。练习 9-2 运行界面提示程序如下Private Sub Command1_Click() If Command1.Caption = &倒车& Then Picture1.Left = Picture1.Left + 100 Else Picture1.Left = Picture1.Left - 100 End If … … End Sub 上机实践 将以上程序补充完整并调试运行。运行界面，有四个标签框、四个文本框和两个命令按钮。【练习 9-3】界面设计如练习 9-3 运行界面，有四个标签框、四个文本框和两个命令按钮。】界面设计如练习 1．当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“admin”，,则继续执行步骤 4；否则弹出消息框,提示用户出错,并让用户重新输入； 2．比较“新密码（N）”和“新密码（S）”，若两者一致，弹出密码修改成功消息框，程序终 止执行。否则弹出错误消息，并让用户重新输入。3．所有消息框按 Design.exe 所示设计。4．当单击“取消”按钮时,程序终止执行。5．当按&Tab&键时，保证按照“用户名”、“原密码”、“新密码（N）”、“新密码（S）”、“确定” 按钮和“取消”按钮顺序访问各控件。练习 9-3 运行界面上机实践 编写、运行、调试以上程序。运行界面，有三个标签框、三个文本框和两个命令按钮。【练习 9-4】界面设计如练习 9-4 运行界面，有三个标签框、三个文本框和两个命令按钮。】界面设计如练习 1．三个文本框中，上面两个分别用于输入商品单价和商品数量，单击“计算”，将应付款显 示在下面一个文本框中。文本框均不接受非数字键。2．最下面一个文本框不能直接输入。3．单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。练习 9-4 运行界面上机实践 编写、运行、调试以上程序。三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验十 VBA（一） 专业班级 学号实验成绩指导老师（签名 ）日期一．实验目标实验目标：掌握在 EXCEL 工作簿中录制“宏”和使用“宏” 掌握在 VBA 环境中查看已录制“宏”并达到修改，从而增加“宏”的功能，了解单元 格的内部格式（Interior.ColorIndex，Font.） 在 VBA 环境中通过“宏”编写小程序 掌握自定义过程和函数在 EXCEL 中的应用二．实验内容实验内容：1）在 E 盘或你的 U 盘上，建立一个自己的文件夹，准备用来保存 VBA 编程过程中的 盘上，建立一个自己的文件夹， ） 相关文件。相关文件。文件夹的名字是学号。文件夹的名字是学号。如 E:\）将窗体文件 ）将窗体文件“10-1.Xls” 上传到老师的 ftp 服务器上的 周三下午 或 ”周四下午” 服务器上的”周三下午 周三下午” 周四下午 周四下 周五下午 你的文件夹中。或 ”周五下午” 你的文件夹中。周五下 张三” 如：“ 传媒 0901 张三”. 3）练习 10-2.Xls，10-3.Xls，10-41.Xls, 10-42.Xls 也同样上传到老师的 ftp 服务器上。） ， ， 同样上传到老师的 服务器上。谢谢！ 谢谢！ 10-1．参照例 1.1 录制“宏” 、使用“宏” 、观察“宏” 。运行以下程序Sub 填充颜色() Dim k As Integer, c As String For k = 1 To 56 c = &A& & k Range(c).Select Selection.Interior.ColorIndex = k Next kEnd Sub 注：与 ColorIndex 属性相关的对象有 Border、Borders（四条边） 、Font 和 Interior。10-2．在 A1：A10 输入相同的字，如“ZUCC” ，编写程序设置它们的字体大小，A1 设置 为 10 磅，以后每个加 2 磅。Sub 改变字体大小() Dim k As Integer, c As String For k = 1 To 10 c = &A& & k Range(c).Select With Selection.Font .Size = 10 + 2 * k End With Next k End Sub 10-3．编写“宏”用 MsgBox 和 Debug.Print 输出“我开始用 VBA 写程序了！ ” Debug.Print 输出在立即窗体。上机实践 编写、运行、调试以上程序。10-4．参照文件 VBA 实验(1)中的例子，由任课指定两题，编写相应的程序。10-41 求圆面积半径 1 2 3 4 5 6 7 8 9 1 0面积上机实践 编写、运行、调试以上程序。10-42 由身份证号求年龄和出生日期姓名 教师 1 教师 2 教师 3 教师 4 教师 5 教师 6 教师 7 教师 8 教师 9 教师 10 教师 11 教师 12 教师 13 教师 14 教师 15 教师 16身份证号 001 001 000 000
000 000 000年龄出生日期性别 男 男 男 男 女 女 女 女 女 女 女 女 女 女 女 女上机实践 编写、运行、调试以上程序。三. 讨论、心得（必须做）
浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验十一 专业班级 VBA（二） 学号实验成绩指导老师（签名 ）日期一．实验目标实验目标：了解并掌握 VBA 的编程环境 初步认识 VBAProject 对象 掌握 EXCEL 的工作簿、工作表、单元格、区域。掌握 EXCEL 的工作簿、工作表、单元格、区域的选中。调用 EXCEL 函数，WorkSheetFunction（Min，Max，Average 等） 输入输出函数二．实验内容实验内容：1）在 E 盘或你的 U 盘上，建立一个自己的文件夹，准备用来保存 VBA 编程过程中的 盘上，建立一个自己的文件夹， ） 相关文件。相关文件。文件夹的名字是学号。文件夹的名字是学号。如 E:\）将窗体文件 ） 将窗体文件“11-1.Xls” 上传到老师的 ftp 服务器上的 周三下午 或 ”周四下午” 服务器上的”周三下午 周三下午” 周四下午 周四下 周五下午 你的文件夹中。或 ”周五下午” 你的文件夹中。周五下 张三” 如：“ 传媒 0901 张三”. 3）练习 11-2.Xls，11-3.Xls，11-4.Xls, 11-5.Xls 也同样上传到老师的 ftp 服务器上。） 同样上传到老师的 服务器上。， ， 11-1.调用 VB 的 RND 和 INT 函数，在 A 列的 1―10 行输入序号 1―10，在 B 列的 1―10 行填入 0―1 之间的随机数，在 C 列的 1―10 行填入两位正整数，最后在 C 列的 11 行求出 该列的最大数（调用 EXCEL 的内部 MAX 函数） 。以上要求均用程序实现。上机实践 编写、运行、调试以上程序。11-2.用 Inputbox()函数输入 10 个数，放入单元格 A1：A10，在 C 列输出其中超过平 均数的数和个数。上机实践 编写、运行、调试以上程序。11-3．编程序，打印九九乘法表如下。上机实践 编写、运行、调试以上程序。11-4．随机产生 10 个 6―100 之间的偶数，对每个数进行哥德巴赫猜想（Goldbach Conjecture）验证。上机实践 编写、运行、调试以上程序。11-5．参照文件 VBA 实验(1)中的例子，由任课教师指定两题，编写相应的程序。求各分数段的人数：学号 姓名 03 06 09 12 15学生成绩单 成绩 学号 姓名 54
成绩 12 53 94 9 90 53 45 95 98 5 6 74 63 56 62成绩 100-90 89-80 79-70 69-60 5 6 12&60 16上机实践 编写、运行、调试以上程序。三. 讨论、心得（必须做）浙江大学城市学院实验报告课程名称 实验项目名称 学生姓名 VB 程序设计基础实验 实验十二 专业班级 VBA（三） 学号实验成绩指导老师（签名 ）日期实验目标一． 实验目标：1． 掌握 EXCEL 的“窗体”控件和“控件工具箱”控件，并能建立相联的程序代码 2．掌握 EXCEL 的自定义工具栏 3．掌握 EXCEL 的多表操作 4．编写去掉重复数（讲义 P25，范例 1）实验内容二． 实验内容：1）在 E 盘或你的 U 盘上，建立一个自己的文件夹，准备用来保存 VBA 编程过程中的 盘上，建立一个自己的文件夹， ） 相关文件。相关文件。文件夹的名字是学号。文件夹的名字是学号。如 E:\）将窗体文件 ）将窗体文件“12-1.Xls” 上传到老师的 ftp 服务器上的 周三下午 或 ”周四下午” 服务器上的”周三下午 周三下午” 周四下午 周四下 周五下午 你的文件夹中。或 ”周五下午” 你的文件夹中。周五下 张三” 如：“ 传媒 0901 张三”. 3）练习 12-2.Xls，12-3.Xls，12-4.Xls 也同样上传到老师的 ftp 服务器上。） 同样上传到老师的 服务器上。， ， 12-1．在工作表 1 上创建“窗体”按钮并建立与之相关的“宏” ，编写代码完成：从键盘输 入一个整数 n，输出如下图形。其中每个“*”在单元格中水平和垂直方向都要求居中。上机实践 编写、运行、调试以上程序。12-2．在工作表 1 上创建“控件工具箱”命令按钮“产生数据”和“判断” 单击“产生 。数据”按钮完成在 A1：A10 上产生两位随机正整数；单击“判断”按钮完成将其中重复数 用红色标注。界面如下：上机实践 编写、运行、调试以上程序。12-3．在工作表 1 上创建“自定义”工作栏。步骤：进入“自定义”并选择“工具栏”页 -&“新建”按钮-&输入自定义工作栏名字：练习-&选择“命令”页，在“类别”中选择“窗 体” ，在“命令”中选择“命令按钮” ，并将其拖至新建的工具栏上-&单击“更改所选内容” 按钮，更改相应的内容。在 Workbook_Open 事件中在工作表 1 上产生 10 两位正整数。界面如下：进入工作表 2， 单击 “从其它表上取数” ，从 Sheet1 上选择偶数放入 Sheet2 的 A 列。运行后界面如下：上机实践 编写、运行、调试以上程序。12-4.阅读理解去掉重复数（讲义 P25，范例 1）例题。上机实践 编写、运行、调试以上程序。三. 讨论、心得（必须做）
【vb实验报告册答案】福建农林大学计算机与信息学院(计算机公共基础二级课程)实 验 报 告课程名称姓 学 专 年 学 名院业级号：Visual Basic 程序设计 邹丽平 食品科学学院 食品科学与工程 2010 级
黄红兵 讲师指导老师职 称：2012 年 5 月 20 日实验项目列表序号 1 2 3 4 5 6 7 8 9 10实验项目名称 实验一 VB 环境和简单应用程序设计 实验二 顺序结构程序设计 实验三 选择结构程序设计 实验四 循环结构程序设计 实验五 数组 实验六 过程 实验七 窗体和常用控件（一） 实验八 常用控件（二） 实验九 菜单设计和多文档界面 实验十 文件管理与操作 总成绩成绩指导教师 黄红兵 黄红兵 黄红兵 黄红兵 黄红兵 黄红兵 黄红兵 黄红兵 黄红兵 黄红兵2福建农林大学计算机与信息学院实验报告学院食品科学学院 专业食品科学与工程 年级2010 级 姓名邹 丽 平 学号 实验室号__宝玲楼 304___计算机号 实验时间 指导教师签字黄红兵 成绩报告退发（订正、重做） 01实验一一、 实验目的和要求VB 环境和简单应用程序设计1.了解 Visual Basic 系统对计算机软件、硬件的要求。2.掌握启动与退出 Visual Basic 的方法。3.熟悉 visual basic 的集成开发环境（IDE） 。4.掌握建立、 编辑、 运行和保存一个简单 visual basic 应用程序的全过程。5.了解基本控件（窗体、标签、文本框、命令按钮）的简单应用。二、 实验内容1.启动 Visual Basic 6.0，熟悉其集成开发环境。2.按图 1-1 在标题为“第一个应用程序”的窗体 Form1 上画两个标题分别 为 “欢迎您使用 Visual Basic” “请输入您的姓名” 和 的标签 Label1 和 Label2） （ ， Label1 的字体为隶书，并且其能根据文本大小自动调整尺寸，Label2 的字型为 倾斜；然后再设计一个初始文本为空的文本框 Text1.图 1-1 运行界面 3.按图 1-2 在标题为 “命令按钮设置” 的窗体 Form1 上画三个标题分别为 “禁 止用 C3”“允许用 C3”和“C3”的命令按钮（C1、C2 和 C3） 、 。运行时，如果单 击“禁止用 C3”按钮，则 C3 按钮无效（如图 10-2 所示） ；如果单击“允许用 C3” 按钮，则 C3 按钮有效。图 1-2运行界面4.按图 1-3 在标题为“文本复制”的窗体 Form1 上画两个文本框（Text1 和3Text2） ，其初始文本为空，设置适当的属性使文本框 Text2 可以显示多行文本， 有一个垂直滚动条，而且 Text2 不可编辑文本。运行时，在文本框 Text1 中输入 一个字符串，单击窗体，则将 Text1 中的文本复制到 Text2 中。图 1-3运行界面5.按图 1-4 在标题为“标签内容显示”的窗体 Form1 上画一个标题为空、带 有单边框的标签 Label1,再画两个标签分别为“显示”和“清空”的命令按钮 （Command1 和 Command2） 。运行时，单击“显示”按钮，则在标签 Label1 中显 示“欢迎使用 Visual Basic 6.0！；单击“清空”按钮，则 Label1 的标题为空。”图 1-4运行界面三、 实验步骤1、实验内容 1 的操作步骤：（1） 单击“开始”按钮，在“程序”中执行 “Microsoft Visual Basic6.0 中文版”命令，系统将自动显示“新建工程”对话框。（2） 在“新建工程”对话框中选中“标准 EXE”图标，单击“打开”按钮，就 可以打开 Visual Basic 集成开发环境（IDE） 。（3） 观察其标题栏、菜单栏、工具栏与 Microsoft 其他应用程序的不同之处。（4） 将鼠标指向工具箱上的各个标准控件，了解它们各自的默认名称。（5） 分别单击“工程”“属性”“窗体布局”窗口及“工具箱”窗口右上角的 、 、 “关闭”按钮，将其全部关闭。（6） 执行“视图”菜单中的“工程资源管理器”“属性窗口”“窗体布局窗口” 、 、 及“工具箱”命令，分别打开相应的窗口。42、实验内容 2 的操作步骤：（1） 新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上添加两个标签和 一个文本框。（2）各控件属性设置如下控件名称 Form1 属性 Caption Caption Label1 Font?字体 AutoSize Label2 Text1 （3）各控件的布局如下Caption Font?字体 Text 属性值 第一个应用程序 欢迎您使用 Visual Basic 选择“隶书” Ture 请输入您的姓名 选择“斜体” （空白）（4）单击“文件保存工程”菜单项，以 Fe.frm 为窗体文件名和为 Fe.vbp 为工程文件名保存在 VB 实验 文件夹中。3、实验内容 3 的操作步骤：（1） 新建一个新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上添加三 个命令按钮，并将它们名称分别改为 C1、C2 和 C3。（2） 各控件属性设置如下控件名称 Form1 C1 C2 C3 （3）各控件的布局如下属性 Caption Caption Caption Caption 属性值 命令按钮设置 禁止用 C3 允许用 C3 C35（4）双击窗体，打开代码窗口，输入如下代码Private Sub Command1_Click() Command3.Enabled = False ’禁止使用 C3 命令按钮 End Sub Private Sub Command2_Click() Command3.Enabled = True ’允许使用 C3 命令按钮 End Sub （5） 单击“文件保存工程”菜单项，以 Cs.frm 为窗体文件名和为 Cs.vbp 为工程文件名保存在 VB 实验 文件夹中。4、实验内容 4 的操作步骤：（1） 新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上添加两个文本框。（2） 各控件属性设置如下控件名称 Form1 Text1 属性 Caption Text Text Text2 MultiLine ScrollBars Licked （3）各控件的布局如下属性值 文本复制 （空白） （空白） Ture 2-Vetical Ture（4）双击窗体，打开代码窗口，输入如下代码Private Sub Form_Click() Text2.Text = Text1.Text End Sub ’把 Text1 中的文本信息复制到 Text2（5） 单击 “文件保存工程” 菜单项， Copy.frm 为窗体文件名和为 Copy.vbp 以 为工程文件名保存在 VB 实验 文件夹中。65、实验内容 5 的操作步骤：（1）新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上添加一个标签和两个命令按钮。（2）各控件属性设置如下控件名称 Label1 Command1 Command2 （3）各控件的布局如下属性 Caption BorderStyle Caption Caption 属性值 （空白） 1-Fixed Single 显示 清空（4）双击窗体，打开代码窗口，输入如下代码Private Sub Command1_Click() Label1.Caption = &欢迎使用 VISUAL BASIC 6.0& ’显示文本信息 End Sub Private Sub Command2_Click() Label1.Caption = && ’退出程序 End Sub （5） 单击 “文件保存工程” 菜单项， Es.frm 为窗体文件名和为 Es.vbp 以 为工程文件名保存在 VB 实验 文件夹中。四、 实验环境1.硬件：PC 机 2.软件：Windows 操作系统、Visual Basic 6.0五、实验结果五个实验都能按照要求做出相应的结果，结果都正确。六、总结1、掌握了的启动与退出，熟悉了的集成开发环境（IDE） ； 2、掌握了应用程序建立、编辑、运行和保存的全过程； 3、了解了系统的基本控件的简单应用。7福建农林大学食品科学学院实验报告学院食品科学学院 专业食品科学与工程 年级2010 级 姓名邹丽平 学号 实验室号宝玲楼 304_计算机号01 实验时间 指导教师签字黄红兵 成绩：实验二一、实验目的顺序结构程序设计1、掌握常用内部函数的使用。2、掌握表达式、赋值语句的正确书写规范。3、掌握 InputBox 与 MsgBox 的使用。4、掌握 Print 方法的使用。二、实验内容1、在立即窗口中运行下列表达式的值(1)16/4-2^5*8/4mod5\2 (2)Int(198.555*100+0.5)/100 (3)123+Mid(“123456”,3,2) (4)123&Mid(“123456”,3,2) (5)Ucase(Mid(“123456”,3,4)) 2、设计图 2-1 所示的窗体 Form1，其标题为“Print 方法” 。运行时，自动 在窗体上显示图 2-1 所示的图形。图 2-1 运行界面【提示】（1）将窗体的 Caption 属性设置为“Print 方法” AutoRedraw 属性设置为 ， Ture。8（2）在 Form-Load()事件中输入代码，用 Print 语句及 Tad()函数和 Spc() 函数实现。3、请按图 2-2 所示在窗体 Form1 上创建一个初始文本为“Visual Basic” 的文本框 Text1 以及两个标题分别为“放大”和“还原”的命令按钮（Command1 和 Command2） 。运行时，单击“放大”按钮，将文本框中显示的字符串放大 2 倍 或 3 倍（随机数） ；单击“还原”按钮，则文本框中显示的字符串大小还原。【提示】 （1）字体缩放使用 FontSize 属性。（2）要还原字体大小，必须保存放大前的字体大小，可以使用模块级变量 来保存放大前的字体大小。（3）放大 2 倍或 3 倍可以用随机数：Int(Rnd*2+2)实现 图 2-2 运行界面 4、请按图 2-3 所示在标题为“日期时间函数应用”的窗体 Form1 上添加两 个标题分别为“当前日期”和“当前星期”的标签（Label1 和 Label2） ，两个初 始文本为空的文本框 （Text1 和 Text2） 最后添加两个标题分别为 ， “确定” “退 和 出”的命令按钮（Command1 和 Command2） 。运行时，单击“确定”按钮，则在文 本框 Text1 和 Text2 中分别显示当前系统日期和当前星期；单击“退出”按钮， 则结束程序运行。9图 2-3 运行界面 【提示】 使用 Date()、Weekday()以 WeekdayName()及函数来实现。5、请按图 2-4 所示在标题为“计算”的窗体 Form1 上添加三个标题分别为 “半径”“周长”和“面积”的标签（Label1、Label2 和 Label3）以及以一个 、 标题为空的标签，然后再添加两个初始文本为空的文本框（Text1 和 Text2） ，最 后添加两个标题分别为“输入半径”和“计算”的命令按钮（ Command1 和 Command2） 。运行时，单击“输入半径”按钮，则出现图 2-4 所示的输入框，输 入半径并按“确定”按钮，则在标签 Lr 中显示刚才输入的半径；单击“计算” 按钮，则计算圆的周长和面积，并分别在 Text1 和 Text2 中显示。【提示】 （1） 使用 InputBox()及函数实现数据输入， 为了使程序正常运行应通过 Val() 函数将 InputBox()的函数值转换为数值型。（2）求周长公式为：L=2∏R,求面积公式为：S=∏R2,其中∏可以定义为一个符号常量，用 PI 来表示。图 2-4 运行界面10三、实验步骤1、实验内容 1 的操作步骤：（1）启动 Visual Basic，在“视图”的菜单下单击打开“立即窗口” 。（2）在“立即窗口”下输入？16/4-2^5*8/4mod5\2 得出结果：-600 ？Int(198.555*100+0.5)/100 得出结果：198.56 ？123+Mid(“123456”,3,2) 得出结果：157 ？123&Mid(“123456”,3,2) 得出结果：123 34 ？Ucase(Mid(“abcdefgh”,3,4)) 得出结果：CDEF 并按回车。并按回车； 并按回车； 并按回车； 并按回车；2、实验内容 2 的操作步骤：（1）新建一个“标准 EXE”类型的工程。（2）各控件属性设置如下控件名称 Form1 属性 Caption AutoRedraw 属性值 Print 方法 Ture（3）双击窗体，打开代码窗口，输入如下代码Private Sub Form_Load() Print Tab(10); &※& Print Tab(10); &※※& Print Tab(10); &※&; Spc(2); &※& Print Tab(10); &※&; Spc(4); &※& Print Tab(10); &※&; Spc(6); &※& Print Tab(10); &※&; Spc(8); &※& Print Tab(10); &※&; Spc(10); &※& Print Tab(10); &※&; Spc(12); &※& Print Tab(10); &※※※※※※※※※& ’打印第一行显示内容 ’打印第二行显示内容 ’打印第三行显示内容 ’打印第四行显示内容 ’打印第五行显示内容 ’打印第六行显示内容 ’打印第七行显示内容 ’打印第八行显示内容 ’打印第九行显示内容11End Sub （4）单击“文件保存工程”菜单项，以 Pr.frm 为窗体文件名和为 Pr.vbp 为 工程文件名保存在 VB 实验 文件夹中。3、实验内容 3 的操作步骤：（1）新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加一个文本 框（Text1）和两个命令按钮（Command1 和 Command2） 。（2）各控件属性设置如下控件名称 Text1 Command1 Command2 （3）各控件布局如下属性 Text Caption Caption 属性值 Visual Basic 放大 还原（4）双击窗体，打开代码窗口，输入如下代码Private Sub Command1_Click() f = Int(Rnd * 2 + 2) ’生成随机数 2 或 3 If f = 2 Then Text1.FontSize = 20 ’文本字号放大为初始值的 2 倍 If f = 3 Then Text1.FontSize = 28 ’文本字号放大为初始值的 3 倍 End Sub Private Sub Command2_Click() Text1.FontSize = 12 ’还原文本字号为初始值 End Sub Private Sub Form_Load() Text1.Text = &Visual Basic& ’Text1 初始文本信息为 Visual Basic End Sub （5） 单击“文件保存工程”菜单项，以 Fs.frm 为窗体文件名和为 Fs.vbp 为工程文件名保存在 VB 实验 文件夹中。4、实验内容 4 的操作步骤：（1） 新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加两个标签、 两个文本框和两个命令按钮。12（2） 各控件属性设置如下控件名称 Form1 Label1 Label2 Text1 Text2 Command1 Command2 （3） 各控件布局如下属性 Caption Caption Caption Text Text Caption Caption 属性值 日期时间函数应用 当前日期 当前星期 （空白） （空白） 确定 退出（4） 双击窗体，打开代码窗口，输入如下代码Private Sub Command1_Click() Text1.Text = Date ’获得当前日期 t = Weekday(Date) ’获得当前星期 Text2.Text = WeekdayName(t) End Sub Private Sub Command2_Click() End ’退出程序 End Sub （5） 单击“文件保存工程”菜单项，以 Dwq.frm 为窗体文件名和为 Dwq.vbp 为工程文件名保存在 VB 实验 文件夹中。5、实验内容 5 的操作步骤：（1） 新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加三个标签、 两个文本框和两个命令按钮。（2）各控件属性设置如下控件名称 Form1 属性 Caption 属性值 计算13Label1 Label2 Label3 Label4 Text1 Text2 Command1 Command2 （3）各控件布局如下：Caption Caption Caption Caption Text Text Caption Caption半径 周长 面积 （空白） （空白） （空白） 输入半径 计算（4）双击窗体，打开代码窗口，输入如下代码Dim StrName As String * 30 ’定义变量 Dim radius As String Dim leng As Double Dim area As Double Private Sub Command1_Click() radius = Val(InputBox$(&请输入圆的半径&, &圆半径&, &3&, 100, 100) ’弹出 input 窗口，输入圆半径 Label4.Caption = radius End Sub Private Sub Command2_Click() leng = 2 * 3.14 * radius ’计算圆周长 area = 3.14 * radius * radius ’计算圆面积 Text1.Text = leng ’显示结果 Text2.Text = area End Sub （5） 单击“文件保存工程”菜单项，以 Rc.frm 为窗体文件名和为 Rc.vbp 为工程文件名保存在 VB 实验 文件夹中。四、实验环境1.硬件：PC 机 2.软件：Windows 操作系统、Visual Basic 6.014五、实验结果前四题都没有出现问题，最后一题出现在的问题比较严重，就是 inputBox 的窗口没有，经过与同学的讨论，解决了问题。六、总结1、掌握了内部程序函数和立即窗口的使用以及 inputBox 的使用； 2、掌握了表达式、赋值语句的正确书写方式； 3、通过和同学的讨论，加深了我对 inputBox 使用的理解，使我的操作能力 有了进一步的提高。福建农林大学食品科学学院实验报告学院食品科学学院 专业食品科学与工程 年级2010 级 姓名邹丽平 学号 实验室号宝玲楼 304_计算机号01 实验时间 指导教师签字黄红兵 成绩：实验三一、实验目的选择结构程序设计1、掌握逻辑表达式的正确书写形式。2、掌握 If 语句的使用。3、掌握情况语句的使用，以及情况语句与多分支条件语句区别。二、实验内容1、请按图 3-1 所示在窗体上 Form1 上添加两个标题分别为“行李重量”和 “应付款” 的标签 （Label1 和 Label2） 再添加两个初始文本为空的文本框 ， （Text1 和 Text2）以及两个标题分别为“计算”和“清除”的命令按钮（Command1 和 Command2)。运行时，在 Text1 中输入行李的重量，单击“计算”按钮，计算应 付的行李费（行李费的收费标准是 50kg 以内（包括 50kg）0.20 元/kg，超过部 分 0.50 元/kg） 并在 Text2 中显示计算结果； “清除” ， 单击 按钮， 将文本框 Text1 和 Text2 中文本清空。15图 3-1 运行界面 【提示】 （1）既可以用单分支结构实现，也可以用多分支结构实现。（2）将行李重量是否大于 50 作为 If 语句的条件。2、请按图 3-2 所示在窗体 Form1 上添加两个标题分别为“百分制”和“五 分制”的标签（Label1 和 Label2） ，再添加两个初始文本为空的文本框（Text1 和 Text2）以及两个标题分别为“鉴定”和“退出”的命令按钮（Command1 和 Command2)。运行时，在 Text1 中输入百分制的成绩，单击“鉴定” 按钮，将百 分制成绩转化为五分制，并在 Text2 中显示结果；单击“退出” 按钮，则结束 程序运行。【提示】 （1）既可以用多分支结构实现，也可以用情况语句 Select Case 实现。（2）百分制成绩转化为五分制规则：90～100 分为优秀；80～89 分为良好； 70～79 分为中等；60～69 分为及格;60 以下为不及格。图 3-2 运行界面 3、请按图 3-3 所示在标题为“成绩查询”的窗体 Form1 上添加两个标题分 别为“请输入您的成绩和“总分” 的标签（Label1 和 Label2）以及一个标 ” 题为空的的标签 Label3， 然后再添加三个初始文本为空的文本框 （Text1、 Text2 和 Text3） ，最后添加一个标题为“请查询”的命令按钮 Command1。运行时，在 文本框 Text1、Text2 和 Text3 中输入成绩，单击“请查询”按钮，根据输入的 成绩， 通过输出对话框显示奖励情况。奖励条件如下三门总分不低于 270 分 （含 270 分）为特等奖；三门总分在 240 分（含 240 分）～270 分（不含 270 分）之16间为优秀奖；总分低于 240 分，但某一单科成绩不低于 95 分为特别奖。图 3-3 运行界面 【提示】 （1）可以用多分支结构 If…Then…ElseIf 语句实现。（2）可以定义四个整型变量，分别存储三科成绩和总成绩。（3）用 MsgBox 语句显示奖励情况，如：MsgBox”您获得特等奖”，48，”获奖 通知”。4、请在标题为“简易计算器”的窗体 Form1 上添加五个标题分别为“操作 数 1” 、 “操作符” 、 操作数 2” 、 “ “计算结果” “=” 和 的标签 （Label1、 Label2、 Label3、Label4 和 Label5） ，然后再添加四个初始文本为空的文本框（Text1、 Text2、Text3 和 Text4） ，最后添加两个标题分别为“计算”和“结束”的命令 按钮（Command1 和 Command2） 。运行后，在文本框 Text1 和 Text13 输入两个操 作数，在文本框 Text2 输入操作符，单击“计算”按钮，则根据操作符对操作数 1 和操作数 2 进行+－×和÷四种运算，并将计算结果显示在文本框 Text4 中， 而且具有基本的数据合法性和运算符合法性检验报错能力；单击“结束” 按钮， 则结束程序运行。图 3-3 运行界面 【提示】 (1)可以用情况语句 Select Case 实现。17(2)为了使程序运行正确，存放操作符的文本框 Text2，应使用 Trim() 函数，去掉运算符两边的空格，而且需要对非加、减、乘和除的运算 符采用 MsgBox 进行报错提示。（3）除法运算要检查分母是否为零。三、实验步骤1、实验内容 1 的操作步骤：（1） 新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加两个标签、 两个文本框和两个命令按钮。（2）各控件属性设置如下控件名称 Label1 Label2 Text1 Text2 Command1 Command2 （3）各控件布局如下属性 Caption Caption Text Text Caption Caption 属性值 行李重量 应付款 （空白） （空白） 计算 清除（4）双击窗体，打开代码窗口，输入如下代码Private Sub Command1_Click() Dim WEIGHT As Single Dim PAY As Single WEIGHT = Val(Text1.Text) PAY = Val(Text2.Text) If WEIGHT &= 50 Then ’定义变量’当行李重量&=50 时，计算费用18PAY = WEIGHT * 0.2 If WEIGHT & 50 Then ’当行李重量&50 时，计算费用 PAY = 50 * 0.2 + (WEIGHT - 50) * 0.5 Text1.Text = (WEIGHT) ’在 Text1.Text 输入重量信息 Text2.Text = (PAY) ’在 Text2.Text 显示结果 End Sub Private Sub Command2_Click() Text1.Text = && ’清除 text1 和 text2 中的数据 Text2.Text = && End Sub （5） 单击“文件保存工程”菜单项，以 Wp.frm 为窗体文件名和为 Wp.vbp 为工程文件名保存在 VB 实验 文件夹中。2、实验内容 2 的操作步骤：（1） 新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加两个标签、 两个文本框和两个命令按钮。（2）各控件属性设置如下控件名称 Label1 Label2 Text1 Text2 Command1 Command2 （3）各控件布局如下属性 Caption Caption Text Text Caption Caption 属性值 百分制 五分制 （空白） （空白） 鉴定 退出（4）双击窗体，打开代码窗口，输入如下代码Private Sub Command1_Click() Dim A% A = Val(Text1.Text) Select Case A Case 90 To 100 ’定义变量 A 为整型 ’选择事件 ’表示表达式的值在 90-100 之间19Text2.Text = &优秀& Case 80 To 89 Text2.Text = &良好& Case 70 To 79 Text2.Text = &中等& Case 60 To 69 Text2.Text = &及格& Case Is & 60 Text2.Text = &不及格& End Select End Sub Private Sub Command2_Click() End End Sub （5）’ Text2 中显示“优秀” ’表示表达式的值在 80-89 之间 ’ Text2 中显示“良好” ’表示表达式的值在 70-79 之间 ’ Text2 中显示“中等” ’表示表达式的值在 60-69 之间 ’ Text2 中显示“及格” ’表示表达式的值&60 ’ Text2 中显示“不及格”’结束程序单击“文件保存工程”菜单项，以 Sc.frm 为窗体文件名和为 Sc.vbp 为工程文件名保存在 VB 实验 文件夹中。3、实验内容 3 的操作步骤：（1）新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加三个标签、 三个文本框和一个命令按钮。（2）各控件属性设置如下控件名称 Form1 Label1 Label2 Label3 Text1 Text2 Text3 Command1 （3）各控件布局如下属性 Caption Caption Caption Caption Text Text Caption Caption 属性值 成绩查询 请输入您的成绩 总分 （空白） （空白） （空白） （空白） 请查询20（4）双击窗体，打开代码窗口，输入如下代码Private Sub Command1_Click() Dim A%, B%, C%, D% ’定义变量 A = Val(Text1.Text) ’三项成绩 B = Val(Text2.Text) C = Val(Text3.Text) D = A + B + C ’总分计算 Label3.Caption = D If D &= 270 Then ’如果总分&=270，则弹出 MsgBox 窗口“您获得了特等奖” Label3 = MsgBox(&您获得了特等奖&, 48, &获奖通知&) ElseIf D &= 240 And D & 270 Then ’如果总分在 240-270，则弹出 MsgBox 窗口“您获得了优秀奖” Label3 = MsgBox(&您获得了优秀奖&, 48, &获奖通知&) ElseIf A &= 95 And B &= 95 And C &= 95 Then ’如果任意一科成绩&=90， 则弹出 MsgBox 窗口 “您获得了特别奖” Label3 = MsgBox(&您获得了特别奖&, 48, &获奖通知&) End If End Sub （5） 单击“文件保存工程”菜单项，以 Gc.frm 为窗体文件名和为 Gc.vbp 为工程文件名保存在 VB 实验 文件夹中。4、实验内容 4 的操作步骤：（1） 新建一个“标准 EXE”类型的工程，然后在窗体 Form1 上面添加五个标签、 四个文本框和两个个命令按钮。（2）各控件属性设置如下控件名称 Form1 Label1 Label2 Label3 Label4 Label5 Text1 Text2 Text3 属性 Caption Caption Caption Caption Caption Caption Text Text Text 属性值 简易计算器 操作数 1 操作符 操作数 2 计算结果 = （空白） （空白） （空白）21Text4 Command1 Command2 （3）各控件布局如下：Text Caption Caption（空白） 计算 结束（4）双击窗体，打开代码窗口，输入如下代码Private Sub Command1_Click() Dim A%, B%, C% ’定义变量 A = Val(Text1.Text) ’操作数 1 B = Val(Text3.Text) ’操作符 C = Val(Text4.Text)