湖北汽车工业区业学院大一VB实验报告完整答案(非常完整).doc

HUBEIHUBEI UNIVERSITYUNIVERSITY OFOF AUTOMOTIVEAUTOMOTIVE TECHNOLOGYTECHNOLOGY 苗暹编苗暹编 吴年志吴年志 审审 班级 学号 姓名 电气与信息工程学院电气与信息工程学院 20102010 年年 2 2 月月 前 言 一 本课程实验教学的地位和作用一 本课程实验教学的地位和作用 Visual Basic 程序设计 课程是一门重要的公共基础课 其主要任务是使学生掌握 VB 的基 本概念与面向对象程序设计等方面的知识 实验课是本课程重要的教学环节 通过本课程的学习使 学生加深对讲授内容的理解 熟悉所用计算机系统的操作方法 学会上机调试程序基本操作 能够 运用 VB 语言程序解决某些实际问题 并养成严谨的科学态度和科学的思维方法 从而提高分析和 解决问题的能力 为后续课程的学习和在毕业设计时使用计算机解决实际问题打下良好的基础 二 本课程应讲授的基本实验理论二 本课程应讲授的基本实验理论 1 掌握所用 Visual Basic 6 0 系统的基本操作方法 学会独立使用该系统 了解在该系统上 如何编辑 编译和运行 VB 程序 2 初步掌握面向对象程序设计方法 三 本课程实验教学应达到的能力要求三 本课程实验教学应达到的能力要求 1 掌握建立和运行 VB 程序的方法 2 掌握常见控件的使用 3 掌握数据类型 顺序 选择 循环程序设计方法 4 掌握函数和过程的使用 5 掌握界面的设计 6 了解文件的操作 7 了解 VB 如何使用数据库 四 本课程实验教学目的与要求四 本课程实验教学目的与要求 学生在实验过程中注意自始至终贯彻课程中所介绍的程序设计风格 养成良好的编程习惯 应 独立完成所布置的上机作业 为保证尽量在统一安排的上机时间内编译运行通过程序 在每次实验 前应事先预习 按照要求提前做好预习 编写好程序 课后撰写实验报告 1 了解所用的计算机系统的性能和使用方法 2 复习和掌握与本实验有关的教学内容 3 准备好上机所需的程序 在上机实验时必须完成预习要求中规定的任务 切忌不编程或抄 别人的程序去上机 4 对程序中出现的问题应事先估计 对程序中自己有疑问的地方应先作上记号 以便上机时 给予注意 5 准备好调试程序和运行程序所需的数据 6 在实验中 学生根据实验指导中的内容进行验证与总结 然后再去完成实验内容中安排的 任务 五 本课程实验教学考核办法五 本课程实验教学考核办法 实验课成绩占本课程总成绩的 20 对无故缺实验者 本门课程实验成绩以零分计 目 录 实验一 VB 语言环境实验 4 实验二 简单程序设计实验 10 实验三 条件结构程序设计 13 实验四 循环结构程序设计 16 实验五 数组程序设计 19 实验六 过程程序设计 22 实验七 界面设计 25 实验八 综合程序设计 28 实验一 VB 语言环境实验 选课班号 序号 姓名 实验日期 实验目的 1 熟悉 Visual Basic 6 0 集成开发环境 2 学习如何用对象 窗体和控件 建立界面 3 学习用属性窗口设置对象属性的方法 4 了解窗体及控件所执行的操作 5 掌握开发一个简单程序的基本步骤 相关知识 1 窗体是窗体是 VB 中的对象 具有自己的属性 事件和方法 中的对象 具有自己的属性 事件和方法 窗体属性 1 Name 属性 对象的名称 是所有对象都具有的属性 用来唯一标识该控件 在程序中 控件名是作为对象 的标识而引用 不会显示在窗体上 所有的控件在创建时由 VB 自动提供一个默认名称 2 Height Width Top 和 Left 属性 Height 和 Width 属性决定了控件的高度和 宽度 Top 表示控件到窗体顶部的距离 Left 表示控件到窗体左边框的距离 默认单位为 twip 1 twip 1 20 点 1 1440 英寸 1 567cm 窗 体位置 大小如图 1 1 所示 3 Caption 标题属性 Caption 属性的值是显示在窗体标题栏上的 文字 4 BackColor 属性和 ForeColor 属性 BackColor 属性用于返回或设置对象的背 景颜色 ForeColor 属性用于返回或设置在对象里显示图片和文本的前景颜色 5 BorderStyle 属性 此属性决定边框风格 通过改变 BorderStyle 属性 可以控制窗体如何调整大小 6 MaxButton MinButton 和 ControlBox 属性 MaxButton 最大化按钮和 MinButton 最小化按 当值为 True 有最大或最小化按钮 False 则 无 ControlBox 控制菜单框属性 其值设置为 Ture 时 有控件菜单 设置为 False 时 则无控件菜 单 同时窗体也无 最大化 按钮和 最小化 按钮 即使 MaxButton 属性和 MinButton 属性设置为 Ture 7 Picture 属性 使用 Picture 属性可以指定一幅图片显示在窗体的表面上 作为控件的背景 8 WindowsState 属性 0 正常窗口状态 有窗口边界 1 最小化状态 以图标方式运行 2 最大化状态 无边框 充满整个屏幕 9 字体 Font 属性组 FontName 属性是字符型 决定对象上正文的字体 缺省为宋体 图 1 1 窗体位置 大小 FontSize 属性是整型 决定对象上正文的字体大小 缺省为 9 磅 FontBold 属性是逻辑型 决定对象上正文是否是粗体 缺省为 False FontItalic 属性是逻辑型 决定对象上正文是否是斜体 缺省为 False FontStrikeThru 属性是逻辑型 决定对象上正文是否加一删除线 缺省为 False FontUnderLine 属性是逻辑型 决定对象上正文是否带下划线 缺省为 False 10 AutoRedraw 属性 该属性决定窗体被隐藏或被另一窗口覆盖之后重新显示时 是否重新还原该窗体被隐藏或覆盖 以前的画面 即是否重画如 Circle Line Pset 和 Print 等方法的输出 当为 True 时 重新还原该 窗体以前的画面 当为 False 时 则不重画 窗体常用事件 窗体常用的事件有 Load Click DblClick Activate Resize 等 其中 Load 事件是当窗体被装 入工作区时触发的事件 常用来在启动应用程序时对属性和变量进行初始化 Activate 是当一个窗 体成为活动窗口时所触发的事件 Resize 是当窗体大小发生改变时所触发的事件 窗体常用方法 窗体常用的方法有 Print 打印输出 Cls 清除 Show 显示 Hide 隐藏 以及 Move 移动等 2 在窗体上添加控件在窗体上添加控件 窗体是设计 VB 应用程序的一个基本平台 几乎所有的控件都是添加在窗体上的 对于生成的 控件 可以调整控件大小 移动控件位置 使用网格精确定位控件 对于多个控件 还可以对它们 进行排列 调整大小等操作 另外 在 VB 中 还允许可视地创建和编辑控件数组 这对于编 组使用选择框 命令按钮等控件提供了很大方 便 3 设置启动窗体设置启动窗体 在默认情况下 应用程序中的第一个窗体 被指定为启动窗体 应用程序开始运行时 此 窗体就被显示出来 如果想在应用程序启动时 显示别的窗体 可以将其他窗体设置为启动窗 体 设置方法 在 工程 菜单或者 工程资 源管理器 快捷菜单中选择工程 属性 会弹 出 工程属性 对话框 如图 1 2 所示 在 启动对象 的选择列表中选择窗体名称即可 把该窗体设为启动窗体 实验例题 例 使用 VB 建立一个简单的应用程序 在窗体上输出 大家好 欢迎来到这里 设计思路 窗体上通常是不直接输出文本信息 一般通过窗体上的对象输出文本信息 例如 可以用标签输出 大家好 用文本框输出 欢迎来到这里 因此可以在窗体上放置一个标签 一个文本框和一个命令按钮 单击命令按钮 则在标签上显示 大家好 在文本框显示 欢迎 来到这里 设计步骤 1 新建工程 新建工程 单击 Windows 任务栏中的 开始 程序 Microsoft Visual Basic6 0 中文版 Microsoft Visual Basic6 0 中文版 命令 进入 Visual Basic6 0 集成开发环境 并显示 新建工 程 对话框 默认选择是建立 标准 EXE 即标准工程 单击 打开 按钮 Visual Basic 6 0 进 入设计模式 并自动创建了一个窗体模块 Form1 这就是将要建立的应用程序的窗体 在这个窗体 图 1 2 设置启动窗体 上添加控件 即可建立应用程序界面 2 创建应用程序界面 创建应用程序界面 设置窗体属性 A 在属性窗口中双击 Caption 属性条 输入 我的第一个 VB 程序 B 在属性窗口中选择 BackColor 属性条 然 后单击右端的箭头 在所显示的 调色板 中选择一 种颜色 例如浅黄色 在窗体上添加控件 A 单击工具箱中的标签 Label 控件类型图标 鼠标指针变为十字形 再在 对象 窗口的窗体上单 击并拖动 然后释放鼠标键 窗体上就会出现一个标 签类型的控件对象 同时鼠标指针恢复为箭头形状 B 用同样方法将文本框 TextBox 控件放置 在窗体上 C 放置命令按钮 CommandButton 到窗体上 设置控件属性 在窗体上选中命令按钮 然后在属性窗口中双击 Caption 属性条 输入 显示 通过鼠标的几个简单操作 我们已经建立好了应用程序界面 如图 1 3 所示 3 编写应用程序代码 编写应用程序代码 创建好了应用程序界面 下面就开始编写应 用程序代码 控制程序的运行 编写的程序具有这样的功能 当用户在应用 程序窗体中用鼠标单击 显示 按钮时 窗体中 的标签上会显示 大家好 文本框中会显示 欢迎来到这里 在这里要对 显示 命令按钮 Command1 进行编程 在窗体上双击 显示 命令按钮 Command1 会弹出代码编辑窗口 在编辑窗口上部左侧的对象列表框中显示对象名为 Command1 在右侧的过程列表框中显示的过 程是 Click 如图 1 4 所示 此时 在代码编辑窗口会出现如下代码 Private Sub Command1 Click End Sub 说明我们是对命令按钮 Command1 的单击事件进行编 程 在这两条语句之间输入如下代码 Label1 Caption 大家好 Label1 FontName 宋体 Label1 FontSize 15 Label1 FontBold True Text1 Text 欢迎来到这里 Text1 FontName 黑体 Text1 FontSize 16 Text1 FontBold True 至此 我们完成了对命令按钮 Command1 显示 按钮 的编程 4 运行程序 运行程序 点击工具栏中的 启动 按钮 开始运行程序 单击命令按钮 显示 结果如图 1 5 所示 5 保存文件 保存文件 图 1 3 例 界面设计 图 4 4 例 代码编辑窗口 图 1 5 例 运行结果 程序在编写过程中或运行结束后常常要将有关文件保存到磁盘上 以便以后多次使用 通常一 个工程中会涉及到多种文件类型 但本例比较简单 它仅涉及到一个窗体 因此在保存文件时 只 需保存一个窗体文件和工程文件即可 保存文件的 步骤如下 A 选择 文件 保存 Form1 窗体文件 命令 系统弹出 文件另存为 对话框 提示用户 输入文件名 如图 1 6 所示 用户在 保存在 文 本框选择保存的文件夹 在 文件名 文本框输入 窗体文件名 后缀名由系统根据不同的文件类型自 动添加 这里是 frm 本例窗体文件名为 vblx frm 保存在 G 盘的 VBpro 文件夹下 B 选择 文件 保存工程 工程文件 命令 系统弹出 工程另存为 对话框 提示用户输入文件名 操作同上 本例工程文件名为 vblx vbp 在保存了文件后 用户若要再次调入文件进行修改或运行 只需选择 文件 打开工程 命令 输入要打开的工程文件名 就可把硬盘上的文件调入内存进行所需的操作 6 生成可执行文件 生成可执行文件 在前面的程序运行时 我们直接选择在工具栏 单击 启动按钮 或选择 运行 启动 命令运行程序 这时的运行是在解释运行模式下 仍然在 VB 环境中 有时我们需要程序的运行能脱 离 VB 环境 可像任何基于 Windows 的应用程序那 样 双击程序文件图标就可运行 这就必须对应用 程序源代码进行编译 生成可执行文件 EXE 文 件 生成可执行文件的步骤如下 A 选择 文件 生成 exe 命令 系统显 示 生成工程 对话框 如图 1 7 所示 B 在 文件名 文本框内显示与原工程文件名一致的可执行文件名 用户也可修改文件名 本例文件名为 vblx1 1 exe 实验内容 1 熟悉新建工程和窗体 熟悉新建工程和窗体 1 启动 Visual Basic 2 创建界面 3 设置属性 1 将文本框 Text1 和命令按钮 Command1 的名字改为 txtyou 和 cmdrun 2 将文本框 txtyou 的 BackColor 和 Forcolor 分别设置为黄色和蓝色 图 1 7 生成工程对话框 图 1 6 窗体文件保存 3 将文本框 txtyou 中的字体设置为 粗体 和 小二 4 设置 Form1 的图标 并将其标题改为 你好 5 修改 txtyou 的 Text 为 你好 cmdrun 的标题 Caption 为 运行 4 修改代码 修改 cmdrun 的 Click 事件的代码 使得按下按钮后 txtyou 的 你好 变成消失 Private Sub cmdrun Click txtyou Visible False End Sub 2 熟悉多窗体的操作 熟悉多窗体的操作 1 创建 3 个窗体 分别为 Form1 Form2 Form3 2 设置 Form1 为启动窗体 3 创建控件 属性表 窗体名窗体名控件名控件名属性表属性表属性值属性值 Label1Caption Alignment Font 欢迎使用本系统 2 Center 宋体 小三 粗体 Label2Caption请输入用户名 Label3Caption请输入口令 TxtpasswordText PasswordChar 空 TxtnameText空 CmdokCaption确定 Form1 CmdexitCaption退出 Label1Caption系统信息 Text1Mulline Locked ScrollBars True True 2 Vertical Form2 cmdbackCaption返回 Form3Picture图片文件Form3 Label1Caption BackStyle Font 谢谢使用 0 Transparent 宋体 二号 粗体 4 编写代码 a 在窗体 1 的文本框中输入用户名和口令 单击 确定 按钮 当用户名为 lx 并且 口令为 1234 时显示窗体 2 否则显示窗体 3 单击 退出 按钮结束程序 具体 代码如下 Private Sub cmdexit Click Unload Me End Sub Private Sub cmdok Click If txtname Text lx And txtpassword Text 1234 Then Form2 Show Me Hide Else Form3 Show Unload Me End If End Sub b 在 Form2 中单击 返回 按钮 卸载 From2 并显示 Form1 Private Sub cmdback Click Form1 Show Unload Me End Sub 在 Form2 的加载事件中显示文字信息 Private Sub Form Load Text1 Text 硬件资源硬件资源 vbCrLf 软件资源软件资源 End Sub c 在 Form3 中显示图片 并单击窗体 卸载 Form3 Private Sub Form Click Unload Me End Sub 实验思考题 1 什么是工程 什么是工程文件 2 什么是对象 什么是方法 什么是事件 方法和事情有啥不同 3 编写 VB 程序的一般步骤是什么 实验报告要求 1 提前预习实验相关资料 充分做好实验准备工作 2 如实记录实验中的数据 3 实事求是地回答相关问题 严禁抄袭 得 分 评阅日期 教师签名 实验二 简单程序设计实验 选课班号 序号 姓名 实验日期 实验目的 1 掌握 VB 的常用数据类型 2 学习使用 VB 的各种运算符及表达式 3 学习 VB 内部函数的使用和数据输入 输出方法 4 掌握命令按钮 文本框和标签常用属性的设置方法 5 进一步学习使用命令按钮 文本框和标签在窗体上建立用户界面的方法 6 掌握命令按钮的主要事件的使用 7 学习用赋值语句构造简单的顺序结构程序 实验内容 1 计算如图 2 1 所示电路中的电流 I 已知电路图中电阻 R1 200 R2 300 R3 400 设计思路 根据欧姆定律 R R1 R3 R2 R3 R2 I U R 在窗体上放置两个文本框和一个命令按钮 通过文本框 Text1 输入电压 U 单击命令按钮 Command1 开始运算 在文本框 Text2 中输出计算的电流 I 设计思路 在 Form1 窗口中放置两个 Label 控件 两个 TextBox 控件和一个 CommandButton 控件 属性设置如表 2 1 所示 界面安排如图 2 2 所示 表表 2 1 各控件属性设置各控件属性设置 对象对象控件名称控件名称属性名称属性名称属性值属性值 LabelLabel1 Label2 Caption Caption 输入电压 输出电流 TexBoxText1 Text2 Text Text 空 空 CommandButtonCommand1Caption计算 程序分析 图 2 2 计算电流界面 220V R1 R2R3 图 2 1 题 1 电路图 添加代码 添加代码 Private Sub Command1 Click Dim r1 r2 r3 r u i As Single r1 200 r2 300 r3 400 r r1 r2 r3 r2 r3 i Val Text1 Text r Text2 Text i End Sub 由于文本框 Text1 的属性是字符型 因此在 计算时应用 Val 函数进行转换 定义 r1 r2 r3 r U 和 I 为单精度型的变 量 4 保存工程 单击 文件 菜单 选择 保存工程 命令 将 窗体保存为 21 frm 将工程保存为 21 vbp 5 运行 单击 运行 菜单 选择 启动 命令 或单击 工具栏的 启动 按钮 在窗体的文本框 Text1 中输 入电压值 然后单击按钮 计算 则出现运行结果 运行结果如图 2 3 所示 思考 思考 在电路图中 将变量 r1 r2 r3 的数据类型设置为 Double 则在文本框中显示的数据会 有何变化 如果数据类型为 Integer 则在文本框中的数据如何显示 你的回答 2 设计一个程序 计算圆的周长 要求用 InputBox 函数输入半径 用 MsgBox 输出周长值 图 2 3 运行结果 图 2 4 设置属性后的界面 图 2 5 输入对话框 图 2 6 输出对话框 添加代码 添加代码 Private Sub Command1 Click Const PI 3 14159 Dim r l As Single r Val InputBox 请输入半径请输入半径 输入半径输入半径 l 2 PI r MsgBox 半径半径 r 圆的周长 圆的周长 l End Sub 3 用三种除法运算符 Mod 做计算 要求 在窗体上画 5 个标签 5 个文本框和一个命令按钮 如图 2 7 所示 程序运行后 在第 一个文本框中输入被除数 在第二个文本框中输入除数 然后单击击命令按钮 即可得到三种不同 的相除结果 实验报告要求 1 提前预习实验相关资料 充分做好实验准备工作 2 如实记录实验中的数据 3 实事求是地回答相关问题 严禁抄袭 得 分 评阅日期 教师签名 图 2 7 实验内容 4 界面 添加代码 添加代码 Private Sub Command1 Click Dim beichushu chushu As Single beichushu Val Text1 Text chushu Val Text2 Text Text3 Text beichushu chushu Text4 Text beichushu chushu Text5 Text beichushu Mod chushu End Sub 实验三 条件结构程序设计 选课班号 序号 姓名 实验日期 实验目的 1 掌握单分支和双分支结构程序的使用 2 掌握多分支条件语句的使用 3 掌握情况语句的使用 弄清情况语句和多分支条件语句的区别 4 掌握单选按钮 复选框和框架控件的常用属性 重要事件和基本方法 5 熟练掌握在窗体上建立上述三种控件的操作方法 6 熟练掌握事件过程代码的编写 实验内容 1 设计一个应用程序 界面设计如图 3 1 所示 要求当用户在此两组不同的单选钮和一组复 选钮上作出选择后 文本框中正文的字体 字号和风格能发生相应的变化 2 设计一个模拟简易计算器的程序 界面如图 3 2 所 示 要求 输入两个操作数和一个操作符 根据操作符 决定所进行的计算 如果除数为 0 用 MsgBox 提示出错 信息 要求用 if 语句和 case 语句两种结构实现 运算为 加减乘除 四种运算 其他符号为非法 图 3 1 题 1 运行界面 If Check1 Value 1 Then Text1 FontBold True Else Text1 FontBold False End If If Check2 Value 1 Then Text1 FontItalic True Else Text1 FontItalic False End If If Option3 Value True Then ziti 宋体宋体 Else ziti 黑体黑体 End If Text1 FontSize zihao Text1 FontName ziti End Sub 添加代码 添加代码 Private Sub Command1 Click Dim zihao As Integer Dim ziti As String If Option1 Value True Then zihao 16 Else zihao 20 End If 图 3 2 简易计算器界面 3 完成编程 输入二次方程 ax2 bx c 0 的系数 a b c 计算并输出二 次方程的根 x1 x2 界面如图 3 3 按下 复位 按钮也就是如图 3 3 效果 当 a 0 时 弹出警惕框如图 3 4 然后 光标定位 a 下方的文本框处 单击 case 结构 按钮 添加代码 Private Sub Command1 Click Dim num1 num2 result As Single Dim op As String num1 Val Text1 Text num2 Val Text3 Text op Trim Text2 Text Select Case op Case result num1 num2 Case result num1 num2 Case result num1 num2 Case If num2 0 Then MsgBox 运算符不能为运算符不能为 0 请重新输入第 请重新输入第 二个数二个数 Text3 Text Text4 Text Text3 SetFocus Exit Sub Else result num1 num2 End If Case Else MsgBox 运算符不符合要求 请重新输入运算运算符不符合要求 请重新输入运算 符符 Text2 Text Text4 Text Text2 SetFocus Exit Sub End Select Text4 Text result End Sub 单击 if 结构 按钮 添加代码 Private Sub Command2 Click Dim num1 num2 result As Single Dim op As String num1 Val Text1 Text num2 Val Text3 Text op Trim Text2 Text If op Then result num1 num2 ElseIf op Then result num1 num2 ElseIf op Then result num1 num2 ElseIf op Then If num2 0 Then MsgBox 运算符不能为运算符不能为 0 请重 请重 新输入第二个数新输入第二个数 Text3 Text Text4 Text Text3 SetFocus Exit Sub Else result num1 num2 End If Else MsgBox 运算符不符合要求 请重新运算符不符合要求 请重新 输入运算符输入运算符 Text2 Text Text4 Text Text2 SetFocus Exit Sub End If Text4 Text result End Sub 图 3 3 图 3 4 当 0 Then x1 b Sqr delta 2 a x2 b Sqr delta 2 a Lblx1 Caption Round x1 2 Lblx2 Caption Round x2 2 Else x1str Round b 2 a 2 Round Sqr delta 2 a 2 i x2str Round b 2 a 2 Round Sqr delta 2 a 2 i Lblx1 Caption x1str Lblx2 Caption x2str End If End Sub Private Sub Command2 Click Text1 Text Text2 Text Text3 Text Lblx1 Caption Lblx2 Caption End Sub 实验四 循环结构程序设计 选课班号 序号 姓名 实验日期 实验目的 1 理解循环结构程序设计的特点 2 掌握 For 语句的使用 3 掌握 Do While Until Loop 语句和 Do Loop While Until 语句的使用 4 学习多重循环的规则和程序设计方法 5 学习循环退出语句的使用与应用 6 掌握图片框 图像框 定时器的使用方法 7 掌握一些简单的算法 8 了解基本图形 Line 和 Circle 方式 实验内容 1 计算 n 要求分别用 Do While Loop Do Loop While 和 For Next 结构实现 设计分析 语句结构用单选按钮来选择 用条件语句对单选按钮的值作出判断 根据判断结果转向不同的 循环结构语句块 要求创建一个新窗体 Form1 在 Form1 中放置二个 Text 控件 三个 Command 控件 三个标签 控件 一个框架控件和三个单选按钮 界面如图 4 1 所示 图 4 1 题 1 用户界面 ElseIf Option2 Value True Then i 1 Do f f i i i 1 Loop While i n Else For i 1 To n f f i Next End If Text2 Text f End Sub Private Sub Command2 Click Text1 Text Text2 Text End Sub Private Sub Command3 Click Unload Me End Sub 添加代码 添加代码 Private Sub Command1 Click Dim f As Long Dim i n As Integer f 1 n Int Val Text1 Text If Option1 Value True Then i 1 Do While i n f f i i i 1 Loop 2 输入一个整数 n n 1 请 n 以内的所有 素数 n 1000 界面如图 4 2 所示 3 在处理图像时 经常会遇到使图像水平或垂直移动的情况 要求编程实现该功能 运行程 序 单击 水平移动 按钮 图片便沿着水平方向移动 单击 垂直移动 按钮 图片便沿着垂直 方向移动 单击 沿对角线移动 按钮 图片便沿着对角线方向移动 效果如图 4 3 所示 图片任 意选择电脑上一幅图片即可 设计思路 使用 Move 方法 使图片产生移动效果 图 4 2 题 2 用户界面 添加代码 添加代码 Private Sub Command1 Click Dim i j n As Integer n Int Val Text1 Text If n 1000 Then MsgBox 输入的数值范围不对 输入的数值范围不对 vbOKOnly Text1 SetFocus Text1 Text Else For i 1 To n For j 2 To i 1 If i Mod j 0 Then Exit For Next If j i Then Text2 Text Text2 Text i Next End If End Sub flag 1 Else Image1 Move 0 0 flag 0 End If End Sub Private Sub Command3 Click If flag 0 Then For j 1 To 1740 Image1 Move Image1 Left 3640 1740 j Next flag 1 Else Image1 Move 0 0 flag 0 End If End Sub Private Sub Command5 Click Unload Me End Sub Private Sub Form Load Image1 Left 0 Image1 Top 0 End Sub 添加代码 添加代码 Dim i flag As Integer Private Sub Command1 Click If flag 0 Then For i 1 To 3645 Image1 Move i Next flag 1 Else Image1 Move 0 0 flag 0 End If End Sub Private Sub Command2 Click If flag 0 Then For i 1 To 1740 Image1 Move 0 i Next 图 4 3 题 3 用户界面 4 在电视节目中 经常会有滚动的广告字幕 要求编程实现该功能 运行程序 单击 演示 按钮 字幕开始水平滚动 单击 暂停 按钮 字幕停止滚动 效果如图 4 4 所示 设计思路 在 Timer 事件中 控制 Label 控件的 Left 属性值 从而实现滚动字幕的效果 实验报告要求 1 提前预习实验相关资料 充分做好实验准备工作 2 如实记录实验中的数据 3 实事求是地回答相关问题 严禁抄袭 得 分 评阅日期 教师签名 End Sub Private Sub Timer1 Timer Static f As Boolean If f False Then If Form1 Width Label1 Left Label1 Width Then Label1 Left Label1 Left 40 Else f True End If Else If Label1 Left 0 Then Label1 Left Label1 Left 40 Else f False End If End If End Sub 添加代码 添加代码 Private Sub Command1 Click Timer1 Enabled True End Sub Private Sub Command2 Click Timer1 Enabled False End Sub Private Sub Command3 Click Unload Me 图 4 4 题 4 用户界面 实验五 数组程序设计 选课班号 序号 姓名 实验日期 实验目的 1 掌握数组的声明和数组元素的引用 2 掌握固定数组和动态数组的使用方法 3 掌握控件数组的使用方法 4 学会用数组解决一些实际的问题 5 掌握列表框 组合框的使用方法 6 学习直线控件和形状控件的使用方法 实验内容 1 矩阵转置 设计思路 矩阵转置 即将二维数组的行 列元素互换 先用随机函数生成一个 2 位整数的 3 行 4 列矩阵 然后进行转置 最后在文本框中 分别输出原来的矩阵和转置后的矩阵 如图 5 1 所示 2 定义一个数据类型 用来存储个人的基本信息 包括姓名 性别 出生日期 电话号码 单位地址 家庭住址等 并使用该数据类型定义一个数组 存放各个人员的信息 并将信息显示在 列表框中 设计思路 VB 中 数据类型的定义可以在放在标准模块中定义 然后定义一个该类型的动态 图 5 1 矩阵转置 运行界面 Private Sub Form Load Dim i j As Integer For i 0 To 2 For j 0 To 3 Randomize a i j Int Rnd 90 10 Text1 Text Text1 Text a i j Next Text1 Text Text1 Text vbCrLf Next End Sub 添加代码 Dim a 3 4 b 4 3 As Integer Private Sub Command1 Click Dim i j As Integer For i 0 To 2 For j 0 To 3 b j i a i j Next Next For i 0 To 3 For j 0 To 2 Text2 Text Text2 Text b i j Next Text2 Text Text2 Text vbCrLf Next End Sub 数组 存放各个人员的基本信息 并将信息显示在列表框中 如图 5 2 所示 3 利用控件数组制作简单动画 开发一个应用程序 让一个红色的小球在窗体上做心形移动 单击 演示 按钮后 小球就会反复做心形移动 直到单击 停止 按钮为止 设计思路 在窗体上按心形排列了 19 个小球 小球的移动靠的 是 19 个小球依次显现 1 个 从而产生移动的感觉 为使 小球每隔一定时间移动一次 每隔一定时间出现一个小 球 应采用计时器控制 运行程序时呈现如图 5 3 所示 界面 图 5 2 自定义数据类型示例 运行界面 图 5 3 动画小球 运行界面 dw As String 10 jt As String 12 End Type Dim stu 100 As student Dim i As Integer Private Sub Command1 Click stu i xm Trim Text1 Text stu i xb Trim Text2 Text stu i csrq CDate Trim Text3 Text stu i dh Trim Text4 Text stu i dw Trim Text5 Text stu i jt Trim Text6 Text List1 AddItem stu i xm stu i xb stu i csrq stu i dh stu i dw stu i jt End Sub Private Sub Command2 Click Unload Me End Sub 添加代码 添加代码 Private Sub Command1 Click Timer1 Enabled True End Sub Private Sub Command2 Click Timer1 Enabled False End Sub Private Sub Form Load Dim i As Integer For i 1 To 19 Shape1 i Visible False Next End Sub Private Sub Timer1 Timer Dim i As Integer 添加代码 添加代码 Private Type student xm As String 8 xb As String 1 csrq As Date dh As String 10 4 设计一个程序找出数组中的最大值 最小值 并计算所有元素的平均值 参考图如图 5 4 实验报告要求 1 提前预习实验相关资料 充分做好实验准备工作 2 如实记录实验中的数据 3 实事求是地回答相关问题 严禁抄袭 得 分 评阅日期 教师签名 If Shape1 19 Visible True Then Shape1 19 Visible False Shape1 0 Visible True End If For i 0 To 18 If Shape1 i Visible True Then Shape1 i Visible False Shape1 i 1 Visible True Exit For End If Next End Sub 添加代码 添加代码 Dim a 10 As Integer Private Sub Command1 Click Dim max i As Integer max a 1 For i 2 To 10 If a i max Then max a i Next Label5 Caption max End Sub Private Sub Command2 Click Dim min i As Integer min a 1 For i 2 To 10 If a i arr k Then pos k Else If arr j arr k Then pos k End If Next t arr j arr j arr pos arr pos t Next End Sub Private Sub Command2 Click Dim j As Integer Call arrsort i a True For j 1 To i Text3 Text Text3 Text a j Next End Sub Private Sub Command3 Click Dim j As Integer Call arrsort i a False For j 1 To i Text4 Text Text4 Text a j Next End Sub 4 写两个函数 分别求两个数的最大公约数和最小公倍数 程序运行界面如图 6 4 图 6 4 最大公约数和最小公倍数 运行界面 实验报告要求 1 提前预习实验相关资料 充分做好实验准备工作 2 如实记录实验中的数据 3 实事求是地回答相关问题 严禁抄袭 得 分 评阅日期 教师签名 添加代码如下 添加代码如下 Private Sub Command1 Click Dim n1 n2 As Integer n1 Int Val Text1 Text n2 Int Val Text2 Text Label4 Caption maxgongyue n1 n2 Label5 Caption n1 n2 maxgongyue n1 n2 End Sub Function maxgongyue ByVal num1 As Integer ByVal num2 As Integer As Integer Dim gys t As Integer If num1 num2 Then t num1 num1 num2 num2 t gys num1 Mod num2 Do While gys 0 num1 num2 num2 gys gys num1 Mod num2 Loop maxgongyue num2 End Function 实验七 界面设计 选课班号 序号 姓名 实验日期 实验目的 1 掌握多窗体程序设计的一般步骤和方法 2 掌握下拉式菜单的设计方法 3 掌握菜单事件过程的编写方法 4 了解对话框的分类及其特点 5 掌握用通用对话框控件设计通用对话框的方法 6 了解 ActiveX 控件和可插入对象的一般操作方法 7 了解常用 ActiveX 控件的编程方法 实验内容 1 编程设计一个密码登陆程序 要求有三个窗体 在第一个窗体输入用户名和密码 如果密 码正确 弹出第二个窗体 显示 欢迎使用本系统 字样 本窗体下有一个游戏菜单项 可以玩游 戏 如果密码不正确 弹出第三个窗体 显示 对不起 你不能使用该系统 字样 界面如图 7 1 所示 图 7 1 密码登陆系统 运行界面 Form1 中添加代码如下 中添加代码如下 Private Sub Command1 Click Dim user pass As String user Trim Text1 Text pass Trim Text2 Text If user zhangsan And pass 123456 Then Form2 Show Else Form3 Show End If Unload Me End Sub Private Sub Command2 Click Unload Me End Sub Form2 中添加代码如下 中添加代码如下 Private Sub exit Click Unloa