vb实验报告总结_0

1 / 18 vb实验报告总结 内蒙古工业大学能动学院 实 验 报 告 课程名称： 高级语言程序设计 实验名称：选择、循环、数组和过程综合程序设计 实验类型： 验证性 综合性 设计性 实验室名称： 校计算中心 班级： 学号： 姓名： 组别： 同组人：成绩：实验日期： 实验报告撰写要求 一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 1 实验目的 2 实验用仪器设备、器材或软件环境 3 实验原理、方案设计、程序框图、预编程序等 4 实验过程中需要记录的实验数据表格 二、 实验过程中，要认真观察，仔细记录 三、 完成实验后用实验报告纸撰写实验报告，包括以下内容 1 仪器设备型号及编号 2 实验器材或软件环境 3 实验步骤、程序调试方法 4 实验数据处理及结2 / 18 果分析 5 实验中存在的问题 6 体会及思考题 四、 报告撰写时，要求格式规范、书写整齐 预习报告成绩： 指导教师审核： 年 月 日 预习报告 实验目的 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。 实验仪器及软件环境： 普通台式电脑、 microsoft visual basic 标准环境下 实验原理： 利用 Rnd 函数产生 80 个随机整数，再利用 For循环将产生的随机整数入到数组中，最后用 If 语句按每行10 个数输出到第一个文本框中 ；用 If 句和 Mod 函数判断是否为奇偶数，后利用冒泡排序法将奇偶数排序分别输到二、三文本框中。调用 Function 函数判断素数，利用 For 循环和 If 函输出，用累计求和法将素数的个数求出放入第四、五个文本框中。 方案设计： 界面设计如下： 图片已关闭显示，点此查看 存语出数 3 / 18 程序框图如下 图片已关闭显示，点此查看 预编代码： 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) = & & c(i) s = s + 1 If s Mod 10 = 0 Then = & 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) 4 / 18 b(i) = b(n + 1 - i) b(n + 1 - i) = l Next i End Sub Private Sub Command2_Click() For i = 1 To m = & & a(i) p = p + 1 If p Mod 10 = 0 Then = & vbCrLf End If Next i End Sub Private Sub Command3_Click() For i = 1 To n = & & b(i) q = q + 1 If q Mod 10 = 0 Then = & 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 = & & c(i) j = j + 1 End If If j Mod 10 = 0 Then = & vbCrLf End If = o = 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 5 / 18 Next i End Function Private Sub Command5_Click() End End Sub 实验报告成绩： 指导教师审核： 年 月 日 实验报告 实验仪器及软件环境： 普通台式电脑、 microsoft visual basic 标准环境下 实验步骤 1、在 VB环境中，建立新的窗体，在窗体上添加6 个文本框， 6个标签， 5个按钮控件 2、设置各控件属性，如下表 图片已关闭显示，点此查看 图片已关闭显示，点此查看 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) 6 / 18 x(i) = Int(10 + Rnd * 90) = & & x(i) s = s + 1 If s Mod 10 = 0 Then = & 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 Private Sub Command2_Click() For i = 1 To m = & & a(i) p = p + 1 If p Mod 10 = 0 Then = & vbCrLf End If Next i End Sub 7 / 18 Private Sub Command3_Click() For i = 1 To n = & & b(i) q = q + 1 If q Mod 10 = 0 Then = & 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 = & & x(i) j = j + 1 End If If j = 10 Then = & vbCrLf End If = o = 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 = False: Exit For Next i End Function Private Sub Command5_Click() End End Sub 4、按 F5键运行程序，如若无法运行则中止，重新调试代码。 运行后界面如下： 图片已关闭显示，点此查看 8 / 18 实验中遇到的问题 在运行中当弄素数时，总出现个数为 80 ，而且有的不是素数，应 Function 函数时，无法运行，应用冒泡排序无法正常运行。 实验体会 通过此次试验，我初步掌握了冒泡排序法的使用，也弄懂了 Function 数的应用方法。经过多次的实验，明白了做许多实验需要耐心，细心检查一步，明白了试验成功的艰难，为我以后继续做实验奠定了基础，本次 实对于我很有意义，使我对计算机中的方法和函数有了深入了解。 用 函 每验 图片已关闭显示，点此查看 图片已关闭显示，点此查看 编号： 2016 2016 学年第二学期 实 验 报 告 实验课程名称 VB程序设计基础与 VBA应用 浙江大学城市学院实验报告 课程名称 VB 程序设计基础与实验 实验项目名称 实验二、程序设计基础 1 学生姓名 专业班级 学号 9 / 18 实验成绩 指导老师 日期 一 . 实验目的和要求 1. 掌握运算符的使用。 2. 掌握表达式的正确书写规则。 3. 掌握常用函数的使用。 4. 掌握 InputBox、 MsgBox函数的使用。 5. 熟悉掌握赋值语句的使用。 6. 掌握顺序结构的应用程序的编程过程。 二 . 实验内容和原理 【练习 2-1】打开立即窗口，输入 以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中： ? 35 /5 mod 13 2+5 Print Not(badbed) BirthDay = #5/18/1980# Birth$ = 出生日期： & BirthDay Print Birth$ a = 10 b = 15 c = -9 看 Print Mid(Visual Basic , 8, 5) Print Instr(Visual Basic ,” Ba”) Print Len(VB程序设计 ) Print UCase(Hello!) Print 浙江 & Space(2) & 杭州 Print Date, 10 / 18 Date+7 Print hour(Time) Print 345 / 7347, Format(345 / 7347, #) Print Sqr(9) Print Abs(-25) Print Rnd, Rnd Print Sin(30 * / 180) Print Int(-), Int() 【练习 2-2】设计一程序，窗体 Form1 上有两个文本框，窗体界面如下所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次，两个文本框的内容交换一次。 提示： (1)可以参考教材中两个变量值交换的例子 (2)可以定义中间交换变量 Dim c as string (3)赋值语句的 ”=” 的前后项不要写颠倒 图片已关闭显示，点此查看 上机实践 编写、调试运行以上程序。 Private Sub Form_Click() Dim c As String c = Text1 Text1 = Text2 Text2 = c End Sub Private Sub Text1_Click() Dim Text1 As String End Sub Private Sub Text2_Click() Dim Text2 As String End Sub 【练习 2-3】设计一个程序，在文本框内输入任意字11 / 18 符串，例如 “ 美丽的西湖 ” ，对字符串进行字体放大或缩小。 下图是窗体的设计界面和经过放大操作后的运行效果。要求： (1)单击 “ 放大 ” 按钮，将文本框中的字符串放大，放大的倍数通过随机函数 Rnd 产生，范围在 1 5 倍。为了使每次运行时产生不同的放大倍数，程序初始时应执行Randomize 语句。 (2)同样，单击 “ 缩小 ” 按钮进行缩小，缩小的倍数也通过上述方式产生。 (3)单击 “ 还原 ” 按钮，字体大小恢复成初始状态。 (4)程序启动时，文本框中的字体大小为 12磅。 图片已关闭显示，点此查看 图片已关闭显示，点此查看 程序界面设计 根据题目的要求，在界面上拖放 1 个标签、 1 个文本框和 3个命令按钮，并按下表设置对象的相关属性。 表 2.？上机练习一之 3 题的属性设置表 图片已关闭显示，点此查看 部分事件代码 Private Sub Command1_Click() Dim n As Integer Randomize n = Int(Rnd * 5) + 1 12 / 18 = * n End Sub Private Sub Command1_Click() Dim n As Integer Randomize n = Int(Rnd * 5) + 1 = * n End Sub Private Sub Command2_Click() Dim n As Integer Randomize n = Int(Rnd * 5) + 1 = / n End Sub Private Sub Command3_Click() = 12 End Sub 【练习 2-4】设计一个根据摄氏温度求对应的华氏温度的程序。下图是设计窗体，窗体上有 2个标签框作提示使用； 2 个文本框 Text1 和 Text2 分别作输入和显示； 3个命令按钮， 名称分别是 Command1、 Command2、 Command3，标题分别是 “ 计算 ” 、 “ 清除 ” 、 “ 退出 ” 。 在 Text1 中输入摄氏温度后，单击 “ 计算 ” 按钮，右文本框内显示出该摄氏温度对应的华氏温度；单击 “ 清除 ” 按钮使得 2 个文本框的内容被清除；单击 “ 退出 ” 按钮结束程序运行。 计算公式： F=9C/5+32，其中 C 表示摄氏温度， F 表示华氏温度。 图片已关闭显示，点此查看 上机实践 编写、调试运行以上程序。 Private Sub 13 / 18 Command1_Click() Dim f As Single, c As Single c = Val() f = 9 * c / 5 + 32 = Str(f) End Sub Private Sub Command2_Click() = = End Sub Private Sub Command3_Click() End End Sub 【练习 2-5】两个窗体的运行界面如下，两窗体标题分别为 “ 启动窗体 ” 、 “ 第二个窗体 ” ，启动窗体的背景色是红色，第二个窗体的背景色是绿色，单击启动窗体的命令按钮 “ 下一窗体 ” ，显示出第二个窗体，隐藏启动窗体，单击第二个窗体的命令按钮 “ 返回 ” ，关闭第二个窗体，显示出启动窗体。 图片已关闭显示，点此查看 练习 1-6 运行界面 命令按钮 “ 返回 ” 的事件过程如下，写出启动窗体命令按钮的事件过程。 Private Sub Command1_Click() End Sub 上机实践 编写、调试运行以上程序，运行界面参考上图。 1. 14 / 18 Private Sub Command1_Click() End Sub 2. Private Sub Command1_Click() End Sub Private Sub Command2_Click() End End Sub 请你思考 在这个练习中要考虑怎样在同一工程中建立多个窗体，以及多个窗体的保存。在此题中保存了几个文件？先后次序分别是什么？ 三 . 讨论、心得 台州学院 VB程序设计实验报告 实验九：文 件 班级：环境工程 3班 学号： 1331240082 姓名：吕姗姗 实验日期： 一、实验目的和要求 1熟练掌握顺序文件的基本操作； 2熟练掌握驱动器列表框、目录列表框和文件列表框等三个文件操作控件的功能和建立。 二、实验主要仪器和设备 计算机一台， Windows XP 操作系统， Visual Basic15 / 18 环境。 三、实验内容 实验 编程，设计如图 9-1 所示的图片欣赏程序，其中窗体上放置驱动列表框、目录列表框和文件列表框三个控件，设置属性使得三个控件能够联运；设置文件列表框只显示 *.bmp 和 *.jpg 类型的图片文件；当单击文件列表框上的某图片文件名时，图片显示在图片框中。 图片已关闭显示，点此查看 图 9-1 图片欣赏运行界面 实验 某文本文件以下列格式存储若干学生的学号和两门课成绩，编写单击窗体的事件过程： 用通用对话框控件 Commondialog1 选择该文件； 在 Label1(0) Label1(1)显示总分最高的学生之学号、总分。 文本文件格式 “05010101”,78,89 “05010102”,83