vb实验报告9
《程序设计基础—VB程序实验》
《程序设计基础—VB程序实验》说明:实验1和实验2均为电子实验报告,后面8个实验是纸制实验报告。
实验1 计算机基本操作实验目的⑴熟悉计算机,能够正确进行开、关机操作。
⑵熟悉键盘,掌握键盘上所有字符的输入,掌握正确的指法,能够进行中、英文切换。
⑶理解操作系统概念,掌握Windows XP的基本操作,能够利用“控制面板”进行一些参数的设置。
⑷知道“回收站”的功能,学会有关文件、文件夹的基本操作。
⑸学会在计算机上搜索或查找相关的文件或文件夹,掌握通配符的使用。
实验内容⑴熟悉上机实验的计算机,熟悉键盘,学会中、英文输入方式的转换。
⑵学会用正确的指法进行输入,知道键盘上所有字符的输入。
⑶利用“控制面板”修改系统时间、桌面背景、鼠标属性。
⑷在桌面上新建一个文件夹,该文件夹以学生自己的名字+班级+学号的后3位命名。
⑸用文本方式或Word文档,写一段字数不少于300字的自我介绍,以1.doc命名并保存到上述文件夹中。
⑹将上述文件夹复制到ftp://10.10.9.222上。
实验2 常用软件的基本操作实验目的⑴了解Word功能,掌握Word的基本操作,包括页眉/页脚的设置、分栏、页面设置、添加底纹等。
⑵学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等,能够在Word中插入图片、表格、艺术字、特殊符号等。
⑶了解Excel的功能,掌握Excel的基本操作,包括单元格属性的设置、数字的几种填充形式、单元格的合并与恢复、边框的设置等。
⑷掌握Excel的基本公式的使用,能够用公式进行基本计算。
掌握Excel中的图形制作方法,能够根据表格做出图形。
实验内容⑴将ftp上自己文件夹中的1.doc文件复制到桌面上,然后做如下处理:①将标题“自我介绍”居中;②将文章中第二段的内容进行分栏,要求中间有分割线;③插入一个4行4列的表格,内容为学号、姓名、某门课的成绩;④任意插入一张图片;⑤在文章中的任意位置加底纹。
将做好的文档以2.doc命名并保存。
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关于if语句实验报告
VB程序设计课内实验报告书系部名称:学生姓名:专业名称:班级:学号:时间:实验题目过程一、实验目的1.掌握for语句的使用。
2.掌握for语句的各种形式的使用。
3.掌握如何控制循环条件,防治死循环或不循环。
二、实验内容实验一:利用for语句实现1-3图形的输出。
实验二:利用for语句实现2-3图形的输出。
三、设计方案(程序,界面)实验一:1.打开Visual Basic,新建一个EXE工程。
2.创建一个按钮命名图(a),双击Command1编写程序如图1-1.图1-13. 运行程序,点击Command1,得结果如图1-4;4.分别保存工程文件和窗体文件实验二: 1. 打开Visual Basic,新建一个EXE工程2.创建一个按钮命名图(b),双击Command1编写程序如图:1-2图2-13. 运行程序,点击Command1,得结果如图1-5;4.分别保存工程文件和窗体文件。
四、结果及分析实验一图1-2实验二:图2-2五、调试情况,设计技巧及体会通过学习VB我更好了解了计算机运行程序,了解了计算机运行的语言,并能根据自己的需要编写程序,极大的减小了工作量提高了工作效率,使计算机更加人性化使我们更加充分地运用了计算机,为以后工作提供了方便。
同时也学习到处理一些突发问题的能力。
六、源程序清单实验一:Private Sub Command2_Click()For i = 1 To 4Print Spc(4 - i); String(2 * i - 1, Trim(i))Next iEnd Sub实验二:Private Sub Command1_Click()For i = 1 To 5Print Tab(i); String(6 - i, "*")Next iEnd Sub。
VB实验报告格式
VB实验报告格式1.实验目的本实验旨在通过编写VB程序来熟悉VB的基本语法和应用,加深对VB的理解,并实践运用对话框、输入输出、控制流程等基本知识。
2.实验环境本实验使用的开发环境是Visual Studio。
VB是Visual Basic的简称,是一种用于Windows操作系统的事件驱动编程语言。
它以易学易用和可视化设计为特点,广泛用于Windows客户端应用程序开发。
3.实验内容及步骤本次实验的主要内容是开发一个简单的计算器程序,实现基本的数学运算和功能。
步骤如下:步骤一:创建一个新的VB项目,选择Windows Forms应用程序模板。
步骤二:通过拖放控件的方式在窗体上创建计算器的界面,包括数字按钮、运算符按钮和显示框等。
步骤三:为每个按钮的Click事件添加对应的处理函数,实现按钮点击后的相应操作,如数字按钮的输入、运算符按钮的操作、等号按钮的计算等。
步骤四:编写计算逻辑函数,将用户输入的表达式进行计算,并返回结果。
步骤五:在界面上显示计算结果。
4.实验思考在实验过程中,我遇到了一些问题,并进行了一些思考。
首先,我发现在进行运算时,用户可能会输入错误的表达式,如除数为零、表达式不完整、运算符错误等。
为了提高程序的容错能力,我在进行运算前添加了一些检测,如判断是否为零除法、判断表达式是否合法等。
其次,我也思考了如何将程序的功能和用户交互进行优化。
在这个计算器程序中,我添加了一些便捷的操作,如点击清零按钮可以清空当前表达式,点击删除按钮可以删除一个字符等。
5.实验结果经过编写代码和调试运行,我成功地实现了一个简单的计算器程序。
用户可以通过点击界面上的按钮输入表达式,然后点击等号按钮进行计算,最后显示计算结果。
6.实验总结通过本次实验,我更加深入地了解了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实验报告
VB实验报告《VB程序设计》实验单元一实验报告专业班级:姓名学号 2指导教师:王云侠完成时间: 3月22日实验一VB环境和可视化编程基础一、实验目的1 了解Visual Basic的安装2 掌握启动与退出Visual Basic3 掌握建立、编辑和运行一个简单应用程序的全过程4 掌握基本控件的使用二、实验环境VB6.0三、实验内容1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。
提示:对窗口编写两个事件:Form_Load事件对文本框初值设为空;Form_Click事件对文本框计数。
对文本框计数:Text1=Val(text1)+1 。
2、命令按钮、字号、内容和格式的复制练习。
按钮1:使得Text1中的文本按要求改变。
按钮2:将Text1中选定的文本复制到Text2. 控件名 Form1 Label1 Label2 Text1 属性 Ca ption=”实验2” 复制文本输入文本Text=“VB功能强大,但要下功夫学习才能学好。
” (每个同学文本框中内容可以不同) Text2 Command1 Command2 四、实验步骤1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。
从运用中点击vb6.0经典版Text=”” Caption=”隶书25磅” Caption=”复制=>” 打开标准 EXE 建立一个form 1添加一个Label和TextBox,Label的caption改为“你单击窗体的次数”,TextBox 的text改为空,然后编写代码如图点击运行即可。
2、命令按钮、字号、内容和格式的复制练习。
从运用中点击vb6.0经典版打开标准 EXE 建立一个form 1添加两个Label两个TextBox两个CommandButton,Label的caption改为“输入内容”和“复制效果”,TextBox的text改为“任意文字”和“空”,CommandButton的caption改为“隶书25磅”和“复制=>”。
vb实验报告总结
vb实验报告总结
《VB实验报告总结》
在本次实验中,我们使用VB(Visual Basic)进行了一系列的实验,旨在探索其
功能和应用。
通过实验,我们得出了一些结论和总结,希望能对大家有所启发。
首先,我们发现VB具有强大的图形用户界面设计能力。
通过VB,我们可以轻
松地创建各种窗体、按钮、文本框等控件,并进行定制化的设计。
这使得我们
能够快速地搭建出一个直观、易用的用户界面,为用户提供良好的操作体验。
其次,VB还具有丰富的数据处理和操作功能。
我们可以通过VB连接数据库,
进行数据的读取、存储和处理。
这为我们的应用程序提供了强大的数据支持,
使得我们能够更好地满足用户的需求。
此外,VB还支持丰富的第三方组件和扩展,使得我们能够轻松地集成各种功能和服务。
这为我们的应用程序提供了更多的可能性,使得我们能够更加灵活地
开发出符合市场需求的产品。
总的来说,通过本次实验,我们对VB的功能和应用有了更深入的了解。
它不
仅是一个强大的开发工具,还能够为我们的应用程序提供丰富的功能和良好的
用户体验。
相信在未来的开发过程中,VB将会发挥越来越重要的作用。
希望我们能够进一步深入学习和探索,发挥VB的潜力,为我们的项目和产品带来更
大的成功。
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实验报告格式
输入半径
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实验报告
内蒙古工业大学信息工程学院实验报告课程名称:高级语言程序设计(VB)Ⅲ实验名称:常用控件、选择、循环和数组综合程序设计实验类型:验证性□ 综合性√设计性□实验室名称:班级:学号:姓名:组别:同组人:成绩:实验日期:实验报告撰写要求一、实验前用预习报告纸撰写预习报告,预习报告包括以下内容1.实验目的2.实验用仪器设备、器材或软件环境3.实验原理、方案设计、程序框图、预编程序等4.实验过程中需要记录的实验数据表格二、实验过程中,要认真观察,仔细记录三、完成实验后用实验报告纸撰写实验报告,包括以下内容1.仪器设备型号及编号2.实验器材或软件环境3.实验步骤、程序调试方法4.实验数据处理及结果分析5.实验中存在的问题6.体会及思考题四、报告撰写时,要求格式规范、书写整齐预习报告成绩:指导教师审核(签名):年月日预习报告实验一一、实验目的学会综合运用常用控件进行程序设计的方法。
二、实验用仪器设备、器材、软件环境1、2、普通计算机3、VB三、实验内容设计一个能控制字体、字号、字形和速度的滚动字幕程序四、预编程序Const mLen = 100 '移动步长值Const mVMin = 500 '慢速Const mV = 250 '中速Const mVMax = 10 '快速Private Sub ChFonB_Click()Label1.FontBold = IIf(ChFonB.Value = 0, False, True)End SubPrivate Sub ChFonI_Click()Label1.FontItalic = IIf(ChFonI.Value = 0, False, True)End SubPrivate Sub ChFonU_Click()Label1.FontUnderline = IIf(ChFonU.Value = 0, False, True)End SubPrivate Sub Form_Load()'初始化Timer1.Interval = mVMinWith Label1.FontName = .FontSize = OpFonSizeMin.FontSizeEnd WithLabel1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpFonH_Click()Label1.FontName = Label1.Top = (Me.Height - Frame1(0).Height) / 3 End SubPrivate Sub OpFonK_Click()Label1.FontName = Label1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpFonS_Click()Label1.FontName = Label1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpFonSize_Click()Label1.FontSize = OpFonSize.FontSizeLabel1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpFonSizeMax_Click()Label1.FontSize = OpFonSizeMax.FontSizeLabel1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpFonSizeMin_Click()Label1.FontSize = OpFonSizeMin.FontSizeLabel1.Top = (Me.Height - Frame1(0).Height) / 3End SubPrivate Sub OpV_Click()Timer1.Interval = mVEnd SubPrivate Sub OpVMax_Click()Timer1.Interval = mVMaxEnd SubPrivate Sub OpVMin_Click()Timer1.Interval = mVMinEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + mLenIf Label1.Left >= Me.Width Then Label1.Left = -Label1.Width End Sub实验报告成绩:指导教师审核(签名):年月日实验报告实验项目第一部分一、实验目的学会综合运用常用控件进行程序设计的方法。
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实验报告9
台州学院《VB程序设计》实验报告实验九:文件班级:学号:姓名:实验日期:一、实验目的和要求1.熟练掌握顺序文件的基本操作;2.熟练掌握驱动器列表框、目录列表框和文件列表框等三个文件操作控件的功能和建立。
二、实验主要仪器和设备计算机一台,Windows XP操作系统,Visual Basic环境。
三、实验内容实验9.1 编程,设计如图9-1所示的图片欣赏程序,其中窗体上放置驱动列表框、目录列表框和文件列表框三个控件,设置属性使得三个控件能够联运;设置文件列表框只显示*.bmp和*.jpg类型的图片文件;当单击文件列表框上的某图片文件名时,图片显示在图片框中。
图9-1 图片欣赏运行界面实验9.2 某文本文件以下列格式存储若干学生的学号和两门课成绩,编写单击窗体的事件过程:(1)用通用对话框控件Commondialog1选择该文件;(2)在Label1(0)~Label1(1)显示总分最高的学生之学号、总分。
文本文件格式“05010101”,78,89“05010102”,83,79……四、实验原始纪录实验9.1程序的界面设计。
程序代码。
Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Picture1.Picture = LoadPicture(File1.Path + "\" + File1.FileName) End SubPrivate Sub Form_Load()Drive1.Drive = "e"File1.Pattern = "*.bmp;*.jpg"End Sub实验9.2程序的界面设计。
程序代码。
五、实验结果及分析实验9.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实验报告
综合性实验实验名称:图书管理系统专业班级: 会计F1008学生姓名:姜尚辰学号:201048950518指导教师:孙霞1 需求分析尽量采用学校现有的软硬件环境,及先进的管理系统开发方案,从而达到充分利用学校现有资源,提高系统开发水平的应用效果的目的。
根据图书管理的规定,满足管理元和学生对图书的日常管理和使用,系统采用菜单自顶向下的设计方法,便于系统功能的各种组合和修改,又便于技术维护人员补充、维护。
系统应具备数据库维护功能,及时根据用户需求进行数据的添加、查询、修改、统计等操作。
系统维护一数据库,保存图书和读者的资料以及图书流通情况的资料,便于管理员管理图书和读者的有关数据,还可根据需要随时进行数据的查询和统计并按所需格式和方式输出。
2 运行环境WINDOWS XP系统;VB6.0;3开发工具和编程语言Visual Basic6.0语言;4系统设计根据系统功能分析,规划设计了图书管理模块、图书租借模块、读者信息模块、图书服务模块、系统管理模块共五个主要的管理模块。
4.1图书管理模块该模块主要用来录入和修改图书的基本信息,图书录入用于首次录入图书信息,输入书名后快速定位图书,然后显示要修改的图书信息进行相应的修改,应当显示上一条、下一条等信息。
4.2图书租借管理模块该模块可以录入读者信息以及所要租借图书的信息,可添加、重填以及上一条,下一条的定位;显示租借记录,包括租借人的基本信息和租借图书的基本信息;租借查询与统计可以方便在制定的时间范围内对租借的图书进行统计和分析,查询时可以按照不同的条件进行查询。
4.3读者管理模块该模块可以对首次的登录的读者进行注册,对读者进行编号,输入读者的基本信息;修改读者信息的时候通过对读者的编号进行快速定位,找到读者信息后进行修改,有上一条、下一条等的显示。
4.4读者服务模块该模块可以方便读者借阅,查阅以及预约图书,查询时按照不同的查询方式查询,找到需要的图书后显示该书是否可借,即现在的该图书的状况,如果可以借就输入要借阅的天数等。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
台州学院
《VB程序设计》实验报告
实验九:文件
班级:12化学2
学号:1232010045
姓名:屈王波
实验日期:2013-5-23
一、实验目的和要求
1.熟练掌握顺序文件的基本操作;
2.熟练掌握驱动器列表框、目录列表框和文件列表框等三个文件操作控件的功能和建立。
二、实验主要仪器和设备
计算机一台,Windows XP操作系统,Visual Basic环境。
三、实验内容
实验9.1 编程,设计如图9-1所示的图片欣赏程序,其中窗体上放置驱动列表框、目录列表框和文件列表框三个控件,设置属性使得三个控件能够联运;设置文件列表框只显示*.bmp和*.jpg类型的图片文件;当单击文件列表框上的某图片文件名时,图片显示在图片框中。
图9-1 图片欣赏运行界面
实验9.2 某文本文件以下列格式存储若干学生的学号和两门课成绩,编写单击窗体的事件过程:
(1)用通用对话框控件Commondialog1选择该文件;
(2)在Label1(0)~Label1(1)显示总分最高的学生之学号、总分。
文本文件格式
“05010101”,78,89
“05010102”,83,79
……
四、实验原始纪录0
实验9.1
程序的界面设计。
程序代码。
Private Sub Form_Load()
Drive1.Drive = "e"
File1.Pattern = "*.BMP;*.jpg"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName) End Sub
实验9.2
程序的界面设计。
程序代码。
Private Sub Form_Click()
Dim xh As String, cj1 As Integer, cj2 As Integer
Dim topxh As String, topcj As Integer
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, xh, cj1, cj2
If cj1 + cj2 > topcj Then
topcj = cj1 + cj2
topxh = xh
End If
Loop
Close #1
Label1(0).Caption = topxh
Label1(1).Caption = topcj
End Sub
五、实验结果及分析
实验9.1运行结果。
实验9.2运行结果。
六、实验总结与思考(主要写一些在实验过程中,遇到的问题、所犯的错误,以及是如何发现纠正的。
大约100至200字左右。
)。