大学VB实验报告及其答案
VB实验报告
VB实验报告实验一、VB控制结构[实验目的]1.掌握选择语句的使用2.掌握循环语句的使用[实验内容]一、VB编程基础练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行时在窗体上单击，分别会发生什么情况，为什么？①Private Sub Form_Click()I = 10Print IEnd Sub②Private Sub Form_Click()Dim I%I = 10Print IEnd Sub③Option ExplicitPrivate Sub Form_Click()I = 10Print IEnd Sub④Option ExplicitPrivate Sub Form_Click()Dim I%I = 10Print IEnd Sub第一个程序运行的结果是：点击一次窗体便会出现一个“10”第二个程序的运行结果是：也是点击一次窗体出现一个“10”第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？Private Sub Form_Click()Dim n As Integern = n + 1Print nEnd SubPrivate Sub Form_Click()Static n As Integern = n + 1Print nEnd Sub第一个程序运行结果是：第二个程序运行的结果是：二、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
Private Sub Text1_Change()Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,tempX1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框If X1 > X2 ThenTemp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换End IfIf X1 > X3 ThenTemp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换End IfIf X2 > X3 ThenTemp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换End IfPrint: PrintPrint "输出结果：" ’在屏幕上输出“输出结果：”PrintPrint x1,x2,x3 ’在屏幕上输出x1,x2,x3End Sub三、循环语句程序3：创建应用程序。
vb实验报告(答案)
Print "数理化"
End Sub
Private Sub Cmd2_Click()
Print "政史地"
End Sub
心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）
A. Text1.MaxLength = 0 B. Text1.Enabled = False
C. Text1.Visible = FalseD. Text1.Width = 0
5、设置命令按钮的属性时，只有将（A）属性设置为1，Picture属性才有效，否则无效。
A、StyleB、CaptionC、EnabledD、Default
试验报告（1）
院（系）：课程名称：日期：
班级
学号
实验室
专业
姓名
计算机号
实验
名称
VB环境的熟悉与应用
成绩评定
所用
软件
Visual Basic 6.0
教师签名
实
验
目
的
或
要
求
1．熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。
2．初步了解几个常用控件的使用方法。
实
验
步
骤
、
心
得
体
会
1、在vb中____C_____被称为对象。
10、确定一个控件在窗体上位置的属性是__Left_______和___Top______。
11、窗体边框类型的默认值是___2___。
9、Visual Basic集成开发环境主要窗口包括__窗体设计窗口；代码设计窗口；_属性窗口；_工程资源管理器窗口_；_工具箱窗口。
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答案）
实验日期_____________________实验名称：实验一常用标准控件一【实验目的与要求】1.掌握Visual Basic的启动与退出。
2.熟悉Visual Basic的集成开发环境。
3.掌握在窗体中放置控件的方法。
4.掌握在“属性窗口”中设置控件属性的方法。
5.掌握在“代码编辑器”窗口中输入程序代码的方法。
6.掌握工具栏上启动按钮、结束按钮的使用方法。
7.掌握标签、文本框、命令按钮、列表框等控件的使用方法。
【实验内容与步骤】实验1.1.1 标签的使用(一)1.题目与要求：在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：1)标签的内容为“计算机等级考试”；2)标签可根据显示内容自动调整其大小；3)标签带有边框，且标签内容显示为三号字。
2.实验步骤1)界面设置：在名称为Form1的窗体上放置一个标签控件Label1；2)属性设置（请将表格补充完整）表1.1.1 对象属性文件名为sjt1.frm。
实验1.1.2 标签的使用(二)1.在名称为Form1的窗体上画一个名称为 Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图所示。
2．属性设置（请将表格补充完整）表1.1.2 对象属性sjt2.frm。
实验1.1.3 文本框的使用1.题目与要求：在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。
请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中。
程序中不得使用任何变量。
2.实验步骤1)界面设置：在名称为Form1的窗体上放置两个文本框；2)属性设置表1.1.3 对象属性Private Sub T1_Change()T2.Text=T1.Text (T2=T1)End Sub3)保存文件：存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
VB实验二 实验报告
实验报告二实验目的（1）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（2）掌握循环嵌套结构（3）掌握素数算法（4）掌握控制结构相关控件（列表框、组合框等）（5）能综合运用循环控制结构解决较复杂的问题实验内容【实验1】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…当第i项的值<10-5时计算结束结束。
实验结果：【实验1 代码】【实验1 典型结果】【实验2】将200~300之间的素数输出到列表框中实验结果：【实验2 代码】【实验2 典型结果】【实验3】编写程序，在窗体上输出上三角形式的九九乘法表。
实验结果：【实验3 代码】【实验3 典型结果】【实验4】从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换……实验结果：【实验4 代码】【实验4 典型结果】【实验5】静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。
2.交换1、3行后输出整个数组的值3.交换数组的行与列后输出整个数组的值12345678910111213141516171819202122232425⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦实验结果：【实验5 代码】【实验5 典型结果】【实验6】编写程序，将随机产生的1000个[1000,99999]范围内的随机整数存入数组，然后分别用“比较交换法”、“选择法”、“冒泡法”进行升序排序实验结果：【实验6 代码】【实验6 典型结果】【选做1】编写程序，输入X，要求计算精度10-6，求sinX ，计算公式如下所示实验结果：【选做1代码】)!1n2(x)1(...!7x!5x!3x1x(x)sin1n21n753--++-+-=--【选做1典型结果】【选做2】任意输入一个或者多个英文句子，统计这些句子中的单词数量实验结果：【选做2代码】【选做2典型结果】【选做3】利用一维数组，统计一个班学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数，生成一个各分数段的柱状图。
VB综合实验报告
一、需求分析该程序用于图书信息的管理，可以对图书信息进行添加、更改和查询操作二、运行环境WINDOWS XP系统；VB6.0环境三、开发工具和编程语言Visual Basic 6.0开发环境和Visual Basic语言四、系统设计（1）程序的组织结构（包括窗体、模块及其功能）。
该系统共包括两个窗体（form1,form2）和一个标准模块（module1）。
窗体1是主窗体，用于图书信息的添加，修改和显示，窗体2是查询窗口，用于指定信息的同类图书查询，标准模块用于建立自定义类型变量用来存放每本图书的信息。
（2）然后针对每个窗体（模块）详细描述设计思路。
①标准模块用于定义存放图书信息的变量，下面是系统中标准模块的代码：Type booktypenumber As String * 6name As String * 10sort As String * 4language As String * 1state As String * 1End TypePublic book As booktype②窗体1中设计了一个菜单栏用于备份图书信息文件（copy）、启动查询窗口（query）和退出系统（exit）；窗体左侧设计了两个文本框（text1,text2）、一个列表框（combo1）和两组单选按钮（option1—option4）用于录入图书信息，中间的部分设计了一个文本框（text3）和四个按键（command1—command4）用于向文件中添加图书信息或显示、更改指定编号的信息；窗体的右侧显示了当前文件中存放的信息数目和为方便逐条查看图书信息设计的四个按键（command5—command8）。
下面是系统中窗体1部分的代码：装入窗体时的代码：Private Sub Form_Load()Open App.Path & "\book.dat" For Random As #1 Len = Len(book)Label6.Caption = LOF(1) / Len(book)Close #1Form1.Move (Screen.Width - Form1.Width) / 2, (Screen.Height - Form1.Height) / 2End Sub实现菜单功能的代码：Private Sub copy_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book)Open App.Path & "\bookcopy.dat" For Random As #2 Len = Len(book) record_no = 1Do While Not EOF(1)Get #1, record_no, bookPut #2, record_no, bookrecord_no = record_no + 1LoopClose #1Close #2End SubPrivate Sub query_Click()Form1.HideForm2.ShowEnd SubPrivate Sub exit_Click()EndEnd Sub八个功能按键时的代码：Private Sub Command1_Click()If Val(Text3.Text) > Val(Label6.Caption) ThenMsgBox "输入的数据有误", 48, "警告"ElseOpen App.Path & "\book.dat" For Random As #1 Len = Len(book)record_no = Val(Text3.Text)Get #1, record_no, bookText1.Text = book.numberText2.Text = If Trim(nguage) = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf Trim(book.state) = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfCombo1.Text = book.sortClose #1End IfEnd SubPrivate Sub Command2_Click()record_no = Val(Text3.Text)With book.number = Text1.Text.name = Text2.Text.sort = Combo1.Text.language = IIf(Option1.Value, "1", "0").state = IIf(Option3.Value, "1", "0")End WithOpen App.Path & "\book.dat" For Random As #1 Len = Len(book) Put #1, record_no, bookClose #1End SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Combo1.Text = ""Option1.Value = FalseOption2.Value = FalseOption3.Value = FalseOption4.Value = FalseEnd SubPrivate Sub Command4_Click()With book.number = Text1.Text.name = Text2.Text.sort = Combo1.Text.language = IIf(Option1.Value, "1", "0").state = IIf(Option3.Value, "1", "0")End WithOpen App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = LOF(1) / Len(book) + 1Label6.Caption = record_noPut #1, record_no, bookClose #1End SubPrivate Sub Command5_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = 1Text3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End SubPrivate Sub Command6_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = Val(Text3.Text) - 1If record_no = 0 ThenMsgBox "当前记录为第一条记录", 64, "提示"record_no = 1End IfText3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End SubPrivate Sub Command7_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = Val(Text3.Text) + 1If record_no > LOF(1) / Len(book) ThenMsgBox "当前记录为最后一条记录", 64, "提示"record_no = LOF(1) / Len(book)End IfText3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End SubPrivate Sub Command8_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = LOF(1) / Len(book)Text3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End Sub③窗体2是指定图书信息查询窗体，共设计了一个列表框（combo1）和一个文本框（text1）用于指定查找的图书信息，两个功能按键（command1,command2）用于确定查找信息和退出查询窗体，一个图片框（picture1）用来显示查找到的信息。
VB实验报告材料(含问题详解)
Else
Text4.Text = a / b
End If
End Select
End Sub
2.模拟简易计算器Command2命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
a = Val(Text1.Text)
List1.AddItem a(i)
Next i
End Sub
3．单击命令按钮，在文本框中显示结果信息，则程序代码是什么？
Private Sub Command1_Click()
Dim i As Integer, max%, min%, avg!
max = a(1)
min = a(1)
avg = 0
End If
End Sub
实验四循环程序设计
一．实验目的：
1．理解循环程序设计的特点。
2．掌握常用的循环语句。
3．掌握常用的循环算法。
4．掌握图片框、图像框和计时器。
二．实验内容：
1．求
2．设计一条滚动的广告字幕。
三．实验结果：对象属性设置
1．求和结果要求窗体载入时直接显示，设置窗体的某个属性。
对象
b = Val(Text3.Text)
c = Text2.Text
If c =“+”Then
Text4.Text = a + b
ElseIf c =“-”Then
Text4.Text = a - b
ElseIf c =“*”Then
Text4.Text = a * b
ElseIf c =“/”Then
VB实验报告参考答案(本部)
实验报告参考答案（本部）实验一VB集成开发环境实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签。
②属性设置：标签的width设为2000，height设为300。
有边框是BordStyle设为1，背景透明是BackStyle设为0。
显示“等级考试”是将caption设为“等级考试”，居中是将Alignment 设为2。
③代码设计：无五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）无六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验二简单的VB程序设计实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签、一个命令按钮。
②属性设置：固定边框是BordStyle设为1，背景透明是BackStyle设为0。
③代码设计：分别在3个事件过程form_load()，form_click(),Cmd1_click()中编程。
其中图片从网上下载，与工程文件、窗体文件保存在同一目录，代码中使用相对路径app.path。
五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）Private Sub Form_Load()Form1.Picture = LoadPicture(App.Path + "\tu.jpg")Form1.Caption = "我的变化"End SubPrivate Sub Form_Click()LBL1.Top = 0LBL1.Left = 0End SubPrivate Sub Cmd1_Click()Cmd1.Height = 1500Cmd1.Width = 2000End Sub六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验三数据类型及其运算四、设计流程①界面设计：在窗体上画1个文本框、1个标签、6个命令按钮。
VB实验报告
实验一：常用标准控件（一）实验1.1 标签的使用(一)实验1.3 文本框的使用T2.text=t1.text实验1.4 命令按钮的使用(一)c1.width=c1.width+100实验1.5 命令按钮的使用(二)实验1.7 命令按钮与文本框的使用(一)Text2.Text= Text1.Text实验1.8 命令按钮与文本框的使用(二)Text1.Left=0实验1.9 命令按钮与文本框的使用(三)Text1.FontBold = TrueText1.Font.Italic = True实验二：常用标准控件（二）实验2.1 选项按钮的使用Private Sub Option1_Click()Text1.Alignment = 0End SubPrivate Sub Option2_Click()Text1.Alignment = 2End SubPrivate Sub Option3_Click()Text1.Alignment = 1End SubPrivate Sub Option4_Click()Text1.FontName = “宋体”End SubPrivate Sub Option5_Click()Text1.FontName = “黑体”End Sub实验2.3 图像的使用Private Sub Cmd1_Click()Image1.Picture = LoadPicture(“c:\vb\sy02\图片1.jpg”) End SubPrivate Sub Cmd2_Click()Image1.Picture = LoadPicture()End Sub实验2.4 图片框和滚动条的使用Private Sub Command1_Click()VScroll1.Min = 100VScroll1.Max = 2400rgeChange = 200VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Scroll()Picture1.Height=Vscroll1.ValueEnd Sub实验2.5 滚动条的使用Private Sub Form_Activate()Hscroll1.setfocusEnd SubPrivate Sub HScroll1_Change()Text1.Text=Hscroll1.ValueEnd SubShape1.Shape=L1.TextEnd Sub实验2.7 图形的使用(二)Shape1.Shape=3End SubPrivate Sub Command2_Click()Shape1.BorderColor = Shape1.Bordercolor=&HFF&End SubLabel1.Caption=NowEnd Sub实验三：选择结构实验3.1 汽车移动Private Sub Command1_Click()’Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()'Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()Picture1.Picture = LoadPicture("C:\VB\Sy03\CARS.ICO") End SubPrivate Sub Timer1_Timer()Picture1.Left = Picture1.Left + 100If Picture1.Left + Picture1.Width >= Form1.Width Then Picture1.Left = 0End IfEnd Sub实验3.2 爱好选择Dim s As StringPrivate Sub Check1_Click()If Check1.Value = 1 ThenFrame1.Enabled = TrueElseFrame1.Enabled = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenFrame2.Enabled = TrueElseFrame2.Enabled = FalseEnd IfEnd SubPrivate Sub Command1_Click()If Check1.Value = 1 ThenIf Option1.Value = True Thens = "古典音乐"Elses = "流行音乐"End IfEnd IfIf Check2.Value = 1 ThenIf Option3.Value = True Thens = s & "篮球"Elses = s & "羽毛球"End IfEnd IfLabel2.Caption = sEnd SubPrivate Sub Form_Load()Check1.Value = 1Check2.Value = 1End Sub实验3.3 圆的运动Dim d As IntegerPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()d = 1End SubPrivate Sub Timer1_Timer()If Option1 ThenShape2.Top = Shape2.Top + d * 50If Shape2.Top <= Shape1.Top Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Thend = -dEnd IfElseIf Option2 ThenShape2.Left = Shape2.Left + d * 50If Shape2.Left <= Shape1.Left Or Shape2.Left + Shape2.Width >= Shape1.Left + Shape1.WidthThend = -dEnd IfEnd IfEnd Sub实验3.4 交通工具和目的地选择Private Sub Form_Click()'学生编写If Op1.Value = True ThenIf Op3.Value ThenLab1.Caption = "坐飞机去广州"ElseIf Op4.Value ThenLab1.Caption = "坐飞机去昆明"End IfElseIf Op3.Value ThenLab1.Caption = "坐火车去广州"ElseIf Op4.Value ThenLab1.Caption = "坐火车去昆明"End IfEnd IfEnd Sub实验3.5 交换与连接Private Sub Form_Click()'学生编写If Op1.Value Thent = Text1.TextText1.Text = Text2.TextText2.Text = tLab1.Caption = "交换成功"ElseLab1.Caption = Text1.Text + Text2.TextEnd IfEnd Sub实验3.6 大小写转换Dim n As IntegerPrivate Sub Text1_Change()Dim ch As Stringch = Right$(Text1.Text, 1)If ch >= "A" And ch <= "Z" ThenLabel1.Caption = LCase(ch)n = n + 1ElseIf ch >= "a" And ch <= "z" ThenLabel1.Caption = UCase(ch)n = n + 1ElseLabel1.Caption = chEnd IfLabel2.Caption = nEnd Sub实验四：循环结构实验4.1 分解单词Private Sub Command1_Click()Dim S1 As String, S2 As StringDim I1 As IntegerS1 = Text1.TextI1 = 1DoDo While Mid(S1, I1, 1) <> “” And I1 <= Len(S1) S2 = S2 & Mid(S1, I1, 1)I1 = I1 + 1LoopList1.AddItem S2S2 = “”I1 = I1 + 1Loop While I1 <= Len(S1)End Sub实验4.2 列表框内容移动Private Sub C1_Click()Dim k As Integerk = 0While (k < List2.ListCount)If List2.Selected(k) = True ThenList1.AddItem List2.TextList2.RemoveItem kEnd Ifk = k + 1WendEnd SubPrivate Sub C2_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd Sub实验4.3 图案输出Private Sub Form_Click()For i = 1 To 5For j = 1 To 6 - iPrint " ";Next jFor j = 1 To 2 * i - 1Print "*";Next jPrintNext iFor i = 1 To 4For j = 1 To i + 1Print " ";Next jFor j = 1 To 2 * (5 - i) - 1Print "*";Next jPrintNext iEnd Sub实验4.4 因子个数Private Sub Command1_Click()Dim m As Integer, s As IntegerClsm = InputBox("请输入一个整数")s = 0For k = 1 To Abs(m) / 2If m Mod k = 0 Thens = s + 1Print kEnd IfNext kPrint "因子数="; SEnd Sub实验4.5 城市选择Private Sub Command1_Click()Dim k As IntegerFor k = List1.ListCount - 1 To 0 Step -1If List1.Selected(k) = True ThenList2.AddItem List1.List(k)List1.RemoveItem kEnd IfNext kEnd SubPrivate Sub Command2_Click()Dim k As IntegerText1 = "已经选中的城市有："For k = 0 To List2.ListCount - 1 Step 1Text1 = Text1 & " " & List2.List(k)Next kEnd Sub实验4.6 产生数列Private Sub Command1_Click()Text4 = ""a = Val(Text1)b = Val(Text2)n = Val(Text3)Text4 = Text4 & a & " " & bk = 2Do While k < nc = a * bk = k + 1If c < 10 ThenText4 = Text4 & " " & ca = bb = cElsed = c \ 10Text4 = Text4 & " " & da = dk = k + 1If k <= n Thend = c Mod 10Text4 = Text4 & " " & db = dEnd IfEnd IfLoopEnd Sub实验4.7 添加或删除列表框中内容Private Sub Command1_Click()Text1.Text = InputBox("请输入要添加的项目")List1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()Text1.Text = InputBox("请输入要删除的项目")For i = 0 To List1.ListCount - 1If List1.List(i) = Text1.Text ThenList1.RemoveItem iEnd IfNext iEnd Sub实验五：数组与字符串实验5.1 查找Option Base 1Dim a(10)Private Sub Command1_Click()Text1.Text = "": Text2.Text = ""For i = 1 To 10a(i) = Fix(Rnd * 90 + 10)For j = 1 To i - 1If a(i) = a(j) Theni = i - 1Exit ForEnd IfNext jNext iFor i = 1 To 10Text1.Text = Text1.Text + Str(a(i)) + Space(2)Next iEnd SubPrivate Sub Command2_Click()Dim num As Integer, i As Integernum = InputBox("请输入待查找的数")For i = 1 To 10If a(i) = num ThenText2.Text=Str(num)+"是数组中的第"+Str(i)+"个值"Exit ForEnd IfNext iIf i > 10 ThenText2.Text = Str(num) + "不存在于数组中"End IfEnd Sub实验5.2 选手得分Private Sub Command1_Click()Dim k As Integer, s As Single, a As Single, b As Single a = Val(Text1(0).Text)s = ab = aFor k=1 to 5s = s + Val(Text1(k).Text)If a < Val(Text1(k).Text) Thena = Val(Text1(k).Text)End IfIf b > Val(Text1(k).Text) Thenb = Val(Text1(k).Text)End IfNext ks = (s - a - b) / 4s = s * 3 * Val(Text2.Text)Text3.Text = Int(s * 100) / 100End Sub实验5.3 统计Option Base 1Dim a(20) As Integer, b(20) As IntegerPrivate Sub Cmd1_Click()Text1.Text = "": Text2.Text = "": Text3.Text = ""For i = 1 To 20a(i) = Fix(Rnd * 9 + 1)b(i) = 1Text1.Text = Text1.Text + Str(a(i)) + Space(2)Next iEnd SubPrivate Sub Cmd2_Click()fmax = 0For i = 1 To 20For j = i + 1 To 20If a(i) = a(j) Thenb(i) = b(i) + 1End IfNext jIf b(i) > fmax Then fmax = b(i)Next iFor i = 1 To 20If b(i) = fmax ThenText2.Text = Text2.Text + Str(a(i)) + Space(2) End IfNext iText3.Text = fmaxEnd SubPrivate Sub Cmd3_Click()EndEnd Sub实验5.4 循环显示Dim arrPrivate Sub Form_Load()arr = Array("第一项", "第二项", "第三项", "第四项") Label1.Caption = arr(0)Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Static i As IntegerLabel1.Caption = arr(i)If i = 3 Theni = 0Elsei = i + 1End IfEnd Sub实验5.5 最大值Private Sub Command1_Click()Dim arrN(30) As IntegerDim Max As IntegerRandomizeFor i = 1 To 30arrN(i) = Int(Rnd * 999) + 1Next iMax = arrN(1)For i = 2 To 30If arrN(i) > Max ThenMax = arrN(i)End IfNext iPrint MaxEnd Sub实验5.6 素数Option ExplicitOption Base 1Private Sub Command1_Click()Dim a() As Integer, n As Integer, i As IntegerDim flag As Boolean, k As Integerk = 0For n = 2 To 100flag = TrueFor i = 2 To n - 1If n Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Thenk = k + 1ReDim Preserve a(k)a(k) = nEnd IfNext nFor i = 1 To UBound(a)Print Right(Space(3) & a(i), 4);If i Mod 5 = 0 Then PrintNext iEnd Sub实验5.7 加密Private Sub Command1_Click()Dim n As Integer, k As Integer, m As IntegerDim c As String, a As StringFor k = 0 To 2If Op1(k).Value Thenn = Val(Op1(k).Caption)End IfNext km = Len(Text1.Text)a = ""For k = 1 To mc = Mid$(Text1.Text, k, 1)c = String(1, Asc(c) + n)If c > "z" Or c > "Z" And c < "a" Thenc = String(1, Asc(c) - 26)End Ifa = a + cNext kText2.Text = aEnd Sub1.6 子程序过程与函数过程实验6.1 求和2.程序代码Private Sub Command1_Click()Dim i As IntegerFor i = 0 To 1If Option1.Item(i) = True ThenCall calc(i)Label2.Caption = Option1(i).CaptionEnd IfNextEnd SubPrivate Sub calc(c As Integer)Dim i As Integerresult = 0x = Val(Text1.Text)If c = 0 ThenFor i = 1 To xIf i Mod 2 = 1 Thenresult = result + iEnd IfNextElseFor i = 1 To xIf i Mod 2 = 0 Thenresult = result + iEnd IfNextEnd IfLabel3.Caption = resultEnd Sub实验6.2 最大值2.程序代码Option Base 1Private Function FindMax(a() As Integer)Dim Start As IntegerDim Finish As Integer, i As IntegerStart = LBound(a)Finish = UBound(a)Max = a(Start)For i = Start To FinishIf a(i) > Max Then Max = a(i)Next iFindMax = MaxEnd FunctionPrivate Sub Command1_Click()Dim arr1Dim arr2(4) As Integerarr1 = Array(Val(Text1), Val(Text2), Val(Text3), Val(Text4)) For i = 1 To 4arr2(i) = CInt(arr1(i))Next iM = FindMax(arr2())Print "最大值是: "; MEnd Sub实验6.3 哥德巴赫猜想2.程序代码Private Function IsPrime(ByVal x As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(x)If x Mod i = 0 ThenIsPrime = FalseExit FunctionEnd IfNextIsPrime = TrueEnd FunctionPrivate Sub Command1_Click()'学生编写程序开始'======================================x = Val(Text1.Text)If x < 4 Or x Mod 2 <> 0 ThenText1.Text = "输入有误"ElseFor i = 2 To xIf IsPrime(i) And IsPrime(x - i) ThenLabel1.Caption = iLabel2.Caption = x - iExit ForEnd IfNext iEnd If'========================================='学生编写程序结束Open App.Path & "\out3.dat" For Output As #1Print #1, Text1.Text, Label1.Caption, Label2.CaptionClose #1End Sub实验6.4 阶乘和2.程序代码Private Sub Command1_Click()Dim m As Integer, n As IntegerDim s As Long, i As Integerm = Val(Text1.Text)n = Val(Text2.Text)s = 0For i = m To nt = f(i)s = s + tNextlblResult.Caption = sEnd SubPrivate Function f(ByRef x As Integer) As LongDim t As Longt = 1For i = 1 To xt = t * iNextf = tEnd Function实验6.5 选择图形2.程序代码Private Sub C1_Click()Dim k As IntegerFor k = 0 To 2If Op1(k).Value = True ThenCall draw(k)End IfNext kEnd SubSub draw(a As Integer)P1.Print "选择了" & Op1(a).CaptionEnd Sub实验6.6 对象参数2.程序代码Private Sub Form_Load()Label1.Caption = "AABB"Label2.Caption = 10End SubPrivate Sub Command1_Click()Dim a As Integera = Val(Label2.Caption)Call fun1(Label1, a)Label2.Caption = aCall fun2(Form1)End SubPrivate Sub fun1(L As Label, b As Integer) L.Caption = "ABCD"b = b * bEnd SubPrivate Sub fun2(F As Form)F.Caption = "程序"End Sub1.7 简单应用实验7.1 图形控件2.程序代码Dim left0 As IntegerConst blue_color = &HFF0000, red_color = &HFF&Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()left0 = Shape1.LeftEnd SubPrivate Sub Timer1_Timer()If Shape1.FillColor = blue_color ThenIf Shape1.Left > 0 ThenShape1.Height = Shape1.Height + 100Shape1.Width = Shape1.Width + 100Shape1.Left = Shape1.Left - 50Shape1.Top = Shape1.Top - 50ElseShape1.FillColor = red_colorEnd IfEnd IfIf Shape1.FillColor = red_color ThenIf Shape1.Left < left0 ThenShape1.Height = Shape1.Height - 100Shape1.Width = Shape1.Width - 100Shape1.Left = Shape1.Left + 50Shape1.Top = Shape1.Top + 50ElseShape1.FillColor = blue_colorEnd IfEnd IfEnd Sub实验7.2 Line控件2.完善程序代码Private Sub Command1_Click()Line4.Visible = TrueEnd SubPrivate Sub Command2_Click()Line4.Visible = FalseEnd Sub实验7.3 计数2.程序代码Private Sub C1_Click(Index As Integer)Select Case IndexCase 1Timer1.Enabled = FalseCase 0Timer1.Enabled = TrueEnd SelectEnd SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text + 1End Sub实验7.4 通话费用2.程序代码Private Sub Cmd1_Click()Text1(0).Text = Str(Time())Text1(1).Text = "": Text1(2).Text = ""Cmd1.Enabled = FalseCmd2.Enabled = TrueEnd SubPrivate Sub Cmd2_Click()Text1(1).Text = Str(Time())t_start = Hour(Text1(0).Text) * 3600 + Minute(Text1(0).Text) * 60 + Second(Text1(0).Text) t_end = Hour(Text1(1).Text) * 3600 + Minute(Text1(1).Text) * 60 + Second(Text1(1).Text) t = t_end - t_startm = t \ 60If m < t / 60 Then m = m + 1s = 0.5If m - 3 > 0 Thens = s + (m - 3) * 0.15End IfText1(2).Text = Str(s) + "元"Cmd1.Enabled = TrueCmd2.Enabled = FalseEnd Sub实验7.5 图标运动2.程序代码Dim a, t, dPrivate Sub Command1_Click()Timer1.Enabled = Trued = Image1.TopEnd SubPrivate Sub Command2_Click()Open App.Path & "\out7.txt" For Output As #1Print #1, Label1, Label2Close #1End SubPrivate Sub Form_Load()a = 1t = 0End SubPrivate Sub Timer1_Timer()Image1.Top = Image1.Top - a * 50If Image1.Top + Image1.Height <= Image2.Top + Image2.Height - 200 Then Timer1.Enabled = Falsed = d - Image1.TopLabel1 = dLabel2 = t * Timer1.Interval / 1000End Ifa = a + 0.1t = t + 1End Sub实验7.6 圆的移动2.程序代码Private Sub Form_load()HScroll1.Min = Shape2.LeftHScroll1.Max = Shape2.Width + Shape2.Left - Shape1.WidthVScroll1.Min = Shape2.TopVScroll1.Max = Shape2.Height + Shape2.Top - Shape1.HeightHScroll1.Value = 1000VScroll1.Value = 1000End SubPrivate Sub HScroll1_Change()Shape1.Left = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Shape1.Top = VScroll1.ValueEnd Sub实验7.7 处理数据2.程序代码Private Sub Command1_Click()Dim y As IntegerFor i = 0 To 2If Option1(i).Value = True Theny = Val(Option1(i).Caption)End IfNextCall calc(y)End SubPrivate Sub calc(y As Integer)List1.Cleari = 1x = Val(Text1.Text) + 1Do While i <= 5If x Mod y = 0 ThenList1.AddItem x i = i + 1End Ifx = x + 1LoopEnd Sub1.8 菜单、键盘与鼠标事件实验8.1 下拉式菜单2.完善程序代码Private Sub Dis_Click()Text1.Text = "等级考试"End SubPrivate Sub Exit_Click()EndEnd Sub实验8.2 求和或求阶乘2.程序代码Dim n As IntegerPrivate Sub Command1_Click()'需学生编写的程序Dim s As Long, i As IntegerIf Option1 Thens = 1For i = 1 To ns = s * iNext iElses = 0For i = 1 To ns = s + iNext iEnd IfText1.Text = CStr(s)End SubPrivate Sub Command2_Click()Open App.Path + "\out2.dat" For Output As #1Print #1, n, Option1.Value, Option2.Value, Text1Close #1End SubPrivate Sub m10_Click()n = 10End SubPrivate Sub m2000_Click()n = 2000End SubPrivate Sub m12_Click()n = 12End SubPrivate Sub m1000_Click()n = 1000End SubPrivate Sub Option1_Click()n = 0m1000.Enabled = Falsem2000.Enabled = Falsem10.Enabled = Truem12.Enabled = TrueEnd SubPrivate Sub Option2_Click()n = 0m10.Enabled = Falsem12.Enabled = Falsem1000.Enabled = Truem2000.Enabled = TrueEnd Sub实验8.3 弹出式菜单2.完善程序代码Private Sub Form_Load()Text1.Text = "计算机等级考试"End SubPrivate Sub M1_Click()Text1.FontBold = TrueEnd SubPrivate Sub M2_Click()Text1.FontItalic = TrueEnd SubPrivate Sub M3_Click()Text1.FontUnderline = TrueEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu FormatEnd Sub实验8.4 组合框的使用2.程序代码Private Sub C1_Click()Dim flag As BooleanFor i = 0 To Cb1.ListCount - 1If Cb1.List(i) = Cb1.Text Thenflag = TrueExit ForElseflag = FalseEnd IfNextIf flag ThenMsgBox "已有此项"Cb1.Text = ""ElseCb1.AddItem Cb1.TextEnd IfEnd Sub实验8.5 键盘事件2.程序代码Private Sub Command1_Click()Combo1.AddItem Text1.TextText1.Text = ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii > 57 Or KeyAscii < 48 ThenMsgBox "请输入数字！"KeyAscii = 0End IfEnd Sub实验8.6 鼠标事件2.程序代码Const y0& = 1110, x0& = 1100, radius& = 750Private Function oncircle(X As Single, Y As Single) As Booleanprecision = 55000If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) < precision Then oncircle = TrueElseoncircle = FalseEnd IfEnd FunctionPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Const LEFT_BUTTON = 1If oncircle(X, Y) ThenLine1.X1 = x0Line1.Y1 = y0If Button = LEFT_BUTTON ThenLine1.X2 = XLine1.Y2 = YElseLine1.X2 = Line1.X1Line1.Y2 = y0 - radiusEnd IfLabel1.Caption = ""ElseLabel1.Caption = "鼠标位置不对"End IfEnd Sub实验8.7 多窗体程序设计2.程序代码(1)Form1窗体中的程序代码Private Sub C1_Click()Dim k As IntegerForm2.ShowForm2.Print Form1.L1.Caption; Form1.Text1 Form2.Print Form1.L2.Caption; Form1.Text2 Form2.Print Form1.L3.Caption; Form1.Text3 Form2.Print Form1.Frame1.Caption; "："; For k = 0 To 1If Form1.Op1(k).Value ThenForm2.Print Form1.Op1(k).Caption End IfNext kEnd SubPrivate Sub Form_Load()Text2.PasswordChar = "*"End Sub(2)Form2窗体中的程序代码Private Sub C1_Click()EndEnd SubPrivate Sub C2_Click()Unload Form2End Sub1.9 通用对话框与文件实验9.1 通用对话框2．程序代码Private Sub Command1_Click()Dim n As LongCD1.FileName = ""CD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文档|*.doc"CD1.FilterIndex = 2CD1.ShowOpenIf CD1.FileName <> "" ThenOpen CD1.FileName For Input As #1n = LOF(1)Text1 = Input$(n, #1)Close #1End IfEnd Sub实验9.2 文件控件2.完善程序代码Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Label2.Caption = File1.FileNameEnd Sub实验9.3 小写转换为大写2.程序代码Private Sub C1_Click()Dim a As StringCD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文件|*.doc"CD1.FilterIndex = 2CD1.Action = 1Open CD1.FileName For Input As #1Input #1, aClose #1Text1.Text = aEnd SubPrivate Sub C2_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub C3_Click()CD1.FileName = "out3.txt"CD1.Action = 2Open CD1.FileName For Output As #1Print #1, Text1.TextClose #1End Sub实验9.4 删除数据2.程序代码Dim a(100) As Integer, num As Integer, n As IntegerPrivate Sub Command1_Click()Dim k As Integern = 60Open App.Path & "\in4.txt" For Input As #1For k = 1 To nInput #1, a(k)Text1 = Text1 + Str(a(k)) + Space(2)Next kClose #1End SubPrivate Sub Command2_Click()num = InputBox("请输入一个数")End SubPrivate Sub Command3_Click()For i = 1 To nIf num = a(i) Then Exit ForNext iIf i > n ThenMsgBox "该数不存在于数组中，不能执行删除操作！"Elsen = n - 1For j = i To na(j) = a(j + 1)NextEnd IfText1 = ""'以下程序段将执行删除操作后的数组a重新显示在Text1中For k = 1 To nText1 = Text1 + Str(a(k)) + Space(2)Next kEnd Sub实验9.5 统计2.程序代码Option Base 1Dim x As String, max_n As IntegerPrivate Sub Command1_Click()Open App.Path & "\in5.txt" For Input As #1s = Input(LOF(1), #1)Close #1Text1.Text = sEnd SubPrivate Sub Command2_Click()Dim a(26) As Integersl = Text1.SelLengthst = Text1.SelTextText2 = ""If sl = 0 ThenMsgBox "请先选择文本"ElseFor i = 1 To slc = Mid(st, i, 1)If c <> " " Thenn = Asc(UCase(c)) - Asc("A") + 1a(n) = a(n) + 1End IfNext imax_n = a(1): n = 1For j = 2 To 26If max_n < a(j) Thenmax_n = a(j)End IfNext j'注意可能有多个出现次数最多的字母For i = 1 To 26If max_n = a(i) ThenText2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1) End IfNext iEnd IfEnd Sub实验9.6 完全平方数2.程序代码Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & "\in6.txt" For Input As #1For k = 1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click()'学生编写Dim i As Integer, avg As Single, N As IntegerFor i = 1 To 100If a(i) = (Int(Sqr(a(i)))) ^ 2 Thenavg = avg + a(i)N = N + 1End IfNext iavg = Int(avg / N)Text1.Text = CStr(avg)End SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & "\out6.txt" For Output As #1 Print #1, Text1.TextClose #1End Sub1.10 综合应用实验10.1 大小写转换2.程序代码Private Sub Command1_Click()Dim s As StringCommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt"CommonDialog1.FilterIndex = 2On Error GoTo openerrCommonDialog1.InitDir = App.PathCommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #1Input #1, sClose #1Text1.Text = sopenerr:End SubPrivate Sub Command2_Click()'考生需要编写的程序x = Text1.Texty = Len(x)For i = 1 To yz = Mid(x, i, 1)Select Case zCase "E"Mid(x, i, 1) = "e"Case "N"Mid(x, i, 1) = "n"Case "T"Mid(x, i, 1) = "t"Case "e"Mid(x, i, 1) = "E"Case "n"Mid(x, i, 1) = "N"Case "t"Mid(x, i, 1) = "T"End SelectNext iText1.Text = xEnd SubPrivate Sub Command3_Click()CommonDialog1.Filter = "文本文件|*.txt|所有文件|*.*"CommonDialog1.FilterIndex = 1On Error GoTo openerrCommonDialog1.FileName = "out1.txt"CommonDialog1.InitDir = App.PathCommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text1Close #1openerr:End Sub实验10.2 矩阵与文件2.程序代码Option Base 1Private Sub Form_Click()Const N = 5Const M = 5Dim mat(M, N)Dim i, j, tOpen App.Path & "\" & "in2.txt" For Input As #1For i = 1 To NFor j = 1 To MInput #1, mat(i, j)Next jNext iClose #1PrintPrint "初始矩阵为："PrintFor i = 1 To NFor j = 1 To MPrint Tab(5 * j); mat(i, j);Next jPrintNext iPrintFor j = 1 To Mt = mat(1, j)mat(1, j) = mat(3, j)mat(3, j) = tNext jPrintPrint "交换第一行和第三行后的矩阵为："PrintFor i = 1 To NFor j = 1 To MPrint Tab(5 * j); mat(i, j);Next jPrintNext iEnd Sub实验10.3 菜单与文件2.程序代码Option Base 1Dim Arr(100) As Integer,s As IntegerSub ReadData()Open App.Path & "\" & "in3.txt" For Input As #1For i = 1 To 100Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & "\" & Filename For Output As #1Print #1, NumClose #1End SubPrivate Sub Calc_Click()Dim i As IntegerFor i = 1 To 100If Arr(i) < 50 Thens = s + Arr(i)Text1.Text = Text1.Text + CStr(Arr(i)) + " "End IfNext iPrint sEnd SubPrivate Sub read_Click()ReadDataEnd SubPrivate Sub save_Click()WriteData "out3.txt", sEnd Sub实验10.4 排序2.程序代码Private Sub Command1_Click()RandomizeFor k = 0 To 9Text1(k) = CInt(Rnd() * 899 + 100)NextEnd SubPrivate Sub Command2_Click()'================================================'算法：'1）令i指向第1个数，j指向最后1个数，并先暂存最后一个数；'2）检查第i个数是否为偶数，若不是，再检查下一个，直到第i个是' 偶数，则把此偶数放到第j个位置，j向前移1个位置；'3）检查第j个数是否为奇数，若不是，再检查前一个，直到第j个是' 奇数，则把此奇数放到第i个位置，i向后移1个位置；'4）重复2）、3），直到i=j'5）把开始暂存的数放到i的位置'=================================================Dim i%, j%, temp%, flag As Booleani = 0j = 9temp = Text1(j)flag = TrueWhile (i < j)If flag ThenIf Text1(i) Mod 2 = 0 ThenText1(j) = Text1(i)j = j - 1flag = Not flagElsei = i + 1End IfElseIf Text1(j) Mod 2 = 1 ThenText1(i) = Text1(j)i = i + 1flag = Not flagElsej = j - 1End IfEnd IfWendText1(i) = tempEnd Sub实验10.5 插入数据2.程序代码Dim a(100) As Integer, num As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & "\in5.txt" For Input As #1For k = 1 To 60Input #1, a(k)Text1 = Text1 + Str(a(k)) + Space(2)Next kClose #1End SubPrivate Sub Command2_Click()num = InputBox("请输入一个数")End SubPrivate Sub Command3_Click()For i = 1 To 60If num < a(i) Then Exit ForNext iFor j = 60 To i Step -1a(j + 1) = a(j)Next ja(i) = numText1 = ""'以下程序段将插入后的数组A重新显示在Text1中For k = 1 To 61Text1 = Text1 + Str(a(k)) + Space(2)Next kEnd Sub实验10.6 图形2.程序代码Dim a(5, 10) As IntegerDim s(5)Private Sub Command1_Click()Open App.Path & "\in6.txt" For Input As #1For i = 1 To 5For j = 1 To 10Input #1, a(i, j)Next jNext iClose #1End SubPrivate Sub Command2_Click()For i = 1 To 5s(i) = 0For j = 1 To 10s(i) = s(i) + a(i, j)Next js(i) = CInt(s(i) / 10)Text1(i - 1) = s(i)Next iEnd SubPrivate Sub Command3_Click()For k = 1 To 5Shape1(k - 1).Height = s(k) * 20m = Line2.Y1Shape1(k - 1).Top = m - Shape1(k - 1).HeightShape1(k - 1).Visible = TrueNext kEnd Sub。
VB实验报告
《VB程序设计》实验单元一实验报告专业班级：姓名学号 2指导教师：王云侠完成时间： 3月22日实验一VB环境和可视化编程基础一、实验目的1 了解Visual Basic的安装2 掌握启动与退出Visual Basic3 掌握建立、编辑和运行一个简单应用程序的全过程4 掌握基本控件的使用二、实验环境三、实验内容1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。
提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。
对文本框计数：Text1=Val(text1)+1 。
2、命令按钮、字号、内容和格式的复制练习。
按钮1：使得Text1中的文本按要求改变。
按钮2：将Text1中选定的文本复制到Text2.控件名属性Form1Caption=”实验2”Label1复制文本Label2输入文本Text1Text=“VB功能强大，但要下功夫学习才能学好。
”（每个同学文本框中内容可以不同）Text2Text=””Command1Caption=”隶书25磅”Command2Caption=”复制=>”四、实验步骤1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。
从运用中点击经典版打开标准EXE 建立一个form 1添加一个Label和TextBox，Label的caption改为“你单击窗体的次数”，TextBox 的text改为空，然后编写代码如图点击运行即可。
2、命令按钮、字号、内容和格式的复制练习。
从运用中点击经典版打开标准EXE 建立一个form 1添加两个Label两个TextBox两个CommandButton，Label的caption改为“输入内容”和“复制效果”，TextBox的text改为“任意文字”和“空”，CommandButton 的caption改为“隶书25磅”和“复制=>”。
并且左面的Label改为如图代码如图点击运行即可五、实验结果1.2.六、实验体会VB很有意思实验二 VB语言基础和顺序结构一、实验目的1、掌握正确书写表达式、赋值语句的规则2、掌握常用函数的使用3、掌握MsgBox与InputBox的使用4、掌握Print和Format的使用二、实验环境三、实验内容1、输入半径的值，分别计算并输出圆的面积、圆的周长和球的体积。
VB实验及答案
对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值 象限判断 判断 X= Y=
（3）编写事件代码： Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
（4）程序的运行及保存。 4 求圆的面积及圆柱体的体积，界面如图 2-3 所示。
【步骤】 （1）设计应用程序的界面：在窗体上创建两个命令按钮 Command1 和 Command2，四个标签 Label1、Label2、Label3 和 Label4，四个文本框 Text1、Text2、Text3 和 Text4。 （2）设置对象的属性
【步骤】
（ 1 ） 在 窗 体 中 创 建 一 个 标 签 Label1 、 一 个 命 令 按 钮 Command1。
（2）在属性窗口中设置对象的属性：
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
（3）在 Command1 的 Click 事件中编写程序代码：
x = Val(Text1) y = Val(Text2) If x > 0 Then
VB实验参考答案
VB实验参考答案VB实验参考答案VB（Visual Basic）是一种常用的编程语言，广泛应用于软件开发领域。
在学习VB的过程中，进行实验是非常重要的一部分。
本文将为大家提供一些VB实验的参考答案，帮助大家更好地理解和掌握VB编程。
实验一：简单的计算器程序要求：编写一个简单的计算器程序，能够实现基本的加减乘除运算。
参考答案：```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If rbAdd.Checked Thenresult = num1 + num2ElseIf rbSubtract.Checked Thenresult = num1 - num2ElseIf rbMultiply.Checked Thenresult = num1 * num2ElseIf rbDivide.Checked ThenIf num2 <> 0 Thenresult = num1 / num2ElseMsgBox("Error: Division by zero!")End IfEnd IftxtResult.Text = resultEnd Sub```实验二：学生成绩管理系统要求：编写一个学生成绩管理系统，能够实现学生信息的录入、查询和统计功能。
参考答案：```vbPrivate Sub btnAdd_Click()Dim name As StringDim score As Integername = txtName.Textscore = CInt(txtScore.Text)lstStudents.Items.Add(name & " - " & score)End SubPrivate Sub btnSearch_Click()Dim searchName As StringDim index As IntegersearchName = txtSearch.Textindex = lstStudents.FindString(searchName)If index <> -1 ThenlstStudents.SelectedIndex = indexElseMsgBox("Student not found!")End IfEnd SubPrivate Sub btnStatistics_Click()Dim totalScore As IntegerDim averageScore As DoubleDim count As IntegerFor Each item As String In lstStudents.ItemsDim score As Integer = CInt(item.Split("-")(1).Trim()) totalScore += scorecount += 1NextaverageScore = totalScore / counttxtTotalScore.Text = totalScoretxtAverageScore.Text = averageScore```实验三：简单的图书管理系统要求：编写一个简单的图书管理系统，能够实现图书信息的录入、查询和删除功能。
vb实验报告实验一
vb实验报告实验一
实验一：VB实验报告
实验目的：通过VB编程实现简单的计算器功能，加深对VB语言的理解和掌握。
实验内容：
1. 设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
2. 实现数字按钮的点击事件，将点击的数字显示在计算器界面上。
3. 实现运算符按钮的点击事件，将点击的运算符保存下来。
4. 实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显
示在计算器界面上。
实验步骤：
1. 打开VB开发环境，创建一个新的Windows窗体应用程序项目。
2. 在窗体上设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
3. 编写VB代码，实现数字按钮和运算符按钮的点击事件，将点击的数字或运
算符保存下来。
4. 编写VB代码，实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显示在计算器界面上。
实验结果：
经过实验，成功实现了一个简单的计算器功能。
用户可以通过点击数字按钮输
入数字，点击运算符按钮选择运算符，点击等号按钮进行计算，最终得到正确
的计算结果。
实验总结：
通过本次实验，我进一步掌握了VB语言的编程技巧，对VB编程有了更深入的
理解。
通过实际操作，我对计算器功能的实现有了更清晰的认识，为以后的VB 编程打下了良好的基础。
希望通过不断的实践和学习，能够更加熟练地运用VB 语言，实现更多更复杂的功能。
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的实验报告
大一vb的实验报告一、实验目的掌握VB语言的基础知识和编程技巧，并通过实践掌握VB的常用控件和事件处理方法。
二、实验材料1.计算机2.VB开发环境三、实验步骤1.搭建VB开发环境在计算机上安装VB开发环境，并进行必要的配置。
2.创建一个新的VB项目打开VB开发环境，点击“新建项目”按钮，选择“Windows桌面应用程序”模板，填写项目名称并确定。
3.设计用户界面在VB的设计器中，拖动控件到窗体上，设置其属性，并进行布局设计。
4.添加事件处理程序对每个控件添加相应的事件处理程序，以实现交互功能。
例如，对于按钮控件，可以添加点击事件的处理程序。
5.编写VB代码在VB的代码编辑器中，编写处理事件的代码，以实现所需的功能。
可以使用VB的基础语法、分支结构、循环结构等。
6.调试与运行对代码进行调试，确保程序运行没有错误，然后点击运行按钮，查看程序的运行效果。
四、实验结果通过以上步骤，成功实现了一个基础的VB程序，具备一定的交互功能和相应的逻辑处理。
五、实验总结通过本次实验，我学会了如何搭建VB开发环境，编写VB代码，设计用户界面，以及添加事件处理程序。
这些都是VB编程的基础知识和技能，对于以后的学习和应用都具有重要的意义。
通过不断的实践和探索，我相信自己能够在VB编程方面有更深入的理解和应用。
六、实验心得本次实验对我来说是一次很好的学习机会。
通过亲自动手实践，我加深了对VB语言和开发环境的了解，对于如何设计用户界面和编写代码也有了一定的经验。
实验过程中，我遇到了不少问题，但通过查阅资料和请教同学，我一一解决了这些问题。
实验不仅让我学到了知识，还培养了我的动手能力和解决问题的能力。
我会继续努力学习，提升自己的编程水平。
大一vb的实验报告
大一vb的实验报告篇一：VB实验报告一、实验目的和要求1、掌握正确书写表达式、赋值语句的规则。
2、掌握InputBox与MsgBox的使用。
3、掌握Print方法和Format格式使用。
4、掌握单分支与双分支条件语句的使用。
5、掌握多分支条件语句的使用。
6、掌握For语句和Do语句的各种形式的使用。
7、掌握如何控制循环条件，防止死循环和不循环。
二、实验内容和原理1、输入半径，计算圆周长和圆面积。
为了保证程序运行的正确，对输入半径要进行合法性检查，数据检查调用IsNumeric函数；若有错，利用MsgBox显示错误信息，通过SetFocus方法定位于出错的文本框处，重新输入；计算结果保留两位小数。
提示：使用Text1_KeyPress事件，按Enter键，返回参数“KeyAscii”的值为13表示输入结束。
2、随机产生三个整数，按从小到大的顺序显示。
3、计算π的近似值，π的计算公式为：?2n?224262π=2×××…× 2n-1?2n+11?33?55?7 注意：①、分别显示当n=10、100、1000时的结果，由此可见，此计算公式收敛如何？②、要防止大数相乘时结果溢出的问题，将变量类型改为长整型或实数型。
三、主要仪器设备计算机四、实验结果与分析实验界面：1、输入半径，计算圆周长和圆面积。
程序：Private Sub Form_ActivateText1.Text = "输入半径值"Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) '圆面积，周长Dim rr = Text1.TextConst PI = 3.14159If KeyAscii = 13 ThenClsIf IsNumeric(r) ThenPrint "当圆的半径为"; r; "时："Print "圆面积为："; Format(PI * r ^ 2, "0.00") Print "圆面积为"; Format(PI * r ^ 2, "0.00")ElseText1 = "半径值输入有误"End IfText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)ElseEnd IfEnd Sub运行结果：输入值:22、随机产生三个整数，按从小到大的顺序显示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
XXXXXXX计算机科学与技术学院实验报告课程名称___________________＿＿＿班级___________________＿＿＿姓名__________ 学号________ _ 实验地点___________________＿＿＿指导教师____________成绩_______＿实验一 VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。
程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
图1.1 实验1-1 运行界面三．实验结果：对象属性设置对象属性属性值说明caption 我的第一个vb程序窗体Form1caption 请输入姓名标签Label1text ““文本框Text1caption 显示命令按钮Command1caption 清除命令按钮Command2四．实验思考：1.标签label控件设置的属性代码有哪些？Label1.Caption=“请输入姓名”Label1.fontsize=24Label1.fontbold=True2.两个按钮所使用的是什么事件？代码分别是什么？Private Sub Command1_Click()Text1.text=“自己的姓名”End SubPrivate Sub Command2_Click()Text1.text=””End Sub实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：1．掌握Visual Basic数据类型的基本概念。
2．掌握用Visual Basic的各种运算符及表达式。
3．学习使用Visual Basic内部函数和数据输入、输出方法。
4．掌握命令按钮、文本框和标签。
5．设计顺序程序。
二．实验内容：1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。
转换公式是：C= 5 / 9(F - 32)。
F为华氏温度，C为摄氏温度。
2.用三种除法运算（/ 、\、Mod）做计算。
要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。
程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
图2-1图2-2三．实验结果：对象属性设置1.温度转换对象属性属性值说明Form1 Caption Inputbox与msgbox应用窗体Command1 Caption 温度转换命令按钮2. 三种除法运算（/ 、\、Mod）做计算对象属性属性值说明Label1 Caption 被除数标签Label2 Caption 除数标签Label3 Caption 浮点数标签Label4 Caption 整除数标签Label5 Caption 余数除标签Command1 Caption 执行除法运算命令按钮四．实验思考：1.温度转换中的Command1命令的单击事件的程序代码是什么？Private Sub Command1_Click()Dim C!,F!F=val(inputbox(“输入华氏温度”))C=5/9*（F-32）Msgbox “对应的摄氏温度为：” & CEnd Sub2. 用三种除法运算（/ 、\、Mod）做计算，说明三种除法的区别？/：两个数相除\：两个数整除Mod：两个数相除，得余数3. 三种除法运算（/ 、\、Mod）做计算，Command1命令的单击事件的程序代码是什么？Private Sub Command1_Click()Dim a!,b!a=val(text1.text)b= val(text2.text)text3.text=a/btext4.text=a\btext5.text=a mod bEnd Sub实验三选择程序设计一．实验目的：1.掌握单分支与双分支条件语句的使用。
2.掌握多分支条件语句（If … Then … ElseIf）的使用。
3.掌握Select Case语句的使用及与多分支条件语句的区别。
4.熟练掌握时间过程的编写方法。
二．实验内容：1.设计一个模拟简易计算器的程序，界面如图3-1所示。
要求：①输入两个操作数和一个操作符，根据操作符决定所进行的计算；②如果除数为0，用msgbox提示出错信息；③用if语句和selecet case 语句两种结构实现。
2.通过单选按钮和复选框控制文字的显示，程序窗口如图3-2所示。
图3-1图3-21．设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。
在列表框中随机产生10个100到200之间的整数，在文本框中显示结果信息。
界面如图5-1所示。
图5-1 窗体界面三．实验结果：对象属性设置对象属性属性值说明Label1 Caption 10个100到200之间的整数标签Label2 Caption 最大值标签Label3 Caption 最小值标签Label4 Caption 平均值标签Command1 Caption 计算命令按钮Text1—Text4 Text ““文本框四．实验思考：1．数组应在过程内还是过程外定义，定义的语句是什么？过程外定义Dim a(10) As Integer2．在窗体载入时，在列表框中随机产生10个整数，则程序代码是什么？Private Sub Form_Load()Dim i%For i = 1 To 10a(i) = Int(Rnd * 101 + 100)List1.AddItem a(i)Next iEnd Sub3．单击命令按钮，在文本框中显示结果信息，则程序代码是什么？Private Sub Command1_Click()Dim i As Integer, max%, min%, avg!max = a(1)min = a(1)avg = 0For i = 1 To 10If max < a(i) Then max = a(i)If min > a(i) Then min = a(i)avg = avg + a(i)Next iavg = avg / 10Text1.Text = maxText2.Text = minText3.Text = avgEnd Sub实验六过程程序设计一．实验目的：1．掌握子过程的定义和调用方法。
2．掌握函数过程的定义和调用方法。
3．理解作用域和生存期。
4. 掌握滚动条。
二．实验内容：1.写两个函数，分别求两个数的最大公约数和最小公倍数，编写子过程求最大公约数，函数过程求最小公倍数。
要求从文本框中输入两个数。
界面如图6-1所示。
图6-12.设计一个用滚动条改变图片背景色的程序。
界面如图6-2所示图6-2p = p / gbs(m, n)Text4.Text = pEnd SubPrivate Function gbs(m As Integer, n As Integer) As IntegerDim r As Integerr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopgbs = nEnd Function3. 拖动滚动条的滑块，可改变图片控件的背景颜色，三个滚动条的程序代码相似，请写出HScroll1的事件过程。
Dim r As Integer, g As Integer, b As IntegerPrivate Sub HScroll1_Change()r = HScroll1.Valueg = HScroll2.Valueb = HScroll3.ValueText1.BackColor = RGB(r, g, b)End Sub实验七界面设计一．实验目的：1．掌握多窗体程序设计的方法。
2．掌握下拉式菜单。
3．了解通用对话框。
二．实验内容：1.编写密码登录系统。
在窗体1输入用户名和密码，如果密码正确就弹出第二个窗体，第二个窗体自行设计操作内容；如果密码不正确，弹出信息框，显示”用户名或密码错误，请重新输入”，回到窗体1继续输入用户名和密码。
密码输入有三次机会，超过三次就弹出第三个窗口，显示”对不起，你不能使用该系统！”（注：凡是文字提示内容可自行设计，不要求与题目一样。
三个窗体界面可参照图7-1 图7-2 图7-3所示。
）图7-1图7-2图7-32.利用通用对话框设计一个简单的文本编辑器，具有打开、保存、字体、颜色功能。
要求用菜单实现，有”文件”和”格式”两个菜单，”文件”菜单下包含”打开”、”保存”和”退出”三项。
”格式”菜单下包含”字体”和”颜色”两项，打开文件显示在文本框中。
（窗体界面可参照图7-4 所示。
）图7-4三．实验结果：对象属性设置1．设置三个窗体的控件及其属性。
对象控件名称属性属性值Form1Form1 Caption Form1 Form2Form2 Caption Form2 Form3Form3 Caption Form32．设置窗体控件及属性值。
对象控件名称属性属性值窗体Form1 Caption Form1文本框1 Text1 Text Text1打开OpenCaption打开保存SaveCaption保存退出ExitCaption退出字体FontCaption字体颜色ColorCaption颜色四．实验思考：1．下列程序为实验内容1的部分程序代码，单击确定命令按钮的程序代码是什么？Private Sub Form_Load()Text2.PasswordChar = “*”Text2.Text = ““Text1.Text = ““。