VB综合实验8_08_09(1)

合集下载

VB实验指导书_理论综合练习题_答案(完结版).doc

第二部分综合练习理论练习一一单选1-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA二多选1 ABCE 2CE 3 BCE 4 ADE 5 ABCD6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE三判断1-5 X V X V V6-10 V X V V V四填空1 x=int(Rnd*101)End If avg=s/82 i=l to 10Right(str(i),l)或Right(str(i mod 10))3 m*n/GCD(m,n)GCD(b, a mod b)4 Exit For i & “是素数”Next i五阅读程序1-4 DDCB六程序设计1Option Base 1Private Sub Form_click()Dim a( 10)Ciscreatedata a()sort a()Fori= ITo 10Print a(i);Next iEnd SubSub createdata(a())Fori = ITo 10a(i) = Int(Rnd * 101)Next iEnd SubSub sort(a())For i = 1 To 9Forj = 1 To 10-iIf a(j) > a(j + l)Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iEnd Sub2Private Type ksno As String * 8Bscj As IntegerSjcj As IntegerEnd TypeDim student As ksPrivate Sub Form_Load()Open "c:\ksxx.dat" For Random As#l Len = Len(student)End SubPrivate Sub cmdadd_Click()student.no = Text 1.Textstudent.Bscj = Val(Text2.Text)student.Sjcj = Vai (Tex t3.Text)lastrecord = LOF( 1) / Len(student) + 1Put # 1, lastrecord, studentTextl.Text =Text2.Text = ””Text3.Text ="End SubPrivate Sub cmdquit_Click()Close #1EndEnd Sub1-5 CABCD理论练习二6-10 ABCCD 11-15 BBBAB1 CD2 AD3CE4BC6BCDE7CDE8ABCDE9 ABD三判断二多选1-5 X X X X V 6-10 V V V X X 16-20 DBAAC5 AD10ACDE1n-l 或者Sqr (n)02X y3 1 to 102*i-14Button=2start=True 五阅读程序1-5DBDAB六程序设计1Private Sub Form_click()四填空japan = 47528china = 22257n = 0 True — (x, y)Do While china <= japanchina = china * 1.098japan = japan * 1.028 n= n + 1LoopPrint n & ”年之后，中国GDP将超过日本”End Sub•VB6中的Split函数，其功能足将一字符巾用分界符分割为一字符串数组。

VB综合实验报告

华北科技学院计算机学院综合性实验实验报告课程名称程序设计语言(VB)实验学期 2015 至 2016 学年第二学期学生所在系部安全工程学院年级 2015级班级安卓B151 学生姓名徐艳强学号 201510044218 任课教师李冬艳实验成绩计算机学院制《程序设计语言（VB）》课程综合性实验报告题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外包含四个单选按钮，标题为“+”、“-”、“*”和“/”。

程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在label4中。

6.单击“退出”菜单，退出程序运行。

四．实验结果及分析1.菜单(1)功能主要功能就是把每个小程序串联起来，使其连续、具有整体性。

分为数组应用、控件应用、过程应用、和退出四个一级菜单。

在数组应用一级菜单下有数组操作二级菜单、控件应用一级菜单下有选择器和数学运算两个二级菜单、过程应用一级菜单下有字符转换二级菜单。

其中一级菜单中，单击退出后实现结束程序的目的，二级菜单对应每个程序，单击二级菜单会实现出现对相应的程序窗体。

(2)界面抓取(3)实现代码Private Sub 数学运算_Click()数学运算窗体.ShowEnd SubPrivate Sub 数组操作_Click()数组操作窗体.ShowEnd SubPrivate Sub 退出_Click()EndEnd SubPrivate Sub 选择器_Click()选择器窗体.ShowEnd SubPrivate Sub 字符转换_Click()字符转换窗体.ShowEnd Sub2.初始界面（1）功能人员分工介绍。

VB实验报告(含答案)

