VB基本控制结构实验报告
VB实验报告
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的实验报告大一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、随机产生三个整数，按从小到大的顺序显示。
大一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实验报告(含答案)
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
图1.1实验1-1运行界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Form1
caption
我的第一个vb程序
窗体
Label1
caption
请输入姓名
标签
Text1
text
““
文本框
Command1
caption
显示
命令按钮
Command2
caption
清除
命令按钮
四．实验思考：
1.标签label控件设置的属性代码有哪些？
加粗
复选框
Check2
Caption
倾斜
复选框
Check3
Caption
下划线
复选框
Check4
Caption
删除线
复选框
四．实验思考：
1.模拟简易计算器Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
If Option1.Value = True Then
Label1.FontName = “宋体”
ElseIf Option2.Value = True Then
VB实验
For i = 0 To List1.ListCount - 1 Step 1 If List1.Selected(i) Then check = i End If Next i List2.AddItem List1.List(check) List1.RemoveItem check End Sub Private Sub Form_Load() List1.List(0) = "IBM" List1.List(1) = "MP" List1.List(2) = "NEC" List1.List(3) = "清华同方" List1.List(4) = "北大方正" List1.List(5) = "联想" List1.List(6) = "COMPAQ" List1.List(7) = "ACER" List1.List(8) = "microsoft" List1.List(9) = "dell" leftnum = List1.ListCount rightnum = List2.ListCount End Sub 4、代码 Private Sub Combo1_Click() If Combo1.Text = "红色" Then Text2.ForeColor = vbRed End If If Combo1.Text = "黑色" Then Text2.ForeColor = vbBlack End If If Combo1.Text = "黄色" Then Text2.ForeColor = vbYellow End If If Combo1.Text = "绿色" Then Text2.ForeColor = vbGreen End If If Combo1.Text = "蓝色" Then Text2.ForeColor = vbBlue End If End Sub
VB实验一 实验报告-2
实验报告一实验目的（1）熟悉Visual Basic6.0集成开发环境（2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支（4）掌握控制结构相关控件（单选按钮、复选框）（5）能综合运用选择及循环控制结构解决较复杂的问题实验内容一、VB环境和顺序结构【实验1】设计一个简单VB程序（10分）它由一个窗体、一个文本框和3个命令按钮组成。
窗体的标题为"Visual Baidc 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。
实验结果：【实验1 代码】【实验1 典型结果】【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。
计算公式为：S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分）程序界面如下所示实验结果：【实验2 代码】【实验2 典型结果】【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分）实验结果：【方法1 代码】【方法1 典型结果】【方法2 代码】【方法2 典型结果】二、选择结构【实验3】输入一年份，判断它是否为闰年，并显示有关信息。
判断闰年的条件为：1.能被4整除，但不能被100整除，2.或者能被400整除（注意各个条件表达式的括号）（20分）实验结果：【实验3 代码】【实验3 典型结果】【实验4】任意输入三个数，求三个数中最大数和最小数（15分）实验结果：【实验4 代码】【实验4 典型结果】【实验5】使用Inputbox任意输入三个边长，判断是否能构成三角形，若能构成三角形，则判断该三角形是等边、等腰还是一般三角形（15分）实验结果：【实验5 代码】【实验5 典型结果】【选做2】求解分段函数，要求输入x的值，输出计算得到的y值（5分）实验结果：【选做2 代码】【选做2 典型结果】实验小结1.遇到的问题：2.对课程的建议：⎪⎪⎩⎪⎪⎨⎧≥<≤<≤<=2000320001000210005005.1500xxxxxxxxy。
VB实验报告材料(含问题详解)
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上机实验报告详细易懂
VB上机实验报告详细易懂实验五数组的应用一、实验目的1．掌握一维数组的概念、定义、数组元素的引用和初始化。
2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3．加深对循环控制结构的理解和使用二、实验环境1．计算机2．Visual Basic 6.0开发环境三、实验说明1．熟练运用Visual Basic 6.0开发环境2．熟悉建立VB应用程序的步骤3．学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数，找出其中的最大值、最小值和平均值。
2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：Dim a(1 To 10) As Integer随机整数的生成由窗体的Load事件代码完成：Private Sub Form_Load( )Dim p As StringRandomizep = ""For i = 1 To 10a(i) = Int(Rnd * 90) + 10p = p & Str(a(i)) & ","NextLabel1.Caption = L Trim(Left(p, Len(p) – 1))End Sub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：Private Sub Command2_Click( )Dim n As Integer, m As Integer, s As Singlemin = 100: max = 10: s = 0For i = 1 To 10If a(i) > n Then max = a(i)If a(i) < m Then min = a(i)s = s + a(i)NextText1.Text = maxText2.Text = minText3.Text = s / 10End Sub“重置”按钮Command1的Click事件代码：Private Sub Command1_Click( )Form_LoadText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub最后是“关闭”按钮Command3的Click事件代码：Private Sub Command3_Click( )Unload MeEnd Sub（5）运行程序，观察结果；（6）保存窗体，保存工程。
vb程序实验报告
vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。
二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。
2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。
3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。
4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。
同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。
5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。
四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。
（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。
（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。
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实训报告1. 引言在本次VB实训中，我们小组的任务是设计和开发一个员工管理系统。
该系统旨在帮助企业管理员工信息、薪资、考勤等日常管理事务。
本文将介绍我们在实训过程中的项目规划、功能实现、问题解决以及项目总结等方面的内容。
2. 项目规划在项目规划阶段，我们首先明确了系统的功能需求和主要模块划分。
根据实际情况，我们将系统划分为员工信息模块、薪资管理模块、考勤模块以及权限管理模块。
每个模块都有相应的功能要求和优先级。
3. 功能实现3.1 员工信息模块在员工信息模块中，我们实现了员工的基本信息录入、修改和查询功能。
通过设计合理的界面布局和表单格式，使用户能够方便快捷地操作相关功能。
我们还添加了员工照片上传和显示的功能，增强了系统的可视化和人性化。
3.2 薪资管理模块薪资管理模块是该员工管理系统的关键部分之一。
我们实现了薪资的计算、发放和统计功能。
通过与员工信息模块的数据交互，能够自动计算薪资、生成工资条等相关操作。
同时，我们提供了统计报表的功能，帮助管理人员迅速了解企业的薪资概况。
3.3 考勤模块在考勤模块中，我们实现了考勤打卡、请假申请和考勤统计等功能。
通过与系统日历的结合，员工能够方便地进行考勤操作，并及时查看自己的考勤记录。
考勤统计功能可以帮助企业管理人员掌握员工的出勤情况，及时进行奖惩和管理。
3.4 权限管理模块为了保证系统的安全性和数据的机密性，我们设计了权限管理模块。
该模块实现了用户角色的划分、账号权限的设置和登录验证等功能。
只有经过验证的用户才能够访问系统，并根据其角色的不同进行相应的操作。
4. 问题解决在项目开发过程中，我们遇到了一些问题，并采取了相应的解决策略。
例如，在员工信息模块中，由于员工照片的上传和显示涉及到文件操作和路径设置，我们遇到了一些路径错误和图片加载问题。
通过仔细检查代码和路径设置，最终解决了这些问题。
同样，在权限管理模块中，我们遇到了一些安全性和数据保护的问题。
通过加密算法和访问控制的设置，我们增强了系统的安全性，避免了未授权用户的非法访问。
vb实验报告(5)
(1) cos2(c+d) _________________
(2) 5+3(a+b) _________________
(3) cosx(sinx+1) _________________
(4)e2+2 _________________
3、以下语句的输出结果是（）。
6、设有如下声明：
Dim X As Integer
如果Sgn(X)的值为-1，则X的值是( )
A.整数B.大于0的整数C.等于0的整数D.小于0的数
7、在文本框中输入半径，计算后在标签中输出圆周长和面积。
1)界面设计
2）属性设置
控件对象属性属性值
3）代码编辑
8、通过随机函数产生2个两位正整数显示在标签label1、label2中，并且求这2个数之和并显示到label3中。
5、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a$=″VisuaLBasic″
Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是( )
A.VVV B.Vis C.sic D.11
Print Format $(32548.5,“000,000.00”)
A) 32548.5 B)32,548.5 C) 032,548.50 D) 32,548.50
4、设x=4,y=8,z=7,以下表达式的值是( )
x<y And (Not y>z) Or z<x
A.1 B.-1 C.True D.False
vb实验报告(1)
实验报告
课程名称： 高级语言程序设计（VB）Ⅰ
实验名称： 控制结构、数组和过程综合程序设计
实验类型： 验证性□ 综合性√ 设计性□
实验室名称： 校计算中心
班 级： 金属 14-1
学 号： 201420402056
姓名： 黄继安
组 别： A29
同组人：
成绩：
实验日期：
2015 年 6 月 4 日
3
五．预编程序代码
内蒙古工业大学信息工程学院
4
内蒙古工业大学信息工程学院 5
内蒙古工业大学信息工程学院 6
实验报告成绩：
内蒙古工业大学信息工程学院
指导教师审核（签名）：
年月日
实验报告
一、实验目的
学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。
二、实验内容
随机产生 n 个（20≤n≤100）两位整数，找出其中的奇数、偶数和素数，并将奇数按升序排序，将偶 数按降序排序，将素数求和。
1． 仪器设备型号及编号 2． 实验器材或软件环境 3． 实验步骤、程序调试方法 4． 实验数据处理及结果分析 5． 实验中存在的问题 6． 体会及思考题 四、 报告撰写时，要求格式规范、书写整齐
预习报告成绩：
内蒙古工业大学信息工程学院
指导教师审核（签名）：
年月日
预习报告
一、实验目的
学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。
实验报告撰写要求
一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 1． 实验目的 2． 实验用仪器设备、器材或软件环境 3． 实验原理、方案设计、程序框图、预编程序等 4． 实验过程中需要记录的实验数据表格
vb实验报告
报告封面
2014-2015学年第一学期
封面和里边的需要写的内容不要空着学号、姓名、学院、年级、专业班等
实验课程: Visual 程序设计设课形式: 非独立
课程学分: 4
实验一
注: 请大家着重做好“智能计算器”, 并在此基础填写实验报告。
实验二
注: 请大家着重做好“简单游戏设计”, 并在此基础填写实验报告。
实验三
注: 请大家着重做好“设计一个拾色器”, 并在此基础填写实验报告。
实验四
注: 请大家着重做好“选课系统”, 并在此基础填写实验报告。
说明：请大家务必将上述4个实验做完, 并认真按要求撰写实验报告, 每位同学按顺序做好4个实验的实验报告交给班长或学习委员, 班长或学习委员按学号从小到大排序后上交。
VB实验报告(含答案)分析
实验报告课程名称_程序设计基础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课程设计实践报告一、教学目标本课程的教学目标是使学生掌握VB编程的基础知识，培养学生运用VB解决实际问题的能力。
具体分为三个部分：1.知识目标：学生需要掌握VB的基本语法、数据类型、变量、常量、运算符、控制结构、函数等编程基础知识和技能。
2.技能目标：学生能够运用VB编写简单的程序，解决实际问题，如计算器、文本排序等。
3.情感态度价值观目标：培养学生对编程的兴趣和主动性，提高学生分析问题、解决问题的能力。
二、教学内容根据教学目标，本课程的教学内容主要包括以下几个部分：1.VB基本语法和数据类型2.变量、常量和运算符3.控制结构：顺序结构、选择结构、循环结构4.函数：数学函数、字符串函数、日期时间函数等5.面向对象编程：类和对象、属性、方法、事件等6.常用控件及其属性和方法7.数据库访问技术三、教学方法为了达到教学目标，本课程将采用以下几种教学方法：1.讲授法：讲解VB的基本语法、数据类型、变量、常量、运算符、控制结构、函数等基础知识。
2.案例分析法：通过分析实际案例，使学生掌握面向对象编程、常用控件及其属性和方法。
3.实验法：让学生动手编写程序，解决实际问题，提高学生的编程能力。
4.讨论法：分组讨论，分享学习心得，互相答疑解惑。
四、教学资源为了支持教学内容和教学方法的实施，我们将准备以下教学资源：1.教材：《VB编程与应用》2.参考书：《VB编程实例教程》3.多媒体资料：教学PPT、视频教程4.实验设备：计算机、网络环境、编程软件以上教学资源将有助于丰富学生的学习体验，提高学生的编程能力。
五、教学评估为了全面、客观、公正地评估学生的学习成果，我们将采取以下评估方式：1.平时表现：评估学生的出勤、课堂参与度、提问回答等情况，占总成绩的20%。
2.作业：布置适量的作业，评估学生的编程能力和应用能力，占总成绩的30%。
3.考试：进行期中和期末考试，评估学生对VB基础知识和技能的掌握程度，占总成绩的50%。
vb实验报告
试验报告（1）
院（系）：课程名称：日期：
图1-2 界面
图1-3
试验报告（2）
院（系）：课程名称：日期：
试验报告（3）
院（系）：课程名称：日期：
试验报告（4）
院（系）：课程名称：日期：
试验报告（5）
院（系）：课程名称：日期：
试验报告
院（系）：课程名称：日期：
试验报告
院（系）：课程名称：日期：
其中：
心得体会：（可以从以下几个方面来总结：你在上机过程中遇到
了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）
试验报告
院（系）：课程名称：日期：
试验报告
院（系）：课程名称：日期：注意：绘制的线段应该有颜色、粗细长短的变化。
大一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语言和开发环境的了解，对于如何设计用户界面和编写代码也有了一定的经验。
实验过程中，我遇到了不少问题，但通过查阅资料和请教同学，我一一解决了这些问题。
实验不仅让我学到了知识，还培养了我的动手能力和解决问题的能力。
我会继续努力学习，提升自己的编程水平。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Forn = 1To25Step2
Label1.Text += vbCrLf + Space(26 - n) + StrDup(n,"★")
Next
EndSub
EndClass
六、
PublicClass实验4_10
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Timer1.Enabled =False
MsgBox("计时结束", 16,"提示")
Else
DimsAsString
s = TextBox1.Text
n = InStr(s,":")
n1 = Val(Mid(s, 1, n - 1))
n2 = Val(Mid(s, n + 1))
Ifn2 = 0Then
MsgBox("荒唐解，请重新输入")
EndIf
Label2.Text = Str(x) & Str(y)
EndSub
EndClass
四、
PublicClass实验3_11
DimxbAsString
DimxlAsString
DimzyAsString
Dimah1, ah2, ah3, ah4AsString
2、窗体上2个命令按钮，第一个按钮显示“”和图标、第二个按钮显示“画图”。
3、利用计算机解决古代数学问题“鸡兔同笼问题”。
4、编写一个“个人简历表”程序。
5、用单循环显示有规律图形。
利用TextBox、ProgressBar、Timer控件设计一个带有进度条的倒计时程序。
四、实验过程与分析
If(Val(TextBox1.Text) < 0)Then
MsgBox("请输入正整数")
TextBox1.Teຫໍສະໝຸດ t =""TextBox1.Focus()
EndIf
If(Val(TextBox2.Text)Mod2 <> 0)Then
MsgBox("请输入偶数")
TextBox2.Text =""
Ifn1 > 0Then
n1 = n1 - 1
n2 = 60
EndIf
Else
n2 = n2 - 1
EndIf
TextBox1.Text = Str(n1) +":"+ Str(n2)
ProgressBar1.Value = ProgressBar1.Value - 1
EndIf
EndSub
PrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPress
EndSub
EndClass
三、
PublicClass实验3_5
PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox1.TextChanged
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
EndIf
IfCheckBox3.CheckState = CheckState.CheckedThen
CheckBox3.CheckState = CheckState.Unchecked
EndIf
IfCheckBox4.CheckState = CheckState.CheckedThen
CheckBox4.CheckState = CheckState.Unchecked
EndIf
IfCheckBox2.CheckedThen
ah2 = CheckBox2.Text
EndIf
IfCheckBox3.CheckedThen
ah3 = CheckBox3.Text
EndIf
IfCheckBox4.CheckedThen
ah4 = CheckBox4.Text
EndIf
Label3.Text ="简历"& vbCrLf &"姓名："+ TextBox1.Text & vbCrLf +"年龄："+ TextBox2.Text & vbCrLf +"性别："+ xb & vbCrLf +"学历："+ xl & vbCrLf +"职业："+ zy & vbCrLf +"爱好："+ ah1 +" "+ ah2 +" "+ ah3 +" "+ ah4
Timer1.Enabled =True
EndIf
EndSub
EndClass
五、实验总结
通过本次实验使我对顺序结构程序、选择结构程序、循环结构程序有了一定的了解，对以后的学习垫定了基础。
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Label3.Text =""
TextBox1.Text =""
TextBox2.Text =""
IfCheckBox1.CheckState = CheckState.CheckedThen
CheckBox1.CheckState = CheckState.Unchecked
EndIf
IfCheckBox2.CheckState = CheckState.CheckedThen
CheckBox2.CheckState = CheckState.Unchecked
a = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3
TextBox4.Text = Format(a,"0.00")
EndSub
EndClass
二、
PublicClass二_7
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
一、
PublicClass二-1
DimaAsDouble
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
Me.Close()
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
IfRadioButton1.CheckedThen
xb = RadioButton1.Text
Else
xb = RadioButton2.Text
Randomize()
TextBox1.Text = Int(Rnd() * 9 + 1)
TextBox2.Text = Int(Rnd() * 90 + 10)
TextBox3.Text = Int(Rnd() * 900 + 100)
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Ife.KeyChar = Chr(13)Then
ProgressBar1.Maximum = Val(TextBox1.Text) * 60
ProgressBar1.Minimum = 0
ProgressBar1.Value = ProgressBar1.Maximum
TextBox1.Text = Str(Val(TextBox1.Text) - 1) +":"+"59"
实验题目
基本控制结构
小组合作
否
姓名
班级
学号
一、实验目的
1、掌握表达式、赋值语句的正确书写规则。
2、掌握InputBox与MsgBox的使用。
3、掌握逻辑表达式的正确书写形式。
4、掌握For语句的各种形式的使用。
5、掌握Do语句各种形式的使用。