下载文档原格式
实验报告一(循环与数组)实验目的：通过学习，要求掌握选择语句结构if 语句、 Select case 语句、While wend 语句 、For Next 语句，do while (until ) loop 语句的基本书写格式，以及要掌握累和与累乘以及杨辉三角的算法进行演算。
实验要求：1．编辑，输入X 值，按下式计算并输出Y 的值Y=f(x)=2．计算下式的和，变量X 与N 的数据值用输入对话框输入)!1(............!4!3!232+++++=n x x x x s n3．用近似公式求自然对数据的底数E 的值，直到前后两项之差小于10-4为止。
E ≈!1..............31!21!111n ++++ 4．编程，输入n(n 为1位整数)，输出n+1层的杨辉三角形。
如n 为6时，输出结果如下所示。
11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 11 6 15 20 15 6 1实验步骤：实验体会：x+3 x>3 x 2 1<=x<= 3Sqr(x) 0<x<1 0 x<=0实验目的：通过学习，要求熟练掌握常用控件：textbox commandbox labelbox 控制的用法；掌握optionbox 与listbox的方法，属性及事件，对于定时器与滚动条的基本用法要学会运用与操作。
实验要求：1.编制一个用于进制转换的应用程序，运行时的界面如图2．编制一个“偶数迁移”程序设计，运行界面如图：具体要求为：窗体的标题为“偶数迁移”，单击“产生”按钮，计算机随机产生10个两位正整数放入列表框里list1中，同时清空列表框list2中的内容。
单击“- ”按钮，将列表框list1中所有的偶数迁移到列表框list2中。
3．设计一个字幕推出程序。
标签的字号在定时时器的控制下每个时间间隔放大2磅并且保持标签在窗体中水平居中，当标签的字号超过72时，定时器停止响应Timer事件，字号放大的速度由水平滚动条控制。
VB6.0程序设计上机实训四（1）数组程练习（1）姓名：学号：[实验目的]熟练掌握mid函数和if条件语句的使用.[实验内容]1. 任意输入两个数存入变量A, B。
使得A中存入较大数，B存较小数，再输出A、B。
Dim A As Integer, B As Integer, T As IntegerA = InputBox("输入一个正整数")B = InputBox("输入一个正整数")If A < B ThenT=AA = BB = TEnd IfPrint A, B2.实现逆序输出用户输入的三位整数，如下图所示：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = Mid(Text1.Text, 3, 1)b = Mid(Text1.Text, 2, 1)c = Mid(Text1.Text, 1, 1)Text2 = a & b & cEnd SubPrivate Sub Form_Load()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub或：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = Text1.Text Mod 10b = (Text1.Text - a) / 10 Mod 10c = Text1.Text \ 100Text2.Text = a * 100 + b * 10 + c'Text2 = a & b & cEnd Sub3.编写程序实现符号函数返回值。
（利用两种if语句形式编程）Private Sub Form_Click()Dim x As Single, y As Singlex = InputBox("请输入x的值")If Sgn(x) > 0 Theny = 1ElseIf Sgn(x) < 0 Theny = -1Elsey = 0End IfPrint "x="; x, "y="; yEnd Sub4.利用条件函数IIf判断改变文本框内字体或字号，程序设计界面如下图所示，具体程序如下：Private Sub Command1_Click()Text1.FontName = IIf(Option1.Value, "宋体", "黑体")Text1.FontSize = IIf(Option3.Value, 8, 12)End SubPrivate Sub Command2_Click()EndEnd Sub5.利用条件语句改变文本框内显示内容，程序设计界面如下图所示，程序实现参照前后QH.EXE文件。
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实验指导四（inputbox，msgbox，简单if语句）
实验目的：
1、掌握inputbox函数的使用
2、掌握msgbox函数和过程的使用
3、掌握简单if语句的使用
实验内容：
1、利用输入对话框输入一个学生的姓名和电话，然后以消息框的形式给出提示，最后显示在窗体上的两个标签上显示。
（Inputbox和msgbox的练习）
2、输入两个数，求它们中的最大数。
请先自己看着给你的运行效果图，完成程序，然后再对比老师给你的程序。
3、输入一个年份，判断该年是否为闰年。
实验分析：
（1）判断条件为：
–年份(y)能被4整除，但不能被100整除；
–年份(y)能被400整除。
–只要满足其中一个条件，该年份即为闰年。
（2）表示这个条件的逻辑表达式为：
(y Mod 4=0 And y Mod 100<>0) Or (y Mod 400=0)
4、当点击窗体空白处后，实现图1所示的消息对话框，显示“终止”、“重试”和“忽略”按钮，图标样式为，默认按钮为重试按钮，标题为“错误提示”。
当在消息框中单击某个按钮后，在窗体上输出用户的按键信息。
实验四 选择结构程序设计
一、实验目的
1．掌握逻辑表达式的正确使用方法。
2．掌握单分支、双分支和多分支条件语句结构的使用方法。
3. 掌握选择结构的嵌套
二、实验内容
1 有函数：
⎪⎩⎪⎨⎧≥-<≤-<=)
10(124)101(2
3)1(x x x x x x
y 写一个程序，输入x 值后，则输出相应y 值。
要求用“If …ElseIf …EndIf ”和用“Select Case ”两种方法完成该题目。
1.IF 的写法
2.select 的写法
2编写一个判断给定坐标在第几象限的程序，界面如图3-1所示。
3 编写一个简易学生成绩管理系统，要求输入姓名和成绩，点击“添加”按钮后，在文本框中追加并换行显示“姓名”、“成绩”和“合格”或“不合格”信息，如图3-2所示。
图3-2 实验3-3程序运行界面
进一步要求：按照≥90为“优”，≥80为“良”，≥70为“中”，≥60为“及格”，<60为“不及格”来划分并显示上述信息。
4 编写完整的一元二次方程求根的程序
思考题：
1、对于多重选择，使用if嵌套时，注意配对关系
2、使用选择结构时，要注意防止出现“死语句”，即永远也不可能出现的语句。
台州学院《VB程序设计》实验报告实验三：选择结构程序设计班级：学号：姓名：实验日期：一、实验目的和要求1．掌握逻辑表达式及关系表达式的正确书写形式；2．掌握IF语句单行和块书写格式及其正确使用（尤其注意ELSE 和ELSE IF）；3．掌握多分支情况的控制（使用Select CASE语句）的使用及与多分支条件语句的区别。
二、实验主要仪器和设备计算机一台，Windows XP操作系统，Visual Basic环境。
三、实验内容实验3.1在两个文本框中输入实数，单击按钮，显示“较小值是xxx”。
实验3.2输入三个实数，计算其中的最大值，运行界面如图3-1所示。
图3-1 程序运行时的界面实验3.3用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。
实验3.4由键盘输入（1～7）范围内的整数，试编程将其转换为中文表示的星期几，运行界面如图3-2所示。
图3-2 程序运行时的界面实验3.5（选做）由键盘输入3个数，试编程将它们的中间数打印出来。
四、实验原始记录实验3.1程序的界面设计。
程序代码。
实验3.2程序的界面设计。
程序代码。
实验3.3程序的界面设计。
程序代码。
实验3.4程序的界面设计。
程序代码。
实验3.5（选做）程序的界面设计。
程序代码。
五、实验结果及分析实验3.1运行结果。
实验3.2运行结果。
实验3.3运行结果。
实验3.4运行结果。
实验3.5运行结果。
（选做）六、实验总结与思考（主要写一些在实验过程中，遇到的问题、所犯的错误，以及是如何发现纠正的。
大约100至200字左右。
）。
浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验四、分支结构程序设计学生姓名专业班级学号实验成绩指导老师（签名）日期一. 实验目的和要求1.掌握单分支与双分支条件语句IF的使用。
2.掌握多分支条件语句的使用。
3.掌握情况语句Select Case的使用及其与多分支条件语句的区别。
二. 实验内容和原理【练习4-1】研究下面的代码段，画程序流程图，当输入93，81，74，65，42时，写出窗体中显示的结果。
Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score < 60 Then Print "不合格"If score >= 60 and score<85 Then Print "合格"If score >= 85 Then Print "优秀"End sub引伸1若把程序代码写成如下形式，画出它的流程图。
问当输入成绩为90分时，显示什么结果？为什么？用嵌套块If语句应如何写？Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score >= 85 Then st= "优秀"If score < 60 Thenst=”不合格”Elsest="合格"End IfPrint stEnd Sub引伸2若把程序写成如下形式，当输入成绩为90、80、50时，显示什么结果？画出流程图。
Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score >= 85 ThenPrint "优秀"ElseIf score >= 60 ThenPrint "合格"ElsePrint "不合格"End IfEnd Sub调试运行以上程序，采用单步跟踪的方法（按F8）查看程序执行流程，进一步加深对分支结构的理解。
福建农林大学计算机与信息学院课程名称：姓名：系：专业：年级：学号：指导教师：职称：（程序设计类课程）实验报告visual basic程序设计教程洪景泉计算机与信息学院计算机应用技术 05级 051893067 黄红兵讲师 2007年 6月 2 日实验项目列表系：计算机与信息学院专业：计算机应用技术年级： 05级姓名：洪景泉学号： 051893067 计算机号 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环境下运行该工程。
用户界面：实验代码：3、创建一个“标准exe”类型的应用程序。
要求：程序运行时在屏幕上显示“欢迎您的到来！”，并输入您的名字。
当按回车键时弹出对话框如下所示：用户界面：代码：private sub text1_keypress(keyascii as integer)if keyascii = 13 thenmsgbox 欢迎 + text1.text + 的到来 end if end sub4、创建如图所示的应用程序，要求：单击“确定”按钮后，第一个文本框显示系统日期，第二个文本框显示星期。
vb上机实验报告VB上机实验报告一、引言Visual Basic（VB）是一种面向对象的编程语言，广泛应用于软件开发领域。
本次实验旨在通过VB的上机实践，掌握VB的基本语法和应用技巧，提升编程能力。
二、实验内容1. VB环境搭建：安装VB开发环境，并熟悉VB的开发界面和功能；2. VB基本语法：学习VB的变量、数据类型、条件语句、循环结构等基本语法；3. VB应用实例：实现一个简单的学生信息管理系统，包括学生信息录入、查询和删除功能。
三、VB环境搭建VB的开发环境可以通过官方网站下载并安装。
安装完成后，打开VB开发界面，可以看到菜单栏、工具栏和代码编辑区等组成部分。
熟悉这些界面元素，是进行VB编程的基础。
四、VB基本语法1. 变量与数据类型在VB中，可以使用Dim语句声明变量，并指定其数据类型。
常见的数据类型有整数型（Integer）、浮点型（Single）、字符串型（String）等。
例如，使用以下语句声明一个整数型变量：Dim num As Integer2. 条件语句条件语句用于根据条件的真假执行不同的代码块。
在VB中，可以使用If语句和Select Case语句实现条件判断。
例如，以下代码展示了使用If语句判断一个数的正负：If num > 0 ThenMsgBox("该数为正数")ElseIf num < 0 ThenMsgBox("该数为负数")ElseMsgBox("该数为零")End If3. 循环结构循环结构用于重复执行一段代码。
在VB中，可以使用For循环和Do While循环等实现循环功能。
例如，以下代码展示了使用For循环输出1到10的数字：For i = 1 To 10MsgBox(i)Next i五、VB应用实例本次实验要求实现一个学生信息管理系统，包括学生信息录入、查询和删除功能。
以下是实现该功能的代码示例：1. 学生信息录入在VB的窗体中，添加文本框和按钮控件。
实验五判断语句，循环语句
一实验目的
1．熟练掌握行if语句、块if结构、Select Case情况选择结构有使用
2．熟练掌握实现循环结构的For/Next循环结构及Exit For语句、Do/Loop循环结构的使用
二实验内容
判断一个整数是否是素数
三实验步骤与指导
1．设计界面
在窗体上添加一个标签，一个文本框和一个命令按钮。
初始界面如图5.1所示（同学们也可自己设计界面）
图5.1初始界面
2．设置属性（如表5.1所示）
设置属性后的界面如图5.2所示
图5.2 设置属性后的界面
3．编写程序代码
代码需要同学根据上课的例子自行编写
4．运行程序
单击工具栏上的“启动”按钮，进入运行模式。
在文本框中输入一个大于2的整数后，单击“判断”命令按钮判断后，在消息框中输出判断的结果，如图5.3所示。
if语句实验报告总结if语句是编程中的一种条件语句，通过判断条件是否为真来决定程序的执行流程。
在实验中，我们对if语句进行了深入的研究和实验，以下是对实验进行总结的报告：if语句是编程中非常基础和重要的一种语句，它可以根据条件的真假来执行不同的代码块。
在实验中，我们发现if语句的条件可以是一个表达式，也可以是一个布尔值，这使得我们可以根据不同的情况来控制程序的执行流程。
if语句还可以与else语句和elif语句结合使用，从而实现更加复杂的条件控制。
在实验中，我们通过多次实验和调试，掌握了if语句与else语句和elif语句的配合使用，使得程序的逻辑更加清晰和严谨。
if语句还可以嵌套使用，即在if语句的代码块中再包含if语句，从而实现多层条件判断。
在实验中，我们通过实际的编程练习，熟练掌握了if语句的嵌套使用方法，并能够灵活运用在实际的项目开发中。
if语句还可以与逻辑运算符结合使用，如and、or、not等，从而实现更加灵活和复杂的条件判断。
在实验中，我们深入学习了逻辑运算符的用法，并通过实际的案例演练，掌握了如何巧妙地运用逻辑运算符来组合条件判断。
if语句还可以与其他控制流语句结合使用，如循环语句和函数调用，从而实现更加强大和灵活的程序控制。
在实验中，我们通过多种不同的组合实验，掌握了如何将if语句与其他控制流语句有机地结合起来，使得程序逻辑更加清晰和高效。
总的来说，通过本次对if语句进行的深入研究和实验，我们对if语句的原理和用法有了更深入的理解，同时也提升了我们的编程技能和逻辑思维能力。
if语句作为编程中的基础知识，对于我们的学习和工作都具有重要的意义，希望通过不断的实践和探索，我们可以在编程领域取得更大的成就。
实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。
2．熟悉Visual Basic 的集成开发环境。
3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。
4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。
二、实验类型综合三、实验时间：2012-3-9四、实验任务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的基本使用方法。
if语句实验报告总结引言if语句是编程中的一种条件控制结构，它能够根据给定的条件来决定是否执行特定的代码块。
通过if语句，我们可以实现程序的分支执行，提高代码的灵活性和可扩展性。
本实验报告旨在对if语句进行实验，探究其使用方法及其在程序设计中的应用。
实验设计实验目的掌握if语句的基本语法和用法，理解条件判断的原理，学会在程序中灵活运用if 语句。
实验步骤1.理解if语句的基本语法结构。
2.编写简单的if语句，进行条件判断。
3.实现if语句的嵌套和多个条件判断。
4.利用if语句解决实际问题。
5.总结实验过程中遇到的问题和思考。
if语句的基本语法if语句的基本语法如下所示：if条件:代码块else:代码块其中，条件是一个返回布尔值的表达式，如果条件为真，那么执行if代码块中的内容；如果条件为假，那么执行else代码块中的内容。
编写简单的if语句下面通过一个简单的例子来演示如何编写一个基本的if语句。
num = int(input("请输入一个整数："))if num > 0:print("数字大于0")else:print("数字小于等于0")在这个例子中，首先通过input()函数获取用户输入的整数，并将其保存在变量num中。
然后，通过if语句判断num的值是否大于0，并根据判断结果输出相应的信息。
if语句的嵌套和多个条件判断除了基本的if语句，我们还可以将多个if语句嵌套使用，或者在一个if语句中进行多个条件判断。
下面是一个if语句的嵌套例子：num = int(input("请输入一个整数："))if num > 0:print("数字大于0")else:if num == 0:print("数字等于0")else:print("数字小于0")在这个例子中，首先判断num的值是否大于0，如果是，则输出”数字大于0”；如果不是，则进入内层的if语句，判断num是否等于0，如果是，则输出”数字等于0”；如果不是，则输出”数字小于0”。
VB程序设计课内实验
报告书
系部名称：
学生姓名：
专业名称：
班级：
学号：
时间：
实验题目过程
一、实验目的
1．掌握for语句的使用。
2．掌握for语句的各种形式的使用。
3．掌握如何控制循环条件，防治死循环或不循环。
二、实验内容
实验一：利用for语句实现1-3图形的输出。
实验二：利用for语句实现2-3图形的输出。
三、设计方案（程序，界面）
实验一：
1.打开Visual Basic，新建一个EXE工程。
2.创建一个按钮命名图（a）,双击Command1编写程序如图1-1.
图1-1
3. 运行程序,点击Command1,得结果如图1-4；
4．分别保存工程文件和窗体文件
实验二： 1. 打开Visual Basic，新建一个EXE工程
2．创建一个按钮命名图（b）,双击Command1编写程序如图：
1－2
图2－1
3. 运行程序,点击Command1,得结果如图1-5；
4．分别保存工程文件和窗体文件。
四、结果及分析
实验一
图1－2
实验二：
图2－2
五、调试情况，设计技巧及体会
通过学习VB我更好了解了计算机运行程序，了解了计算机运行的语言，并能根据自己的需要编写程序，极大的减小了工作量提高了工作效率，使计算机更加人性化使我们更加充分地运用了计算机，为以后工作提供了方便。
同时也学习到处理一些突发问题的能力。
六、源程序清单
实验一：
Private Sub Command2_Click()
For i = 1 To 4
Print Spc(4 - i); String(2 * i - 1, Trim(i))
Next i
End Sub
实验二：
Private Sub Command1_Click()
For i = 1 To 5
Print Tab(i); String(6 - i, "*")
Next i
End Sub。
