vb大作业 实验报告
VB实验报告
![VB实验报告](https://img.taocdn.com/s3/m/17f0a4faf61fb7360b4c6542.png)
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作业报告
![VB作业报告](https://img.taocdn.com/s3/m/0ba2a035a32d7375a4178082.png)
VB_大作业_包雨朦
制作人
39111107包雨朦
同组人
作业简介与功能说明
整个小程序包括6个窗体:主窗体、登陆窗体、3个小应用程序窗体、关于窗体和说明窗体,所用到的控件和方法包括按钮响应、Timer控件、Windows Media Player控件、Adodc控件等。主窗体中包含弹出式菜单(任意位置右键弹出)、Windows Media Player控件(添加背景音乐);登陆窗体中用Adodc控件进行用户登录验证;青蛙摆钟窗体中用Timer控件控制摆钟(青蛙眼睛)的定时摆动;正弦曲线窗体用四个按钮进行独立绘图;同心圆绘制在绘图的基础上添加Timer控件,实现自动绘制。说明窗体和关于窗体只是针对此程序的说明。(用户名baoyumeng密码123;用户名admin密码admin)
共同完成部分
独立完成部分
1.主窗体(弹出式菜单设计、背景音乐)
2.登陆窗体(使用Adodc控件操作数据库)
3.青蛙摆钟
4.正弦曲线绘制
5.同心圆绘制
作业截图
作业小结
整个程序制作过程中遇到的问题有:在制作登陆窗最终解决;在绘制正弦曲线窗体中对如何解决在PSet后重置以求不影响其它图形的绘制时,经查阅未能找到解决办法。
经过学习和亲身实践,对程序设计有了初步的了解,发现程序设计并不是只要专业人员才能制作的事实;这样的大作业即实践机会激发了自己在VB学习中的兴趣,尝到了完成一个个问题后的喜悦感。
vb实验报告(答案)
![vb实验报告(答案)](https://img.taocdn.com/s3/m/db7df1f0b8f67c1cfad6b8aa.png)
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的实验报告
![大一vb的实验报告](https://img.taocdn.com/s3/m/b53c395953ea551810a6f524ccbff121dd36c528.png)
大一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实训报告心得体会(18篇)
![vb实训报告心得体会(18篇)](https://img.taocdn.com/s3/m/b03f88633a3567ec102de2bd960590c69ec3d8e5.png)
vb实训报告心得体会(18篇)vb实训报告心得体会(通用18篇)vb实训报告心得体会篇1今年的4月份学校根据我们所学专业EDA技术的需求与我们另一门课电子产品装接相结合进行了FPGA实训板的组装,实训地点选在S12-201,主要实训流程有两大部分,一部分是SMT表面贴装元件的装配,一部分是THT元件的焊接,在整个实训过程中我学习到许多以前不了解的经验,也更加的了解书上的一些难以理解的知识点。
刚开始老师先把THT元件发个了我们,要求我们先自己检查元件是否存在问题,刚开始的时候我没有掌握检测元件的要点,拿万用表一顿乱测,根本就测不出到底有没有问题,但是后来通过请教同学以及老师的指点,我总算学会了基本的元件检测,检测完元件为接下来的焊接省了不少时间和心力,我们就可以避免出现因为元件本身的问题而从新焊接。
检测完元件,老师说为了让我们更加了解流水线作业,SMT元件的贴装就采用流水线作业,我负责的就是贴片的11工位,本来我以为会很容易,也没太在意,真正到流水作业到我这里的时候,我那镊子夹住电阻却手抖个不停,但是后来我记起老师说的要要点,沉着下来,经过几次贴装下来就慢慢熟习了,也就不再紧张了,整个工序下来虽然大家都很认真却还是出现许多问题,但是经过后来的补焊,基本上还是算成功了,这一部分完成后,后面的基本就是自己小组成员自己进行组装,我和胡静分别焊了一部分,经过几个小时的努力,我们的板子终于成功的组装好了。
经过这几周的不懈努力,终于的完成了这次的实训任务,看着手边的板子,我感触很多,记得一开始的完全茫然,到后面慢慢的得心应手,我学到很多,在检测中我学会了怎样去熟练的检测基本元件,在THT贴装中我学到了团队意识,在焊接中我学会了细心更重要的是,在组装FPGA板的过程中,我熟悉了板子的原理图,相信在学习EDA技术中会起到很大的作用,与此同时,我也了解到我还有许多东西需要去学习,需要更严格的要求自己对专业知识的学习。
vb实验报告实验总结
![vb实验报告实验总结](https://img.taocdn.com/s3/m/4f47a7a0534de518964bcf84b9d528ea81c72fb1.png)
vb实验报告实验总结
VB实验报告实验总结
在本次VB实验中,我们主要学习了Visual Basic编程语言的基本语法和应用。
通过实验,我们深入了解了VB的各种功能和特性,并且掌握了如何利用VB进
行程序设计和开发。
在实验过程中,我们首先学习了VB的基本语法和数据类型,包括变量、常量、运算符等。
然后我们学习了VB中的控件和事件处理,掌握了如何在窗体中添
加控件,以及如何处理用户的交互事件。
接着,我们学习了VB中的条件语句
和循环语句,掌握了如何编写条件判断和循环结构的程序。
最后,我们学习了VB中的函数和过程,掌握了如何封装和调用函数,以及如何设计和调用过程。
通过本次实验,我们对VB编程语言有了更深入的理解,掌握了VB的基本编程
技能。
我们能够利用VB进行程序设计和开发,实现各种功能和应用。
同时,
我们也意识到了编程的乐趣和挑战,对计算机编程产生了浓厚的兴趣。
总的来说,本次VB实验对我们的学习和成长都具有重要意义。
我们通过实验
掌握了VB的基本知识和技能,提升了自己的编程能力和实践能力。
我们相信,在今后的学习和工作中,VB编程语言一定会为我们带来更多的机遇和挑战,让我们能够更好地应对和把握。
希望我们能够不断学习和进步,不断提升自己的
编程水平,为自己的未来铺平更加广阔的道路。
VB实验二 实验报告
![VB实验二 实验报告](https://img.taocdn.com/s3/m/4b85881855270722192ef795.png)
实验报告二实验目的(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实验报告材料(含问题详解)
![VB实验报告材料(含问题详解)](https://img.taocdn.com/s3/m/b44d907e767f5acfa1c7cd89.png)
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实验报告(实验10)
![VB实验报告(实验10)](https://img.taocdn.com/s3/m/68f3260416fc700abb68fcd5.png)
电子信息工程学系实验报告课程名称:面向对象程序设计实验项目名称:实验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实验报告一2024
![VB实验报告一2024](https://img.taocdn.com/s3/m/65e3fa6a2e60ddccda38376baf1ffc4ffe47e2ad.png)
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实验报告3
![vb实验报告3](https://img.taocdn.com/s3/m/90d85aef6294dd88d0d26b15.png)
For i = 1 To List1.ListCount - 1
If min > List1.List(i) Then min = List1.List(i): j = i
Next i
List1.RemoveItem j
End Sub
Private Sub随机产生_Click()
If min > List1.List(i) Then min = List1.List(i): n = i
ave = ave + List1.List(i)
Next i
Form2.Text1 = List1.List(n)
Form2.Text2 = List1.List(m)
Form2.Text3 = Format(ave / List1.ListCount, "0.00")
CommonDialog1.ShowOpen
i = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus)
End Sub
2.源代码如下
Private Sub结束_Click()
End
End Sub
Private Sub删除最大值_Click()
Form2.Show
End Sub
3.源代码如下:
Private Sub experimentG2_Click()
Form2.Show
End Sub
Private Sub experimentG3_Click()
Form3.Show
End Sub
VB实验报告1-9
![VB实验报告1-9](https://img.taocdn.com/s3/m/df353323bd64783e09122ba4.png)
实验一:设计简单的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实验报告(含答案)分解](https://img.taocdn.com/s3/m/c33c0e01b7360b4c2e3f64ed.png)
课程名称_程序设计基础Visual Basic_
班级____________
姓 名_________
实验一VB环境和创建一个简单的VB程序
一.实验目的:
1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5.设计顺序程序。
二.实验内容:
1.编写一个华氏温度和摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏温度,用msgbox输出转换后的摄氏温度。转换公式是:C=5 / 9(F - 32)。F为华氏温度,C为摄氏温度。
2.用三种除法运算(/、\、Mod)做计算。
要求:在窗体上画五个标签、五个文本框和一个命令按钮,如图2-2所示。程序运行后,在第一个文本框中输入被除数,在第二个文本框中输入除数,然后单击命令按钮,即可得到三种不同的相除结果。
a = Val(Text1.Text)
Dim C!,F!
F=val(inputbox(“输入华氏温度”))
C=5/9*(F-32)
Msgbox“对应的摄氏温度为:”& C
End Sub
2.用三种除法运算(/、\、Mod)做计算,说明三种除法的区别?
/:两个数相除
\:两个数整除
Mod:两个数相除,得余数
3.三种除法运算(/、\、Mod)做计算,Command1命令的单击事件的程序代码是什么?
Label1.Caption=“请输入姓名”
Label1.fontsize=24
Label1.fontbold=True
2.两个按钮所使用的是什么事件?代码分别是什么?
大一vb的实验报告
![大一vb的实验报告](https://img.taocdn.com/s3/m/34db0a4ab42acfc789eb172ded630b1c59ee9b36.png)
大一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实验报告三](https://img.taocdn.com/s3/m/1bc1f45c640e52ea551810a6f524ccbff121ca92.png)
vb实验报告三VB实验报告三引言:VB(Visual Basic)是一种基于事件驱动的编程语言,广泛应用于Windows操作系统上的软件开发中。
本篇实验报告将详细介绍我在VB实验三中的实验过程、结果和分析。
实验目的:本次实验旨在通过VB编程实现一个简单的学生信息管理系统。
通过该系统,能够实现学生信息的录入、查询、修改和删除等功能,并将数据存储在数据库中。
实验步骤:1. 设计数据库结构:在实验前,首先需要设计数据库的表结构。
我选择了三个字段:学生姓名、学生年龄和学生性别。
2. 创建VB窗体:打开VB开发环境,创建一个新的窗体。
在窗体上设计相应的控件,如文本框、按钮和标签等,以实现学生信息的录入和操作。
3. 连接数据库:使用VB提供的ADO(ActiveX Data Objects)技术,连接到事先创建的数据库。
通过VB代码,建立与数据库的连接,并打开数据库。
4. 实现数据录入功能:在VB窗体上添加文本框和按钮,通过编写相应的事件处理程序,实现学生信息的录入功能。
当用户在文本框中输入完整的学生信息后,点击按钮即可将数据保存到数据库中。
5. 实现数据查询功能:在VB窗体上添加查询按钮和文本框,通过编写事件处理程序,实现学生信息的查询功能。
用户可以在文本框中输入学生姓名或其他关键词,点击查询按钮后,系统将从数据库中检索相关数据,并显示在窗体上。
6. 实现数据修改和删除功能:在VB窗体上添加修改和删除按钮,通过编写事件处理程序,实现学生信息的修改和删除功能。
用户可以选择要修改或删除的学生信息,并点击相应按钮进行操作。
实验结果:经过以上步骤的实现,我成功地完成了学生信息管理系统的开发。
通过运行程序,我可以在VB窗体上录入学生信息,并实现查询、修改和删除等操作。
数据能够准确地保存到数据库中,并能够根据用户的需求进行相应的操作。
实验分析:通过本次实验,我深入了解了VB编程语言和数据库的应用。
VB作为一种简单易学的编程语言,具有良好的可视化编程环境,使得开发者能够快速实现各种功能。
【VB实验报告】第一次实验报告
![【VB实验报告】第一次实验报告](https://img.taocdn.com/s3/m/9c33300476c66137ee0619ce.png)
软件技术实验报告
班级01021101 学号2011300341 姓名闫昊
第一次实验:
实验内容:
本次软件技术试验编写了三个程序,分别练习了三个技能:
1、通过建立简单的应用程序,熟悉、了解VB的基本操作;
2、通过采用shell函数,了解典型控件的应用和基本函数的调用规则;
3、通过编写简单的加法器,了解标签和文本框控件的使用方法。
创新亮点:(如果没有可以空缺)
采用了众多颜色,一概源程序灰色的基调,活泼生动而又不张扬。
完成情况和存在问题:
三个程序全部完成,但对于mousedown的使用不是很熟悉。
收获与体会:
经过一晚上的上机实验,平时在课堂上很多不会的地方得到了很清楚的解决。
老师也很有耐心地教我解决一些意外发生的问题。
我懂得了实践出真知的道理。
我决定在今后的课堂和实验中,将理论与实践有机的结合起来,学好Visual Basic。
备注:。
VB实验报告(含答案)
![VB实验报告(含答案)](https://img.taocdn.com/s3/m/a08ae4e48e9951e79a892789.png)
实验报告课程名称_程序设计基础Visual Basic_ 班级______ ______姓名_____ ____实验一 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=“姓名”实验二简单程序设计数据类型及常用内部函数的简单应用一.实验目的:1.掌握Visual Basic数据类型的基本概念。
2.掌握用Visual Basic的各种运算符及表达式。
3.学习使用Visual Basic内部函数和数据输入、输出方法。
4.掌握命令按钮、文本框和标签。
5.设计顺序程序。
二.实验内容:1.编写一个华氏温度和摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏温度,用msgbox输出转换后的摄氏温度。
大一vb的实验报告
![大一vb的实验报告](https://img.taocdn.com/s3/m/410186dead02de80d4d840dc.png)
大一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)。
软件技术实验报告
学号2009300186 姓名赵佶男班级010109卓
越
大作业机房管理系统
课题基本目标要求:
1)可在系统中由系统管理员按班级指定时间进行上机课时安排,安排上机不得与其他已安排机时冲突。
2)在指定上机课时段,除了上机班级学生可以登录外,其余无关学生一律不得登录,除非系统管理员授权。
预定上机时间结束时,自动
提前5分钟提示,待真正结束时即自动锁屏。
3)除上机课时安排以外,可以在机动时间段接受学生凭个人一卡通上机,且上机实施计时自动收费(即扣除学生一卡通上因上机而应缴
纳的上机服务费)
4)在接受零散学生付费上机时,可自动为其分配空闲机器并授权使用,在分配机器时应考虑机器的使用情况分布均匀,即每次分配机器是
前一时段未曾使用的机器,当学生一卡通上的余额,不足以支付1
小时上机服务费时,应提示其下机充值,并实施锁屏。
实验步骤:
首先,根据大作业的要求,我建立了机器表,流水表,学生基本情况表,上课表,以及一卡通表五个数据库表。
机器表用来按照使用情况,选择空闲时间最长的机器。
流水表用来记录现在机器以及人员使用的情况,是个
动态表,用来方便的取用和修改数据。
学生基本情况表用来存放学生的学号,密码,班级等基本情况,以实现学生上课登录和自由登录。
上课表存放各个班级的上课下课时间,以实现排课功能。
一卡通表记录了每个学生一卡通内的金额,用来帮助实现上下机的扣费,以及余额不够支付一小时时间情况下得强制下机。
然后,我进行了窗体的设计。
经过筛选优化,我设计了五个窗体,分别是主选择窗体,注册窗体,登录窗体,上课安排窗体,实时计费和下机窗体。
主选择窗体可以用来进行上课登录、学生自由登录、管理员登录和机器的推荐。
注册窗体是用来进行学生登录密码的注册。
登录窗体限制学生的学号和密码必须匹配才能登录。
上课安排窗体可以输入班号、上下课时间并选择星期值。
实时计费和下机窗体用来扣费并方便学生随时下机。
接下来,要按照要求进行代码的编写。
A)可在系统中由系统管理员按班级指定时间进行上机课时安排,安排上机不得与其他已安排机时冲突。
此功能我在排课窗体下用select选择出全体班级的上下课以及星期值,并将管理员希望的上下课时间转换为时间类型数值,进行循环比较,用do until 语句逐个比较,使得上下课时间点都不得在其他班级的上课时间段内。
如果时间不冲突,就实施修改数据库的功能,并更新保存。
B)在指定上机课时段,除了上机班级学生可以登录外,其余无关学生一律不得登录,除非系统管理员授权。
预定上机时间结束时,自动提前5分钟提示,待真正结束时即自动锁屏。
在主选择窗体内有上课登录按钮和自由登录按钮。
点击上课登录,输入学
号后,先从基本信息表中查找出所属班级,并进行当前时间和所属班级的上课时间段的比较,使用if语句,如果当前时间在所属班级的上课时间内,即弹出登录窗口。
否则,提示与管理员联系取得上机权限。
在管理员登录后有授权上机按钮,通过管理员的权限,也可以访问登录界面。
对于预定时间提示下机,我用了format函数,令a=预定时间,b=现在时间,format(a-b,”hh:mm:ss”)<00:05:00,并用时间控件timer每隔一定时间刷一次即可实现。
当上述函数值为零时,退出系统。
C)除上机课时安排以外,可以在机动时间段接受学生凭个人一卡通上机,且上机实施计时自动收费(即扣除学生一卡通上因上机而应缴纳的上机服务费)。
当学生一卡通上的余额,不足以支付1小时上机服务费时,应提示其下机充值,并实施锁屏。
在主窗体点击学生自由登录按钮,判断现在时间是否为上机时间,用select 选取上课表中的上课时间和下课时间以及星期值字段,并用format(now)和weekday(now)与之进行比较,若现在不是上课时间,即可登录。
然后进入下机和实时扣费界面,在进入此窗体时读取一卡通内余额,并显示,另外在机器表中,机器使用情况改为“是”。
用timer控件,类似做倒计时牌的方法,让余额显示在label上每隔10s变换一次,每次金额减少0.1元,并判断现在余额是否小于36元,若小于立即将此时余额传入数据库,并退出系统,并且删除流水表中相应记录,机器表中相应使用状态为否。
否则,一直如此进行,直到用户点击下机,记录当前label上的数值,传入数据库并更新,另外弹出消息框提示消费金额。
还要删除记录,和修改使用情况。
D)在接受零散学生付费上机时,可自动为其分配空闲机器并授权使用,在
分配机器时应考虑机器的使用情况分布均匀,即每次分配机器是前一时段未曾使用的机器。
在主选择界面,有推荐机器按钮,点击后,执行select min(下机时间) 并且where 使用情况为否。
在建立数据库机器表时,将每台机器的初始上机时间都设定为00:00:00,能保证每台机器都更好的被利用。
E) 在注册窗体,学生可以进行注册,输入学号后,连续输入两次密码,只有当密码相同时才可以注册。
并且,只有未注册过的学生才可以进行注册。
此功能由select语句和if 语句组合,共同实现。
创新亮点:
使用format(a-b,”hh:mm:ss”)函数,增加了注册功能,使得该系统更加符合实际情况。
完成情况和存在问题:
已按照要求完成,并增加了注册功能。
收获与体会:
本次大作业,从最初的构想,到在纸上画出思路图,再到建立数据库表格,接着编写程序并逐步调试,共经历了近三十个小时,由于要准备考试,而且夜深人静的时候思路比较广阔,我还熬过两个通宵,最后一看才编了几百k的东西,我深深体会到了软件开发人员的辛苦。
虽然说,东西小,功能也不怎么强大,可是自己也觉得非常有成就感。
这次大作业,让我对软件技术课有了更加深刻的认识,对整个开发软件的过程有了初步的了解。
往往看似复杂的东西,只要基础知识牢固,可以用一些最基本的知识来解决。
现在才认识到,不管是书上的VB部分还是数据库部分,
每一块的内容都和最后的作业有关系,平时的每次实验也都是最后大作业的一小部分,只有把分散的东西融合起来,才能使知识得到升华。
另外,刚刚拿到大作业要求时,感到很迷惑,无从下手,压力特别大,认为这是根本无法完成的东西。
后来,静静地想,一点点的回忆,把每个要求都拆开看,把每项功能都和自己以前掌握的方法往一块凑,碰到问题,解决问题,不气馁不放弃才能完成任务。
最后,我还体会到认真是多么的重要,在敲程序的过程中,我经常会出错,少end if 更是常常出现的事情,把rs,rs1,rs2弄乱也常有,往往这些由于粗心导致的错误让我在调试程序的时候特别头痛。
所以,不管做什么都要把认真二字放在首要位置。
备注:。