郑州大学VB实验报告简答
大一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实训报告
vb实训报告1. 引言本文旨在对VB实训进行全面的报告和总结。
报告内容包括实训的目的、实训的步骤和方法、实训过程中遇到的问题及解决方法、实训结果的分析与评价等。
2. 实训目的本次VB实训的目的是通过编写一个实用的程序，来提高学生们的VB编程能力和实践操作能力。
通过实际操作，学生们能够更好地了解VB的工作原理和应用场景，为他们将来从事相关工作奠定基础。
3. 实训步骤和方法（1）熟悉VB开发环境：学生首先进行VB开发环境的安装和配置，并熟悉VB开发工具的功能和操作方法。
（2）了解VB基础知识：学生通过上课和自学的方式，对VB 的基础语法、界面设计、事件处理等进行学习和掌握。
（3）实践操作：在掌握了VB的基础知识后，学生们开始进行实践操作，根据老师布置的任务，编写相应的VB程序。
（4）调试和优化：学生们在编写程序的过程中，遇到问题需要进行调试，并对程序进行优化，以提高程序的运行效率和稳定性。
4. 实训过程中遇到的问题及解决方法在实践操作过程中，学生们遇到了一些问题，在这里列举并给出了解决方法。
（1）界面设计问题：学生们在进行界面设计时，遇到了一些难题。
他们通过查找相关资料和请教老师同学，最终解决了这些问题，并得到了满意的界面设计结果。
（2）程序逻辑问题：学生们在编写程序的过程中，遇到了一些逻辑上的困惑。
他们通过仔细思考和与老师的交流，逐步找到了解决方法，并成功实现了程序的功能。
5. 实训结果的分析与评价经过一段时间的实训，学生们完成了任务，并提交了他们编写的VB程序。
这些程序在功能上较好地实现了要求，并具备较高的用户体验。
然而，我们也发现了一些问题。
首先，在实训过程中，学生们对VB的理解和熟练程度存在差异，部分学生可能由于基础薄弱，对实训内容的掌握有一定困难。
其次，在实训过程中，有些学生对问题的解决方法存在依赖性，对于独立思考和解决问题的能力还有一定的提升空间。
综上所述，通过本次VB实训，学生们获得了较好的实践经验和编程能力的提升。
郑州大学VB实验报告书 参考 答案
End Sub Private Sub Command3_Click() Picture1.Visible = False End Sub 2-3 Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub 2-4 Private Sub Command1_Click() Text2 = Text1 End Sub Private Suห้องสมุดไป่ตู้ Command2_Click() Text1 = "" Text2 = "" End Sub Private Sub Text1_Change() Command1.Visible = True Command2.Visible = True End Sub 2-5 Private Sub Command1_Click() Timer1.Interval = 500 End Sub Private Sub Command2_Click()
End If Print x, y, z End Sub 4-4 Private Sub Command1_Click() Dim nettime As Integer, money As Single nettime = Val(InputBox("每月上网时数：", "上网费用")) If nettime = -1 Then money = 0 ElseIf nettime < 10 Then money = 25 ElseIf nettime < 50 Then money = nettime * 2 ElseIf nettime < 100 Then money = nettime * 1.5 ElseIf nettime < 200 Then money = nettime Else money = 200 End If If money <> 0 Then MsgBox "该月上网费用为" & money &"元" 实验五 一 BCBAC 二 （1）for x=1 to 10 s*(1-1/x)
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实验报告（答案）Vb程序设计实验项目试验报告(1)院(系): 课程名称: 日期: 班级学号实验室专业姓名计算机号实验成绩评定名称 VB环境的熟悉与应用所用教师签名软件 Visual Basic 6.0实验目 1(熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。
的 2(初步了解几个常用控件的使用方法。
或要求1、在vb中____C_____被称为对象。
实A.窗体B.控件C.窗体和控件D.窗体、控件和属性验2、设在名称为form1的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是( B ) 步A.窗体的Click事件过程的过程名是form1_Click 骤B.命令按钮的Click事件过程名是C1_Click、 C.命令按钮的Click事件过程的过程名是Command1_Click 心3、编译执行程序的快捷键是_Ctrl+F5_。
得 4、启动visual basic 后标题栏中显示的信息是(C)。
A.工程-Mmicrosoft Visual Basic[设计] 体B.工程-Mmicrosoft Visual Basic[中断]会C.工程1-Mmicrosoft Visual Basic[设计]第 1 页共 53 页1/53页Vb程序设计实验项目D.工程1-Mmicrosoft Visual Basic[中断]5、Visual Basic集成开发环境主要窗口包括__窗体设计窗口;代码设计窗口;_属性窗口;_工程资源管理器窗口_;_工具箱窗口。
6、属性显示方式分两种，即按__字母顺序和按_分类__顺序，分别通过单击相应的按钮来实现。
7、编一程序，程序运行的初始界面如图1-1所示，当用户在文本框中输入姓名，例如输入“张三”，单击“你输入的姓名是:”按钮(command1)，则程序的运行情况如图1-2所示，如果单击“结束”按钮(command2)，即结束程序运行。
注意:保存时必须存放在自己创建的文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。
VB实验报告参考答案(本部)
实验报告参考答案（本部）实验一VB集成开发环境实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签。
②属性设置：标签的width设为2000，height设为300。
有边框是BordStyle设为1，背景透明是BackStyle设为0。
显示“等级考试”是将caption设为“等级考试”，居中是将Alignment 设为2。
③代码设计：无五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）无六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验二简单的VB程序设计实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签、一个命令按钮。
②属性设置：固定边框是BordStyle设为1，背景透明是BackStyle设为0。
③代码设计：分别在3个事件过程form_load()，form_click(),Cmd1_click()中编程。
其中图片从网上下载，与工程文件、窗体文件保存在同一目录，代码中使用相对路径app.path。
五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）Private Sub Form_Load()Form1.Picture = LoadPicture(App.Path + "\tu.jpg")Form1.Caption = "我的变化"End SubPrivate Sub Form_Click()LBL1.Top = 0LBL1.Left = 0End SubPrivate Sub Cmd1_Click()Cmd1.Height = 1500Cmd1.Width = 2000End Sub六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验三数据类型及其运算四、设计流程①界面设计：在窗体上画1个文本框、1个标签、6个命令按钮。
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郑州大学考试题库及答案
vb郑州大学考试题库及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 以下哪个函数用于计算两个数的和？A. SqrB. RoundC. SumD. Abs答案：C3. Visual Basic中，哪个关键字用于声明变量？A. DimB. SetC. ConstD. Option答案：A4. 在Visual Basic中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B5. 下列哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. KeyPress答案：A6. 在Visual Basic中，哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案：A7. Visual Basic中，哪个函数用于获取当前系统时间？A. NowB. DateC. TimeD. Timer答案：A8. 在Visual Basic中，哪个控件允许用户从列表中选择一个或多个项目？A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案：A9. Visual Basic中，哪个属性用于设置窗体的标题？A. CaptionB. TextC. NameD. Title答案：A10. 下列哪个选项是Visual Basic中的循环结构？A. For EachB. IfC. Select CaseD. All of the above答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。
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实训报告一、引言VB，即Visual Basic，是一种基于事件驱动的编程语言，由微软公司开发。
通过VB，程序员可以使用图形用户界面（GUI）来创建应用程序。
本报告将详细介绍我在VB实训课程中所学到的知识和经验，以及我的实训项目的设计和实现过程。
二、实训项目概述我的实训项目是一个学生管理系统，旨在帮助学校管理学生的信息和成绩。
通过该系统，学校可以方便地浏览、添加、修改和删除学生的个人信息和成绩记录。
三、系统设计与实现1. 界面设计我采用了经典的菜单栏和工具栏布局，以及直观明了的界面设计。
通过菜单栏和工具栏可以实现对学生信息和成绩的增删改查等基本操作。
2. 数据库设计为了存储学生的信息和成绩，我设计了一个学生数据库。
数据库包括两个表，一个是学生信息表，包含学生ID、姓名、年龄等字段；另一个是成绩表，包含学生ID、科目、分数等字段。
3. 功能实现根据实训要求，我实现了以下功能：- 显示学生列表：从数据库中读取学生信息，并在界面上以表格的形式展示出来，方便用户查看。
- 添加学生：用户可以通过输入学生信息，并点击添加按钮将学生信息保存到数据库中。
- 修改学生信息：用户可以选择某个学生，并对其信息进行修改。
- 删除学生：用户可以选择某个学生，点击删除按钮将其从数据库中删除。
- 成绩输入与查询：用户可以输入学生的科目和分数，并保存到成绩表中。
用户也可以查询某个学生的成绩信息。
四、实训总结通过本次VB实训，我深入了解了VB的基本原理和应用技巧。
我学会了如何设计和实现一个功能完善的学生管理系统，并对数据库操作、界面设计和逻辑编程等方面有了更深入的了解。
在实训过程中，我遇到了一些挑战和困难。
例如，数据库操作时需要注意事务的处理，以保证数据的完整性；界面设计需要符合用户的思维习惯，以提高用户体验。
通过解决这些问题，我不仅提高了自己的技能水平，也对项目开发的重要性有了更深入的认识。
在未来的学习和工作中，我将继续学习和掌握VB以及其他相关技术，不断提高自己的编程能力和项目开发能力。
vb实训报告
vb实训报告这里是一篇VB实训报告，可以按照报告的格式来书写：【简介】本报告旨在总结我所参与的VB实训项目，并分享我在项目中的学习和实践经验。
报告主要包括项目背景、需求分析、系统设计、开发过程、实施与测试、总结与反思等部分。
【项目背景】在这一部分，我将介绍项目的背景和目的，包括项目所在的组织/公司、项目的目标和意义，以及项目实施的时间和地点等。
【需求分析】在这一部分，我将详细描述项目的需求分析过程。
首先是通过与相关部门/人员的沟通和访谈，了解用户的需求和期望。
然后，我们对用户提出的需求进行系统化整理，分解成具体的功能模块，并进行优先级排序和分析。
【系统设计】在这一部分，我将介绍该项目的系统设计方案。
包括整体架构设计、数据库设计、界面设计等内容。
我会详细描述每个模块的功能和设计思路，并给出相关的流程图、数据库表结构等设计图示。
【开发过程】在这一部分，我将详细描述项目的开发过程。
我们采用了敏捷开发的方法，根据需求分析阶段得到的功能模块，逐个进行开发和测试。
我会描述每个阶段的具体工作内容，包括编码实现、单元测试、集成测试等。
【实施与测试】在这一部分，我将阐述项目的实施和测试过程。
我们在项目中设有专门的实施团队和测试团队，用于将开发完成的模块部署到实际环境中，进行系统的集成和测试。
我会详细描述每个测试阶段的内容和结果，并列出可能发现的问题和解决方案。
【总结与反思】在这一部分，我将对整个项目进行总结和反思。
我会评估项目的成果与目标之间的契合度，总结项目中的亮点和不足之处，并提出改进和优化的建议。
同时，我也会谈谈我个人在项目中的收获和成长。
【结语】通过这次VB实训项目，我对软件开发过程有了更深入的了解，也提升了自己的编码能力和团队合作能力。
感谢这次实训机会，希望将来能够继续在实际项目中应用所学知识，不断提高自己的技术水平。
郑大VB实验报告册
实验一VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3 '窗口缺省 Begin mandButton Command1 Caption = "Command1" Height = 375Left = 2640TabIndex = 0Top = 2400Width = 1575EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click()Print Sqr(8), 8 ^ (1 / 3)End SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3 '窗口缺省 Begin mandButton Command1 Caption = "Command1" Height = 495Left = 3720TabIndex = 0Top = 2640Width = 855EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim i%For i = 100 To 110Print i, i ^ (1 / 2)NextEnd SubVERSION 5.00Begin VB.Form Form1AutoRedraw = -1 'TrueCaption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680BeginProperty FontName = "楷体_GB2312" Size = 21.75Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyForeColor = &H000000FF&LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3 '窗口缺省EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Form_Load()Print: PrintPrint " 郑州大学在前进！"End SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3780ClientLeft = 60ClientTop = 345ClientWidth = 6285LinkTopic = "Form1"ScaleHeight = 3780ScaleWidth = 6285StartUpPosition = 3 '窗口缺省Begin bel Label1Caption = "蓝天、白云、绿水、青山" BeginProperty FontName = "宋体"Size = 21.75Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyForeColor = &H00FF0000&Height = 975Left = 600TabIndex = 0Top = 1080Width = 4935EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False实验2VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 3615BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 700Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndPropertyLinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 3615StartUpPosition = 3 '窗口缺省 Begin mandButton Command2 Caption = "商"Height = 375Left = 1920TabIndex = 4Top = 1680Width = 975EndBegin mandButton Command1 Caption = "乘积"Height = 375Left = 600TabIndex = 3Top = 1680Width = 975EndBegin VB.TextBox Text2Height = 375Left = 1920TabIndex = 2Top = 840Width = 1095EndBegin VB.TextBox Text1Height = 375Left = 480TabIndex = 1Top = 840Width = 1095EndBegin bel Label3BorderStyle = 1 'Fixed Single Caption = "Label3"Height = 375Left = 2040TabIndex = 6Top = 2400Width = 975EndBegin bel Label2Caption = "计算结果为：" Height = 375Left = 480TabIndex = 5Top = 2400Width = 1575EndBegin bel Label1AutoSize = -1 'TrueCaption = "请输入两个数：" Height = 240Left = 960TabIndex = 0Top = 360Width = 1785EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 5490BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 700Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndPropertyLinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 5490StartUpPosition = 3 '窗口缺省 Begin mandButton Command3 Caption = "隐藏"Height = 375Left = 4080TabIndex = 3Top = 2040Width = 975EndBegin mandButton Command2 Caption = "图片2"Height = 375Left = 4080TabIndex = 2Top = 1320Width = 975EndBegin mandButton Command1 Caption = "图片1"Height = 375Left = 4080TabIndex = 1Top = 600Width = 975EndBegin VB.PictureBox Picture1AutoSize = -1 'True BeginProperty FontName = "宋体"Size = 9Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 1935Left = 600ScaleHeight = 1875ScaleWidth = 2715TabIndex = 0Top = 480Width = 2775EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Picture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = FalseEnd SubVERSION 5.00Begin VB.Form Form1Caption = "收款机"ClientHeight = 2730ClientLeft = 60ClientTop = 450ClientWidth = 4680BeginProperty FontName = "宋体"Size = 12Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyLinkTopic = "Form1"ScaleHeight = 2730ScaleWidth = 4680StartUpPosition = 3 '窗口缺省Begin mandButton Command1Caption = "总价为"Height = 375Left = 600TabIndex = 4Top = 1920Width = 1695EndBegin VB.TextBox Text2Height = 495Left = 3000TabIndex = 3Top = 960Width = 1335EndBegin VB.TextBox Text1Height = 495Left = 3000TabIndex = 2Top = 240Width = 1335EndBegin bel Label3Alignment = 2 'CenterBorderStyle = 1 'Fixed SingleHeight = 495Left = 2760TabIndex = 5Top = 1920Width = 1455EndBegin bel Label2Alignment = 2 'CenterCaption = "货物的单价（元）："Left = 360TabIndex = 1Top = 1080Width = 2295EndBegin bel Label1Alignment = 2 'CenterCaption = "货物的数量（个）：" Height = 375Left = 360TabIndex = 0Top = 360Width = 2295EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Label3 = Text1 * Text2End SubBegin VB.Form Form1Caption = "Form1"ClientHeight = 1890ClientLeft = 60ClientTop = 450ClientWidth = 4365LinkTopic = "Form1"ScaleHeight = 1890ScaleWidth = 4365StartUpPosition = 3 '窗口缺省Begin mandButton Command2Caption = "清除"BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 375Left = 2400TabIndex = 3Top = 1200Width = 975EndBegin mandButton Command1Caption = "复制"BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 700Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndPropertyHeight = 375Left = 720TabIndex = 2Top = 1200Width = 975EndBegin VB.TextBox Text2Height = 495Left = 2160TabIndex = 1Top = 360Width = 1695EndBegin VB.TextBox Text1Height = 495Left = 480TabIndex = 0Top = 360Width = 1455EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click()Text2 = Text1End SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""End SubPrivate Sub Form_Load()Command1.Visible = FalseCommand2.Visible = FalseEnd SubPrivate Sub Text1_Change() Command1.Visible = TrueCommand2.Visible = TrueEnd SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3300ClientLeft = 60ClientTop = 450ClientWidth = 4695BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 700Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndPropertyLinkTopic = "Form1"ScaleHeight = 3300ScaleWidth = 4695StartUpPosition = 3 '窗口缺省 Begin VB.Timer Timer1Enabled = 0 'False Interval = 500Left = 3120Top = 1320EndBegin mandButton Command2Caption = "停止"Height = 495Left = 2640TabIndex = 1Top = 2400Width = 975EndBegin mandButton Command1Caption = "移动"Height = 495Left = 840TabIndex = 0Top = 2400Width = 1095EndBegin VB.Image Image1Height = 1800Left = 840Top = 360Width = 1500EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Form_Load()Image1.Picture = LoadPicture("d:\tu3.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height))End Sub实验3VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3 '窗口缺省 Begin mandButton Command1 Caption = "Command1" Height = 495Left = 3720TabIndex = 0Top = 2640Width = 855EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click()Print 2 * 3 ^ 2 * 8 / 4 + 3 ^ 2Print Sqr(Sqr(64))Print #2/27/2004# - 10Print Int(-3.1415926)Print Int(Abs(99 - 100) / 2)Print Fix(-3.1415926)Print Int(-3.5), Int(3.5)Print Fix(3.5), Fix(3.5)Print Sgn(7 * 3 + 2)Print LCase("Hello")Print Val("16Year")Print Str(-459.65)Print Len("Hello 程序设计 ok")Print "MNT" & 123 & "ABC"Print 123 + Mid("123456", 3, 2)Print 123 & Mid("123456", 3, 2)Print DateAdd("m", 1, #2/27/2004#)End SubCaption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 6825BeginProperty FontName = "宋体"Size = 15Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyLinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 6825StartUpPosition = 3 '窗口缺省Begin VB.TextBox Text1Height = 495Left = 3120TabIndex = 2Text = "Text1"Top = 240Width = 1695EndBegin mandButton Command1Caption = "计算平方立方（根）" BeginProperty FontName = "宋体"Size = 14.25Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 495Left = 1680TabIndex = 0Top = 960EndBegin bel Label2Caption = "Label2"Height = 735Left = 480TabIndex = 3Top = 1920Width = 5895EndBegin bel Label1Caption = "输入一个数"Height = 495Left = 1320TabIndex = 1Top = 240Width = 1935EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim n%n = Abs(Val(Text1))Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n ^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000")End SubBegin VB.Form Form1Caption = "Form1"ClientHeight = 3330ClientLeft = 60ClientTop = 345ClientWidth = 5985LinkTopic = "Form1"ScaleHeight = 3330ScaleWidth = 5985StartUpPosition = 3 '窗口缺省Begin mandButton Command2Caption = "方法二"Left = 3840TabIndex = 1Top = 1800Width = 1215EndBegin mandButton Command1Caption = "方法一"Height = 495Left = 3840TabIndex = 0Top = 600Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print "反序数："; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = Trim(Str(x))Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1) End SubBegin VB.Form Form1Caption = "Form1"ClientHeight = 4275ClientLeft = 60ClientTop = 345ClientWidth = 6975LinkTopic = "Form1"ScaleHeight = 4275StartUpPosition = 3 '窗口缺省Begin VB.TextBox Text2Height = 615Left = 4080TabIndex = 5Top = 960Width = 1215EndBegin mandButton Command1Caption = "开始产生"Height = 495Left = 2640TabIndex = 3Top = 1920Width = 1215EndBegin VB.TextBox Text1Height = 615Left = 1200TabIndex = 0Top = 960Width = 1215EndBegin bel Label3Caption = "Label3"Height = 375Left = 840TabIndex = 4Top = 2880Width = 4695EndBegin bel Label2Alignment = 2 'CenterCaption = "到"BeginProperty FontName = "隶书"Size = 15Charset = 134Weight = 700Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndPropertyLeft = 2760TabIndex = 2Top = 1080Width = 975EndBegin bel Label1Caption = "输入随机数范围："BeginProperty FontName = "隶书"Size = 14.25Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 495Left = 480TabIndex = 1Top = 360Width = 2655EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m) + m)y = Int(Rnd * (n - m) + m)z = Int(Rnd * (n - m) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3270ClientLeft = 60ClientTop = 450ClientWidth = 6000LinkTopic = "Form1"ScaleHeight = 3270ScaleWidth = 6000StartUpPosition = 3 '窗口缺省Begin mandButton Command3Caption = "星期几"Height = 495Left = 360TabIndex = 2Top = 2280Width = 1455EndBegin mandButton Command2Caption = "时间"Height = 495Left = 360TabIndex = 1Top = 1440Width = 1455EndBegin mandButton Command1Caption = "日期"Height = 495Left = 360TabIndex = 0Top = 600Width = 1455EndBegin bel Label3BorderStyle = 1 'Fixed Single Caption = "Label3"Height = 495Left = 2520TabIndex = 5Top = 2280Width = 2535EndBegin bel Label2BorderStyle = 1 'Fixed Single Caption = "Label2"Height = 495Left = 2520TabIndex = 4Top = 1440Width = 2535EndBegin bel Label1BorderStyle = 1 'Fixed Single Caption = "Label1"Height = 495Left = 2520TabIndex = 3Top = 600Width = 2535EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date)) End Sub实验4VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 4305ClientLeft = 60ClientTop = 450ClientWidth = 6345BeginProperty FontName = "宋体"Size = 14.25Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyLinkTopic = "Form1"ScaleHeight = 4305ScaleWidth = 6345StartUpPosition = 3 '窗口缺省Begin mandButton Command1Caption = "转换"Height = 495Left = 2160TabIndex = 2Top = 1800Width = 1455EndBegin VB.TextBox Text1Height = 495Left = 3480TabIndex = 1Top = 720Width = 1455EndBegin bel Label2Height = 975Left = 360TabIndex = 3Top = 2760Width = 5775EndBegin bel Label1Caption = "请输入弧度数值：" Height = 495Left = 600TabIndex = 0Top = 720Width = 2415EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3255ClientLeft = 60ClientTop = 450ClientWidth = 4980LinkTopic = "Form1"ScaleHeight = 3255ScaleWidth = 4980StartUpPosition = 3 '窗口缺省Begin mandButton Command1Caption = "判断"Height = 495Left = 1560TabIndex = 2Top = 1440Width = 1335EndBegin VB.TextBox Text1Height = 615Left = 960TabIndex = 0Top = 600Width = 2655EndBegin bel Label2Height = 735Left = 960TabIndex = 3Top = 2160Width = 2775EndBegin bel Label1Caption = "输入一个年份："Height = 375Left = 1320TabIndex = 1Top = 240Width = 1935EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 Then Label2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 4680StartUpPosition = 3 '窗口缺省Begin mandButton Command1Caption = "3个数排序"Height = 495Left = 1800TabIndex = 0Top = 1320Width = 1215EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数")z = InputBox("输入第三个数")If x > y Then t = x: x = y: y = t If y > z Then t = y: y = z: z = t If x > y Then t = x: x = y: y = t Print x, y, zEnd SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 5430ClientLeft = 60ClientTop = 450ClientWidth = 6975LinkTopic = "Form1"ScaleHeight = 5430ScaleWidth = 6975StartUpPosition = 3 '窗口缺省 Begin mandButton Command2 Caption = "结束"Height = 495Left = 3840TabIndex = 1Top = 2040Width = 1215EndBegin mandButton Command1 Caption = "计费"Height = 495Left = 1080TabIndex = 0Top = 2040Width = 1215EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()x = Val(InputBox("请输入上网时间:"))If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元"End IfEnd SubPrivate Sub Command2_Click()EndEnd SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 4050ClientLeft = 60ClientTop = 450ClientWidth = 6285LinkTopic = "Form1"ScaleHeight = 4050ScaleWidth = 6285StartUpPosition = 3 '窗口缺省Begin mandButton Command1Caption = "弧度转换为度分秒" Height = 615Left = 2160TabIndex = 0Top = 1560EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()x = InputBox("请输入弧度数值", "弧度转换", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒" End SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 5430ClientLeft = 60ClientTop = 450ClientWidth = 6975LinkTopic = "Form1"ScaleHeight = 5430ScaleWidth = 6975StartUpPosition = 3 '窗口缺省Begin mandButton Command2Caption = "结束"Height = 495Left = 3840TabIndex = 1Top = 2040Width = 1215EndBegin mandButton Command1Caption = "计费"Height = 495Left = 1080TabIndex = 0Top = 2040EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dox = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End Selectzongfei = zongfei & Space(3) & feiMsgBox zongfei, , "上网费用为"ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd Sub实验5VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 4680StartUpPosition = 3 '窗口缺省 Begin mandButton Command1 Caption = "Command1" Height = 495Left = 1800TabIndex = 0Top = 1320Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click()For n = 1 To 100s = s + nNext nPrint sEnd SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 4680StartUpPosition = 3 '窗口缺省 Begin mandButton Command1 Caption = "Command1" Height = 495Left = 1920TabIndex = 0Top = 1680Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()For i = 0 To 20For j = 0 To 33If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - jNextNextEnd SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 4680StartUpPosition = 3 '窗口缺省Begin mandButton Command1Caption = "Command1"Height = 495Left = 1800TabIndex = 0Top = 1320Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd SubVERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 4680StartUpPosition = 3 '窗口缺省 Begin mandButton Command2 Caption = "方法2"Height = 495Left = 2880TabIndex = 1Top = 1320Width = 1215EndBegin mandButton Command1 Caption = "方法1"Height = 495Left = 2880TabIndex = 0Top = 480Width = 1215EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim x%, y%, z%, i%, j%For x = 0 To 9For y = 0 To 9For z = 0 To 9i = x * 100 + x * 10 + zj = y * 100 + z * 10 + zIf i + j = 532 Then Print x; y; z。
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（Visual Basic）是一种广泛用于开发Windows应用程序的编程语言，具有易学易用的特点。
通过对VB的实践和研究，我收获了许多宝贵的经验和知识，同时也提高了自己的编程技能。
项目介绍首先，让我简要介绍一下我的实训项目。
我编写了一个简单的学生信息管理系统，该系统可以实现学生信息的录入、查询和删除等功能。
通过这个项目，我可以更好地理解VB的基本语法、数据类型和控件的应用。
VB基础在开始项目之前，我花了一些时间学习VB的基础知识。
VB是一种事件驱动的编程语言，它通过响应用户的操作来触发不同的事件。
在学习过程中，我深入了解了VB的事件模型和对象模型，学会了如何创建窗体、按钮和文本框等控件，并为它们绑定相应的事件。
数据处理开发学生信息管理系统需要对数据进行处理，包括数据的录入、存储、查询和删除等操作。
在VB中，可以使用来连接数据库并进行数据库操作。
我学会了如何使用VB连接Microsoft Access数据库，并通过编写相应的SQL语句来实现数据的增删改查。
用户界面设计一个好的软件不仅要有强大的功能，还需要拥有用户友好的界面。
在实训项目中，我注重了学生信息管理系统的用户界面设计。
通过使用VB内置的控件和布局工具，我设计了一个简洁明了、易于操作的界面。
同时，我还使用了一些UI设计原则，如对比度、一致性和容错性等，以确保用户能够轻松地操作系统。
错误处理和调试在编写VB代码时，难免会出现各种错误。
为了确保我的系统能够正常运行，我注重了错误处理和调试。
在项目开发过程中，我使用了VB提供的调试工具，如断点调试和错误日志等，帮助我找出潜在的错误并进行修复。
同时，我还学习了如何使用异常处理来处理程序中可能出现的异常情况，提高了系统的稳定性和可靠性。
项目成果经过几个星期的学习和实践，我成功地完成了学生信息管理系统的开发。
大一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语言和开发环境的了解，对于如何设计用户界面和编写代码也有了一定的经验。
实验过程中，我遇到了不少问题，但通过查阅资料和请教同学，我一一解决了这些问题。
实验不仅让我学到了知识，还培养了我的动手能力和解决问题的能力。
我会继续努力学习，提升自己的编程水平。
【VB实验报告】第一次实验报告
软件技术实验报告
班级01021101 学号2011300341 姓名闫昊
第一次实验：
实验内容：
本次软件技术试验编写了三个程序，分别练习了三个技能：
1、通过建立简单的应用程序，熟悉、了解VB的基本操作；
2、通过采用shell函数，了解典型控件的应用和基本函数的调用规则；
3、通过编写简单的加法器，了解标签和文本框控件的使用方法。
创新亮点：（如果没有可以空缺）
采用了众多颜色，一概源程序灰色的基调，活泼生动而又不张扬。
完成情况和存在问题：
三个程序全部完成，但对于mousedown的使用不是很熟悉。
收获与体会：
经过一晚上的上机实验，平时在课堂上很多不会的地方得到了很清楚的解决。
老师也很有耐心地教我解决一些意外发生的问题。
我懂得了实践出真知的道理。
我决定在今后的课堂和实验中，将理论与实践有机的结合起来，学好Visual Basic。
备注：。
大一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、随机产生三个整数，按从小到大的顺序显示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
过程——指附在该对象上的程序代码，是事件的处理程序。
6、答：
参考课本12页到17页。
实验二问答题：
1、答
通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。
2、答
标签label是用来显示信息的，不具有输入功能。 属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。
文本框用来输入、输出数据，编辑文本。 属性有Text、 Maxlength、 MultiLine、 ScrollBars、 Locked 、 PassWord 。
实验一问答题：
1、答：
常见的有visual Basic、C++、Java、SQL。
用途特点：（参考课本4-5页）
2、答：
代码是一行或几行命令。
程序是针对某个任务编写的有序代码的集合。
软件是程序和文档的集合。
它们的关系是：代码 < 程序 < 软件
3、答ห้องสมุดไป่ตู้
面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。
3、答
结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。
4、答
要保存2次，分别是工程文件.vbp和窗体文件.frm。
4、答：
参考课本第9页
5、答：
类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。
对象—— 是类的一个实例，继承了类的属性、方法。
控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。
属性——是对象的性质，用来描述和反应对象特征的参数。