《VB程序设计》实验报告
VB程序设计实验报告
(此文档为word格式，下载后您可任意编辑修改！) 湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级 1211学号姓名王亮任课教师王福林1实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
程序2：创建应用程序。
要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。
2、循环语句程序3：创建应用程序。
要求：单击窗体可显示一个由“*”组成的平行四边形图案。
程序4：创建应用程序，其功能是显示所有的水仙花数。
三、实验记录程序1如下：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定义a,b,c,t为整形变量Cls '清屏a = Val(InputBox("请输入第1个数：")) '给a赋值b = Val(InputBox("请输入第2个数：")) '给b赋值c = Val(InputBox("请输入第3个数：")) '给c赋值If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给bIf b > c Then '嵌套，如果b>ct = b: b = c: c = t '把b的值赋给t，b的值赋给c，t的值赋给cIf a > b Then '再次嵌套，如果a>bt = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; cEnd SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下：Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定义整形变量i,k,n n = Val(InputBox("任意输入一个整数：")) '给n输入值i = 2 'i初始值为2k = Int(n 2) '为整形的二分之一n的值赋给kDo While i <= k '当i小于且等于k If n Mod i = 0 Then '如果n模除i为0 Exit Do '退出循环Elsei = i + 1 '否则i加1End IfLoopIf i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k，输出n的值是素数，否则输出n的值不是素数End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下：Private Sub Form_Click()Dim m As Integer, n As Integer '定义整形变量m,nCls '清屏PrintFor m = 1 To 6 'm赋初始值为1，当m大于6停止 Print Tab(15 - m); '第15 - m列开始输出For n = 1 To 8 'n赋初始值为1，当n大于6停止 Print "*"; '输出*Next nPrint "" '输出空格Next mEnd Sub程序4如下：Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege '定义整形变量i,m,n,k,sxkFor i = 100 To 999 'i赋初始值为100，当i大于999，停止循环 m = i \ 100 'i除以100，结果赋给mn = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给n k = i Mod 10 'i模除10后的值赋给k3sxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算If sxh = i Then '如果sxh等于iPrint i, '输出i的值End IfNext iEnd SubPrivate Sub Command2_Click()End '程序结束End Sub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。
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程序设计实验报告
VB程序设计实验报告
《VB程序设计》实验报告
班级：国际金融四班学号：姓名：郭蔚
实验
实验目的：
掌握一个简单的VB程序的建立，编辑、调试、运行和保存;设置表情、文本框和命令按钮属性，并编写事件过程代码实验过程：
实验
实验目的：
掌握_ 和 _事件实验过程：
实验
实验目的：
命令按钮、字号、内容和格式的复制练习掌握命令按钮及属性设置：掌握的属性的使用实验过程：
实验：
实验目的：
掌握简单程序的编写、输入数据的方法、不同数据类型的转换实验过程
：
实验：
实验目的：
通过本题主要学会数学函数调用问题还要考虑年数是整数的问题实验过程
：。
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程序设计VB实验四 实验报告
实验报告四
实验目的
（1）掌握顺序文件的操作
（2）通过本次练习，完成具有一定难度的综合程序设计
（3）通过编写、调试、运行程序，进一步掌握VB程序设计的基本方法和编程技巧（4）巩固所学知识，提高分析问题和解决问题的能力
实验内容
【实验1】参考Windows附件的计算器，在VB中做一个简单计算器，可以实现简单的四则运算，包括优先级（例如可以计算1+2*3），参考界面如下图所示。
（80分）
要求：
1、将0~9的数字按钮做成控件数组
2、除可以用鼠标单击”=”按钮进行计算，还能实现当使用键盘，按下”=”号键也能完成输入式子的计算。
完成此功能，需要写窗体的键盘KeyPress事件（为使窗体能响应KeyPress事件，请设置窗体的KeyPreview属性为True）
Private Sub Form_KeyPress(KeyAscii As Integer)
'"="的ASCII码为61
'在此判断若KeyAscii=61,则调用“=”按钮的事件过程，完成计算End Sub
实验结果：
【实验1 代码】
【实验1 典型结果】
【选作1】参考Windows附件的计算器，在VB中做一个简单计算器，可以实现进制转换，参考界面如下图所示。
（20分）
实验结果：
【选作1 代码】
【选作1 典型结果】
实验小结
1.遇到的问题：
2.对课程的建议：
3.。
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程序实习报告【精选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程序设计实验报告实验三选择结构程序设计一、实验目的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程序设计》实验单元一实验报告专业班级：姓名学号 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程序设计课程设计实验报告
福建农林大学计算机与信息学院（程序设计类课程）实验报告课程名称：Visual Basic程序设计教程姓名：系：计算机与信息学院专业：计算机应用技术年级：05级学号：指导教师：职称：讲师2007年6月 2 日实验项目列表系：计算机与信息学院专业：计算机应用技术年级： 05级姓名：学号： 0 计算机号 67实验时间： 2007、3、28 实验地点：综南附307 指导教师签字：实验一Visual Basic环境和程序设计初步一、实验目的和要求1、了解Visual Basic系统对计算机软件、硬件的要求。
2、掌握启动与退出Visual Basic的方法。
3、熟悉Visual Basic的集成开发环境（IDE）。
4、掌握在窗体上添加控件的各种方法。
5、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。
二、实验内容和原理1、熟悉工具箱上的标准控件以及窗体设计器和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。
2、在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”，然后执行如下操作：（1）编写适当事件过程，当单击命令按钮时，文本框内容消失。
（2）单击“文件”—“生成工程”并退出。
在windows环境下运行该工程。
用户界面：实验代码：Private Sub Command1_Click()Text1.Text = ""End Sub3、创建一个“标准EXE”类型的应用程序。
要求：程序运行时在屏幕上显示“欢迎您的到来！”，并输入您的名字，当按回车键时弹出如下对话框：用户界面：代码：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenMsgBox "欢迎" + Text1.Text + "的到来"End IfEnd Sub4、创建如图所示的应用程序，要求：单击“确定”按钮后，第一个文本框显示系统日期，第二个文本框显示星期。
VB程序设计实验1实验报告
《VB程序设计》实验报告一、实验目的及要求（见实验书，要求手填）：1.了解系统对计算机软件、硬件的要求。
2.掌握启动与退出的方法。
3.掌握建立、编辑和运行应用程序的全过程。
4.掌握常用控件的使用，如文本框、标签、命令按钮、图片框。
二、实验完成情况：三、界面设计与程序代码要求：给出界面设计示意图，在属性窗口修改过的对象属性需列出，列出方式如下：1、创建一个程序步骤：①在窗体上建立3个标签、一个命令按钮和一个文本框。
②在代码窗口中选择Button1对象Click事件，在Button1-Click事件模板内输入代码。
③单击启动调试按钮运行程序。
④单击工具栏的“全部保存”按钮。
①界面设计②程序代码Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel3.Text = TextBox1.TextEnd Sub ③运行结果2、左右移动文字步骤：①在窗体上建立1个标签、1个命令按钮、1个定时器。
②在代码窗口分别对3个控件编写代码，最后编写左右移动的单位。
③单击启动调试按钮运行程序。
④单击工具栏的“全部保存”按钮。
①界面设计②程序代码Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTimer1.Enabled = TrueEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTimer1.Enabled = FalseCall mymove()End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickCall mymove()End SubSub mymove()Label1.Left = Label1.Left + 50If Label1.Left > Me.Height Then Label1.Left = 0End SubEnd Class③运行结3、统计鼠标单击窗口的次数步骤：①在窗体上建立一个标签、一个文本框。
vb程序设计实验报告
vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中，程序设计是一项至关重要的技能。
Visual Basic （VB）作为一种强大的编程语言，被广泛应用于软件开发领域。
本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。
二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序，加深对VB语言的理解和掌握。
通过这个实验，我将学习如何使用VB语言进行界面设计、事件处理和数据处理。
三、实验过程1. 界面设计在实验开始时，我首先进行了界面设计。
通过VB的可视化设计环境，我选择了合适的控件，布局了用户界面。
我使用了文本框、标签、按钮等控件，使用户能够输入数据并进行相应的操作。
2. 事件处理在界面设计完成后，我开始编写事件处理程序。
我为按钮添加了点击事件，当用户点击按钮时，程序会执行相应的操作。
例如，当用户点击“计算”按钮时，程序会读取用户输入的数据，并进行计算操作。
通过编写事件处理程序，我学会了如何响应用户的操作，并进行相应的逻辑处理。
3. 数据处理在实验中，我还学习了如何进行数据处理。
我使用了VB的变量和运算符，对用户输入的数据进行计算和处理。
通过编写算法和逻辑，我实现了对用户输入数据的验证和处理，确保程序能够正确运行。
四、实验结果经过一段时间的设计和调试，我成功完成了VB程序的实现。
我的程序可以根据用户输入的数据进行相应的计算，并将结果显示在界面上。
通过这个实验，我不仅巩固了VB语言的基础知识，还提高了自己的编程能力。
五、实验总结通过这次VB程序设计实验，我收获了很多。
首先，我学会了如何使用VB语言进行界面设计，掌握了一些常用的控件和布局方法。
其次，我学习了如何编写事件处理程序，响应用户的操作，并进行相应的逻辑处理。
最后，我还学习了如何进行数据处理，使用变量和运算符对数据进行计算和处理。
在实验过程中，我遇到了一些问题和挑战。
例如，我曾经遇到过界面布局不合理导致用户体验不佳的情况，但通过不断的调整和改进，最终解决了这个问题。
大一计算机VB程序设计实验要求及报告7
实验7 用户界面设计一、实验目的1．掌握常用控件、通用对话框。
2．掌握菜单设计、多重窗体。
二、实验要求三、在C:\下建立子文件夹“VB实验7”, 按照题目要求, 在该文件夹下为各题保存相应的文件, 如本实验中的第一题, 需保存的文件有: 工程文件(71.vbp)、窗体文件(71.frm) 及可执行文件（71.exe）, 本实验中的第二题, 需保存的文件有: 工程文件(72.vbp)、窗体文件(72.frm) 及可执行文件（72.exe）, 其余实验依此类推。
四、撰写实验过程中出现了哪些问题、错误, 你是如何解决的, 做一个小结。
实验内容:设计如图7-1所示的应用程序。
它能利用LostFocus事件过程对输入的内存大小进行合法性检查, 确保最后2个字符是“MB”, 其余的都是数字字符。
当用户单击“Ok”按钮后, 在右边的文本框中显示所选择的信息。
要求：窗体显示字体、大小默认。
图7-1答案：Private Sub Command1_Click()Text2 = ""Text2 = Combo1.Text + vbCrLf + Text1 + vbCrLfIf Option1.Value Then Text2 = Text2 + Option1.Caption + vbCrLfIf Option2.Value Then Text2 = Text2 + Option2.Caption + vbCrLfIf Option3.Value Then Text2 = Text2 + Option3.Caption + vbCrLfIf Check1.Value Then Text2 = Text2 + Check1.Caption + vbCrLfIf Check2.Value Then Text2 = Text2 + Check2.Caption + vbCrLfIf Check3.Value Then Text2 = Text2 + Check3.CaptionEnd SubPrivate Sub Text1_LostFocus()Dim a$, b$a = Left(Text1.Text, Len(Text1.Text) - 2)b = Right(Text1.Text, 2)If Not IsNumeric(a) Or b <> "MB" ThenMsgBox "请重新输入内存", , "71"Text1 = ""Text1.SetFocusEnd IfEnd Sub设计如图7-2所示的计算程序, 要求: 窗体显示字体、大小默认, 参数输入用文本框, 结果显示用标签框。
vb程序设计实验报告
vb程序设计实验报告VB程序设计实验报告实验目的：通过VB程序设计，掌握基本的程序设计方法和技巧，提高编程能力。
实验内容：本次实验主要是通过VB程序设计，实现一个简单的学生成绩管理系统。
该系统可以实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。
实验步骤：1. 设计界面：首先，我们需要设计一个简洁易用的界面，包括学生信息的录入、查询、修改和删除功能。
通过VB的窗体设计工具，我们可以轻松地实现界面的布局和美化。
2. 编写代码：接下来，我们需要编写VB程序代码，实现学生成绩管理系统的各项功能。
通过VB的编程语言，我们可以实现学生信息的录入、查询、修改和删除功能，以及成绩的计算和排名功能。
3. 调试程序：完成代码编写后，我们需要对程序进行调试，确保程序的各项功能能够正常运行。
通过调试，我们可以及时发现和解决程序中的bug，提高程序的稳定性和可靠性。
4. 测试程序：最后，我们需要对程序进行测试，验证程序的各项功能是否能够满足实际需求。
通过测试，我们可以发现程序中可能存在的问题，并及时进行修复和优化。
实验结果：经过一段时间的努力，我们成功地实现了一个简单的学生成绩管理系统。
该系统能够实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。
通过本次实验，我们不仅掌握了基本的程序设计方法和技巧，还提高了自己的编程能力。
结论：通过本次实验，我们深刻认识到了程序设计的重要性，以及通过VB程序设计可以实现复杂功能的能力。
同时，我们也意识到了编程过程中需要细心和耐心，以及对程序进行不断地调试和测试，才能确保程序的质量和稳定性。
希望通过不断地实践和学习，我们能够不断提高自己的编程能力，为实现更多复杂功能的程序做好准备。
VB实验报告
台州学院《VB程序设计》实验报告实验七：常用控件班级：10物理2学号：姓名：实验日期：2011一、实验目的和要求1．掌握基本控件的重要属性、事件；2．熟练掌握在窗体上建立上述控件的操作方法；3．熟练掌握事件过程代码的编写；4．初步掌握建立基于图形界面的应用程序的过程。
二、实验主要仪器和设备计算机一台，WindowsXP操作系统，VisualBasic环境。
三、实验内容实验7.1设计一个字体修饰的程序，界面如图7-1所示。
要求：框架1中有两个复选框，可以选择粗体和斜体对标签中的文字进行修饰；框架2中有两个单选按钮，可以选择宋体或楷体对标签中的文字进行修饰；标签Label1的文字内容为“VisualBasic程序设计”，宋体，常规，三号；文字对齐方式为居中。
图7-1字体修饰实验7.2设计一个点菜的程序，界面如图7-2所示。
要求：框架中的复选框提供可选择的三种套餐，右边的文本框中可以输入数量；输入时文本框只接受数字键；并且只有选取了相应的套餐后才可以进行输入；如果没有选取套餐，那么文本框不能编辑并清空；单击“确定”按钮，统计点餐的金额，并用消息框显示出来；图7-2点菜实验7.3设计一密码修改程序，要求。
1）当单击“确定”按钮后，首先比较“用户名”和“原密码”是否一致，若一致且都为“admin”，则继续执行步骤2；否则弹出消息框，提示用户出错，并让用户重新输入。
2）比较“新密码(N)”和“新密码(S)”，若两者一致，弹出密码修改成功消息框，程序终止执行。
否则弹出错误消息，并让用户重新输入。
3）当单击“取消”按钮后，程序终止执行。
图7-3密码修改实验7.4（选做）设计一个拨号盘的程序。
界面如图7-4所示。
要求：命令按钮数组构成数字键，单击数字键按钮，将拨号的内容显示在文本框Text1中；单击“重拨”按钮，再现原来的拨号过程；（提示：再现过程由定时器实现）定时器的时间间隔为0.5秒；设置文本框最多接受10个字符。
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实验报告6
台州学院《VB程序设计》实验报告实验六：过程一、实验目的和要求1．掌握函数的定义和调用方法；2．掌握过程的定义和调用方法；3．掌握形参与实参的对应关系；4．掌握值传递和地址传递的传递方式；5．掌握变量、函数和过程的作用域；6．熟悉程序设计中的常用算法。
二、实验主要仪器和设备计算机一台，Windows XP 操作系统，V isual Basic 环境。
三、实验内容实验6.1 编写一个求三个数最大值的函数max(x ，y ，z)，然后调用此函数求下列表达式的值，首先在文本框中输入a,b,c 三个数，然后单击“计算”按钮，在文本框中输出表达式的值m 。
表达式为：),,max(),,max(),,max(c b b a c b b a c b a m +⨯+=运行界面如图6-1所示。
图6-1 程序运行时的界面实验6.2 编一求素数的函数过程Prime(x)，若x 是素数返回True ，否则返回False 。
主调程序调用Prime(x)函数输出100之内的所有素数。
实验6.3（选做）编一过程Find(S1,S2)，用于在字符串S1中查找子串S2，并用消息框输出结果：未找到或找到的个数。
（提示：利用Mid 函数反复在字符串S1找S2子串。
） 四、实验原始纪录实验6.1程序的界面设计。
程序代码。
Function max(ByV al x As Single, ByV al y As Single, ByV al z As Single) As Single max = xIf max < y Then max = yIf max < z Then max = zEnd FunctionPrivate Sub Command1_Click()Dim a As Single, b As Single, c As Single, m As Singlea = Text1.Textb = Text2.Textc = Text3.Textm = max(a, b, c) / (max(a + b, b, c) * max(a, b, b + c))Text4.Text = mEnd Sub实验6.2程序的界面设计。
(完整版)《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)。
台州学院《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 = FalseEnd SubPrivate Sub Command3_Click()Label1.Visible = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseEnd Sub实验2.1 设计一个程序，运行时界面如图2-1所示。
当单击“左”、“右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。
Private Sub Command1_Click()Label1.Left = Label1.Left - 100End SubPrivate Sub Command2_Click()Label1.Left = Label1.Left + 100End SubPrivate Sub Command3_Click()Label1.Top = Label1.Top - 100 End SubPrivate Sub Command4_Click()Label1.Top = Label1.Top + 100 End Sub实验2.2 设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图2-2所示。
Private Sub Command1_Click()Label1.Caption = "百位数：" + Left(Text1.Text, 1) + " 十位数：" + Mid(Text1.Text, 2, 1) + " 个位数：" + Right(Text1.Text, 1)End Sub实验2.3 设计一个程序，实现简单计算的功能、Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Text1.Textb = Text2.Textc = a + bLabel1.Caption = "+"Text3.Text = cEnd SubPrivate Sub Command2_Click()Dim a As Single, b As Single, c As Singlea = Text1.Textb = Text2.Textc = a - bLabel1.Caption = "-"Text3.Text = cEnd SubPrivate Sub Command3_Click()Dim a As Single, b As Single, c As Singlea = Text1.Textb = Text2.Textc = a * bLabel1.Caption = "*"Text3.Text = cEnd SubPrivate Sub Command4_Click()Dim a As Single, b As Single, c As Singlea = Text1.Textb = Text2.Textc = a / bLabel1.Caption = "/"Text3.Text = cEnd SubPrivate Sub Command5_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command6_Click()EndEnd Sub实验2.4 设计一个程序，单击“输入”按钮可弹出一个输入对话框，提示用户输入带区号的电话号码，区号为4为，号码为8位，比如输入“7”，然后将区号和电话号码在消息对话框中显示出来，运行界面如图2-4所示。
Private Sub Command1_Click()Dim c As Stringc = InputBox("输入带区号的电话号码，区号为4为，号码为8位，比如输入“7”：")MsgBox ("区号：" + Left(c, 4) + Chr(13) + Chr(10) + "号码：" + Right(c, 8))End Sub实验3.1 在两个文本框中输入实数，单击按钮，显示“较小值是xxx”。
Private Sub Command1_Click()Dim a As Single, b As Single, m As Singlea = Text1.Textb = Text2.TextIf a < b Thenm = aElsem = bEnd IfMsgBox "较小值是" & mEnd Sub实验3.2 输入三个实数，计算其中的最大值，运行界面如图3-1所示。
采用变量m来存放中间过程和结果Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, m As Singlea = Text1.Textb = Text2.Textc = Text3.TextIf a > b Then '将a，b的较大值存入mm = aElsem = bEnd IfIf c > m Then m = c '再将m与c 比较，得到最大值Text4.Text = mEnd Sub注：比较a，b部分可以写成单行If 结构：If a > b Then m = a Else m = b 实验3.3 用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。
Private Sub Command1_Click()Dim x As Single, y As Singlex = InputBox("请输入x的值：",0) If x > 10 Theny = Sqr(x) + Sin(x)ElseIf x < 10 Theny = 2 * x ^ 3 + 6 '注意：乘号不能省略Elsey = 0End IfPrint "y的值是" & yEnd Sub实验3.4 由键盘输入（1～7）范围内的整数，试编程将其转换为中文表示的星期几，运行界面如图3-2所示。
Private Sub Command1_Click()Dim n As Integer, w As String '注意：w的类型必须为Stringn = Text1.TextIf n = 1 Then w = "星期一"ElseIf n = 2 Thenw = "星期二"ElseIf n = 3 Thenw = "星期三"ElseIf n = 4 Thenw = "星期四"ElseIf n = 5 Thenw = "星期五"ElseIf n = 6 Thenw = "星期六"ElseIf n = 7 Thenw = "星期日"Elsew = "错误的输入"End IfText2.Text = wEnd Sub实验3.5（选做）由键盘输入3个数，试编程将它们的中间数打印出来Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, m As Singlea = Text1.Textb = Text2.Textc = Text3.TextIf a >= b And b >= c Thenm = bElseIf a >= c And c >= b Then m = cElseIf b >= a And a >= c Then m = aElseIf b >= c And c >= a Then m = cElseIf c >= a And a >= b Then m = aElsem = bEnd IfText4.Text = mEnd Sub实验 4.1 编写过程Commandl_Click，显示对话框输入n（n>0），循环n次，每次随机产生一个两位数，求出其中的偶数之和，并在标签框Label1上显示。
Private Sub Command1_Click()Dim n As Integer, i As Integer, a As Integer, s As IntegerRandomize '初始化随机数n = InputBox("请输入n：")For i = 1 To na = Int(Rnd * 90) + 10 '随机生成一个两位数存于变量a中Print a; '显示在屏幕上，以便校对（实际编程可以省略）If a Mod 2 = 0 Then s = s + a '判断是否为偶数Next iLabel1.Caption = sEnd Sub说明：随机生成两位数也可以用a=(Int(Rnd*9)+1)*10+Int(Rnd*10) 实验 4.2 编写过程Commandl_Click，用InputBox函数输入10个学生的成绩，统计后依次用标签控件Labell～Labe13显示优秀（85-100）、通过（60-84）和未通过（小于60）的人数。