vb实验报告(10)
大一vb的实验报告
大一VB的实验报告引言本次实验是关于VB（Visual Basic）的学习，在实验中，我们将学习VB的基础知识及其在实际应用中的使用方法。
VB是微软公司开发的一种基于Windows操作系统的可视化编程语言，最初是针对Office软件进行开发，后来逐渐扩展到Windows界面程序的开发，许多应用软件都是采用VB开发的。
本次实验主要涉及到VB的部分语法及其相关应用。
实验目的通过本次实验，学生应能够掌握以下知识：1.VB的基础语法知识及其应用方法；2.学会使用VB设计Windows应用程序；3.掌握VB窗体及控件设计，以及属性设置；4.掌握VB语言中数据类型、循环、分支结构等知识点；5.熟悉VB的IDE开发环境和调试功能；6.学会编写VB代码，完成简单的实际应用程序。
实验内容在本次实验中，我们主要完成了两个VB应用程序的设计与开发：第一个应用程序在第一个应用程序中，我们将实现以下功能：1.界面设计，包括窗体设计、按钮设计等；2.显示本地计算机的基本信息，如计算机名、操作系统版本号、CPU速度等；3.显示本地计算机的网络信息，如IP地址、MAC地址等；4.提供一个退出程序的功能按钮。
我们可以使用VB语言编写代码，通过各类控件的设计，来实现上述功能。
我们可以使用MsgBox函数来弹出消息窗口，使用Label和Text控件来显示文本信息，使用按钮控件来实现退出程序的功能。
具体实现方式可参考相关的VB编程书籍或网络资源。
第二个应用程序在第二个应用程序中，我们将实现以下功能：1.界面设计，包括窗体设计、按钮设计等；2.支持文本文件的读写，能够打开指定的文本文件并在程序中显示文件内容；3.支持文件编辑，能够在程序中修改文件内容并保存文件；4.提供一个退出程序的功能按钮。
实现这个功能主要需要使用VB语言中的文件处理函数来实现文件的读写操作。
我们可以使用FileOpen函数来打开指定的文件，FileGet函数读取文件内容，并使用FilePut函数来保存修改的文件内容。
VB实验报告1-9
实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。
2．熟悉Visual Basic 的集成开发环境。
3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。
4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。
二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。
2、编一程序，计算任意输入的正整数的平方根。
3、编写一个应用程序，界面如图1-1所示。
窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。
（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求 写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。
2).程序主要代码。
3).运行结果（输入与输出）。
4).实验总结。
(写上你自己的总结。
可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。
2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。
vb实验报告总结精选
vb实验报告总结实验报告课程名称程序设计语言实验学期至学年第学期学生所在系部年级班级学生姓名学号任课教师实验成绩计算机学院制计算机学院综合性实验报告《程序设计语言》课程综合性实验报告编号：2011－2012学年第二学期实验报告实验课程名称VB程序设计基础与VBA应用专业班级学号学生姓名实验指导老师浙江大学城市学院实验报告课程名称 VB程序设计基础与实验实验项目名称实验十、上机综合练习学生姓名专业班级学号实验成绩指导老师日期一. 实验目的和要求掌握基本设计程序的能力，能使用条件语句、循环语句和数组解决一般的数据处理及应用问题；掌握常用算法。
二. 实验内容和原理从键盘输入两个正整数，判定其中一个是否能整除另一个；Private Sub Form_ClickDim a As Integer, b As Integera = Val)b = Val)If a Mod b = 0 Or b Mod a = 0 Then Print "能整除" Else Print "不能整除" End Sub从键盘输入n，计算s=1-5+9-13+17-…+的值；Private Sub Form_ClickDim n As Integer, flag As Integer, i As Integer, s As Integern = Val)flag = 1: s = 0For i = 1 To 4 * n + 1 Step 4s = s + i * flagflag = -flagNext iPrint sEnd Sub产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出；Private Sub Form_ClickDim a As byte, i as Byte, j As Byte, m As Byte For i = 1 To 30: a = ⑴ : Next iFor i = 1 To 29For j = ⑵If a > a Thenm = a: ⑶ :a = mEnd IfNext j,iFor i = 1 To 30If ⑷ Then Print a;Next iEnd SubPrivate Sub Form_ClickDim a As Integer, i As Integer, j As Integer, m As IntegerPrint "排序前："For i = 1 To 30a = Int) + 10Print a;If i Mod 10 = 0 Then Print Next iFor i = 1 To 29For j = i + 1 To 30If a > a Thenm = a: a = a: a = mEnd IfNext jNext iPrint "排序后："For i = 1 To 30Print a;If i Mod 10 = 0 Then Print Next iPrint "其中的奇数："For i = 1 To 30If a Mod 2 = 1 Then Print a; Next i求二维数组a中的最大值以及最大值所在的行号和列号，行数m、列数n及数组元素从键盘输入；Private Sub Form_ClickDim a As Integer, m As Integer, n As Integer, i As Integer, j As IntegerDim x As Integer, y As Integer, Max As Integer m = Val)n = Val)ReDim aFor i = 1 To mFor j = 1 To na = InputBox") Print a;Next jPrintNext iMax = aFor i = 1 To mFor j = 1 To nIf Max Max = ax = iy = jNext jNext iPrintPrint "最大值为" & Max & "在第" & x & "行" & y & "列"End Sub产生k个互不相等的三位正整数。
VB实验报告范文
VB实验报告范文实验报告一、实验目的1. 学习和了解Visual Basic的基本开发环境和编程语法；2. 掌握使用Visual Basic进行程序设计的基本技巧；3. 实践使用Visual Basic进行简单的程序设计；4.培养编程思维和解决问题的能力。
二、实验过程1. 熟悉Visual Basic的开发环境并创建新项目；2. 学习和掌握Visual Basic的基本语法与数据类型；3.设计并编写一个简单的图形化界面程序；4.调试程序并运行测试；三、实验内容在本次实验中，我设计了一个学生信息管理系统，其中包括学生信息录入、学生信息查询和学生信息删除三个功能。
2.学生信息查询功能：用户可以输入学生的姓名，系统将在学生信息列表中查找到相应的学生信息并显示出来。
3.学生信息删除功能：用户可以输入学生的姓名，系统将从学生信息列表中删除相应学生的信息。
四、实验结果1.学生信息录入功能：用户可以按照提示输入学生的信息，点击确认按钮后，系统会弹出提示信息，显示信息录入成功并将信息保存在列表中。
2.学生信息查询功能：用户可以按照提示输入学生的姓名，点击查询按钮后，系统会在学生信息列表中查找到相应的学生信息并显示在界面上。
3.学生信息删除功能：用户可以按照提示输入学生的姓名，点击删除按钮后，系统会从学生信息列表中删除相应学生的信息，并显示删除成功的提示信息。
五、实验总结通过本次实验，我初步掌握了Visual Basic的开发环境和编程语法，并成功设计并实现了一个简单的学生信息管理系统。
在实验过程中，我遇到了一些问题，如界面设计不够美观、数据验证不完善等。
通过仔细思考和调试，我解决了这些问题，并进一步提高了自己的编程技巧和调试能力。
通过这次实验，我深刻体会到了编程的乐趣和挑战，也明白了编程思维和解决问题的重要性。
希望在以后的学习中能够进一步提高自己的编程水平，实现更加复杂和实用的程序设计。
vb用户界面设计实验报告（共9篇）
vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。
A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。
A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。
A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。
Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。
A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。
A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。
A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。
A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。
vb实验报告实验总结
vb实验报告实验总结
VB实验报告实验总结
在本次VB实验中，我们主要学习了Visual Basic编程语言的基本语法和应用。
通过实验，我们深入了解了VB的各种功能和特性，并且掌握了如何利用VB进
行程序设计和开发。
在实验过程中，我们首先学习了VB的基本语法和数据类型，包括变量、常量、运算符等。
然后我们学习了VB中的控件和事件处理，掌握了如何在窗体中添
加控件，以及如何处理用户的交互事件。
接着，我们学习了VB中的条件语句
和循环语句，掌握了如何编写条件判断和循环结构的程序。
最后，我们学习了VB中的函数和过程，掌握了如何封装和调用函数，以及如何设计和调用过程。
通过本次实验，我们对VB编程语言有了更深入的理解，掌握了VB的基本编程
技能。
我们能够利用VB进行程序设计和开发，实现各种功能和应用。
同时，
我们也意识到了编程的乐趣和挑战，对计算机编程产生了浓厚的兴趣。
总的来说，本次VB实验对我们的学习和成长都具有重要意义。
我们通过实验
掌握了VB的基本知识和技能，提升了自己的编程能力和实践能力。
我们相信，在今后的学习和工作中，VB编程语言一定会为我们带来更多的机遇和挑战，让我们能够更好地应对和把握。
希望我们能够不断学习和进步，不断提升自己的
编程水平，为自己的未来铺平更加广阔的道路。
VB实验报告(实验10)
电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：实验10 文件 实验时间2011-12-12班级： 姓名： 学号：实 验 目 的:1）、理解System.IO 对象模型。
2）、熟练掌握使用File 和Directory 对象操作文件的方法。
3）、熟练掌握DriveListBox 和StreamWriter 对象读写文本文件的方法。
4）、理解流的概念。
5）、掌握使用StreamReader 和StreamWriter 对象读写文本文件的方法。
实 验 环 境:Windows XPVisual 2003实 验 内 容 及 过 程:查找并替换文本文件的内容1、 新建一个“VisualBasic 项目”2、 界面设计由一个显示选择的文件的文本框（txtFileName ）、一个查找内容的文本框（txtFindText ）、一个替换内容的文本框（txtReplaceText ）、一个显示打开的文件内容的多行文本框（txtContent ）、三个标签（Label ）和两个按钮（btnSelFile 、btnReplace ）组成。
还要再添加一个OpenFileDialog 控件。
界面安排如图T10-1。
3、 编写程序代码引入System.IO 名称空间。
单击“选择文件”按钮的事件代码： 图T10-1 界面设计Private Sub btnSelFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnSelFile.ClickOpenFileDialog1.InitialDirectory = "c:\"OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.RestoreDirectory = TrueIf OpenFileDialog1.ShowDialog = DialogResult.OK ThentxtFileName.Text = OpenFileDialog1.FileNameEnd IfIf txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End If单击“替换”按钮的事件代码：Private Sub bntReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles bntReplace.ClickIf txtFindText.Text = "" ThenMsgBox("请输入查找字符串", MsgBoxStyle.Critical)End IfTryDim fs As New FileStream(txtFileName.Text, FileMode.Open)Dim sr As New StreamReader(fs)Dim tempstr As Stringtempstr = Path.GetTempFileNameDim sw As New StreamWriter(tempstr)Dim s As StringDos = sr.ReadLineIf s <> Nothing Thens = s.Replace(txtFindText.Text, txtReplaceText.Text)sw.WriteLine(s)ElseExit DoEnd IfLoop While s <> Nothingsw.Close()sr.Close()fs.Close()File.Delete(txtFileName.Text)File.Move(tempstr, txtFileName.Text)If txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End IfMsgBox("替换完成。
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实验报告
综合性实验实验名称:图书管理系统专业班级: 会计F1008学生姓名：姜尚辰学号：201048950518指导教师：孙霞1 需求分析尽量采用学校现有的软硬件环境，及先进的管理系统开发方案，从而达到充分利用学校现有资源，提高系统开发水平的应用效果的目的。
根据图书管理的规定，满足管理元和学生对图书的日常管理和使用，系统采用菜单自顶向下的设计方法，便于系统功能的各种组合和修改，又便于技术维护人员补充、维护。
系统应具备数据库维护功能，及时根据用户需求进行数据的添加、查询、修改、统计等操作。
系统维护一数据库，保存图书和读者的资料以及图书流通情况的资料，便于管理员管理图书和读者的有关数据，还可根据需要随时进行数据的查询和统计并按所需格式和方式输出。
2 运行环境WINDOWS XP系统；VB6.0；3开发工具和编程语言Visual Basic6.0语言；4系统设计根据系统功能分析，规划设计了图书管理模块、图书租借模块、读者信息模块、图书服务模块、系统管理模块共五个主要的管理模块。
4.1图书管理模块该模块主要用来录入和修改图书的基本信息，图书录入用于首次录入图书信息，输入书名后快速定位图书，然后显示要修改的图书信息进行相应的修改，应当显示上一条、下一条等信息。
4.2图书租借管理模块该模块可以录入读者信息以及所要租借图书的信息，可添加、重填以及上一条，下一条的定位；显示租借记录，包括租借人的基本信息和租借图书的基本信息；租借查询与统计可以方便在制定的时间范围内对租借的图书进行统计和分析，查询时可以按照不同的条件进行查询。
4.3读者管理模块该模块可以对首次的登录的读者进行注册，对读者进行编号，输入读者的基本信息；修改读者信息的时候通过对读者的编号进行快速定位，找到读者信息后进行修改，有上一条、下一条等的显示。
4.4读者服务模块该模块可以方便读者借阅，查阅以及预约图书，查询时按照不同的查询方式查询，找到需要的图书后显示该书是否可借，即现在的该图书的状况，如果可以借就输入要借阅的天数等。
vb实验报告总结
vb实验报告总结
《VB实验报告总结》
在本次实验中，我们使用VB（Visual Basic）进行了一系列的实验，旨在探索其
功能和应用。
通过实验，我们得出了一些结论和总结，希望能对大家有所启发。
首先，我们发现VB具有强大的图形用户界面设计能力。
通过VB，我们可以轻
松地创建各种窗体、按钮、文本框等控件，并进行定制化的设计。
这使得我们
能够快速地搭建出一个直观、易用的用户界面，为用户提供良好的操作体验。
其次，VB还具有丰富的数据处理和操作功能。
我们可以通过VB连接数据库，
进行数据的读取、存储和处理。
这为我们的应用程序提供了强大的数据支持，
使得我们能够更好地满足用户的需求。
此外，VB还支持丰富的第三方组件和扩展，使得我们能够轻松地集成各种功能和服务。
这为我们的应用程序提供了更多的可能性，使得我们能够更加灵活地
开发出符合市场需求的产品。
总的来说，通过本次实验，我们对VB的功能和应用有了更深入的了解。
它不
仅是一个强大的开发工具，还能够为我们的应用程序提供丰富的功能和良好的
用户体验。
相信在未来的开发过程中，VB将会发挥越来越重要的作用。
希望我们能够进一步深入学习和探索，发挥VB的潜力，为我们的项目和产品带来更
大的成功。
vb实验报告实验一
vb实验报告实验一
实验一：VB实验报告
实验目的：通过VB编程实现简单的计算器功能，加深对VB语言的理解和掌握。
实验内容：
1. 设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
2. 实现数字按钮的点击事件，将点击的数字显示在计算器界面上。
3. 实现运算符按钮的点击事件，将点击的运算符保存下来。
4. 实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显
示在计算器界面上。
实验步骤：
1. 打开VB开发环境，创建一个新的Windows窗体应用程序项目。
2. 在窗体上设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
3. 编写VB代码，实现数字按钮和运算符按钮的点击事件，将点击的数字或运
算符保存下来。
4. 编写VB代码，实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显示在计算器界面上。
实验结果：
经过实验，成功实现了一个简单的计算器功能。
用户可以通过点击数字按钮输
入数字，点击运算符按钮选择运算符，点击等号按钮进行计算，最终得到正确
的计算结果。
实验总结：
通过本次实验，我进一步掌握了VB语言的编程技巧，对VB编程有了更深入的
理解。
通过实际操作，我对计算器功能的实现有了更清晰的认识，为以后的VB 编程打下了良好的基础。
希望通过不断的实践和学习，能够更加熟练地运用VB 语言，实现更多更复杂的功能。
VB实验报告格式
输入半径
Text1
text
空
Text2
text
空
Text3
text
空
Command1
Caption
圆面积
Command2
Caption
圆周长
2、……
四、实验内容（程序代码）
1、
Private Sub Command1_Click()
Dim r As Single,s As Single
大庆石油学院学生实验报告
实验课程名称：VB程序设计2013年4月日
学院
石油工程
年级、专业、班
油06-1
姓名
学号
实验台号
xx
同组人
实验项目
名称
数组(一)
成绩
教师评语
教师签名：
年月日
实验报告内容（包括实验目的、原理、使用的仪器设备、实验步骤、实验过程及原始记录、实验结果及分析等）
一、实验目的
1．掌握静态数组的声明、数组元素的引用。
2．掌握一维静态数组的输入/输出方法。
3．掌握一维静态数组的常用算法。
二、实验项目
1、对于具有10个元素的一维数组，编程求其最大值和最小值。
2、对于具有10个元素的一维数组，编程使其按逆序存放并输出。
三、界面设计（窗体和控件属性说明）
1、
对象名称
属性
设abel1
1、
Text1中输入半径12，单击“圆面积”按钮，在Text2中显示452.3893344，单击“圆周长”，在Text3中显示75.3982224。
输入3.5，分别显示38.48450935和21.9911482。
2、
六、分析和体会（任选几条，此为可选项）
vb实验总结通用模板(热门9篇)
vb实验总结通用模板第1篇一个月的时间非常快就过去了，这一个月我不敢说自己有多大的进步，获得了多少知识，但起码是了解了项目开发的部分过程。
虽说上过数据库相关的课程，但是没有亲身经历过相关的设计工作细节。
这次课程设计给我提供了一个很好的机会。
通过这次课程设计发现这其中需要的很多知识我们没有接触过，上网查找资料的时候发现我们以前所学到的仅仅是皮毛，还有很多需要我们掌握的东西我们根本不知道。
同时也发现有很多已经学过的东西我们没有理解到位，不能灵活运用于实际，不能很好的用来解决问题，这就需要自己不断的大量的实践，通过不断的自学，不断地发现问题，思考问题，进而解决问题。
在这个过程中我们将深刻理解所学知识，同时也可以学到不少很实用的东西。
这次的数据库课程设计，我们组负责的企业信息文档管理系统的设计。
这课题是自拟的。
我们组实行的分工合作。
我主要是负责数据库功能模块设计这部分。
从各种文档的阅读到需求分析、概要设计、数据库总体设计、代码编写与调试，我们都准备了好长时间。
组内分工合作的整个过程，我亲身体验了一回系统的设计开发过程，分工合作的好处。
很多东西书上写的很清楚，貌似看着也很简单，思路非常清晰。
但真正需要自己想办法去设计一个系统的时候才发现其中的难度。
经常做到后面突然就发现自己一开始的设计有问题，然后又回去翻工，在各种反复中不断完善自己的想法我想有这样的问题不止我一个，事后想想是一开始着手做的时候下手过于轻快，或者说是根本不了解自己要做的这个系统是给谁用的。
因为没有事先做过仔细的用户调查，不知道整个业务的流程，也不知道用户需要什么功能就忙着开发，这是作为设计开发人员需要特别警惕避免的，不然会给后来的工作带来很大的麻烦，甚至可能会需要全盘推倒重来。
所以以后的课程设计要特别注意这一块的设计。
经过组内讨论，我们确定的课题是企业信息文档管理系统。
说实话，我对这个系统不是很了解。
通过上网查找资料、相关文献的阅读，我对该系统有了大体的了解。
vb实验报告
实验报告1
一、实验步骤
1.设计窗体
2.编写代码
3.运行结果
正确
二、实验总结
实验1是最为基础的，基础会了，才能为后面加深难度做准备。
实验报告2
一、实验步骤
1.设计窗体
2.编写代码
3.运行结果
错误1
错误2
错误3
正确
二、实验总结
写代码要认真，一点错误就能导致错误。
一开始讲“inputbox”写成了“input”，还困扰了我很久。
实验报告3
一、实验步骤
1、设计窗体
2、编写代码
3、运行结果
二、实验总结
心细很重要，并注重结合以前所学知识，同样一道题就能用多种方法解决，写出不同的代码。
实验报告4
一、实验步骤
1、设计窗体
2、编写代码
3、运行结果
正确
二、实验总结
按部就班，一步步来，就能做好。
实验报告5
一、实验步骤
1、设计窗体
2、编写代码
3、运行结果
正确
二、实验总结
设计窗体时，也需要注意美观，可以用色彩区分区域，使人一眼明了。
实验报告6
一、实验步骤
1、设计窗体
2、编写代码
3、运行结果
正确
二、实验总结
编写代码时，对象过多一定要注意对象名，不然容易出错，导致实验失败。
总体来说，上课做笔记很重要，但同样要有自己的思路，或许能做出更好的。
vb关于for 循环实验报告
VB程序设计课内实验报告书系部名称：学生姓名：专业名称：班级：学号：时间： 2012-3-30 至 2012-4-9实验题目过程一、实验目的1．掌握if语句的使用。
2．掌握if语句的各种形式的使用。
3．掌握如何控制顺序结构和分支结构条件，防治if语句的错误。
二、实验内容实验一：利用分支结构判断输入的数是奇数还是偶数。
实验二：计算函数x (x≤1)y= 3x-2 (1≤x＜10)4x-12 (x≥10)实验三（选做）：判断象限三、设计方案（程序，界面）实验一：1.打开Visual Basic，新建一个EXE工程。
2.创建一个按钮命名Command1,双击Command1编写程序如图1-1.图1-13. 运行程序,点击Command1,得结果如图1-4；4．分别保存工程文件和窗体文件实验二： 1. 打开Visual Basic，新建一个EXE工程2．创建一个按钮命名Command1,双击Command1编写程序如图：1－2图1－23. 运行程序,点击Command1,得结果如图1-5；4．分别保存工程文件和窗体文件。
实验三： 1.打开Visual Basic，新建一个EXE工程2．创建一个按钮命名Command1,双击Command1编写程序如图1-3.图1－33. 运行程序,点击Command1,得结果如图1-64．分别保存工程文件和窗体文件。
四、结果及分析实验一图1－4 实验二：图1－5-1图1-5-2图1-5-3 实验三：图1－6五、调试情况，设计技巧及体会通过学习VB我更好了解了计算机运行程序，了解了计算机运行的语言，并能根据自己的需要编写程序，极大的减小了工作量提高了工作效率，使计算机更加人性化使我们更加充分地运用了计算机，为以后工作提供了方便。
同时也很好的解决了在试验中发现并解决问题。
六、源程序清单实验一：Private Sub Command1_Click()Dim x As Longx = Text1.TextIf x Mod 2 = 0 ThenLabel2 = "你输入的数是:" & x & "输入的是偶数"ElseLabel2 = "你输入的数是:" & x & "输入的是奇数"End IfEnd Sub实验二：Private Sub Command1_Click()Dim x, y As Singlex = Val(Text1.Text)If x < 1 Theny = xText2.Text = yElseIf x >= 1 And x <= 10 Theny = 3 * x - 2Text2.Text = yElseIf x >= 10 Theny = 4 * x - 12Text2.Text = yEnd IfEnd Sub实验三：Private Sub Command1_Click()If Text1.Text > 0 And Text2.Text > 0 Then Label3 = "在第一象限"ElseIf Text1.Text < 0 And Text2.Text > 0 Then Label3 = "在第二象限"ElseIf Text1.Text < 0 And Text2.Text < 0 Then Label3 = "在第三象限"ElseIf Text1.Text > 0 And Text2.Text < 0 Then Label3 = "在第四象限"ElseIf Text1.Text <> 0 And Text2.Text = 0 Then Label3 = "在x轴上"ElseIf Text2.Text <> 0 And Text1.Text = 0 Then Label3 = "在y轴上"ElseIf Text2.Text = 0 And Text1.Text = 0 Then Label3 = "在原点上"End IfEnd Sub。
vb实用案例50例
实验报告11实验报告2：实验题目1：设计窗体。
参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。
提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。
参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。
vb实验报告
南京工程学院自动化学院实验报告课程名称 VB语言实验名称实验A、C、D、E、F实验学生班级 K数控111 实验学生姓名周大伟实验学生学号 240111140实验A一、实验目的1了解Visual Basic系统的安装。
2掌握启动与退出Visual Basic的方法。
3掌握建立、编辑和运行一个简单的Visual Basic应用程序全过程。
4掌握基本控件（窗体、文本框、命令按钮）的应用。
二、实验内容5. 命令按钮、字号、内容和格式的复制练习，有关控件和属性参见表格控件名属性Form1 Caption=“实验1.5”Label1 “输入文本复制文本”Text1 Text=“VB功能强大，但要下功夫学才能学好”；Multiline=True；Scrollbar=2Text2 Text=“”Command1 Caption=“隶书25磅”Command1 Caption=“复制=>”;三、源程序代码Private Sub Command1_Click() Text1.FontName = "隶书"Text1.FontSize = 25End SubPrivate Sub Command2_Click() Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub四、调试结果实验C一、实验目的1.掌握逻辑表达式的正确书写方式。
2.掌握单分支与双分支条件语句的使用。
3.掌握多分枝条件语句的使用。
4.掌握情况语句的使用及其与多分支条件语句之间差别二、实验内容1.输入一元二次方程ax²＋bx＋c=0的系数a，b，c，计算并输出一元二次方程的两个根x1，x2。
2.提示：求根时要对a、b、c三个系数分别考虑多种情况的处理，即：无实根、重实根或两个实根。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
End Sub
D.Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single)
If (Button=vbLeftButton) Or (Button=vbRightButton) Then
1)界面设计
2）属性设置
控件对象属性属性值
3）代码设计
9、菜单设计如图界面，编程完成简单算术运算。
其中：点击“加”或者“减”可以将两个数进行计算，点击“上限”或者“下限”，可以设置随机数产生的范围，可通过弹出inputbox实现。
11、利用滚动条和RGB函数，设计一个调色板程序。在窗体上的文本框中显示调好的颜色。
D.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开
菜单编辑器
2、下列有关子菜单的说法中，错误的是( )
A.除了Click事件之外，菜单项不可以响应其他事件
B.每个菜单项都是一个控件，与其他控件一样也有其属性和事件
C.菜单项的索引号必须从1开始
D.菜单的索引号可以不连续
3.当在滚动条内拖动滚动块时触发( )
A.KeyUp事件B.keyPress事件
C.Scroll事件D.Change事件
4.设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使该快捷菜单响应鼠标右键菜单的是( )
A.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
试验报告（10）
院（系）：课程名称：日期：
班级
学号
实验室
专业
姓名
计算机号
实验
名称
用户界面设计
成绩评定
所用
软件
VB6.0
教师签名
实
验
目
的
或
要
求
1、掌握单选按钮、复选按钮和框架的常用属性、事件、方法及其使用
2、掌握滚动条、进度条的常用属性、事件、方法及其使用
3、定时器、图形框和图像框的常用属性、事件、方法及其使用
Print Chr(KeyCode)
End Sub
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
7、编程建立由CommonDialog控件提供的5种对话框。要求在Form的Load事件中通过代码为每个单选按钮的Caption属性赋值，然后设置命令按钮的字体和Caption属性。如图，执行后应显示相应对话框。
8、在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，其标题分别为“商品类别”和“帮助”，名称分别为vbMenu和vbHelp，其中“商品类别”菜单包括“百货”、“食品”和“家电”三个子菜单，名称分别为vbMenu1、vbMenu2和vbMenu3。程序运行后，如果在“商品类别”的下拉菜单中选择“百货”，则在文本框内显示“大类核算”；如果选择“食品”，则在文本框内显示“中类核算”；如果选择“家电”，则在文本框内显示“小类核算”。程序中不能使用任何变量，直接显示字符串。
4、掌握通用对话框的属性、方法及其应用
5、掌握菜单的设计方法
6、掌握多重窗体和多文档界面的建立和相关属性、事件和方法
7、理解鼠标器和键盘事件实验步骤、心得
体
会
1、以下说法正确的是（）。
A.任何时候都可以使用“工具”菜单下的命令打开菜单编辑器
B.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
C.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器
PopupMenu Bs
End if
End Sub
5、要将名为MyForm的窗体显示出来，正确的使用方法是( )
A.MyForm.ShowB.Show.MyForm
C.MyForm LoadD.MyForm Show
6、编写如下事件过程
Private Sub From_KeyDowm(Keycode As Integer,Shift As Integer)
1）界面设计
2）属性设置
控件对象属性属性值
3）代码设计
12、编辑一个程序。要求在窗体form1上按下鼠标左键时弹出一个窗口form2用于输入一个学生3门课成绩计算总分和平均分；当在form2上单击确定时，则弹出form3，输入成绩的显示总分和平均分。
心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）
If Button=2 Then PopupMenu Bs,2
End Sub
B.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
PopupMenu Bs
End Sub
C.Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)