End If
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
图1.1实验1-1运行界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Form1
caption
我的第一个vb程序
窗体
Label1
caption
请输入姓名
标签
Text1
text
““
文本框
Command1
caption
显示
命令按钮
Command2
caption
清除
命令按钮
四．实验思考：
1.标签label控件设置的属性代码有哪些？
加粗
复选框
Check2
Caption
倾斜
复选框
Check3
Caption
下划线
复选框
Check4
Caption
删除线
复选框
四．实验思考：
1.模拟简易计算器Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
If Option1.Value = True Then
Label1.FontName = “宋体”
ElseIf Option2.Value = True Then

VB实验报告答案

(此文档为word格式，下载后您可任意编辑修改！) 福建农林大学计算机与信息学院(计算机公共基础二级课程)实验报告课程名称：Visual Basic 程序设计姓名：邹丽平学院: 食品科学学院专业：食品科学与工程年级：2010级学号：指导老师：黄红兵职称：讲师2012 年5 月20 日1实验项目列表福建农林大学计算机与信息学院实验报告学院：食品科学学院专业：食品科学与工程年级： 2010级姓名：邹丽平学号：实验室号__宝玲楼304___计算机号 01实验时间： 2012.3.5 指导教师签字：黄红兵成绩：报告退发（订正、重做）实验一 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和Text2），其初始文本为空，设置适当的属性使文本框Text2可以显示多行文本，有一个垂直滚动条，而且Text2不可编辑文本。

vb实验报告材料实用模板

实用内蒙古工业大学信息工程学院实验报告课程名称：高级语言程序设计（VB）Ⅰ实验名称：选择、循环、数组和过程综合程序设计实验类型：验证性□综合性√设计性□实验室名称：校计算中心班级：过控11-2 学号：201120506047 姓名：蒋安神组别：同组人：成绩：实验日期： 2012-06-8预习报告成绩：指导教师审核（签名）：年月日预习报告一、实验题目《选择、循环、数组和过程综合程序设计》二、实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。

三、实验内容利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和四、实验用仪器设备、器材或软件环境电脑、M i c r o s o f t V i s u a l B a s i c 6.0中文版软件、V B语言程序设计（第二版）、Visual Basic程序设计教程。

五、实验设计要求、方案设计。

1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。

2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。

3．用Sub子过程或Function函数过程判断随机整数是否为素数。

4．将素数按每行10个数在窗体或文本框中输出。

5．将素数的个数及求和结果输出到窗体或文本框中。

6．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。

2、方案设计1属性设置控件c a p t i o n f o n tL a b e l1随机产生80个10～99之间的随机整数，其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出,其中的素数，并将这些素数求和字体（宋体）字形（常规）大小（五号）C o m m a n d1启动字体（宋体）字形（常规）大小（小二）C o m m a n d2结束字体（宋体）字形（常2界面设计4预编程序流程先随机产生80个10到99的整数，运用2维数组显示出来，在运用if函数分离出偶数和奇数并运用f u n c t i o n过程按要求分大小排序显示，最后运用f u n c t i o n过程找出素数并对素数计数和求和，然后输出素数，素数的个数，素数的和3预编程序实验报告成绩：指导教师审核（签名）：年月日实验报告一、实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。

VB程序设计实验要求及报告8答案详解

上海立信会计学院本科实验报告班级：学号：姓名：指导教师：系部：专业：实验时间：实验8 数据文件及图形操作一、实验目的1．掌握顺序文件的特点和使用2．掌握顺序文件的打开、关闭和读写操作3．掌握在应用程序中使用文件4．掌握图形操作二、实验要求1．在C:\下建立子文件夹“VB实验8”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(81.vbp)、窗体文件(81.frm) 及可执行文件（81.exe），本实验中的第二题，需保存的文件有：工程文件(82.vbp)、窗体文件(82.frm) 及可执行文件（82.exe），其余实验依此类推。

2．撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。

三、实验内容：1.设计一个应用程序，窗体内所有控件字体为宋体、大小为五号，运行界面如图8-1所示。

若单击“建立文件”按钮，则分别用Print # 和Write # 语句将三个同学的学号、姓名和成绩写入（当前目录）文件Score.dat和Score1.dat；若单击“读取文件”按钮，则用line Input 语句按行将两个（当前目录）文件中的数据送往相应的文本框。

