VB实验报告2
vb实验报告二
vb实验报告二实验二顺序结构程序设计学院生物技术与食品科学学院班级生物工程1702 班学号20174198 姓名张思越实验日期批次地点信息交流中心301 机房教师郭淑珍教师评语年月日一、实验目的1．掌握表达式、赋值语句的正确使用与书写规则。
2．掌握常用函数的使用。
3．掌握 InputBox 与 MsgBox 函数（过程）的使用。
4．掌握各种数据类型 5．掌握 VB 程序基本的输入输出方法。
二、实验内容（你做了哪几个题） 1．必做题：实验 2-1a，实验 2-3a 2．选做题：实验 2-1b，实验 2-2a 三、简述其中一题（写清题号）的具体操作步骤：实验 2-1a：1. 在窗体上放置相应控件，文本框用作数据的输入与输出，标签用于提示输入，按钮用来计算结果。
2. 在属性窗口进行相关属性设置，将用作输出的文本设为只读，且将背景色设为灰色。
3. 在代码窗口写出相关的代码。
4. 保存文件和。
运行并调试程序。
计算机技术基础（VB ）实验报告——实验二四、思考并回答 1．实验 2-3a 中赋值语句 X=Y：Y=X 能否实现变量 X、Y 的交换？为什么？能实现，答：不能实现。
除已知的 X 和 Y 两个变量外，还需要再定义第三个变量 Z，通过语句“Z=X”，将变量 X 的值赋给变量 Z，然后，通过语句“X=Y”，将变量 Y 的值赋值给变量 X，再通过语句“Y=Z”，将存放在变量 Z 中的值赋给变量 Y。
到此，变量 X 和变量Y 的值交换完成。
2．结合实验 2-1a 和实验 2-1b 二个题，说说各种输入、输出的方式有什么优缺点，你更喜欢用哪种？答：2-1a 用 text 控件直接输入数字，2-1b 用inputbox 函数输入数据我更喜欢第一种，比较直接。
3．请写出实验 2-2a 中命令按钮的代码。
思考：数值数据用若不用“+”号连接到 Label 的Caption 属性，还可以用什么运算符？答：And。
五、简述本次实验存在的问题实验涉及多种编程方法，不能熟悉的运用或更换。
大一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程序设计的实验报告
VB程序设计的实验报告VB程序设计的实验报告引言：VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它具有简单易学、功能强大的特点，被广泛用于开发各种桌面应用程序。
本文将介绍我在VB程序设计实验中的学习和实践经验。
一、实验目的本次实验的主要目的是让我们学习并掌握VB程序设计的基本知识和技巧，通过实践编写简单的应用程序，提升我们的编程能力和解决问题的能力。
二、实验环境在实验中，我们使用了Visual Studio作为开发工具。
Visual Studio是一款功能强大的集成开发环境，它提供了丰富的开发工具和调试功能，极大地方便了我们的开发工作。
三、实验内容在实验中，我们主要完成了以下几个实验任务：1. 界面设计：首先，我们需要设计程序的界面，包括窗体、按钮、文本框等控件的布局和样式。
通过拖拽控件、设置属性等操作，我们可以快速创建出一个漂亮的界面。
2. 事件处理：接下来，我们需要为各个控件添加事件处理程序。
当用户点击按钮或输入文本时，我们的程序需要做出相应的反应。
通过编写事件处理程序，我们可以实现各种功能，如计算、数据处理等。
3. 数据存储：在实验中，我们还学习了如何使用VB提供的数据库连接工具，将数据存储到数据库中。
通过编写SQL语句，我们可以实现数据的增删改查等操作，方便我们对数据进行管理和分析。
四、实验心得通过本次实验，我对VB程序设计有了更深入的了解和掌握。
在实验中，我遇到了一些困难和问题，但通过不断尝试和学习，我最终成功完成了实验任务。
首先，我学会了如何使用VB的开发工具和调试功能。
Visual Studio提供了许多方便的功能，如自动补全、调试器等，它们大大提高了我们的开发效率和代码质量。
其次，我学会了如何设计程序的界面。
一个好的界面设计可以使用户更加方便地使用我们的程序，并提升用户体验。
通过实验，我学会了如何合理布局控件、设置属性，使界面更加美观和易用。
最重要的是，我学会了如何编写事件处理程序。
VB实验报告册
实验报告一(循环与数组)实验目的：通过学习，要求掌握选择语句结构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事件，字号放大的速度由水平滚动条控制。
VB实验报告范文
VB实验报告范文实验报告一、实验目的1. 学习和了解Visual Basic的基本开发环境和编程语法；2. 掌握使用Visual Basic进行程序设计的基本技巧；3. 实践使用Visual Basic进行简单的程序设计；4.培养编程思维和解决问题的能力。
二、实验过程1. 熟悉Visual Basic的开发环境并创建新项目；2. 学习和掌握Visual Basic的基本语法与数据类型；3.设计并编写一个简单的图形化界面程序；4.调试程序并运行测试；三、实验内容在本次实验中，我设计了一个学生信息管理系统，其中包括学生信息录入、学生信息查询和学生信息删除三个功能。
2.学生信息查询功能：用户可以输入学生的姓名，系统将在学生信息列表中查找到相应的学生信息并显示出来。
3.学生信息删除功能：用户可以输入学生的姓名，系统将从学生信息列表中删除相应学生的信息。
四、实验结果1.学生信息录入功能：用户可以按照提示输入学生的信息，点击确认按钮后，系统会弹出提示信息，显示信息录入成功并将信息保存在列表中。
2.学生信息查询功能：用户可以按照提示输入学生的姓名，点击查询按钮后，系统会在学生信息列表中查找到相应的学生信息并显示在界面上。
3.学生信息删除功能：用户可以按照提示输入学生的姓名，点击删除按钮后，系统会从学生信息列表中删除相应学生的信息，并显示删除成功的提示信息。
五、实验总结通过本次实验，我初步掌握了Visual Basic的开发环境和编程语法，并成功设计并实现了一个简单的学生信息管理系统。
在实验过程中，我遇到了一些问题，如界面设计不够美观、数据验证不完善等。
通过仔细思考和调试，我解决了这些问题，并进一步提高了自己的编程技巧和调试能力。
通过这次实验，我深刻体会到了编程的乐趣和挑战，也明白了编程思维和解决问题的重要性。
希望在以后的学习中能够进一步提高自己的编程水平，实现更加复杂和实用的程序设计。
2018年VB实验报告02 (2) (8000字)-优秀word范文 (5页)
本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！== 本文为word格式，下载后可方便编辑和修改！ ==VB实验报告02 (2) (8000字)编号：201X－201X学年第二学期实验报告实验课程名称VB程序设计基础与VBA应用浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验二、程序设计基础1 学生姓名专业班级学号实验成绩指导老师（签名）日期一. 实验目的和要求1. 掌握运算符的使用。
2. 掌握表达式的正确书写规则。
3. 掌握常用函数的使用。
4. 掌握InputBox、MsgBox函数的使用。
5. 熟悉掌握赋值语句的使用。
6. 掌握顺序结构的应用程序的编程过程。
二. 实验内容和原理【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。
运行结果填在右侧表中：（一行一行地输入，不能粘贴） ? 35 /5 mod 13 \2+5^2 PrintNot("bad">"bed") BirthDay = #5/18/1980#Birth$ = "出生日期：" & BirthDay Print Birth$a = 10b = 15c = -9Print a > 2 ^ 3 And (b = 13 Or Not c = 0) Print len(str(a)) Printlen(str(c))Print Chr(Asc("A") + 3)Print Trim(" a b ") & "cde" Print " a b " & "cde"Print Left("Visual Basic 6.0", 7)Print Mid("Visual Basic 6.0", 8, 5)Print Instr("Visual Basic 6.0",” Ba”) Print Len("VB程序设计")Print UCase("Hello!")Print "浙江" & Space(2) & "杭州" Print Date, Date+7Print hour(Time)Print 345 / 7347, Format(345 / 7347, "#0.0000") Print Sqr(9) Print Abs(-25) Print Rnd, RndPrint Sin(30 * 3.1415926 / 180) Print Int(-3.4), Int(3.8)【练习2-2】设计一程序，窗体Form1 上有两个文本框，窗体界面如下所示。
vb实验报告二
总结（对上机实验结果进行分析，上机心得体会及改进意见
忻州师范学院计算机系
实 验 报 告
学号：姓名：班级
课程名称
Visual Bisic 程序设计
实验课时
2课时
ห้องสมุดไป่ตู้实验项目
VB程序设计步骤
实验时间
指导老师
史文秀
实验成绩
实验目的（本次上机实验所涉及并要求掌握的知识点）
1、掌握Visual Bisic程序设计步骤
2、掌握窗体的常用成员
3、掌握命令按钮的使用
4、掌握标签的使用方法
5、掌握文本框的使用方法
6、进一步了解类、对象、属性、事件和方法的概念
实验环境
Visual
实验内容
1、设计一个VB小程序，包括一个文本框和三个单选按钮。要求单击“显示”按钮时，文本框中出现红色的“欢迎使用Visual Bisic!”的文字；单击“清除”按钮时，文本框中文字消失；单击“退出”按钮后，程序结束。（窗体标题为“练习”）
2、设计一个“我的窗体”为标题的小程序。利用窗体的属性和方法，在单击窗体时，显示“Visual Bisic”文字。
3、窗体中包括一个标签、一个文本框和一个单选按钮。在文本框中输入文字，单击“设置”按钮，则将窗体标题为相应的文字。
4、窗体中包括一个文本框和一个单选按钮。程序运行时，单击“显示”命令按钮，则将文本框按钮显示为黄色，并显示蓝色文字“hello”。
vb实训报告
vb实训报告在这份报告中，我将详细介绍我在VB实训中所进行的工作和学习成果。
通过这次实训，我对VB的掌握程度有了显著的提高，并且获得了宝贵的实践经验。
**项目背景和目标**首先，我将介绍我们所进行的VB实训项目的背景和目标。
我们的项目是设计一个学生信息管理系统，旨在提高学校学生信息管理的效率和准确性。
我所负责的任务是开发一个学生选课模块，使学生能够在线选择课程，并将选课结果及时更新到数据库中。
**需求分析**为了开发出一个满足实际需求的学生选课模块，我首先进行了详细的需求分析。
我与实训导师和其他团队成员一起讨论，并借助流程图和数据流图等工具进行可行性分析和功能规划。
通过需求分析，我确定了以下主要功能：1. 学生登录：学生可以使用其学号和密码登录系统。
2. 课程列表：学生可以查看当前可选的课程列表，包括课程名称、授课教师和课程时间等信息。
3. 选课功能：学生可以根据自己的需求选择课程，并将选课结果保存到数据库中。
4. 课程查询：学生可以通过课程名称或教师姓名等关键词进行课程查询。
5. 已选课程查看：学生可以查看自己已选的课程列表。
**系统设计与实现**在需求分析的基础上，我进行了系统设计与实现的工作。
首先，我使用VB进行界面设计，力求使界面直观、友好，并具备良好的用户体验。
在设计界面时，我采用了常见的元素布局和色彩搭配，以确保系统整体的美观和易用性。
接下来，我着手进行程序的编码工作。
我采用了面向对象的编程思想，将系统的不同功能模块进行分离，并使用模块间的接口进行交互。
在编码过程中，我注重代码的规范性和可维护性，使用了有意义的命名并写明了注释，以方便后期的维护和改进工作。
**测试与优化**完成编码后，我进行了系统的测试工作。
我使用了黑盒测试和白盒测试相结合的方法，对系统的功能、性能和稳定性进行了全面测试。
在测试过程中，我发现了一些潜在的问题，并及时进行了修复和优化。
通过多轮的测试与优化，我确保了系统的稳定性和功能的完备性。
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实验报告
实验四 选择结构程序设计
一、实验目的
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、使用选择结构时，要注意防止出现“死语句”，即永远也不可能出现的语句。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验1 简单程序设计实验时间：2011.9.28 实验地点：第十三机房实验目的：1、掌握VB的启动方法；2、熟悉VB的开发环境；3、学会建立简单的VB应用程序。
实验内容：1、实验要求学会向窗体中放置控件的方法，掌握工具栏中启动按钮、结束按钮的使用。
做一个简单的VB程序，实现以下简单的功能：第一：控制文本框的编辑状态；第二：动态地修改窗体的标题。
实验步骤：1、窗体属性（1）控制文本框的编辑状态（2）动态地修改窗体的标题2、窗体设计（1）控制文本框的编辑状态（2）动态地修改窗体的标题3、源代码第一个窗体的代码：Private Sub Command1_Click()Text1.Locked = TrueEnd SubPrivate Sub Command2_Click()Text1.Locked = FalseEnd Sub第二个窗体的代码：Private Sub Command1_Click()Form2.Caption = Text1.TextEnd Sub实验体会：围绕实验目的来写写，通过本次实验你学会了什么，实验过程中遇到什么问题，怎么解决的，你有什么样的体会实验：编写并调试事件过程实验时间：2011.10.26 实验地点：第十三机房实验目的：1、学会创建应用程序界面；2、学习编写程序代码；3、掌握标签、文本框、单选、复选框、框架等控件的使用；4、掌握用程序代码方式设置属性的方法。
实验内容：1.简单文本编辑器：可以设置文本框中内容的字体、字号、字型、颜色及其他效果实验步骤：一、简单文本编辑器1、窗体设计、1、源代码Private Sub Command1_Click()If Option1.Value = True Then = "宋体"End IfIf Option2.Value = True Then = "黑体"End IfIf Option3.Value = True Then = "隶书"End IfIf Option7.Value = True ThenText1.ForeColor = vbBlueEnd IfIf Option8.Value = True ThenText1.ForeColor = vbGreenEnd IfIf Option9.Value = True ThenText1.ForeColor = vbRedEnd IfIf Check1.Value = vbChecked ThenText1.Font.Bold = TrueElseText1.Font.Bold = FalseEnd IfIf Check2.Value = 1 ThenText1.Font.Italic = TrueElseText1.Font.Italic = FalseEnd IfIf Check3.Value = 1 ThenText1.Font.Underline = TrueElseText1.Font.Underline = FalseEnd IfIf Option4.Value = True ThenText1.Font.Size = "8"End IfIf Option5.Value = True ThenText1.Font.Size = "14"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub实验体会：围绕实验目的来写写，通过本次实验你学会了什么，实验过程中遇到什么问题，怎么解决的，你有什么样的体会实验：选择、循环控制结构程序的编制与调试（一）实验时间：2011.10.28 实验地点：第十三机房实验目的：1.掌握选择结构程序设计2.掌握循环结构程序设计实验内容：1、税额计算程序2.判断100-300之间的素数实验步骤：一、税额计算程序1.界面：2．源代码：Private Sub Form_Click()Dim msg As String, msgtitle As Stringmsg$ = "请输入金额"msgtitle$ = " 税额计算程序"Dim a As Single, b As Singlea = Val(InputBox(msg$, msgtitle$))If a > 0 And a < 200 ThenPrint "税额为0"End IfIf a >= 200 And a <= 400 ThenPrint "税额为"; (a - 200) * 0.03; "元"End IfIf a > 400 And a < 5000 ThenPrint "税额为"; a * 0.04; "元"End IfIf a >= 5000 ThenPrint "税额为"; a * 0.05; "元"End IfEnd Sub二、判断素数1.源代码、Option ExplicitPrivate Sub Form_Click()Dim n As Integer, d As Integer, k As Integer, i As IntegerDim swit As BooleanFor n = 101 To 300 Step 2k = Int(Sqr(n)) ' 不大于n的平方根的最大整数i = 2swit = 0While i <= k And swit = 0If n Mod i = 0 Thenswit = 1Elsei = i + 1End IfWendIf swit = 0 Thend = d + 1 '计数（素数的个数）If d Mod 6 = 0 ThenPrint n; " ";PrintElsePrint n; " ";End IfEnd IfNext nEnd Sub实验体会：围绕实验目的来写写，通过本次实验你学会了什么，实验过程中遇到什么问题，怎么解决的，你有什么样的体会实验：选择、循环控制结构程序的编制与调试（二）实验时间：2011.11.2 实验地点：第十三机房实验目的：1.掌握选择结构程序设计2.掌握多重循环结构程序设计实验内容：1.税额计算程序2.输出九九乘法表实验步骤：二.九九乘法表1.界面：2：源代码：Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerDim temp As IntegerFontSize = 12Print Tab(30); "9*9 乘法表"Print: PrintFor i = 1 To 9Print Tab(i * 6); i;Next iPrintFor j = 1 To 9Print j;For k = 1 To jtemp = j * kPrint Tab(k * 6); temp;Next kPrintNext jEnd Sub实验体会：围绕实验目的来写写，通过本次实验你学会了什么，实验过程中遇到什么问题，怎么解决的，你有什么样的体会实验：数组编程解决实际问题实验时间：2011.11.9 实验地点：第十三机房实验目的:1、掌握控件数组的创建方法；2、理解控件数组中控件名称组成特点；3、掌握运用控件数组编程的方法。
实验内容:1.编写简单的计算器程序要求：使用控件数组设计一个简易计算器，能实现算术运算和简单函数运算，并具有清除结果和退格键的功能。
实验步骤：1.窗体设计3.源代码Dim x As Single, y As SingleDim op As StringPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9Text1.Text = Text1 & Command1(Index).Caption Case 14If InStr(Text1, ".") = 0 ThenText1.Text = Text1 & Command1(Index).Caption ElseIf Right(Text1, 1) = "." ThenText1.Text = Text1 & ""End IfCase 10 To 13x = Val(Text1)If Index = 10 Then op = "+"If Index = 11 Then op = "-"If Index = 12 Then op = "*"If Index = 13 Then op = "/"Text1 = ""Case 15y = Val(Text1)'Text1 = ""If op = "+" Then Text1 = x + yIf op = "-" Then Text1 = x - yIf op = "*" Then Text1 = x * yIf op = "/" ThenIf y <> 0 ThenText1 = x / yElseText1 = "除数不能为零"End IfEnd IfCase 16If Len(Text1) <> 0 ThenText1 = Left(Text1, Len(Text1) - 1)End IfCase 17Text1 = ""x = 0: y = 0Case 18x = Val(Text1)If x < 0 ThenText1 = "负数的平方根无意义"ElseText1 = Sqr(x)End IfCase 19x = Val(Text1): Text1 = x * xCase 20x = Val(Text1): Text1 = Sin(x * 3.1415926 / 180)Case 21x = Val(Text1): Text1 = Cos(x * 3.1415926 / 180)Case 22x = Val(Text1): Text1 = Tan(x * 3.1415926 / 180)Case 23x = Val(Text1): Text1 = Atn(x) * 180 / 3.1415926Case 24x = Val(Text1)If x <= 0 ThenText1 = "负数或零的对数无意义"ElseText1 = Log(x)End IfEnd SelectEnd SubPrivate Sub Form_Load()Text1 = ""For i = 0 To 24Command1(i).BackColor = &HC0FFFFNext iEnd Sub实验体会：围绕实验目的来写写，通过本次实验你学会了什么，实验过程中遇到什么问题，怎么解决的，你有什么样的体会。