《VB程序设计基础》综合实验报告
《程序设计基础—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)实验报告一一.要求:在标题为“日期时间查询”的窗体Form1上,添加两个标题分别为“当前日期”和“当前时间”的标签Label1和Label2;然后在添加两个文本内容为空白的文本框Text1和Text2;最后添加两个标题分别为“查询”和“清空”的命令按钮Commmand1和Command2.单击“查询”按钮,在Text1和Text2中分别出现系统当前日期和时间单击“清空”按钮,则清除查询结果2代码:Private Sub Command1_Click()Text1.Text = DateText2.Text = TimeEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub二.新建一个“标准EXE”工程,编程实现下列功能。
1.要求:开始运行程序时,文本框Text1和标签Label3都是空白。
在Text1输入一个名字,单击按钮Command1,则Label3中会显示出这个名字,以及前后相应的文字。
2.代码:Private Sub Command1_Click()Label3.Caption = "你好!" & Text1.TextEnd Sub三.新建“标准EXE”工程,编写程序,运行时用户输入半径,求圆面积。
1.要求:在窗口中输入圆的半径可以得到圆的面积,要求可多次运用。
2.代码:Private Sub Command1_Click()Const PI = 3.14159Dim r As Single, s As Singler = Val(Text1.Text)s = PI * r ^ 2Label2.Caption = "圆面积:" & sEnd SubPrivate Sub Command2_Click()Text1.Text = ""Label2.Caption = ""End Sub3.结果:输入输出(1) 1 3.14159(2) 1.5 7.068577(3)10.23 328.7765(4)-2 12.56636四.要求:在标题为”算术运算“的窗体Form1上,添加3个标题分别为”操作数1“,”操作数2“和”操作数3“的标签Labell1,Labell2和Labell3,然后再添加3个文本内容为空的Text1,Text2,Text3,最后添加4个分别为”加“”减“”乘“”除“的命令按钮Command1,Command2,Command3和Command4,运行图:代码:Private Sub Command1_Click()Dim a As SingleDim b As SingleDim c As Singlea = Text1.Textb = Text2.Textc = a + bText3.Text = Str(c)End SubPrivate Sub Command2_Click()Text3.Text = Str(Val(Text1.Text) - Val(Text2.Text)) End SubPrivate Sub Command3_Click()Text3.Text = Str(Val(Text1.Text) * Val(Text2.Text)) End SubPrivate Sub Command4_Click()Text3.Text = Str(Val(Text1.Text) / Val(Text2.Text)) End Sub运行结果:五.文本框输入身高和体重,计算出相应的BMI指数。
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程序实验报告
End Sub
Private Sub Command3_Click()
Text3 = Len(Text1)
Text4 = Len(Trim(Text1))
End Sub
Private Sub Form_Load()
End Sub
4.2-2c代码是:
5.2-3a代码是:
Text2.ForeColor = RGB(0, 0, 0)
Text2.PasswordChar = "*"
End Sub
3.2-2b代码是:
Private Sub Command1_Click()
Text2 = UCase(Text1)
End Sub
Private Sub Command2_Click()
x = Text1: y = Text2
x = x + y
Text3 = x
Text4 = y
End Sub
Private Sub Command5_Click()
Dim x%, y%
x = Text1: y = Text2
x = y: y = x
Text3 = x
Text4 = y
End Sub
Private Sub Command6_Click()
Text1.ForeColor = RGB(255, 0, 0)
Text2.ForeColor = RGB(255, 0, 0)
Text2.PasswordChar = ""
Text1 = (Text1 = "2006000")
Text2 = (Text2 = "TJin1234")
vb实验报告实验6--循环结构
MsgBox outstr, , "The Output Result " End Sub
Run
运行界面及程序清单:
(二)程序填空
图 4-12 运行界面
【实验步骤】
1.主要属性设置,无。 2. 编写事件代码:
Option Explicit Private Sub Form_Click()
Dim m As Integer, n As Integer, r As Integer m = InputBox(" 输入 m 的 值: ") n = InputBox(" 输入 n 的 值: ") Do While n <> 0 '*** ** *** **F OUN D** ** *** ***
运行界面及程序清单:
第二题
【实验要求】
运行界面如图 4-15 所示,鼠标单击窗体,在窗体上打印出以下图形。
'
*
'
***
'
*****
' *******
'
*****
'
***
'
*
【实验步骤】
1.主要属性设置,无 2. 编写事件代码:
Private Sub Form_Click() Dim i%, j%, k% For i = 3 To 0 Step -1 For j = 0 To 2 * i
【实验步骤】
图 4-14 运行界面
VB程序设计实验报告
《VB程序设计》实验单元二实验报告专业班级:新闻班姓名:学号:指导教师:完成时间:一、实验题目数组和自定义类型二、实验环境Visual 程序软件三、实验目的1.掌握数组的声明、数组元素的引用。
2.掌握固定长度数组和动态数组的使用差别。
3.掌握数组常用的操作和常用算法。
4.掌握列表框和组合框的使用。
5.掌握自定义类型及数组的使用。
四、实验内容1.随机产生30—100(包括30、100)的10个正整数,求最大值、最小值、平均值,并显示整个数组的只和结果。
2.随机产生20个学生成绩,统计各分数段人数。
即0~59、60~69、70~79、80~89、90~100,并显示结果。
五、实验步骤1.打开VB界面,建立工程2.在窗体窗口设置界面3.属性窗口控件对象属性设置4.编写程序代码5.运行程序及调试6.程序建立,保存工程文件六、实验结果第1题:第2题:七、实验体会编程虽然有些复杂,但是在一步步的学习探索中我也找到了其中的乐趣,看着自己一点点地在进步,真的很兴奋很激动。
2.在这次实验课题中,我在学习、参考书中的案例的同时,还上网查询了一些小的课外知识,例如:如何改变Print之后的字体颜色、字号、位置等并加以尝试、应用。
在我实验成功时,内心真的是抑制不住地开心。
3.当然,实验的过程,并不是一帆风顺的,然而,只要静下心来,仔细思考,问题总能解决的。
“世上无难事,只怕有心人”,在今后的学习中,我也要敢于面对困难、着力解决,把困难看成挑战,努力超越自我。
4.数组很奇妙,我想更进一步地了解它、用VB使用它,掌握常用的操作和算法。
VB实验报告一2024
VB实验报告一(二)引言概述:VB(VisualBasic)是一种面向对象的程序设计语言,广泛应用于Windows操作系统中的软件开发。
本实验报告旨在详细介绍VB实验一(二)的内容与实验结果,并对其进行分析和总结。
正文内容:一、实验目的1.1学习VB语言的基本语法和开发环境的使用;1.2熟悉VB的界面设计和事件处理;1.3掌握VB语言中的数据类型、循环结构和条件语句。
二、实验步骤2.1搭建VB开发环境2.1.1并安装VisualStudio;2.1.2配置VB开发环境。
2.2界面设计2.2.1创建一个新的WindowsForms应用程序;2.2.2在设计窗口中添加控件,如按钮、文本框等;2.2.3设置控件的属性和事件。
2.3事件处理2.3.1编写相应按钮的Click事件处理程序;2.3.2实现按钮的功能,如计算、跳转等。
2.4数据类型的应用2.4.1声明和初始化变量;2.4.2使用不同数据类型进行计算和赋值。
2.5循环结构和条件语句2.5.1使用For循环和While循环实现特定功能;2.5.2利用条件语句实现条件判断。
三、实验结果3.1搭建VB开发环境成功;3.2界面设计符合预期,控件添加和属性设置正确;3.3事件处理程序编写无误,按钮功能正常;3.4数据类型的应用正确,计算和赋值结果准确;3.5循环结构和条件语句的实现正确。
四、分析与讨论4.1在搭建VB开发环境的过程中,可能会遇到版本兼容性问题,需要根据实际情况进行相应的配置和调整;4.2界面设计的合理布局与控件的正确设置对用户体验起到重要作用;4.3事件处理程序的编写需要注意语法的正确性和逻辑的严谨性;4.4在应用不同数据类型进行计算和赋值时,要注意数据类型的转换和溢出的问题;4.5循环结构和条件语句的合理运用能够简化程序的逻辑结构,提高代码的可读性和可维护性。
五、总结通过本次VB实验一(二)的学习和实践,我对VB语言的基本语法和开发环境的使用有了更加深入的了解。
VB程序设计课程实验报告(样本参考一)
计算机与信息学院(VB程序设计课程)实验报告课程名称:VB程序设计教程姓名:系:计算机与信息学院专业:计算机应用技术年级:学号:指导教师:职称:200x 年xx 月xx 日实验项目列表序号实验项目名称成绩指导教师1 VB环境和程序设计初步2 顺序程序设计3 选择结构程序设计4 循环结构程序设计及数组的运用5 过程6 窗体和常用控件7 常用控件8 气泡法排序程序9 实验九10 菜单设计和多文档界面计算机与信息学院实验报告(一)Visual Basic环境和程序设计的初步一、实验目的1、了解Visual Basic系统对计算机软件、硬件的要求。
2、掌握启动与退出Visual Basic的方法。
3、熟悉Visual Basic的集成开发环境(IDE)。
4、掌握在窗体上添加控件的各种方法。
5、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。
二、实验内容1、启动Visual Basic6.0,观察标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处;熟悉各个控件以及窗体设计和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。
2、在窗体上画一文本框个一个命令按钮,在文本框中显示“VB程序设计”。
(1)编写适当事件过程,当单击命令按钮时,文本框内容消失。
(2)以解释方式运行程序。
(3)把程序保存。
然后关掉该工程。
装入上面建立的程序,并在窗体上增加一个命令按钮。
当单击该命令按钮,结束程序运行。
保存程序。
(4)把当前程序编译为可执行文件。
(5)生成当前工程并退出。
在windows环境下运行该工程。
3、创建一个“标准EXE”类型的应用程序。
要求:在屏幕上显示“欢迎您的到来!”,并请输入您的名字。
三、实验环境Microsoft Visual Basic 6.0 中文版四、算法描述及实验步骤1、熟悉vb的环境。
2、先创建一个文本框和命令按钮,并设置相应的代码如下:Private Sub Form_Load()Text1.Text = "VB程序设计"End SubPrivate Sub Command1_Click()Text1.Text = ""End Sub3、创建两个标签和一个文本框。
大学vb程序实习报告【精选5篇】
大学vb程序实习报告【精选5篇】大学vb程序实习报告【篇1】一、学习VB程序设计的方法(1)保持良好的学习心态1、要有自信,自强,积极主动学习。
2、克服畏难情绪,树立学好程序设计的信心(2)要有良好的学____惯1、课前预习,认真听课并适当做些笔记,课后要认真复习消化所学内容,完成作业。
2、VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成。
(3)学习程序设计要注重理解一些重要的概念。
VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念。
但要真正能进行程序设计,需要深入理解这些概念。
因此,在程序入门阶段还是应该重视概念的学习。
(4)自己动手编写程序程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法。
因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力。
(5)阅读,借签别人设计的好程序多看别人设计好的程序代码,包括教材上的例题程序。
在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能则可以学到别人优秀的东西,帮助自己提高自身水__。
(6)VB程序设计学习的重点1、程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的。
2、只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容。
等你在编写大量程序之后,我想过二级肯定没问题,不过能不能做到真知灼见,运用自如我就不敢说了。
3、动手能力的培养是这门课和以往课程最大的不同之处。
重点放在思路,算法,编程构思和程序实现上。
语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用。
)上机调试程序应注意的几点:1、上机前应认真把实验题在用纸上做一做(包括窗体界面设计,事件代码的编写等)2、每次上机后应总结,把没有搞清楚的问题记录下来,请教老师或同学。
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程序设计实验报告
VB程序设计实验报告实验三选择结构程序设计一、实验目的1. 掌握逻辑表达式的正确书写形式。
2. 掌握单分支与双分支条件语句的使用。
3. 掌握多分支条件语句的使用。
4. 掌握情况语句的使用及与多分支条件语句的区别。
二﹑实验内容4. 编制程序,计算某个学生奖学金的等级(假定只考虑一等奖),以三门功课成绩m1,m2,m3为评奖依据。
奖学金一等奖评定标准如下:(1) 平均分大于95分者。
(2) 有两门成绩是100分,且第三门功课成绩不低于80分者。
5. 编一模拟袖珍计算器的完整程序,界面如图2.3.1所示。
要求:输入两个操作数和一个操作符,根据操作符决定所做的运算。
6.输入一个数字(1~7),用英文显示对应的星期一~星期日。
提示:用Select语句来实现。
三﹑实验步骤4,打开VB后,建立一个命令按钮,输入"奖学金评定",编辑代码如下:Private Sub command1_Click()Dim m1!, m2!, m3!m1 = InputBox("输入m1 的值")m2 = InputBox("输入m2 的值")m3 = InputBox("输入m3 的值")If (m1 + m2 + m3) / 3 > 95 Or _(m1 = 100 And m2 = 100 And m3 >= 85 Or _m1 = 100 And m3 = 100 And m2 >= 85 Or _m3 = 100 And m2 = 100 And m1 >= 85) ThenMsgBox "一等奖学金"ElseMsgBox "不是一等奖学金"End IfEnd Sub5,打开VB后,建立4个Lebel标签,4个Text文本框,2个Command按钮,如上图。
编辑代码如下:Private Sub Command1_Click()Select Case Trim(Text3)Case "+"Text4.Text = Val(Text1.Text) + Val(Text2.Text)Case "-"Text4.Text = Val(Text1.Text) - Val(Text2.Text)Case "*"Text4.Text = Val(Text1.Text) * Val(Text2.Text)Case "/"Text4.Text = Val(Text1.Text) / Val(Text2.Text)End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub6, 打开VB后,建立1个Text文本框,1个Command按钮。
vb程序设计实验报告
vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中,程序设计是一项至关重要的技能。
Visual Basic (VB)作为一种强大的编程语言,被广泛应用于软件开发领域。
本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。
二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序,加深对VB语言的理解和掌握。
通过这个实验,我将学习如何使用VB语言进行界面设计、事件处理和数据处理。
三、实验过程1. 界面设计在实验开始时,我首先进行了界面设计。
通过VB的可视化设计环境,我选择了合适的控件,布局了用户界面。
我使用了文本框、标签、按钮等控件,使用户能够输入数据并进行相应的操作。
2. 事件处理在界面设计完成后,我开始编写事件处理程序。
我为按钮添加了点击事件,当用户点击按钮时,程序会执行相应的操作。
例如,当用户点击“计算”按钮时,程序会读取用户输入的数据,并进行计算操作。
通过编写事件处理程序,我学会了如何响应用户的操作,并进行相应的逻辑处理。
3. 数据处理在实验中,我还学习了如何进行数据处理。
我使用了VB的变量和运算符,对用户输入的数据进行计算和处理。
通过编写算法和逻辑,我实现了对用户输入数据的验证和处理,确保程序能够正确运行。
四、实验结果经过一段时间的设计和调试,我成功完成了VB程序的实现。
我的程序可以根据用户输入的数据进行相应的计算,并将结果显示在界面上。
通过这个实验,我不仅巩固了VB语言的基础知识,还提高了自己的编程能力。
五、实验总结通过这次VB程序设计实验,我收获了很多。
首先,我学会了如何使用VB语言进行界面设计,掌握了一些常用的控件和布局方法。
其次,我学习了如何编写事件处理程序,响应用户的操作,并进行相应的逻辑处理。
最后,我还学习了如何进行数据处理,使用变量和运算符对数据进行计算和处理。
在实验过程中,我遇到了一些问题和挑战。
例如,我曾经遇到过界面布局不合理导致用户体验不佳的情况,但通过不断的调整和改进,最终解决了这个问题。
vb程序设计实验报告
vb程序设计实验报告VB程序设计实验报告实验目的:通过VB程序设计,掌握基本的程序设计方法和技巧,提高编程能力。
实验内容:本次实验主要是通过VB程序设计,实现一个简单的学生成绩管理系统。
该系统可以实现学生信息的录入、查询、修改和删除功能,同时还能够计算学生的平均成绩并进行排名。
实验步骤:1. 设计界面:首先,我们需要设计一个简洁易用的界面,包括学生信息的录入、查询、修改和删除功能。
通过VB的窗体设计工具,我们可以轻松地实现界面的布局和美化。
2. 编写代码:接下来,我们需要编写VB程序代码,实现学生成绩管理系统的各项功能。
通过VB的编程语言,我们可以实现学生信息的录入、查询、修改和删除功能,以及成绩的计算和排名功能。
3. 调试程序:完成代码编写后,我们需要对程序进行调试,确保程序的各项功能能够正常运行。
通过调试,我们可以及时发现和解决程序中的bug,提高程序的稳定性和可靠性。
4. 测试程序:最后,我们需要对程序进行测试,验证程序的各项功能是否能够满足实际需求。
通过测试,我们可以发现程序中可能存在的问题,并及时进行修复和优化。
实验结果:经过一段时间的努力,我们成功地实现了一个简单的学生成绩管理系统。
该系统能够实现学生信息的录入、查询、修改和删除功能,同时还能够计算学生的平均成绩并进行排名。
通过本次实验,我们不仅掌握了基本的程序设计方法和技巧,还提高了自己的编程能力。
结论:通过本次实验,我们深刻认识到了程序设计的重要性,以及通过VB程序设计可以实现复杂功能的能力。
同时,我们也意识到了编程过程中需要细心和耐心,以及对程序进行不断地调试和测试,才能确保程序的质量和稳定性。
希望通过不断地实践和学习,我们能够不断提高自己的编程能力,为实现更多复杂功能的程序做好准备。
2023年2023年vb程序设计实训报告心得体会,vb课程设计报告(实用十一篇)【优秀范文】
2023年2023年vb程序设计实训报告心得体会,vb课程设计报告(实用十一篇)【优秀范文】2023年2023年vb程序设计实训报告心得体会,vb课程设计报告(实用十一篇)【优秀范文】体会是指将学习的东西运用到实践中去,通过实践反思学习内容并记录下来的文字,近似于经验总结。
好的心得体会对于我们的帮助很大,所以我们要好好写一篇心得体会接下来我就给大家介绍一下如何才能写好一篇心得体会吧,我们一起来看一看吧。
vb程序设计实训报告心得体会vb课程设计报告篇一这是我第一次系统与完整的接触软件设计。
我们组的题目是关于“俄罗斯方块游戏”的设计。
我在组内主要负责(1)游戏界面的设计(2)俄罗斯方块的造型(3)游戏级别的自由选择(4)游戏速度的自由选择(5)游戏的背景音乐。
在这次课程设计中,我的能力得到了锻炼,自己也有许多体会。
这次的课程设计是自己第一次全面接触软件的制作过程。
以前仅仅是对软件的开发有一个大体的印象,通过这次的课程设计,我对软件的开发有了切身的体会。
软件并不像我原来所想的那样十分神秘,而是有着一个相对固定的模式和流程。
我们只要按照这个模式和流程,就能够比较规范的完成一个软件的制作。
软件的制作是一个系统的工程,需要我们掌握多方面的知识。
在这次课程设计中,我觉得自己的知识面依然有所欠缺。
因此我需要在以后的学习中加以注意,要不断的提高自己的知识面与知识层次。
我在这次课程设计中主要负责(1)游戏界面的设计(2)俄罗斯方块的造型(3)游戏级别的自由选择(4)游戏速度的自由选择(5)游戏的背景音乐。
在这次课程设计之前,我对vb的编程不是特别的熟悉,这次的课程设计,我是一边学习,一边总结,一边进步。
在编程的过程中,我体会到其实各种计算机语言是有相通之处的。
在以前的学习中,我只接触过c语言,这次在vb课程设计中,我发现c语言中的许多知识可以应用到vb中,两者具有相通的数据结构。
所以我认为现在对计算机语言的学习,不要贪多,而应耐心的学好一门主要的计算机语言,在这个基础上,去学习其他的语言,这样会使学习效率大大提高。
VB程序设计实验报告
中南财经政法大学实验报告
实验课名称:__ _VB程序设计 ___ 学生姓名:__ _ ____张琳___________ 专业班级:__ _信息0904班_____ 学号:__ __
开课时间:2010-2011学年第1学期
教务处制
《VB程序设计》实验报告
实验序号:1 实验项目名称:VB程序设计基础、三种基本结构、输入输出、常用控件和函数
《VB程序设计》实验报告实验序号:2 实验项目名称:用户交互、数组
《VB程序设计》实验报告
实验序号:3 实验项目名称:子过程和函数过程、字符串和日期时间
《VB程序设计》实验报告
实验序号:4 实验项目名称:处理图形、设计用户界面、文件系统、数据库、网络编程、多媒体。
(完整版)《VB程序设计》实验报告
台州学院《VB程序设计》实验报告实验1.1设计一个程序,程序运行的初始界面如图1-1所示。
当单击“显示”按钮时,在文本框中显示“欢迎使用VB!”(图1-1);当单击“清除”按钮时,清除文本框内的文本;当单击“退出”按钮时,结束程序运行。
Private Sub Command1_Click() Text1.Text = "欢迎使用VB!"End SubPrivate Sub Command2_Click() Text1.Text = ""End SubPrivate Sub Command3_Click() EndEnd Sub实验1.2 设计一个程序,程序运行的初始界面如图1-3所示,其中“显示”按钮为不可用。
同时要求:(1)当单击“改变文字”按钮时,在左边标签文字内容改为“你好,张三!”,同时“改变文字”按钮变为不可用(图1-4);(2)当单击“隐藏”按钮时,将左边标签设为不可见,同时“隐藏”按钮变为不可用,“显示”按钮变为可用(图1-5);(3)当单击“显示”按钮时,重新显示左边标签,同时“隐藏”按钮变为可用,“显示”Private Sub Command1_Click() Label1.Caption = "你好,张三!"Command1.Enabled = False End SubPrivate Sub Command2_Click()Label1.Visible = FalseCommand3.Enabled = TrueCommand2.Enabled = False End SubPrivate Sub Command3_Click() Label1.Visible = TrueCommand2.Enabled = TrueCommand3.Enabled = False End Sub实验2.1 设计一个程序,运行时界面如图2-1所示。
VB程序设计实验报告
1一个富翁试图与陌生人做一笔换钱生意;换钱规则为:陌生人每天给富翁10万元钱;直到满30天为止;而陌生人每天给富翁一分钱;第二天2分;第三天4分;............富翁每天给陌生人的钱是前一天的2倍;直到满一个月..分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少
VB是一种可视化的程序语言..具有基于对象的可视化设计工具;事件驱动的编程机制;提供易于学习易用程序集成开发环境;结构化程序设计语言;强大的网络数据库多媒体功能;完备的联机帮助功能..
本次做的这个实验虽然中间遇到许多困难;但在我的坚持不懈中还是自己独立完成了本次试验;唯一不足的是没有办法把做的实验结果放到本次实验报告中..
2用计算机安排考试日程..期末某专业在周一到周六的六天时间内要考x;y;z三门课;考试顺序为;先考x;再考y;最后考z;规定一天只能考一门;且z课程只能安排在周五或周六考..编写程序安排考试日程;要求列出满足条件的所有方案
五、实验步骤
1private sub form-click
Dim x%; y%; z%; w%
2用计算机安排考试日程..期末某专业在周一到周六的六天时间内要考x;y;z三门课;考试顺序为;先考x;再考y;最后考z;规定一天只能考一门;且z课程只能安排在周五或周六考..编写程序安排考试日程;要求列出满足条件的所有方案..
二实验环境
在宿舍用自己的电脑做出的
三实验目的
1掌握for语句的使用..
2掌握do语句的形式使用..
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
EndIf
Nexti
EndIf
EndSub
EndClass
教师评价
评定项目
A
B
C
D
评定项目
A
B
C
D
算法正确
界面美观,布局合理
程序结构合理
操作熟练
语法、语义正确
解析完整
实验结果正确
文字流畅
报告规范
题解正确
其他:
评价教师签名:
2011年11月30日
'取得当前时间
Timer1.Enabled=True
'timer组件产生作用
Timer2.Enabled=True
fontsize= 32‘字体属性
xpos= 0
ypos= 0
EndSub
PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
Millisecond=m* 60 * ห้องสมุดไป่ตู้000 +s* 1000 +ms* 10
‘毫秒的计算公式
EndFunction
PrivateSubTimer2_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer2.Tick
'运行时间=绝对时间-开始时间
ps=pass.TotalMilliseconds()
'转换为毫秒
If(ps<timept(ircsum- 1))Then
Fori= 1Toircsum- 1
Ifps<timept(i)Then
EndIf
Ifps>timept(i- 1)Then
' labellrc.txt = lrc(i - 1)
Dimdrawpoint1AsNewPointF(50.0F,550.0F)
Dimdrawpoint2AsNewPointF(55.0F,555.0F)
DimpsAsDouble
DimiAsInteger
DimtimeptAsInteger()
pass=System.DateTime.Now-startime
imageindex= 0返回,避免运行时出现错误。
(2)播放音乐。此目标的细化由引入控件、打开和停止音乐3部分组成。其中控件为WAVPlayer.ocx,打开文件由语句addFile("播放目标歌曲名及其扩展名","循环播放的次数")实现,停止文件则相应的由stoplay("播放目标歌曲名及其扩展名","循环播放的次数")实现。
‘图片显示的起始点为屏幕左上角
imagename=Directory.GetFiles("pic","*.jpg")
‘从文件中读取图片
imageindex= 0
‘索引初值为0
song.addFile("青花瓷.mp3","2")
‘从文件夹中读取歌曲文件
ReadLRC()
‘调用读取歌词的函数体
startime=System.DateTime.Now
7、不可以抄袭,程序封面应注明班级、姓名、学号,执行文件(exe)的版本-公司属性应为班级+姓名+学号,Gdiplus所实现的文字或图形特效应有所区别。(抄袭作品是违法的行为请学生注意,雷同作品双方都酌情扣分)
8、工程目录以:班级+姓名+学号的形式命名。例如:信管B061+张三+20082510203.rar,最后将该目录压缩成一个*.rar文件。
(3)读取歌词。该模块则是要把硬盘上的文件读到内存中去,并把歌词中的时间部分放到时间数组中,歌词放到歌词数组中区。具体的实现步骤,打开文件;声明两个数组;用函数words.spring(New[char](){“]”}c)和标识“[”把歌词拆成一句一句的;同理用标识“]”再把一句一句的分成时间和文本两部分;把分割出来的时间和文本赋值到两个数组中去;走后用过msdn和搜索相关代码进行整合。
(5)显示歌词。确定当前显示元素的区间,通过draw类的运用,包括drawbrush(显示字体颜色)、drawpoint(字体的初始位置)、drawfont(字体类型和字号大小),用语句Me.CreateGraphics().DrawString(作用对象,drawpoint,drawfont,drawbrush)来实现同步显示歌词。
DimircsumAsInteger‘声明歌词总数变量ircsum为整型
DimpassAsTimeSpan'时间间隔
DimiAsInteger‘声明证型变量i表明个数
DimstartimeAsDateTime‘起始时间
DimlrcAsString()‘歌词存放字符串
Dimxpos,ypos,fontsizeAsInteger‘表征歌词显示的相关属性的整型变量
splittemp=alltext.Split(New[Char]() {"]"c})
timepoint(i) =splittemp(0)
lrc(i) =splittemp(1)
‘splittemp数组中有2个元素为时间和文本,前者赋值给timepoint,后者赋给lrc
timept(i) =lisecond(timepoint(i))
lrc=NewString() {}
ReDimlrc(lines.Length)
Ifthisobject.Length> 8Then
temp=thisobject.Substring(0, 1)
Iftemp>="0"Andtemp<="9"Then
‘排除文件开头非正文部分的影响,及歌曲是否正式开始的判断
‘Timer函数体
Ifimagename.GetLength(0) <= 0Then
Return
EndIf
Me.BackgroundImage=Image.FromFile(imagename(imageindex))
‘背景图片从文件中获得
imageindex=imageindex+ 1
‘实现背景图片的循环
(4)定时切换歌词。通过当前时间找到文本数组合适的下标,把当前时刻的歌词读取出来。首先用循环语句从时间数组的第一个元素开始遍历,将要进行比较的时间数组转变为double型,并将时间转换为毫秒(用函数体FunctionMillisecond实现)进行时间前后的比较,找到第一个比当前时间大的元素;判断前一个元素的时间是否比当前时间小,则此时当前界面应该播放的歌曲元素为前一个元素的内容,当前变化元素的下标为前一个元素的下标,用此下标取文本数组的元素。
Me.Close()
EndSub
‘程序运行时,按任意键停止运行
PrivateSubReadLYC()
‘读取歌词的函数体
DimalltextAsString‘整个LYC文件的内容存放变量
DimlinesAsString()‘每行的存放数组
DimtempAsString
DimsplittempAsString()‘用于分隔时间和歌词文本的字符串数组
i=i+ 1
ircsum=i
‘实现循环
EndIf
EndIf
Nextthisobject
sr.close()
EndUsing
CatchEAsexception
EndTry
EndSub
PrivateFunctionMillisecond(ByValTextAsString)AsDouble‘时间转换为毫秒的函数体
‘同步歌词显示的函数体
Ifircsum<= 2Then
Return
EndIf
DimdrawfontAsNewFont("楷体_GB2312", 32)
Dimdrawbrush1AsNewSolidBrush(Color.Blue)
'确定字体特效双色阴影
Dimdrawbrush2AsNewSolidBrush(Color.Purple)
Me.CreateGraphics().DrawString(lrc(i- 1),drawfont,drawbrush1,drawpoint1)
'画出内容
Me.CreateGraphics().DrawString(lrc(i- 1),drawfont,drawbrush2,drawpoint2)
‘产生阴影效果
DimtimepointAsString()‘用于存放时间的数组
Try
UsingsrAsStreamReader=NewStreamReader("青花瓷.lyc")
alltext=sr.ReadToEnd()
alltext=alltext.Replace(vbCr,"")
alltext=alltext.Replace(vbLf,"")
五、项目编写步骤
ImportsSystem.IO
’外部输入函数库
PublicClassmusicplayer孔凡浩
DimimageindexAsInteger‘声明图片索引imageindex为整型变量
DimimagenameAsString()‘声明图片存放变量imagename为数组
DimtimeptAsDouble()‘声明timept为数值型数组存放时间单元用于时间的比较
华北科技学院计算机系综合性实验