其中：学号和姓名是字符串类型，成绩是整型：数据如下："051023", "王海涛", 66"051024", "周文英", 88"051025", "王海涛", 71图8-1Private Sub Command1_Click()Open "score.dat" For Output As #1Print #1, "051023", "王海涛", 66Print #1, "051024", "周文英", 88Print #1, "051025", "王海涛", 71Close #1Shell "notepad score.dat"Open "score1.dat" For Output As #1Write #1, "051023", "王海涛", 66Write #1, "051024", "周文英", 88Write #1, "051025", "王海涛", 71Close #1Shell "notepad score1.dat"End SubPrivate Sub Command2_Click()Dim inputdata As StringOpen "score.dat" For Input As #1Do While Not EOF(1)Line Input #1, inputdataT ext1.T ext = T ext1.T ext + inputdata + vbCrLf LoopClose #1Open "score1.dat" For Input As #1Do While Not EOF(1)Line Input #1, inputdataT ext2.T ext = T ext2.T ext + inputdata + vbCrLf LoopClose #1End SubPrivate Sub Form_Load()T ext1.T ext = ""T ext2.T ext = ""End Sub2.设计一个应用程序，界面如图8-2(1)，窗体内所有控件字体为宋体、大小为五号，点击“建立文件”按钮，则建立数组num，数组元素为10个小于100的随机整数，将数组数据写入文件（当前目录）Fb.dat，文件内容及格式如图8-2(2)；点击“读取文件”按钮，则从（当前目录）Fb.dat文件中将数据读取出来，显示在列表框中，并计算这些数的合计与平均数，并把计算结果也显示在列表框中。

vb实验报告实验一

vb实验报告实验一VB实验报告实验一引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统的软件开发。

本实验旨在通过实际操作，了解VB的基本语法和开发环境，并通过一个简单的案例来展示VB的应用。

一、实验目的本实验的主要目的是让学生熟悉VB的开发环境和基本语法，并通过一个简单的案例来加深对VB的理解和应用。

二、实验内容本实验的主要内容包括：1. VB开发环境的安装与配置；2. VB的基本语法和控件的使用；3. 通过一个简单的案例来展示VB的应用。

三、实验步骤1. 安装VB开发环境：根据教材提供的安装包，按照步骤进行安装，并进行必要的配置。

2. 创建新项目：打开VB开发环境，点击“新建项目”，选择Windows应用程序，并设置项目名称和保存路径。

3. 设计界面：在VB的设计界面中，通过拖拽控件的方式，设计出所需的界面布局，并设置控件的属性。

4. 编写代码：在VB的代码编辑器中，编写相应的代码，实现界面与功能的交互。

5. 调试运行：点击“调试”菜单中的“开始调试”选项，运行程序，并检查是否达到预期效果。

6. 保存项目：在调试运行成功后，及时保存项目并进行备份。

四、实验案例本实验以一个简单的学生成绩管理系统为例，通过VB实现以下功能：1. 学生信息录入：通过输入学生的姓名、学号、成绩等信息，将其保存到数据库中。

2. 学生信息查询：根据学号或姓名等关键字，从数据库中查询学生的信息，并在界面中显示出来。

3. 学生成绩统计：根据数据库中保存的学生信息，计算出平均成绩、最高分和最低分，并在界面中显示出来。

实验结果：经过以上步骤的实验操作，我们成功地实现了一个简单的学生成绩管理系统。

通过该系统，我们可以方便地录入、查询和统计学生的成绩信息。

实验总结：通过本次实验，我们深入了解了VB的开发环境和基本语法，并通过一个简单的案例来加深对VB的理解和应用。

通过实际操作，我们掌握了VB开发的基本流程，提高了编程能力和解决问题的能力。

vb实验报告

报告封面
2014-2015学年第一学期
封面和里边的需要写的内容不要空着学号、姓名、学院、年级、专业班等
实验课程: Visual 程序设计设课形式: 非独立
课程学分: 4
实验一
注: 请大家着重做好“智能计算器”, 并在此基础填写实验报告。

