【vb实验报告心得体会】_vb实验心得体会_vb实验报告体会与思考_阿Q范文网
┊┊ ┊┊┊┊┊┊┊┊
您现在的位置： >
> vb实验报告心得体会
阿Q范文网专题频道vb实验报告心得体会栏目，提供与vb实验报告心得体会相关的所有资讯，希望我们所做的能让您感到满意！
南京工程学院；《程序设计基础―VB》；实验报告；实验名称院（系、部、中心）专业班级学生姓名学号实；报告内容包含：一、实验目的二、实验内容；三、以程序流程图（或自然语言）描述所用算法；四、调试过程记录（语法、逻辑错误）五、收获体会六；报告内...
数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。...
数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。 ...
《vb学习心得体会》 这学期选修了VB这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心得体会。 VB全称为Visual Basic，是微软公司推出的可视化编程工...
我对于visualbasic的学习，是从初中开始的。当时舟山市的中考政策有考级加分制度，考出全国二级能加10分。在此诱惑下报名参加培训班，考了两次，第一次笔试未通过，第二次才全通过。虽然考了两次，但是那时候已经能够编出几个没有什么逻辑...
我在以前没有学过vb这门课程，但是我已经学过c语言设计，感觉它们大同小异，有很多的相同点，比如说都有数据类型，常量与变量，控制结构的设计，数组等基本东西，只是语法上有些不同，所以我对vb这门语言没有畏惧感，只是得重头开始看它的语法结构，...
我在以前没有学过 vb 这门 课 程，但是我已经学过c语言 设 计，感觉它们大同小异，有很多的相同点，比如说都有数据类型，常量与变量，控制结构的 设 计，数组等基本东西，只是语法上有些不同，所以我对 vb 这门语言没有畏惧感，只是得重头...
1.“对象调方法，方法改属性” 类是属性与方法的集合。而这些属性与方法可以被声明为私有的。为了实现数据的封装，提高数据的安全性，我们一般会把类的属性声明为私有的，而把类的方法声明为公共的。这样，对象能够直接调用类中定义的所有方法，当对 ...
抄袭作业―― VB .NET大作业 实在不会 一 实验目的与要求 ： 学生成绩管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据...
VB学习心得 VB学习心得(一) 1.精确计时 TIMer 控件不能做精确计时，只能用于粗略计时，这个在VB关于TIMER的控制介绍中明确说明过的，要实现精确计时用下面代码返回开机以来经历的时间(以毫秒计) Public...
编辑推荐专题
联系编辑：阿Q范文
联系邮箱：(#替换@)
联系电话：
升级会员后即可查看vb实验报告心得体会的所有相关文章。您现在的位置： >> vb课程设计 >> vb实验报告心得体会
vb实验报告心得体会
来源： 时间：
【vb实验报告】内蒙古工业大学能动学院实 验 报 告课程名称：高级语言程序设计（VB）Ⅰ实验名称：选择、循环、数组和过程综合程序设计 实验类型验证性□ 综合性√ 设计性□ 实验室名称校计算中心 姓名同组人实验日期学号组别成绩：实验报告撰写要求一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 1． 实验目的 2． 实验用仪器设备、器材或软件环境 3． 实验原理、方案设计、程序框图、预编程序等 4． 实验过程中需要记录的实验数据表格 二、 实验过程中，要认真观察，仔细记录 三、 完成实验后用实验报告纸撰写实验报告，包括以下内容 1． 仪器设备型号及编号 2． 实验器材或软件环境 3． 实验步骤、程序调试方法 4． 实验数据处理及结果分析 5． 实验中存在的问题 6． 及思考题 四、 报告撰写时，要求格式规范、书写整齐内蒙古工业大学信息工程学院预习报告成绩：指导审核（签名） ：年月日预习报告（ 一 ） 实验目的 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。（二）实验仪器及软件环境普 通 台 式 电 脑 、 microsoft visual basic 6.0 标 准 环 境 下 （三）实验原理利 用 Rnd 函 数 产 生 80 个 随 机 整 数 ， 再 利 用 For 循 环 将 产 生 的 随 机 整 数 入 到 数 组 中 ，最 后 用 I f 语
按 每 行 1 0 个 数 输 出 到 第 一 个 文 本 框 中 ；用 I f 句 和 Mod 函 数 判 断 是 否 为 奇 偶 数 ， 后 利 用 冒 泡 排 序 法 将 奇 偶 数 排 序 分 别 输 到 二 、 三 文 本 框 中 。调 用 Function 函 数 判 断 素 数 ， 利 用 For 循 环 和 If 函 输出，用累计求和法将素数的个数求出放入第四、五个文本框中。（四）方案设计界面设计如下：存 语 出 数第1页内蒙古工业大学信息工程学院（五）程序框图如下 开始Rnd 产生随机数For 存入数组输出随机数将随机数全部排序判断是否为偶数 否 是 再排序 文本框输出调用 Fuction输出素数及其 个数、和结束第2页内蒙古工业大学信息工程学院（六）预编代码Option Base 1 Dim i%, j%, a%(), b%(), c%(80), l%, m%, n%, w%, p%, q% Private Sub Command1_Click() For i = 1 To 80 Randomize c(i) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text & & & & c(i) s = s + 1 If s Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf End If Next i For i = 1 To 79 For j = 1 To 79 If c(j) & c(j + 1) Then t = c(j) c(j) = c(j + 1) c(j + 1) = t End If Next j Next i For i = 1 To 80 If c(i) Mod 2 = 0 Then m = m + 1 ReDim Preserve a(m) As Integer a(m) = c(i) Else n = n + 1 ReDim Preserve b(n) As Integer b(n) = c(i) End If Next i For i = 1 To n / 2 l = b(i) b(i) = b(n + 1 - i) b(n + 1 - i) = l Next i End Sub Private Sub Command2_Click() For i = 1 To m Text2.Text = Text2.Text & & & & a(i) p = p + 1 If p Mod 10 = 0 Then Text2.Text = Text2.Text & vbCrLf第 3 页内蒙古工业大学信息工程学院End If Next i End Sub Private Sub Command3_Click() For i = 1 To n Text3.Text = Text3.Text & & & & b(i) q = q + 1 If q Mod 10 = 0 Then Text3.Text = Text3.Text & vbCrLf End If Next i End Sub Private Sub Command4_Click() For i = 1 To 80 If sushu(c(i)) = ture Then w = w + c(i) o = o + 1 Text4.Text = Text4.Text & & & & c(i) j = j + 1 End If If j Mod 10 = 0 Then Text4.Text = Text4.Text & vbCrLf End If Text5.Text = o Text6.Text = w Next i End Sub Private Function sushu(n As Integer) As Boolean Dim i As Integer sushu = ture For i = 2 To n - 1 If n Mod i = 0 Then sushu = False Exit For Next i End Function Private Sub Command5_Click() End End Sub第4页内蒙古工业大学信息工程学院实验报告成绩：指导教师审核（签名） ：年月日实验报告（一）实验仪器及软件环境普 通 台 式 电 脑 、 microsoft visual basic 6.0 标 准 环 境 下 （二）实验步骤 1、 在 VB 环 境 中 ， 建 立 新 的 窗 体 ， 在 窗 体 上 添 加 6 个 文 本 框 ， 6 个 标 签 ， 5 个按钮控件 2、 设 置 各 控 件 属 性 ， 如 下 表 控件名称 Label1 Label2 Label3 Label4 Label5 Label6 Text1 Text2 Text3 Text4 Text5 Text6 Command1 Command2 Command3 Command4 属性 caption caption caption caption caption caption text multiline text multiline text multiline text multiline text multiline text multiline caption caption caption caption第 5 页属性值 80 个 随 机 数 偶数（升序） 奇数（降序） 产生的素数 素数的个数 素数的和true true true true true true 产生随机数 偶数 奇数 素数内蒙古工业大学信息工程学院Command5caption结束3、 编 写 相 关 事 件 代 码 代码如下Option Base 1 Dim i%, j%, a%(), b%(), x%(80), l%, m%, n%, w%, p%, q% Private Sub Command1_Click() For i = 1 To 80 Randomize (Timer) x(i) = Int(10 + Rnd * 90) Text1.Text = Text1.Text & & & & x(i) s = s + 1 If s Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf End If Next i For i = 1 To 79 For j = 1 To 79 If x(j) & x(j + 1) Then t = x(j) x(j) = x(j + 1) x(j + 1) = t End If Next j Next i For i = 1 To 80 If x(i) Mod 2 = 0 Then m = m + 1 ReDim Preserve a(m) As Integer a(m) = x(i) Else n = n + 1 ReDim Preserve b(n) As Integer b(n) = x(i) End If Next i For i = 1 To n / 2 l = b(i) b(i) = b(n + 1 - i) b(n + 1 - i) = l Next i End Sub第6页内蒙古工业大学信息工程学院Private Sub Command2_Click() For i = 1 To m Text2.Text = Text2.Text & & & & a(i) p = p + 1 If p Mod 10 = 0 Then Text2.Text = Text2.Text & vbCrLf End If Next i End Sub Private Sub Command3_Click() For i = 1 To n Text3.Text = Text3.Text & & & & b(i) q = q + 1 If q Mod 10 = 0 Then Text3.Text = Text3.Text & vbCrLf End If Next i End Sub Private Sub Command4_Click() For i = 1 To 80 If SuShu(x(i)) = True Then w = w + x(i) o = o + 1 Text4.Text = Text4.Text & & & & x(i) j = j + 1 End If If j = 10 Then Text4.Text = Text4.Text & vbCrLf End If Text5.Text = o Text6.Text = w Next i End Sub Private Function SuShu(n As Integer) As Boolean Dim i As Integer SuShu = True For i = 2 To n - 1 If n Mod i = 0 Then SuShu = FalseExit For Next i End Function Private Sub Command5_Click() End第 7 页内蒙古工业大学信息工程学院End Sub 4、 按 F5 键 运 行 程 序 ， 如 若 无 法 运 行 则 中 止 ， 重 新 调 试 代 码 。运行后界面如下：（三）实验中遇到的问题 在 运 行 中 当 弄 素 数 时 ， 总 出 现 个 数 为 80 ， 而 且 有 的 不 是 素 数 ， 应 Function 函 数 时 ， 无 法 运 行 ， 应 用 冒 泡 排 序 无 法 正 常 运 行 。（四）实验体会 通 过 此 次 试 验 ，我 初 步 掌 握 了 冒 泡 排 序 法 的 使 用 ，也 弄 懂 了 Function 数的应用方法。经过多次的实验，明白了做许多实验需要耐心，细心检查 一步，明白了试验成功的艰难，为我以后继续做实验奠定了基础，本次实 对于我很有意义，使我对计算机中的方法和函数有了深入了解。用函 每 验第8页
【vb实验报告体会】实训 为期一周的实训即将结束， 通过这次的实训使我们学到了很 多，同时也让我们所有同学意识到我们要学的还有更多。本次实 训的项目是为了让同学们能结合本期所学的书面知识， 再加上实 际动手操作能力，以便可以更好的可以实际与理论相结合，使同 学们能更深切的体会到不仅要有理论知识也要有实际操作能力， 能灵活的学以致用。本次有 5 个题目任由同学们选择，而我选择做“学生管理系 统”程序的设计，主要是几个用户模块的程序设计。而我们这次 课程设计主要是老师为了让我们学习完《Visual Basic 程序设计》 课程后，能进行的一次全面的综合训练，其目的在于加深对可视 化编程技术基本知识的理解，掌握运用 VB 开发应用程序的基本 方法及基本技巧。从程序的需求分析、 可行性分析、 设计到编写、 调试、修改、完善、到最后的实训报告，我们每都付出了时 间和精力去做好自己的任务并努力地去完善它。实训的第一天接到任务时我们都觉得有点难度，很有挑战 性，毕竟学生成绩管理系统是一个比较系统、完善、功能相对较 齐全的管理系统，即使是登录模块也可以完成各种操作，如对用 户的查询、添加、删除以及修改等。因此程序编写也十分复杂， 工作量较大，编写一定要认真。一个小小的失误都可能使程序出 现大的漏洞。而我们只是学了点简单的 vb 程序编写，没有尝试 过这种相对来说比较系统完善的系统。所以在做项目的时候我们所有同学都倍感压力、不懂就互相请教，算是团结协作了，可即 使这样我们还是经常出现了错误， 我们的程序在编写上存在一些 漏洞，导致调试时不能正常运行，后经过老师的指导、我们相互 的帮助，细心的调整，终于算是可以正常的运行了，但其中还有 些许的不完善，但我们在之后的几天实训中，不停的精益求精， 以达到最好的状态，做出最简单方便的程序。我做了 5 个模块分为学籍信息输入、学籍信息管理、学籍 信息查询和统计查询以及用户登录 5 个模块的内容。学生数据录 入管理中又包括用户的查询、添加、修改以及删除功能，它是只 有具有管理员权限的情况下才能进入操作， 而登入用户就只能修 改自己的登录密码。在实训过程中我们也认识了一些新的老师， 他们对我们亲切认真负责， 很有耐心地对我们进行讲解并指导我 们解决遇到的难题。老师们交会了我们很多简单实用的技巧。也 让我们意识到了要想全面完整地完成一个模块， 首先要进行程序 的设计，全面分析会用到的东西以及考虑可能会出现的情况，理 清思绪、写出大致的要点后再上机编写程序以及操作。否则像一 开始的我们马上上机编写、想到什么就补什么，不仅浪费时间也 乱了之前写好的一些程序。系统分析越准确， 设计的系统越精确， 可以大大减少后期的修改、维护工作。当然做好做对一个项目固 然重要，同时美观程度也是必不可少的，无论是从参观者的角度 还是自己看的角度都很重要。总的来说，这次实训还是比较成功的。最后出来的系统，大家都很有成就感，这是我们一步步设计、一步步完善、辛苦付 出后得到的成果。小组合作、帮助队友，无论是团队合作这方面 还是个人动手这方面，我们都得到了很好的锻炼。当然实训不仅 使我们学到了知识，也帮助我们缩小了实践和理论的差距，通过 这次实训让我们更深一步的对 vb 这门课程的知识有更进一步的 渴望，同时对自己的专业，对自己的能力，对自己所学的有正确 的认识，并且能在以后的学习工作中不断提高和完善自己。
【vb实验报告心得体会】VB 程序设计专 业：测绘工程班级学号： 编 写 人：杨军富 指导老师：唐争气 日 期：实验一：用户登录一．实验目的和要求 设计一个用户登录窗口界面，实现模拟用户登录系统时的各种情况。二．实验内容及过程1. 能够输入用户名和密码； 2 .原始的用户名和密码用代码编写。3.当单击“登录”按钮后，能够对输入的用户名和密码进行验证，若输入的用户名和密 码与编写的代码相符， “恭喜你密码正确”； 显示 用户名或密码错误时， 系统自动提 “账号密码错误” ，并给与三次操作机会，如超过三次，程序自动退出。三．部分代码 Private Sub Command1_Click() Static a As Integer If Text1.Text = &123& And Text2.Text = &123& Then MsgBox &恭喜你密码正确& Else MsgBox &帐号密码错误& a=a+1 If a = 3 Then MsgBox &3次出现错误，程序将自动退出& End End If End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Text2.PasswordChar = &*& Text1.Text = && Text2.Text = && End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.Enabled = True Command1.Visible = True Command1.SetFocus End If End Sub Private Sub Timer1_Timer() Labe3.Top = Label3.Top + 100 End Sub 四．运行界面 醒五．心得体会 对 vb 操作有一个简单的认识，了解了简单的模拟登陆系统。实验二：导线一．实验目的和要求 用 vb 程序将各点展在窗体上，并连接成导线 二．实验内容及过程 先将点的坐标用代码编写出来，应用 print 语句显示在窗体上，再用 line 语 句将各点连接起来三． 部分代码 Private Sub Command1_Click() CurrentX = 1900CurrentY = 2000 Print &1& CurrentX = 1800CurrentY = 4000 Print &2& CurrentX = 4000CurrentY = 8000 Print &3& CurrentX = 8000CurrentY = 2500 Print &4& Line ()-() Line ()-() Line ()-() Line ()-() CurrentX = 1500CurrentY = 3000 Print &2000& CurrentX = 2300CurrentY = 6000Print && CurrentX = 6000CurrentY = 5250 Print && CurrentX = 5000CurrentY = 2000 Print && End Sub 四．运行界面五．心得体会 对 vb 界面的熟悉，更是对测量知识的一个加深记忆，能在 vb 窗口上进行简单的设计。实验三：度分秒转换一?实验目的和要求 角度和弧度之间的换算是测量学中经常用到的计算。由于一般测量仪器观测 得到的值都是度分秒形式，而 vb 的三角函数用弧度进行计算，因此有必要设计 角度和弧度换算的程序。在输入时，将度分秒的形式化为弧度表示，为程序计算 做准备；在输出时，将弧度换算成度分秒形式，以利于显示输出。二．实验内容及过程 设一个角用角度表示为 A（度） ，弧度表示为 R(弧度)，程序需要 4 个文本框 分别输入显示度数、分数、秒数、以及弧度值，相应有 5 个辅助说明标签，还有 2 个命令按钮触发角度弧度换算事件。另外设计一个清零按钮和一个退出按钮。三．部分代码Dim a%, b%, c%, d# Const pi = 3. Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text d = a + b / 60 + c / 3600 d = d * pi / 180 Text4.Text = Format(d, &0.000000&) End Sub Private Sub Command2_Click() d = Text4.Text d = d * 180 / pi a = Int(d) d = (d - a) * 60 b = Int(d)‘十进表示 ‘化为弧度‘化为十进制度 ‘获得度数 ‘获得分数d = (d - b) * 600 c = Int(d) / 10# Text1.Text = a Text2.Text = b Text3.Text = c End Sub Private Sub Command3_Click() Text1.Text = && Text2.Text = && Text3.Text = && Text4.Text = && End Sub 四． 运行界面‘秒数取小数点后一位 ‘获得秒数五.心得体会 对 vb 界面的更深认识和了解，对角度和弧度的转换有了更深的印象。实验四测量平差软件一?实验目的和要求 1.熟悉 vb 开发环境，掌握 vb 程序设计步骤 2.理解基本概念：工程、窗体、属性、事件、方法 3.熟悉窗口使用 二．实验内容及过程 1.创建应用程序界面 2.设置窗体和控件的属性 3.编写代码 4.运行和调试应用程序 三．部分代码 Private Sub Label1_Click() Label1.Caption = &欢迎进入此页面& End Sub Private Sub Label2_Click() Label2.Caption = &湖南城市学院（朝阳校区）& End Sub Private Sub Label3_Click() Label3.Caption = &杨军富& End Sub Private Sub Label4_Click() Label4.Caption = &2013 年 12 月 17 日& End Sub Private Sub Label5_Click() Label5.Caption = &市政与测绘工程学院 &End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left + 200 End Sub 四．运行界面五.心得体会熟悉 vb 开发环境，掌握 vb 程序设计步骤，理解基本概念，对 vb 的窗体有了 更深认识。实验五：方位角计算一．实验目的和要求 由两个已知点的坐标求这两点间的距离和坐标方位角是测量学中经常用到的 计算。现在用 vb 程序写出方位角的坐标正反算。二．实验内容及过程 根据公式已知两点间的距离公式如SAB=√(XA-XB)^2+(YA-YB)^2 根据两点坐标求方位角的计算公式如下Α=tg^-1((yA-yB)/(xA-xB))三． 部分代码 Public Const pi = 3.14159 Public Function directAB(XA#, YA#, XB#, YB#) Dim detX#, detY#, l# dx = XB - XAdy = YB - YA If dx = 0 Then If dy = 0 Then MsgBox (&你的起始点与终点为同一点，方位为任意&) ElseIf dy & 0 Then directAB = pi / 2 Else directAB = pi * 3 / 2 End If ElseIf dx & 0 Then If dy &= 0 Then directAB = Atn(dy / dx) Else directAB = 2 * pi + Atn(dy / dx) End If Else If dy &= 0 ThendirectAB = pi + Atn(dy / dx) Else directAB = pi + Atn(dy / dx) End If End If l = Sqr(dx ^ 2 + dy ^ 2) End Function Private Sub Command1_Click() Dim Xc#, Yc#, Xd#, Yd# Xc = Text1(0).Text Yc = Text1(1).Text Xd = Text2(0).Text Yd = Text2(1).Text Text3.Text = directAB(Xc#, Yc#, Xd#, Yd#) * 180 / pi dx = Xd - Xcdy = Yd - Yc l = Sqr(dx * dx + dy * dy) Text4.Text = l End Sub Private Sub Command2_Click() l = Text4.Text direct = Text3.Text * pi / 180 XA = Text1(0).Text YA = Text1(1).Text dx = l * Cos(direct) dy = l * Sin(direct) XB = XA + dxYB = YA + dy Text2(0).Text = XB Text2(1).Text = YB 四．运行界面五． 心得体会 对测量知识的复习以及对用 vb 进行坐标正反算，能更好的掌握测量原理。实验六 等水准计算一．实验目的和要求 用 vb 程序编写四等水准计算软件 二．实验内容及过程 1.水准测量成果整理 （1）高差闭合差的计算（2）高差闭合差的分配 （3）转点高程值的计算 2.程序分析和界面设计 （1）输入 （2）计算 （3）输出 3.主窗体的输入 （1）水准路线类型的输入 （2）已知高程的输入 （3）测站数的输入 （4）显示输入窗体 4.输入窗体的输入 距离之和高差值的输入 5.计算和输出 （1）闭合差计算 （2）闭合差分配三． 部分代码 Option Explicit Dim iMark% Dim dist!, dH! Private Sub cmdCancel_Click() '清除已经传给主窗体的数据 Dim i%（4）界面设计'测站计数器For i = 1 To iMark dis(i) = 0 detH(i) = 0 Next i '清除主窗体的显示 frmMain.txtShowResult.Text = &水准计算结果:& '卸载输入窗体 Unload Me End Sub Private Sub cmdOK_Click() dist = Val(txtDist.Text) dH = Val(txtDetH.Text) Call AddData(iMark, dist, dH) '在主窗体显示本站数据 frmMain.txtShowResult = frmMain.txtShowResult & &第& & Str(iMark) & &站：& & vbCrLf frmMain.txtShowResult = frmMain.txtShowResult & & 距离& dis(iMark) & & & 高 差中数：& & detH(iMark) & vbCrLf If iMark &= nMarks Then '如果已经输入完所有的测站观测值 frmInput.Hide Else 站 txtDist.Text = && txtDetH.Text = && txtDist.SetFocus End If frmInput.Caption = &观测数据输入：第& & Trim(Str(iMark)) & &站& '若还没有输完， 初始化输入界面输入下一个测iMark = iMark + 1 End Sub Private Sub Form_Load() iMark = 1 End Sub 四．运行界面'测站数加1五．心得体会 用 vb 进行简单的四等水准计算软件， 让我们更好的对 vb 有更深的了解， 对以后更多软 件的编写做一个基础。实验七 导线简易平差一．实验目的和要求用 vb 程序编写导线简易平差软件二．实验内容及过程1.导线的简易计算 2.程序分析 3.界面设计 （1）菜单的设计 （2）文本框和通用对话框的设计 （3）关于窗体 （4）显示输入窗体 4.输入 5.计算和输出 （1）计算起始方位角和终值方位角，得到坐标方位角的理论值 （2）坐标方位角的推算，得到方位角闭合差 （3）检查角度闭合差是否超限，若合格，则分配角度闭合差，从新计算坐标 方位角。（4）根据边长和坐标方位角求坐标增量。（5）计算边长精度 （6）如果边长精度符合要求，改正坐标增量 （7）计算最后坐标三部分代码四．运行界面五．心得体会用 vb 程序编写导线简易平差软件，不仅是对测量平差知识的更深认识，同时 我们也掌握了 vb 界面以及代码的一些基础知识，方便以后的学习。
【vb实验报告心得体会】实验报告课程名称 实验项目名称Visual Basic 程序设计教程 VB 应用程序设计班级与班级代码 实验室名称（或课室） 实验室名称（或课室） 专 业 实验楼 401任课教师 学 姓 号名2010 年 12 月 20 日实验日期实验日期：广东商学院教务处制一 、 实验目的和要求1、 2、 熟练掌握并应用 VB 窗体和常用控件的属性、 方法和事件。掌握自定义数据类型的定义和使用，能熟练运用常用内部 函数和用户交互函数（Inputbox 与 Msgbox 函数） 。3、 掌握顺序结构程序、选择结构程序和循环结构程序设计， 进一步理解运用 VB 应用程序的编程机制。4、 5、 掌握控件数组在程序设计中的应用方法和技巧。掌握菜单设计方法，定时器、图形框和图像框的常用属性、 事件、方法及其使用。二 、 实验环境1、 2、 Windows XP 操作系统Visual Basic 6.0 中文版三 、 实验内容和原理实验内容实验内容 编辑一个小游戏――井字过三关， 要求玩家在规定时间内完 成该游戏。游戏：需要两位玩家，一个打圈“○” ，一个打 叉“×” ，轮流在 3 乘 3 的格上打自己的符号，最先以横、竖、 斜连成一线则为胜。如果双方都下得正确无误，将得平局。实验分析与原理实验分析与原理 ⑴ 用 timer 设计一个倒计时,可控制玩家在规定时间完成。⑵ 用 9 个数组图像控件排成 3 乘 3 格子，利用鼠标 click 事件触1发各相应图像框显示圈或叉的图像。⑶ 利用穷举法分别从横、竖、斜判断每个方格是否为同一图像， 从而定出胜利一方。四 、 实验设计流程界面设计界面设计 考虑到“井字过三关”为儿童益智类游戏，应尽量将界面设 计得亲切、可爱，吸引玩家。游戏界面如下图：首先设置窗口的 picture 属性载入一张可爱背景，同时加上 两个载入 Q 版头像的图形框；为了界面美观，使用菜单编辑器 装载开始、退出游戏等功能按键；然后用 9 个载入白底的图象框2作为游戏方格；加入几个标签分别显示玩家名称、剩余时间和提 示信息等。程序设计程序设计 ⑴ 点击菜单中的“开始”进入游戏，让玩家输入各自名称并显 示，之后开启并清空全部图像框（变空白） ，信息框显示提示 信息，然后开始计时。代码如下Private Sub 开始_Click() player1 = InputBox(& 请 输 入 玩 家 1 名 称 &, & 玩 家 1&, &player1&) player2 = InputBox(& 请 输 入 玩 家 2 名 称 &, & 玩 家 2&, &player2&) For i = 0 To 8 Image(i).Enabled = True Image(i).Picture = LoadPicture(&bai.jpg&) Next i name1.Caption = player1 name2.Caption = player2 msg.Caption = &提示:& + player1 + &先出手& Timer1.Enabled = True End Sub ⑵ 游戏中点击“重来” ，同样开启并清空全部图像框，然后重新 计时。代码如下Private Sub 重来_Click() For i = 0 To 8 Image(i).Picture = LoadPicture(&bai.jpg&) Image(i).Enabled = True Next i Timer1.Enabled = True msg.Caption = &提示:& + player1 + &先出手& End Sub ⑶ 点击菜单“退出”则立刻退出游戏。代码如下：3Private Sub 退出_Click() End End Sub ⑷ 利用数组控件，即每个图像框控件 Image(i)有自己的编号（i 从 0 到 8） ，按 3 乘 3 方格从左到右顺序排列安放。游戏中点 击各个图像框，将交替出现圈和叉图形，然后进行判断。利 用穷举法，从横、竖、交叉方向列出可能出现的各种连成一 线的情况，即分出胜负，在提示标签里提示并弹出信息框。另外在判断过程中加入变量以确定是否分出胜负，如果下完 全部格子还未分出胜负，则双方以平局结束并提示。代码如 下Private Sub Image_Click(index As Integer) '交替使用圈圈和叉叉 Times_number = Times_number + 1 If Times_number Mod 2 && 0 Then Image (index).Picture = qq msg.Caption = &提示:轮到& + player2 + &出手& Else Image (index).Picture = cc msg.Caption = &提示:轮到& + player1 + &出手& End If '判断胜负'从格子横方向进行判断For i = 0 To 6 Step 3 If Image (i).Picture = qq And Image (i + 1).Picture = qq And Image (i + 2).Picture = qq Then winer = 1 End If If Image (i).Picture = cc And Image (i + 1).Picture = cc And Image (i + 2).Picture = cc Then winer = 2 End If4Next i '从格子竖方向进行判断For i = 0 To 2 If Image (i).Picture = qq And Image (i + 3).Picture And Image (i + 6).Picture = qq Then winer = 1 End If If Image(i).Picture = cc And Image(i + 3).Picture And Image(i + 6).Picture = cc Then winer = 2 End If Next i '从格子两边交叉方向进行判断If Image(0).Picture = qq And Image(4).Picture = qq Image(8).Picture = qq Then winer = 1 End If If Image(0).Picture = cc And Image(4).Picture = cc Image(8).Picture = cc Then winer = 2 End If If Image(2).Picture = qq And Image(4).Picture = qq Image(6).Picture = qq Then winer = 1 End If If Image(2).Picture = cc And Image(4).Picture = cc Image(6).Picture = cc Then winer = 2 End If '结束后不能继续 If winer = 1 Or winer = 2 Then For i = 0 To 8 Image(i).Enabled = False Next i Timer1.Enabled = False 开始.Enabled = True End If '提示标签显示胜负以及弹出信息框5= qq= ccAndAndAndAndIf winer = 1 Then msg.Caption = player1 + &胜出& b = MsgBox(player1 + &胜利&, , &结束&) End If If winer = 2 Then msg.Caption = player2 + &胜出& b = MsgBox(player2 + &胜利&, , &结束&) End If '下完全部格子没分出胜负If Times_number = 9 And winer = 0 Then msg.Caption = &双方平局& 开始.Enabled = True a = MsgBox(&双方平局&, , &结束&) End If End Sub ⑸ 为游戏设置倒计时，当超过时间未能完成游戏，则弹出信息 框提示玩家并结束游戏。代码如下Private Sub Timer1_Timer() If m && 0 Then If s = 0 Then m=m-1 s = 59 Else s=s-1 End If Else If s && 0 Then s=s-1 Else Label1.Caption = &时间结束！& msg.Caption = &未完成& c = MsgBox(&已超时,请重新开始...&, , 结束) Timer1.Enabled = False For i = 0 To 8 Image(i).Enabled = False Next i6End If End If If m && 0 Or s && 0 Then Label1.Caption = &剩余时间& + Str(m) + & 分& + Str(s) + &秒& End If End Sub五 、 调试过程反复运行游戏进行调试，发现各种程序漏洞：还没点击开始 就可以在方格进行游戏； 可以在同一方格重复点击使其改变…… 经过多次调试，程序已经相对完善。六、1、测试选取的情况及运行结果玩家 1 取胜，将分为三种练成一线的情形（横、竖、斜） 。如图：72、玩家 2 取胜，情形如上（横、竖、斜） 。如图：83、双方平局，即下完全部格子，横、竖、斜都未能练成一线。如图：9七 、 实验报告总结与心得体会这个学期我们学习了 Visual Basic 程序设计这门课程，它是 可视化的、 面向对象和采用事件驱动方式的结构化高级程序设计 语言，可用于开发 Windows 环境下的各类应用程序。课程知识的实用性很强，因此实验就显得非常重要。从开始 上这门课到现在，已经做了不少的实验。所以在做这次 VB 应用 程序设计的实验前，我以为也是很简单，不就是两下子编好程序 然后将实验报告写完就大功告成。直到决定了编写 “井字过三关” 这一小游戏后，才知道其实不是这么简单的。从游戏界面的设计到实现每个功能的程序代码的编写， 无一 不是经过反复的验证测试而成功完成的。特别是每一程序代码 的编写，靠的都是细心以及多次的调试修改。为了这个程序及实 验报告，实在花费了我不少的时间和精力，不过我相信学到的知 识与付出是成正比。通过这次 VB 应用程序设计实验，不仅加深了我对 VB 的认 识，达到了一些如掌握 VB 程序设计及编辑等各项实验目的和要 求， 而且我觉得更重要的是实验过程中培养了我在实践中独立思 考、研究问题、分析问题和解决问题的能力，提高自己动手的能 力，培养理论联系实际的作风，增强创新意识。10姓名 题目题目 ：实验报告成绩 实验报告 成绩 “ 井字过三关” VB 应用程序设计 井字过三关 ”评语评语 项目 实验目的 实验分析 界面设计 程序设计 程序设计 测试数据选取情况 运行结果 运行结果 实验总结与心得体会 实验总结与规范程度） 实验报告格式（规范程度）成绩优良中及格不及格指导教师（签名） 指导教师 （签名） 2010 年 12 月 30 日11
【vb实验报告心得体会】Vb 程序设计实验项目试院（系） 班级 专业 实验 名称 所用 软件 实 验 目 的 或 要 求 实验报告（1）日期实验室 计算机号 成绩评定 教师签名课程名称学号 姓名 VB 环境的熟悉与应用 Visual Basic 6.01．熟悉 VB 的系统环境，了解 VB 程序的编写、保存和编译的方法过程。2．初步了解几个常用控件的使用方法。1、在 vb 中____C_____被称为对象。A.窗体验 步 骤B.控件C.窗体和控件D.窗体、 控件和属性2、设在名称为 form1 的窗体上只有 1 个名称为 C1 的命令按钮,下面 叙述中正确的是( B ) A.窗体的 Click 事件过程的过程名是 form1_Click B.命令按钮的 Click 事件过程名是 C1_Click、 心 得 体 会C.命令按钮的 Click 事件过程的过程名是 Command1_Click 3、编译执行程序的快捷键是_Ctrl+F5_。4、启动 visual basic 后标题栏中显示的信息是（C） 。A.工程-Mmicrosoft Visual Basic[设计] B.工程-Mmicrosoft Visual Basic[中断] C.工程 1-Mmicrosoft Visual Basic[设计]第 1 页 共 53 页Vb 程序设计实验项目D.工程 1-Mmicrosoft Visual Basic[中断] 5、Visual Basic 集成开发环境主要窗口包括__窗体设计窗口；代码 设计窗口；_属性窗口；_工程资源管理器窗口_；_工具箱窗口。6、属性显示方式分两种，即按__字母 顺序和按_分类__顺序，分别 通过单击相应的按钮来实现。7、编一程序，程序运行的初始界面如图 1-1 所示，当用户在文本框 中输入姓名，例如输入“张三” ，单击“你输入的姓名是:”按钮 （command1） 则程序的运行情况如图 1-2 所示， ， 如果单击 “结束” 按钮（command2） ，即结束程序运行。注意：保存时必须存放在自己创建的文件夹下，窗体文件名为 kt1.frm，工程文件名为 kt1.vbp。图 1-1 1）在窗体设计窗口设计如图 1-1 界面 2）修改控件属性 控件对象 属性名 Command1 Caption Command2 Caption Label1 Caption Label2 Caption 3）编辑代码第 2 页 共 53 页图 1-2属性值 你的姓名是结束 欢迎使用 vb 请输入你的姓名Vb 程序设计实验项目Private Sub Command1_Click() Text2 = Text1 End Sub Private Sub Command2_Click() End End Sub 8、在名称为 Form1 的窗体上建立两个名称分别为 Cmd1 和 Cmd2、标 题分别为“喜欢”和“不喜欢”的命令按钮。编写适当的事件过 程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上 显示“数理化” ；如果单击“不喜欢”命令按钮，则在窗体上显示 “政史地” 。注意：保存时必须存放在自己创建的文件夹下，窗体文件名为 kt2.frm，工程文件名为 kt2.vbp，并且在生成对应的可执行程序 （.exe） 。1)界面设计：在窗体设计窗口设计如图 1-3 界面图 1-3 2）属性设置 控件对象 Command1 Command2 属性名 Caption Caption第 3 页 共 53 页属性值 喜欢 不喜欢Vb 程序设计实验项目3）代码设计 Private Sub Cmd1_Click() Print &数理化& End Sub Private Sub Cmd2_Click() Print &政史地& End Sub 心得体会（可以从以下几个方面来总结：你在上机过程中遇到了哪 些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪 些？你有什么没有解决的问题？等）第 4 页 共 53 页Vb 程序设计实验项目试院（系） 班级 专业 实验 名称 所用 软件 实 验 目 的 或 要 求 实 验 步 骤 、 心 得 体 会验报告（2）日期实验室 计算机号 成绩评定 教师签名课程名称学号 姓名 掌握 VB 基本控件VB6.01.熟练掌握 VB 中基本控件的属性，方法和事件 2.通过编程能够实现简单的功能1、以下能在窗体 Form1 的标题栏中显示“Visual Basic 窗体”的语 句是（ C ） 。A. Form1.Name = &Visual Basic 窗体& B. Form1.Title = &Visual Basic 窗体& C. Form1.Caption = &Visual Basic 窗体& D. Form1.Text = &Visual Basic 窗体&。2、在 VB 中，要将一个窗体加载到内存进行预处理但不显示，应该使 用语句（ B ） 。A. Show B. Hide C. Load D. Unload 3、在窗体上有多个控件， 要实现程序运行后焦点默认在某一控件上， 应该设置的属性是（ C ） 。A. 设置 Enabled 的值为 True C. 设置 TabIndex 的值为 0 B. 设置 TabIndex 的值为 1 D. 设置 Index 的值为 04、设窗体上有一个文本框 Text1，要求只能显示信息，不能输入，第 5 页 共 53 页Vb 程序设计实验项目则应设置（ B ） 。A. Text1.MaxLength = 0 C. Text1.Visible = False B. Text1.Enabled = False D. Text1.Width = 05、设置命令按钮的属性时，只有将（ A ）属性设置为 1，Picture 属性才有效，否则无效。A、 Style B、 Caption C、Enabled D、Default6.窗体文件的扩展名是( C ) A、.bas ? B、.cls ? C、.frm ? D、.res7、 在窗体上画一个名称为 TxtA 的文本框， 然后编写如下的事件过程? Private Sub TxtA_KeyPress(keyascii as integer) ? ……? End Sub ?若焦点位于文本框中，则能够触发 KeyPress 事件的操作是( D ) A.单击鼠标 C.鼠标滑过文本框 B.双击文本框 D.按下键盘上的某个键8、在文本框中，要使键入的所有字符都显示&*&号。这时应该设置 __D__属性为&*& A、 Text B、 MultiLine C、 ScrollBars D、 PasswordChar9、唯一能区别一个控件的属性是__C__。A、Caption B、Text C、Name D、Index10、确定一个控件在窗体上位置的属性是__Left_______和 ___Top______。11、窗体边框类型的默认值是___2___。12、若要设置窗体为固定对话框，并包含控制菜单框和标题栏，但没 有最大最小化按钮，则应进行的属性设置是_BorderStyle=1_。13、在窗体(form1)上画一个文本框(text1)控件和两个按钮控件第 6 页 共 53 页Vb 程序设计实验项目(command1、command2)分别显示“向左”、“向右”。其中两个 命令按钮一个显示左移，一个显示右移。要求在每次按下命令按 钮后文本框可以向左或向右移动（不用考虑窗体边界）。1) 界面设计2）属性设置 控件对象 Command1 Command2 4）代码设计 Private Sub Command1_Click() Text1.Left = Text1.Left - 50 End Sub Private Sub Command2_Click() Text1.Left = Text1.Left + 50 End Sub 14、在窗体上部设置一个文本框（text1） ，文本框的下面设置 3 个 命令按钮，其中左边按钮（command1）中标有“单击此按钮”， 中间按钮（command2）中标有“清除”，右边按钮（command3） 中标有“程序结束”。当程序运行时，用鼠标单击左边按钮时， 屏幕上部的文本框中显示“欢迎使用 vb 6.0”;如果单击中间按第 7 页 共 53 页属性 Caption Caption属性值 向左 向右Vb 程序设计实验项目钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结 束程序。1)界面设计2）属性设置 控件对象 Command1 Command2 Command3 3）代码设计 Private Sub Command1_Click() Text1 = &欢迎使用 vb 6.0& End Sub Private Sub Command2_Click() Text1 = && End Sub Private Sub Command3_Click() End End Sub 15、在窗体上画一个文本框（text1）内容为空；两个命令按钮 （command1、command2） ，上面分别显示“消失”“出现” 、 。当单 击“消失”按钮时，文本框在窗体上消失；当单击“出现”按钮第 8 页 共 53 页属性 Caption Caption Caption属性值 单击此按钮 清除 程序结束Vb 程序设计实验项目时文本框在窗体上显示，并且在文本框中显示“Hello World” 字样，字体大小为 16。1)界面设计2）属性设置 控件对象 Command1 Command2 3）代码设计 Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True Text1 = &Hello World& Text1.FontSize = 16 End Sub 16、在名称为 Form1 的窗体上，画一个文本框和命令按钮。文本框的 名称为 Txt1，内容为&全国计算机等级考试二级&。命令按钮的 名称为 Cmd1，标题为&计算&。编写适当的事件过程，使得程序 运行时，选择文本框中的几个字符，然后单击命令按钮，将所选 属性 Caption Caption 属性值 消失 出现第 9 页 共 53 页Vb 程序设计实验项目择的字符数在窗体上输出。程序中不得使用任何变量。注意：保 存时窗体文件名为 kt2.frm，工程文件名为 kt2.vbp。1）界面设计2）属性设置 控件对象 Text1 Command1 Cmd1 Txt1 3）代码设计 Private Sub Cmd1_Click() Print Txt1.SelTextEnd Sub属性 Name Name Caption Caption属性值 Txt1 Cmd1 计算全国计算机等级考试二级17、在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，编写 适当的事件过程。程序运行后，如果单击窗体，则可使文本框移 到窗体的左上角；而如果改变文本框中的内容，则可使文本框移 到窗体的右上角。1）界面设计第 10 页 共 53 页Vb 程序设计实验项目2）属性设置(采用默认值) 控件对象 属性 属性值3）代码设计Private Sub Form_Click()Text1.Left = 0 Text1.Top = 0 End Sub Private Sub Text1_Change() Text1.Left = Form1.Width - Text1.Width Text1.Top = 0 End Sub 18、命令按钮，字号、内 容和格式的复制练 习，效果如图 3-1， 设置属性， 并且编程 实现。1）属性设置第 11 页 共 53 页Vb 程序设计实验项目控件对象属性属性值2）代码设计心得体会（可以从以下几个方面来总结：你在上机过程中遇到了 心得体会：哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪 些？你有什么没有解决的问题？等）第 12 页 共 53 页Vb 程序设计实验项目试院（系） 班级 专业 实验 名称 所用 软件 实 验 目 的 或 要 求 实 验验报告（3）日期实验室 计算机号 成绩评定 教师签名课程名称学号 姓名 掌握 VB 运算符和表达式Vb6.01．掌握基本语句（Print 语句、赋值语句、Dim 语句等）的使用。2．掌握表达式的正确书写方法及函数、运算符的正确使用。1、 有如下语句 print chr(65); Asc(“def”); Sqr(4)，其执行结果 是__A 100 2_______。2、已知字符串 A 的值为“AbcDe“，现在把它全部转换为大写字母，步正确的语句是______Ucase(“AbcDe“)________。骤 、 心 得 体 会3、 有如下程序 a=300 b=20 a=a + b b=a C b a=a C b print a print b 分析该程序的功能是_____a 与 b 互换______ 4、可以同时删除字符串前导和尾部空白的函数是（C） 。第 13 页 共 53 页Vb 程序设计实验项目A. Ltrim B. Rtrim C. Trim D. Mid 5、下列不正确的标识符是（B） 。A.a123 B.a?b C.a12_3 D.abcdefg 6、如果一个变量未经定义就直接使用，则该变量的类型为( D )? A.Integer ? B.Byte ? C.Boolean ? D.Variant 7、 编程实现如下功能在窗体上建有 2 个标签控件(Label1、 Label2) 分别显示 “华氏温度” “摄氏温度” 2 个文本框(Text1、 和 、 Text2) 和两个命令按钮(Command1、Command2)分别显示“华氏转摄氏” 和“摄氏转华氏” Text1、Text2 分别用于输入和显示华摄氏温 。度，其 Text 属性为空；Command1、Command2 分别用于“华氏转 摄氏” “ 摄氏 转华氏 ”(Caption 属 性) ， 温度转 换公 式为、 F=9/5*C+32(其中 F 为华氏温度，C 为摄氏温度)。1）界面设计2）属性设置 控件对象 属性 属性值3）代码编辑8、在名称为 Form1 的窗体上画两个文本框，名称分别为 T1 和 T2，第 14 页 共 53 页Vb 程序设计实验项目初始情况下都没有内容。请编写适当的事件过程，使得运行时， 在 T1 中输入的任何字符，立即显示在 T2 中。程序中不得使用任 何变量。1）界面设计2）属性设置 控件对象 属性 属性值3）代码编辑9、在名称为 Form1 的窗体上画一个文本框，其名称为 T1，宽度和高 度分别为 1400 和 400；再画两个命令按钮，其名称分别为 C1 和 C2，标题分别为“显示”和“扩大” ，编写适当的事件过程。程序 运行后，如果单击 C1 命令按钮，则在文本框中显示“等级考试” ； 如果单击 C2 命令按钮，则使文本框在高、宽方向上各增加一倍， 文本框中的字体大小扩大到原来的 3 倍。1）界面设计第 15 页 共 53 页Vb 程序设计实验项目2）属性设置 控件对象 属性 属性值3）代码编辑心得体会（可以从以下几个方面来总结：你在上机过程中遇到了 心得体会：哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪 些？你有什么没有解决的问题？等）第 16 页 共 53 页Vb 程序设计实验项目试院（系） 班级 专业 实验 名称 所用 软件 实 验 目 的 或 要 求 实 验 步 骤 、 心 得 体 会验报告（4）日期实验室 计算机号 成绩评定 教师签名课程名称学号 姓名 VB 控制结构 VB6.01.掌握数据的动态输入 InputBox 和信息提示 MsgBox； 2.掌握逻辑表达式及关系表达式的正确书写形式。3.掌握 IF 语句写格式及其正确使用。4.掌握情况控制语句的使用及与多分支条件语句的区别。5.掌握 For 语句的使用。6.掌握 Do 语句各种形式的使用。1、设 a=2, b=3, c=4, d=5, 求下列表达式的值(1) a & b AND c&=d _____False_____ (2) b & c AND d&a _____True____ _ (3) a & c OR d&=b _____True _____ (4) a & b OR c&=d _____True______ (5) a & b AND c &=d OR 2*a&c __False__ (6) 3&2*b OR a=c AND b && c OR c& d ______ False____ 2、 将下列数学式子写成 vb 表达式(1) cos2(c+d) __Cos(2 * (a + d))__ (2) 5+3(a+b) ___5+3*(a+b)__ (3) cosx(sinx+1) ___ Cos(x) * (Sin(x) + 1)___ (4) e2+2 __exp(2)+2________ 3、以下语句的输出结果是（C） 。Print Format (32548.5,“000,000.00”) A. 32548.5 B. 32,548.5 C. 032,548.50 D. 32,548.50 4、设 x=4,y=8,z=7,以下表达式的值是( D ) ? x&y And (Not y&z) Or z&x第 17 页 共 53 页Vb 程序设计实验项目A.1 B.-1 C.True D.False 5、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事 件过程Private Sub Command1_Click() ? a$=″VisuaLBasic″ ? Print String(3,a$) ? End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是( A ) A.VVV B.Vis C.sic D.11 6、设有如下声明Dim X As Integer 如果 Sgn(X)的值为-1，则 X 的值是( D ) A.整数 B.大于 0 的整数 C.等于 0 的整数 D.小于 0 的整数 7、在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下代 码Private Sub Command1_Click() a = InputBox(&请输入 A 的值&) a = Val(a) b = InputBox(&请输入 B 的值&) b = Val(b) x = InputBox(&请输入 X 的值&) x = Val(x) a = a + b + x Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 1&CR&2&CR&3&CR&，则输出结果为______6_____。8、在窗体上添加一个名称为 command1 的命令按钮，然后编写如下事 件过程。Private Sub Command1_Click() x = InputBox(&Input&) Select Case x Case 1, 3 Print &分支 1& Case Is & 4 Print &分支 2& Case Else第 18 页 共 53 页Vb 程序设计实验项目Print &else 分支& End Select End Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是__ else 分支_。9、下列语句正确的是( C ) A.If A ≠B Then Print″A 不等于 B″ B.If A & &B Then Printf″A 不等于 B″ C.If A & &B Then Print″A 不等于 B″ D.If A ≠B Print″A 不等于 B″ 10、计算 z 的值，当 x 大于 y 时，z=x；否则 z=y。下列语句错误的 是( A ) A.If x&=y Then z=x:z=y B.If x&=y Then z=x Else z=y C.z=y:If x&=y Then z=x D.If x&=y Then z=y Else z=x 11、下列程序段的执行结果为( C )? a=5 ? For k=1 To 0 ? a=a + k ? Next k ? Pa ? A.-1 6 ? B.-1 16 ? C.1 5 ? D.11 21 12、下列程序段的执行结果为( B )? a=3 ? b=1 ? For I=1 To 3 ? f=a+b ? a=b ? b=f ? Print f ? Next I ? A.4 3 6 B.4 5 9 ? C.6 3 4 ? D.7 2 8 13、下列程序段的执行结果为( C )? a=5 ? For k=1 To 0 ? a=a + k ?第 19 页 共 53 页Vb 程序设计实验项目Next k ? Pa ? A.-1 6 ? B.-1 16 ? C.1 5 ? D.11 21 14、有如下程序：? Private Sub Command1_Click()? a =″A WORKER IS HERE″? x=Len(a)? For i=1 To x -1 ? b=Mid (a,i,3)? If b=″WOR″Then S=S+1 ? Next ? Print S ? End Sub ? 单击命令按钮，程序运行结果为( A ) ? A.1 ? B.2 ? C.3 ? D.5 15、在窗体上画一个命令按钮，然后写出如下事件过程：? Private Sub Command1_Click()? s=1 ? Do ? s=(s +1)^(s + 2)? Number = Number + 1 ? Loop Until s & =6 ? Print Number,s ? End Sub ? 程序运行后，输出的结果是( C ) ? A.2 3 ? B.3 18 ? C.1 8 ? D.10 20 16、在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事 件过程：? Private Sub Commandl_Click() ? c=1234 ? c1=Trim(Str(c)) ? For i=1 To 4 ? Print___ ? Next ? End Sub ? 程序运行后，单击命令按钮，要求在窗体上显示如下内容? 1第 20 页 共 53 页Vb 程序设计实验项目? 12 ? 123 ? 1234 ? 则在下划线处应填入的内容为( B ) ? A.A.Right(cl,i) B.Left(cl,i) ? C.Mid(cl,i,1) D.Mid(cl,i,i) 17、 有下面一个程序段， 从文本框中输入数据， 如果该数据满足条件， 除以 4 余 1，除以 5 余 2，则输出，否则，将焦点定位在文本框 中，并清除文本框的内容。? Private Sub Command1_Click()? x=Val(Text1.Text)? If___x mod 4=1 and x mod 5=2___Then ? Print x ? Else ? Text1.Text=″″? Text1.setfocus_? End If ? End Sub 18、下列程序的功能是：当 x&50 时，y=0.8 ? x；当 50≤x≤100 时， y=0.7×x；当 x＞100 时，没有意义。请填空。? Private Sub Command1_Click()? Dim x As Single ? x=InputBox(″请输入 x 的值！″)?? Select Case x_? Case Is&50 ? y=0.8 * x ? Case _else____? y=0.7 * x ? End Select_? Print″输入的数据出界！″? End Select ? Print x,y ? End Sub 19、有如下程序 Private Sub Command1_Click() Dim i%, j% For i = -3 To 3第 21 页 共 53 页Vb 程序设计实验项目Print Tab(7 + Abs(i)); For j = 1 To 7 - 2 * Abs(i) Print &*&; Next j Print Next i End Sub 执行程序后结果是____________________。20、有如下程序 i = 0n = 0 Do While i & 32 i = (i + 1) * (i + 1) n = n + 1 Loop Print n 执行后循环体执行了__4__次。21、已知 B 的 ASCII 码为 66，以下程序统计由键盘输入的字符串中 各英文字母的使用次数? Dim___pp(65 to 90)_as integer___? For i=65 To 90 ? pp(i) =0 ? Next ? x＄=InputBox(″Enter a string″,x＄)? x＄=UCase＄(x＄)? For i=1 To___len(x)______? n=Asc(Mid＄(x＄,i,1))? If n&=65 And n&=90 Then ? _pp(n)=pp(n)+1_______? End If ? Next i ? For i=65 To 90 ? If pp(i)&0 Then ? Print Chr＄(i);pp(i)? End If ? Next 22、在文本框中输入半径，计算后在标签中输出圆周长和面积。1)界面设计第 22 页 共 53 页Vb 程序设计实验项目2）属性设置 控件对象 属性 属性值3）代码编辑23、通过随机函数产生 2 个两位正整数显示在标签 label1、label2 中， 并且求这 2 个数之和并显示到 label3 中。1)界面设计2）属性设置 控件对象 属性 属性值3）代码编辑第 23 页 共 53 页Vb 程序设计实验项目24、利用随机函数模拟投币，每次随机产生一个 0 或者 1 的整数，1 代表正面，0 代表反面，窗体上有三个文本框，用于显示用户输 入投币的总次数、 出现正面的次数、 出现反面的次数。编程实现。1）界面设计2）属性设置 控件对象 属性 属性值3）代码编辑第 24 页 共 53 页Vb 程序设计实验项目25、输入矩形的长和宽，计算面积，要求对输入的长和宽进行合法性 检查，调用 Isnumeric 函数。（如果非法输入则将对应文本框的 内容清除，可以重新输入。） 注：在检测到是非法输入时，可尝试用 msgbox 过程给用户一个提 示：msgbox“输入非法”，“实验 6” ， 1)界面设计2）代码编辑26、已知学号由 9 个数码组成，如 ，其中从左算起前 2 位 表示年级，第 5 个数码表示学生类型，学生类型规定：2----博 士生，3----硕士生，4----本科生，5----专科生；设计程序， 从文本框(text1)中输入一个学号，单击按钮(command1)后在另 外两个文本框中显示该生的年级(text2)及学生类型(text3)。提示要用到字符串操作函数对学号（） ，进行取字串，然后 判断。例如X=text1.text ‘ x 中是学号字符串第 25 页 共 53 页Vb 程序设计实验项目第 5 个数码表示学生类型，则 mid(x,5,1),将字符串中第五个字 符取出，如果取出的字符是 4----本科生，进行判断后在 text3 中显示 If mid(x,5,1)=4 then text3.text=”本科生” 1）界面设计2）代码编辑27、输入三个数（x,y,z） ，通过编程，使得 x&y&z,然后将排序好的 数列输出。（用两种方法） 1）界面设计2）代码编辑 方法一第 26 页 共 53 页Vb 程序设计实验项目方法二28、编写一个程序，输入上网时间并且计算上网费用，计算方法 基数 30 元 上网时间&10 小时 费用= 每小时 2.5 元 上网时间 10~50 小时 每小时 2 元 上网时间&=50 小时 同时为了鼓励多上网，每月收费做多不超过 150 元。1）界面设计2）代码编辑第 27 页 共 53 页Vb 程序设计实验项目29、勾股定理中三个数的关系是 a +b =c 。编写程序，输出 1-20 以内 满足条件的整数组合。例如：3，4，522230、 （1）以上三角的形式输出九九乘法表 （2）以下三角的形式输出九九乘法表31、编写一个程序，输出所有水仙花数。所谓水仙花数，是指一个三 位数， 其各位数字立方和等于该数字本身， 是一个水仙花数， 153 3 3 3 153=1 +5 +3第 28 页 共 53 页Vb 程序设计实验项目32、编程计算下列 S 的值。(1)S=1+2+3+…+100 (2)S=1×2×3×…×100（可以从以下几个方面来总结：你在上机过程中遇到了 心得体会得体会哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪 些？你有什么没有解决的问题？等）第 29 页 共 53 页Vb 程序设计实验项目试院（系） 班级 专业 实验 名称 所用 软件 实 验 目 的 或 要 求 实 验 步 骤 、 心 得 体 会验报告（5）日期实验室 计算机号 成绩评定 教师签名课程名称学号 姓名 数组VB6.01、理解和掌握数组的基本概念以及静态数组的声明方式和使用 2、理解动态数组的声明方式和使用 3、理解掌握数组的基本操作 4、掌握控件数组在程序设计中的应用方法和技巧 5、掌握自定义数据类型的定义和使用1、下面数组声明语句中正确的是____B______。A. Dim A[3,4] As Integer B. Dim A(3,4) As Integer C. Dim A[3.4] As Integer D. Dim A(3.4) As Integer 2、下面数组声明语句中正确的是____C____。A. Dim A[1,5] As String B. Dim A[1to5,1to5] As String C. Dim A(1 to 5) As String D. Dim A(1:5,1:5) As String 3、读下列程序 Dim a(5) For I=1 to 5 A(I)=I*I Next I Print a(I-1) 执行程序段的结果是_____25_____。4.设有声明语句 ? Dim b(-1 To 10,2 To 9,20) As Integer 则数组 b 中全部元素的个数为_____2016_____。5、在窗体上画一个名称为 Command1 的命令按钮，然后 编写如下代码：第 30 页 共 53 页Vb 程序设计实验项目Option Base 1 Private Sub Command1_Click() ? d=0 ? c=10 ? x=Array(10,12,21,32,24) ? For i=1 To 5 ? If x(i)&c Then ? d=d+x(i) ? c=x(i) ? Else ? d=d-c ? End If ? Next i ? Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为( C ) A.89 B.99 ? C.23 D.77 6、 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的 命令按钮，然后编写如下事件过程? Private Sub Command1_Click() Dim array1(10,10)As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) ? End Sub ?程序运行后，单击命令按钮，在文本框中显示的值是( A ) ? A.12 B.13 C.14 D.15 7.下列程序段的执行结果为( C )? Dim t(10)? For k = 2 To 10 ? t(k) =11-k ? Next k ? x=6 ?第 31 页 共 53 页Vb 程序设计实验项目Print t(2 + t(x)) ? A.2 ? B.3 ? C.4 ? D.5 8、下列程序段的执行的结果是( A )? Dim a(10)，b(10)? i=3 ? For j=1 To 5 ? a(j) =j ? b(i) =2 * i + j ? Next j ? Print b(i)；a(i) ? A.11 3 ? B.3 15 ? C.3 11 ? D.15 3 9、以下定义数组或给数组元素赋值的语句中，正确的是( A ) A.Dim a As Variant B.Dim a(10)As Integer a=Array(1,2,3,4,5) a=Array(1,2,3,4,5) C.Dim a%(10) a(1)=″ABCDE″ 10、有如下事件过程 Private Sub Command1_Click() Dim a a=array(“a”,”b”,”c”,”d”,”e”,”f”,”g”) Print a(1); a(3); a(5) End Sub 执行程序段的结果是__”b” ”d” ”f”_____。11、有如下程序段 Dim a(4) As Integer,b(4) As Integer For k=0 to 2 a(k+1)=Val(InputBox(“请输入数据：”)) b(3-k)=a(k+1) Next k Print b(k) 执行程序段的结果是____b(3)___。12、有如下程序段 Dim max As Integer,imax As Integer Max=ia(1):imax=1:sum=ia(1) For I=2 to 10 sum=sum+ia(I) If ia(I)&Max Then第 32 页 共 53 页Vb 程序设计实验项目Max=ia(I) imax=I End If Next I Print Max,imax 执行程序段的功能是_找出数组 ia 中最大元素及所在的位置 。13、在窗体上画一个命令按钮 Command1，然后编写如下代码 Private Sub Command1_Click() Dim a(5,5) For I=1 To 3 For j=1 to 4 A(I,j)=I*j Next j Next I For n=1 To 2 For m=1 to 3 Print a(m,n)； Next m Next n End Sub 执行 Command1 的单击事件后输出结果是__1 2 3 2 4 6__。14、以下能正确定义数据类型 TelBook 的代码是( A ) A.Type TelBook B.Type TelBook ? Name As String*10 Name As String*10 TelNum As Integer TelNum As Integer End Type End TelBook C.Type TelBook D.Typedef TelBook ? Name String*10 Name String*10 ? TelNum Integer TelNum Integer ? End Type TelBook End Type 15、在窗体上有一个名称为 Label1 的标签和一个名称 List1 的列表 框。程序运行后，在列表框中添加若干列表项。当双击列表框中 的某个项目时，在标签 Label1 中显示所选中的项目。请在空白 处填入适当的内容，将程序补充完整。? Private Sub Form_Load() ? list1.AddItem&北京& ? list1.AddItem&上海&第 33 页 共 53 页Vb 程序设计实验项目? list1.AddItem&河北& ? End Sub ? Private Sub List1_【DblClick】 () ? label1.Caption=_【List1.Text】__ ? End Sub 16.设有如下程序? Option Base 0 ? Private Sub Form_Click() ? Dim a ? Dim i As Integer ? a=Array(1,2,3,4,5,6,7,8,9) ? For i=0 To 3 ? Print a(5-i); ? Next ? End Sub ?程序运行后，单击窗体，则在窗体上显示的是___C_____。A.4 3 2 1 B.5 4 3 2 C.6 5 4 3 D.7 6 5 4 17、编辑程序。用户随机输入一串字符串，通过单击事件统计各个字 母出现的次数（不区分大小写）并输出结果。18、随机产生 30~100（包括 30 和 100）的 10 个正整数，求最大值、 最小值、平均值，并且显示整个数组的值和结果。第 34 页 共 53 页Vb 程序设计实验项目19、随机产生 20 个学生的成绩，统计各个分数段的人数，产生的数 据和统计的结果都要求在窗体上显示。20、设计一个选课运行界面，它包括两个列表框，两个标签，左边的 标签 label1 内容为“供选课课程” ，左边的列表框 list1 中为已 经开设的供选择的课程名称 （课程内容自定）右边的标签 label2 ， 内容为“我选的课程” ，右边有一个列表框 list2，当单击左边第 35 页 共 53 页Vb 程序设计实验项目列表框中的课程名称时，将该课程加入到右边的列表框中，并在 左边列表框中删除该门课程，当右边课程数已经满 5 门时，不允 许再加入，并且给相应的提示（msgbox） 。（1）界面设计（2）代码设计21、从键盘输入 10 个整数，按照从大到小的顺序排列并输出。第 36 页 共 53 页Vb 程序设计实验项目22、 利用控件数组建立一组命令按钮 （四个） 内容分别为 “+” “-” ， （ ， ， “×” “÷”，单击按钮可以完成对窗体上两个文本框上的内容 ， ） （text1，text2）进行相应的计算，并且将结果显示在 text3 上 1）界面设计2）代码设计心得体会（可以从以下几个方面来总结：你在上机过程中遇到了 心得体会：哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪 些？你有什么没有解决的问题？等）第 37 页 共 53 页Vb 程序设计实验项目试院（系） 班级 专业 实验 名称 所用 软件 实 验 目 的 或 要 求 实 验 步 骤 、 心 得 体 会验报告 (6)日期实验室 计算机号 成绩评定 教师签名课程名称学号 姓名 过程VB6.01、理解掌握函数过程的定义和调用方法 2、理解掌握子过程的定义和调用方法 3、理解掌握参数传递 4、掌握变量和过程的作用域 5、理解递归的概念1、下面的过程定义语句中合法的是__D__。A. Sub Pro(Byval n()) B. Sub Pro(n) As Integer C. Function Pro(Pro) D. Function Pro(Byval n) 2、若需通过过程调用返回两个结果，下面的过程定义语句合法的是 ____C_____。A. Sub Pro(Byval n, Byval m) B. Sub Pro(n, Byval m) C. Sub Pro(n,m) D. Sub Pro(Byval n, m) 3、有如下程序段 Dim m(10) For I=0 to 10 m(I)=2*I Next I Print m(m(3)) 程序段执行的结果是____12____。第 38 页 共 53 页Vb 程序设计实验项目4、有如下事件过程 Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S End Sub Pblic Function P(n As Integer) Static sum For i=1 To n sum=sum+i Next I P=sum End Function 单击命令按钮后，程序执行的结果是_____35_______。5、有如下事件过程 Private Sub Command1_Click() Print MyFun(24,18) End Sub Pblic Function MyFun(m As Integer,n As Integer) As Integer Do while m&&n Do While m&n:m=m-n:Loop Do While m&n:n=n-m:Loop Loop MyFun=m End Function 单击命令按钮后，程序执行的结果是_____6_______。6、有如下程序 Private Sub Value(Byval m As Integer, Byval n As Integer) m=m*2:n=n-5n End Sub Private Sub Form_Click() Dim x As Integer x=10:y=15 call value(x,y) Py第 39 页 共 53 页Vb 程序设计实验项目End Sub 单击窗体后，程序执行的结果是_ 20 10 10 15____。7、有如下程序 Sub ss(Byval x, Byref y,z) x=x+1 y=y+1 z=z+1 End Sub Private Sub Command1_Click() A=1:B=2:C=3 Call ss(A,B,C) Print A,B,C End Sub 单击命令按钮后，程序执行的结果是__1 3 4 。分析原因可知变量__x 是传值方式，y 和 z 是传址方式___。8、填空补充程序。设工程中包含一个窗体模块和一个标准模块。在 标准模块中的过程用于求 m 行 n 列二维数组 a 各行元素的和，并 将和保存在一维数组 b 中。窗体模块中的代码实现窗体单击时产 生（0，10）之间的随机整数，存于 5 行 6 列的二维数组 x 中，并 以 5 行 6 列的形式显示在窗体上，调用标准模块中的过程求每行 元素的和，并输出求和结果。标准模块Sub asum( _____m,n,a(),b()_______) For i=1 To m b(i)=0 For j=1 To n b(i)=b(i)+a(i,j) Next j Next i End Sub Private Sub Form_Click() Dim x(5,6) As Integer,y(5) As Integer For i=1 To 5 For j=1 To 6第 40 页 共 53 页Vb 程序设计实验项目x(i,j)=Int(Rnd*9+1) Print _x(I,j)________ Next j Print _____ Next i Call asum(5,6,x(),y()) For i=1 To 5 Print y(i) Next i End Sub 9、编辑函数求两数中较大数。利用窗体单击事件给函数传值并输出 结果到窗体上。10、 编写 Function 过程用以判断某数是否能同时被 17 和 37 整除。输出
间所有能同时被 17 和 37 整除的数。第 41 页 共 53 页Vb 程序设计实验项目11、 编写求 fac(n)=n!的函数。n 值由文本框输入，通过单击事件调 用函数，求得结果输出到文本框第 42 页 共 53 页Vb 程序设计实验项目试院（系） 班级 专业 实验 名称 所用 软件 实 验 目 的 或 要 求 实 验 步 骤 、 心 得 体 会验报告 (7)日期实验室 计算机号 成绩评定 教师签名课程名称学号 姓名 用户界面设计VB6.01、掌握单选按钮、复选按钮和框架的常用属性、事件、方法及其使用 2、掌握滚动条、进度条的常用属性、事件、方法及其使用 3、定时器、图形框和图像框的常用属性、事件、方法及其使用 4、掌握通用对话框的属性、方法及其应用 5、掌握菜单的设计方法 6、掌握多重窗体和多文档界面的建立和相关属性、事件和方法 7、理解鼠标器和键盘事件1、以下说法正确的是（ ） 。A. 任何时候都可以使用“工具”菜单下的命令打开菜单编辑器 B. 只有当某个窗体为当前窗体时，才能打开菜单编辑器 C. 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 D. 任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开 菜单编辑器 2、下面关于子菜单的说法错误的是（ ） 。A. 每个菜单项都是一个控件，与其他控件一样具有属性和事件 B. 除了 Click 事件以为，菜单项不科研响应其它事件 C. 菜单的索引号可以不连续 D. 菜单的索引号必须从 1 开始 3、编写如下事件过程 Private Sub From_KeyDowm(Keycode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub第 43 页 共 53 页Vb 程序设计实验项目Private Sub From_KeyPress(KeyAscii As Integer As Integer) Print Chr(KeyAscii) End Sub 在一般情况下（即未按下 Shift 键和大写锁定键） ，运行程序，若按 “a”键，则程序的输出是（ ） A. A B. a C. A D.a a A A a 4、以下各选项说法错误的是（ ） A.通用对话框的 Name 属性的默认值为 CommonDialogX。此外， 每种对话框都有自己的默认标题 B.文件对话框可分为两种，即打开（Open）文件对话框和保存 （Save）文件对话框 C.打开文件对话框可以让用户指定一个文件，由程序使用；而保 存文件对话框可以指定一个文件， 并以这个文件名保存当前文 件 D.DefaultEXT 属性和 DialogTitle 属性都是打开对话框的属性， 但非保存对话框的属性 5、编程建立由 CommonDialog 控件提供的 5 种对话框。要求在 Form 的 Load 事件中通过代码为每个单选按钮的 Caption 属性赋值， 然 后设置命令按钮的字体和 Caption 属性。如图，执行后应显示相 应对话框。第 44 页 共 53 页Vb 程序设计实验项目6、菜单设计如图界面，编程完成简单算术运算。其中：第 45 页 共 53 页Vb 程序设计实验项目注意:在此题当中我们所有的动作都是通过菜单的单击来完成的.对 于所生成的随机数可以在规定的上限、下限范围内产生。7、编辑一个程序。要求在窗体上按下鼠标左键时弹出一个窗口用于 输入一个学生 3 门课成绩计算总分和平均分； 按下右键退出程序。第 46 页 共 53 页Vb 程序设计实验项目心得体会：（可以从以下几个方面来总结：你在上机过程中遇到 心得体会：了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有 哪些？你有什么没有解决的问题？等）第 47 页 共 53 页Vb 程序设计实验项目试院（系） 班级 专业 实验 名称 所用 软件 实 验 目 的 或 要 求 实 验 步 骤 、 心 得 体 会验报告 (8)日期实验室 计算机号 成绩评定 教师签名课程名称学号 姓名 数据文件VB6.01、掌握文件系统控件的使用方法 2、了解文件的概念，基本结构和分类 3、掌握顺序文件的访问模式和相关操作语句 4、掌握随机文件的访问模式和相关操作语句 5、掌握二进制文件的访问模式和相关操作语句 6、与文件相关的函数1、以下叙述不正确的是_________。A. 对顺序文件中的数据操作只能按一定的顺序执行 B. 顺序文件结构简单 C. 能同时对顺序文件进行读写操作 D. 顺序文件的数据以字符（ASCII 码）的形式存储 2、要在 C 盘当前文件夹下建立一个名为 Stud.at 文件，应先使用 _________语句。A. Open “stud.dat” For Output As #2 B. Open “stud.dat” For Intput As #2 C. Open “C:\stud.dat” For Output As #2 D. Open “C:\stud.dat” For Input As #2 3、要在 C 盘当前文件夹下建立一个名为 Work.txt 的顺序文件。要求 用 InputBox 函数输入 5 个工人的姓名 （WorkName）工资 、 （Workup） 、 工龄（WorkAge） 。查看以下个空应填入的内容。Private Sub Form_Click() _________(1)_________ For i=1 To 5第 48 页 共 53 页Vb 程序设计实验项目WorkName=InputbBox(“请输入姓名”) Workup= InputbBox(“请输入工资”) WorkAge= InputbBox(“请输入年龄”) _________(2)_________ Next i _________(3)________ End Sub 供选择的答案(1)A. Open “C:\Work.txt” For Input As #1 B. Open “Work.txt” For Input As #1 C. Open “C:\Work.txt” For Output As #1 D. Open “Work.txt” For Output As #1 (2)A. While Not EOF(1) B. While EOF(1) C. Write #1,WorkName.Workup,WorkAge D. Write #1,”WorkName.Workup,WorkAge” (3)A. Close #1 B. Close Work.txt C. Close Work D. Close 1 4、打开上题建立的顺序文件 Work.txt，读文件中的数据并显示在窗 体上。Private Sub Form_Click（） _________(1)________ Do While _________(2)______ _________(3)________ Print WorkNames；Tab（10） ；Workup；Tab（20） ；WorkAge Loop Close #1 End Sub 5、在 C 盘根目录下建立 Data.txt 文件。要求利用文本框输入若干英 文单，每次按下回车键时写入一条记录，并清除文本框中内容，第 49 页 共 53 页Vb 程序设计实验项目直到在文本框中输入“END”为止。提示：读取文本框中字符串后应先做判断，然后决定是否需要写 入文件当中去。心得体会：（可以从以下几个方面来总结：你在上机过程中遇到 心得体会：了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有 哪些？你有什么没有解决的问题？等）第 50 页 共 53 页Vb 程序设计实验项目试院（系） 班级 专业 实验 名称 所用 软件 实 验 目 的 或 要 求 实 验 步 骤 、 心 得 体 会验报告 (9)日期实验室 计算机号 成绩评定 教师签名课程名称学号 姓名 图形操作VB6.01、了解图形操作基础 2、掌握绘图的相关属性 3、理解掌握图形控件的使用和绘图方法1、编程利用 Line 方法在窗体上随机产生 20 条长度、宽度、颜色各 异的直线。注意：绘制的线段应该有颜色、粗细长短的变化。第 51 页 共 53 页Vb 程序设计实验项目2、编程利用 Pset 方法在窗体上画 200 个随机点。要求颜色、大小、 位置各异。提示：在此题中我们可以引用随机数和当前坐标的概念来决定点 的显示位置，以此实现位置各异的要求。3、编程利用 Circle 方法绘制如图所示图形。第 52 页 共 53 页Vb 程序设计实验项目心得体会心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有 哪些？你有什么没有解决的问题？等）第 53 页 共 53 页