实验二
注: 请大家着重做好“简单游戏设计”, 并在此基础填写实验报告。

实验三
注: 请大家着重做好“设计一个拾色器”, 并在此基础填写实验报告。

实验四
注: 请大家着重做好“选课系统”, 并在此基础填写实验报告。

说明：请大家务必将上述4个实验做完, 并认真按要求撰写实验报告, 每位同学按顺序做好4个实验的实验报告交给班长或学习委员, 班长或学习委员按学号从小到大排序后上交。

vb综合性设计实验报告

综合性实验实验名称:用v b编写简单计算器专业班级: 土木工程0901班学生姓名： ***学号：*********指导教师： ***1 需求分析该计算器程序是在Visual Basic6.0环境下编写，编写完成后在Windows xp下运行，通过初步测试，发现该计算程序能完成整数的加，减，乘，除四种运算。

通过在虚拟键盘上用鼠标点击输入第一个数，然后点击运算符，再输入第二个数，最后点击“=”就会在计算器上方的文本框中输出结果，清空文本框进行下次运算。

经过仔细测试发现，该计算器最高支持五位整数的运算，在除法运算中能精确到小数点后14位。

2 运行环境WINDOWS XP系统；VB6.0；3开发工具和编程语言开发工具：Visual Basic6.0“微型整值计算器”程序编写代码：Dim op1 As IntegerDim op2 As IntegerDim operator As StringPrivate Sub Command1_Click()Text1.Text = Text1.Text & "1"End SubPrivate Sub Command2_Click()Text1.Text = Text1.Text & "2"End SubPrivate Sub Command3_Click()Text1.Text = Text1.Text & "3"End SubPrivate Sub Command4_Click()Text1.Text = Text1.Text & "4"End SubPrivate Sub Command5_Click()Text1.Text = Text1.Text & "5"End SubPrivate Sub Command6_Click()Text1.Text = Text1.Text & "6"End SubPrivate Sub Command7_Click()Text1.Text = Text1.Text & "7"End SubPrivate Sub Command8_Click()Text1.Text = Text1.Text & "8"End SubPrivate Sub Command9_Click()Text1.Text = Text1.Text & "9"End SubPrivate Sub Command11_Click()Text1.Text = Text1.Text & "0"End SubPrivate Sub Command10_Click()op1 = Val(Text1.Text)operator = "+"Text1.Text = ""End SubPrivate Sub Command12_Click()op1 = Val(Text1.Text)operator = "-"Text1.Text = ""End SubPrivate Sub Command13_Click()op1 = Val(Text1.Text)operator = "*"Text1.Text = ""End SubPrivate Sub Command14_Click()op1 = Val(Text1.Text)operator = "/"Text1.Text = ""End SubPrivate Sub Command15_Click()op2 = Val(Text1.Text)If operator = "+" ThenText1.Text = op1 + op2ElseIf operator = "-" ThenText1.Text = op1 - op2ElseIf operator = "*" ThenText1.Text = op1 * op2ElseIf operator = "/" ThenText1.Text = op1 / op2End IfEnd Sub4 系统设计（1）程序的组织结构（包括窗体、模块及其功能）。

vb综合上机实验报告

实验报告实验课程名称实验项目名称年级班级学生姓名学号学院：实验时间：年月日◆实验相关信息实习主题VB综合教程实验时间学年学期周学生姓名学号班级实验地点设备号指导教师◆界面及源代码主界面Private Sub Form_Load()End SubPrivate Sub no1_Click()Form2.ShowEnd SubPrivate Sub no2_Click()Form3.ShowEnd SubPrivate Sub no3_Click()Form4.ShowEnd SubPrivate Sub no4_Click()Form5.ShowEnd SubPrivate Sub no5_Click()Form6.ShowEnd SubPrivate Sub no6_Click()Form7.ShowEnd SubPrivate Sub no7_Click()Form8.ShowEnd SubPrivate Sub no8_Click()Form9.ShowEnd SubPrivate Sub no9_click()Form10.ShowEnd SubPrivate Sub no10_Click()Form11.ShowEnd SubPrivate Sub no11_Click()Form12.ShowEnd SubPrivate Sub no12_Click()Form13.ShowEnd SubPrivate Sub no13_Click()Form14.ShowEnd SubPrivate Sub no14_Click()Form15.ShowEnd SubPrivate Sub no15_Click()Form16.ShowEnd Sub一、基础题1.编程实现在包含10个元素的一维数组中寻找前n（n<=10）个元素中的最大数及位置，在文本框中显示出来。

界面（一，1）Private Sub Command1_Click()Dim N As Integer, k As Integer, a(1 To 10) As IntegerN = 1k = 1Max = 0If N >= 2 ThenN = Val(InputBox("请输入n的值", N))End IfFor i = 1 To 10a(i) = Int(Rnd * 100)Print a(i);If a(i) > Max ThenMax = a(i)k = iEnd IfNext iLabel1.Caption = "最大值: " & "第" & k & "个"End Sub2.求出10000以内的所有完数，并显示在窗体上。

vb实验报告标准答案

竭诚为您提供优质文档/双击可除vb实验报告标准答案篇一：Vb郭贤海实验报告及答案实验1.1设计一个程序，程序运行的初始界面如图1-1所示。

当单击“显示”按钮时，在文本框中显示“欢迎使用Vb！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。

图1-1程序运行初始界面图1-2单击“显示”按钮后的程序界面实验1.2设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。

同时要求：（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”按钮变为不可用（图1-4）。

图1-3第1题的程序运行初始界面图1-4单击“改变文字”按钮后的程序界面图1-5单击“隐藏”按钮后的程序界面四、实验原始记录实验1.1程序的界面设计。

（可以是多张主要的图。

下面的图要替换成你们自己设计的图。

如何取图？设计好界面，按“printscreensysRq”键，打开画图软件，单击“编辑|粘贴”命令，利用菜单栏下方的“选定”功能，选中窗体，按“ctrl+c”键，然后选中下面的实验样例图，按“ctrl+V”键，替换掉）程序代码。

privatesubcommand1_click()Text1.Text="欢迎使用Vb！"endsubprivatesubcommand2_click()Text1.Text=""endsubprivatesubcommand3_click()endendsub实验1.2程序的界面设计。

（可以是多张主要的图。

下面的图要替换成你们自己设计的图）程序代码。

privatesubcommand1_click()Label1.Visible=Truecommand2.enabled=Truecommand1.enabled=Falseendsubprivatesubcommand2_click()Label1.Visible=Falsecomma nd2.enabled=Falsecommand1.enabled=Trueendsub privatesubcommand3_click()Label1.caption="你好，张三！"command3.enabled=Falseendsub五、实验结果及分析实验1.1运行结果。

VB实验报告(含答案)分解

实验报告
课程名称_程序设计基础Visual Basic_
班级___________＿
姓名_________
实验一VB环境和创建一个简单的VB程序
一．实验目的：
1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5．设计顺序程序。
二．实验内容：
1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C=5 / 9(F - 32)。F为华氏温度，C为摄氏温度。
2.用三种除法运算（/、\、Mod）做计算。
要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
a = Val(Text1.Text)
Dim C!,F!
F=val(inputbox(“输入华氏温度”))
C=5/9*（F-32）
Msgbox“对应的摄氏温度为：”& C
End Sub
2.用三种除法运算（/、\、Mod）做计算，说明三种除法的区别？
/：两个数相除
\：两个数整除
Mod：两个数相除，得余数
3.三种除法运算（/、\、Mod）做计算，Command1命令的单击事件的程序代码是什么？
Label1.Caption=“请输入姓名”
Label1.fontsize=24
Label1.fontbold=True
2.两个按钮所使用的是什么事件？代码分别是什么？

VB综合实验5_08_09(1)

VB 程序设计基础综合性实验（五）－循环结构（班级：学号：姓名：）该综合实验是在学生完成前面的实验，掌握VB 的常量、变量的定义和使用方法，掌握各种表达式、内部函数的使用等。

在此基础上，通过本次综合实验，初步掌握顺序结构、选择结构和循环结构的程序设计方法，学会解决一些较为复杂的问题。

1．实验目的通过本次综合实验，初步掌握顺序结构、选择结构和循环结构的程序设计方法。

2．实验内容1）创建一个应用程序，用以下公式计算cos 的近似值。

2462cos()1......(1)2!4!6!(2)!nn x x x x x n =-+-+-该程序要求：x ，n （项数）的值由键盘输入，程序运行结果如图1所示。

提示：⑴在Text1，Text2文本框中，分别输入x （弧度），n(项数)，单击“计算”按钮，程序运算结果，在Text3文本框中显示。

⑵单击“退出”按钮，程序结束。

⑶建议使用Do While ……Loop 循环结构。

2）利用循环结构，输出图形****************3．实验要求：1）．掌握单分支、双分支和多分支条件语句的使用。

2）．掌握For ……Next、Do ……Loop循环语句的使用方法。

4．实验报告的要求1）实验目的根据教材和和课堂学习的知识要点，列出本次实验要达到的目的。

2）实验内容描述实验的具体内容，包括实验题目要求、实验过程和步骤。

3）设计和分析程序设计说明，包括运行环境、界面设计、算法描述、流程图等。

4）代码设计经调试正确的源程序。

5）结果讨论(1)具体分析程序的运行情况，包括对不同测试数据的运行结果，最后对运行结果进行分析。

（2)通过此次实验，你有什么体会、有哪些收获。

5．递交实验的相关文件。

vb综合性设计实验报告

综合性实验实验名称:用v b编写简单计算器专业班级: 土木工程0901班学生姓名：***学号：*********指导教师：***1 需求分析该计算器程序是在Visual Basic6.0环境下编写，编写完成后在Windows xp下运行，通过初步测试，发现该计算程序能完成整数的加，减，乘，除四种运算。

经过仔细测试发现，该计算器最高支持五位整数的运算，在除法运算中能精确到小数点后14位。

2 运行环境WINDOWS XP系统；VB6.0；3开发工具和编程语言开发工具：Visual Basic6.0“微型整值计算器”程序编写代码：Dim op1 As IntegerDim op2 As IntegerDim operator As StringPrivate Sub Command1_Click()Text1.Text = Text1.Text &"1"End SubPrivate Sub Command2_Click()Text1.Text = Text1.Text &"2"End SubPrivate Sub Command3_Click()Text1.Text = Text1.Text & "3"End SubPrivate Sub Command4_Click() Text1.Text = Text1.Text & "4"End SubPrivate Sub Command5_Click() Text1.Text = Text1.Text & "5"End SubPrivate Sub Command6_Click() Text1.Text = Text1.Text & "6"End SubPrivate Sub Command7_Click() Text1.Text = Text1.Text & "7"End SubPrivate Sub Command8_Click() Text1.Text = Text1.Text & "8"End SubPrivate Sub Command9_Click() Text1.Text = Text1.Text & "9"End SubPrivate Sub Command11_Click() Text1.Text = Text1.Text & "0"End SubPrivate Sub Command10_Click() op1 = Val(Text1.Text)operator = "+"Text1.Text = ""End SubPrivate Sub Command12_Click() op1 = Val(Text1.Text)operator = "-"Text1.Text = ""End SubPrivate Sub Command13_Click() op1 = Val(Text1.Text)operator = "*"Text1.Text = ""End SubPrivate Sub Command14_Click() op1 = Val(Text1.Text)operator = "/"Text1.Text = ""End SubPrivate Sub Command15_Click() op2 = Val(Text1.Text)If operator = "+" ThenText1.Text = op1 + op2 ElseIf operator = "-" ThenText1.Text = op1 - op2ElseIf operator = "*" ThenText1.Text = op1 *op2ElseIf operator = "/"ThenText1.Text = op1 /op2End IfEnd Sub4 系统设计（1）程序的组织结构（包括窗体、模块及其功能）。

vb实验八

Dim a(), b(), c(), d()Private Sub Command1_Click()Dim sumsum = 0For i = 1 To UBound(b)sum = sum + b(i)Next iForm2.Caption = "数学的平均分" & " " & sum / UBound(b) Form2.Visible = TrueForm2.Print "低于平均分数的同学有"For i = 1 To UBound(b)If b(i) < sum / UBound(b) Then Form2.Print a(i)Next iEnd SubPrivate Sub Command2_Click()Dim sumsum = 0For i = 1 To UBound(c)sum = sum + c(i)Next iForm2.Caption = "物理的平均分" & " " & sum / UBound(c) Form2.Visible = TrueForm2.ClsForm2.Print "低于平均分数的同学有"For i = 1 To UBound(c)If b(i) < sum / UBound(c) Then Form2.Print a(i)Next iEnd SubPrivate Sub Command3_Click()Dim sumsum = 0For i = 1 To UBound(d)sum = sum + d(i)Next iForm2.Caption = "英语的平均分" & " " & sum / UBound(d) Form2.Visible = TrueForm2.ClsForm2.Print "低于平均分数的同学有"For i = 1 To UBound(d)If b(i) < sum / UBound(d) Then Form2.Print a(i)Next iEnd SubPrivate Sub Form_Load()Form2.Visible = FalseText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Frame1.Caption = "学生成绩查询"Frame2.Caption = "各科平均分及找出低于平均分者" Label1.Caption = "数学"Label2.Caption = "物理"Label3.Caption = "英语"Label4.Caption = "总分"Command1.Caption = "数学"Command2.Caption = "物理"Command3.Caption = "英语"Open App.Path & "姓名.txt" For Input As #1Do While Not EOF(1)n = n + 1ReDim Preserve a(n)Input #1, a(n)List1.AddItem a(n)LoopClose #1Open App.Path & "数学.txt" For Input As #2Do While Not EOF(2)t = t + 1ReDim Preserve b(t)Input #2, b(t)LoopClose #2Open App.Path & "物理.txt" For Input As #3Do While Not EOF(3)q = q + 1ReDim Preserve c(q)Input #3, c(q)LoopClose #3Open App.Path & "英语.txt" For Input As #4 Do While Not EOF(4)e = e + 1ReDim Preserve d(e)Input #4, d(e)LoopClose #4End SubPrivate Sub List1_Click()l = List1.TextFor i = 1 To UBound(a)If l = a(i) Then z = iNext iText1.Text = b(z)Text2.Text = c(z)Text3.Text = d(z)Text4.Text = b(z) + c(z) + d(z)End SubPrivate Sub Command1_Click()Form2.Visible = FalseEnd SubPrivate Sub Form_Load()AutoRedraw = TrueCommand1.Caption = "确定"End Sub。

vb综合实验

vb综合实验第一篇：vb综合实验综合性实验实验名称:关闭标题包含指定字符的所有窗口专业班级: 学生姓名：学号：指导教师：需求分析：关闭标题包含指定字符的所有窗口，使我们能更方便的关闭很多窗口，避免了一个一个关闭的麻烦运行环境：WINDOWS XP系统；VB6.0； 3开发工具和编程语言Visual Basic6.0语言； 4 系统设置：下例程序运行后，单击按钮关闭标题包含“记事本”的所有窗口'在窗体上放置3 个控件，所有控件无需设置任何属性，全部采用默认设置： ' Command1，Label1，Text1Private Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA”(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String)As Long Private Declare Function PostMessage Lib “user32” Alias “PostMessageA”(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)As Long Private Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA”(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long)As Long Private Sub Form_Load()'设置控件初始状态，实际可以在窗体设计阶段完成 Dim S As Single Me.Caption = “关闭指定窗口”: T ext1.Text = “记事本” Label1.AutoSize = True: Label1.Caption = “窗口标题包含的字符：” Command1.Caption = “关闭指定窗口”S = Label1.Height Label1.Move S, S Text1.Move S +Label1.Width, S * 0.5, S * 8, S * 2 Command1.Move S, S * 3, S * 8, S * 2 End SubPrivate Sub Command1_Click()Dim hWnds As Long, nCap As String, nFind As String Dim S As Long, S1 As Long, nLong()As Long, nCount As LongS = 255: nFind = Text1.Text Do hWnds = FindWindowEx(0, hWnds, vbNullString, vbNullString)If hWnds = 0 Then Exit Do nCap = String(S + 1, “ ”)GetWindowText hWnds, nCap, S S1 = InStr(nCap, Chr(0))If S1 > 0 Then nCap = Left(nCap, S1-1)If InStr(nCap, nFind)> 0 Then ' PostMessage hWnds, &H10, 0, 0 '不在这里发送关闭消息，是为了防止漏查 nCount = nCount + 1 ReDim Preserve nLong(1 To nCount)nLong(nCount)= hWnds End If Loop For S = 1 To nCount PostMessage nLong(S), &H10, 0, 0 '发送关闭窗口消息 DoEvents Next End Sub 5参考文献：龚培增，杨志强Visual Basic程序设计教程（第二篇：VB综合实验7_08_09VB程序设计基础综合性实验（七）－数组（班级：学号：姓名：）该综合实验是在学生完成前面的实验，初步掌握顺序结构、选择结构和循环结构的程序设计方法。

VB最综版实验报告

学生学号0120811360801 实验课成绩学生实验报告书实验课程名称可视化程序设计A开课学院自动化学院指导教师姓名刘红丽学生姓名朱明学生专业班级自动化0808班2009-- 2010学年第二学期实验课程名称：_可视化程序设计______实验项目名称窗体界面设计和控件的基本操作实验成绩实验者朱明专业班级自动化0808班组别01同组者无实验日期2010 年4 月22 日一部分：实验预习报告（包括实验目的、意义，实验基本原理与方法，主要仪器设备及耗材，实验方案与技术路线等）1、实验的目的和意义1）了解VB可视化编程的基本概念（对象的属性、事件和方法）；2）熟悉VB可视化编程的环境（集成开发环境、控件工具箱、工程窗口、属性窗口、窗体设计器、代码窗口、立即窗口、窗体布局窗口）；3）熟练掌握VB可视化编程的步骤（新建一个工程、添加控件、设置属性、编写代码、运行工程、修改工程、保存工程的编译)；4）熟悉控件的基本操作和控件的画法(在窗体上画一个控件、控件的缩放和移动、控件的复制与删除、控件的布局）。

2、实验的基本内容1）运行窗体时，显示出“欢迎您来到xxx的VB世界! ”；2）要求在“xxx”处添加自己的班级学号和姓名；3）实现显示、隐藏图片和标语的功能。

3、实验仪器设备及耗材计算机一台；打印机及耗材4、实验方案和技术路线（1）分析应用程序需要实现的功能，绘制TOE表：（2）绘制界面草图：（3）编写各控件的程序代码；（4）程序调试和排错；（5）运行结果分析。

程序要实现的功能：点击按钮，实现相应功能，显示“欢迎您来到xxx的VB世界! ”其中，TOE表和界面草图分别为：TOE表任务对象事件显示信息Command1 单击退出Command2 单击以对象为主线界面草图第二部分：实验过程记录（可加页）（包括实验原始数据记录，实验现象记录，实验过程发现的问题等）1、程序代码Private Sub Command1_Click()Label1.Caption = "欢迎来到自动化0808班朱明的VB世界！"End SubPrivate Sub Command2_Click()EndEnd Sub2、实验结果（界面运行结果截图）主界面：3、实验过程中出现的问题1、当使用print命令时，按钮点击多少次，语句就会重复出现多少次？解决办法：使用Label控件，Label1.Caption = "欢迎来到自动化0808班朱明的VB世界！"2、在加入背景图片后，若将窗口最大化，而图片却局限在某个角落，不能同时最大化？解决办法：图像控件的属性没设好，应该把图像控件的stretch 属性设为true 。