大一《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、随机产生三个整数，按从小到大的顺序显示。

《面向对象程序设计》大作业题目：记事本的设计及实现姓名：学号：专业：学院：指导教师：1 课程设计题目和要求 (3)2 功能分析 (3)3 系统设计 (3)3.1主流程图 (3)3.2 “文件”菜单操作流程图 (4)3.3 “编辑”菜单操作流程图 (5)3.4 “格式”菜单操作流程图 (6)3.5“帮助”菜单操作流程图 (7)4. 界面设计 (8)4.1 系统主界面设计 (8)4.2“文件”菜单的菜单项 (8)4.3 打开文件及另存文件时的界面 (9)4.4“编辑”菜单的菜单项 (9)4.5“格式”菜单的菜单项 (10)4.6“帮助”菜单的菜单项 (10)4.7 帮助界面设计 (11)4.8 “查找”功能界面设计 (12)5 总结 (12)6. 附录（源程序清单） (14)6.1全局变量 (14)6.2主程序加载 (14)6.3新建记事本文件 (14)6.4打开已有的记事本文件 (14)6.5 保存记事本文件 (15)6.6另存为所打开的记事本文件 (15)6.7打印所打开的记事本文件 (16)6.8退出主程序 (16)6.9 撤销命令 (16)6.10 剪切命令 (16)6.11 复制命令 (17)6.12 黏贴命令 (17)6.13 “删除”菜单源程序 (17)6.14“查找”菜单源程序 (17)6.15“查找下一个”菜单源程序 (17)6.16“全选”菜单源程序 (18)6.17插入时间/日期源程序 (18)6.18 统计字数源程序 (18)6.19 “自动换行”菜单源程序 (19)6.20 字体的选择 (19)6.21 “帮助”菜单栏源程序 (19)6.22 关于此记事本的信息 (19)1 课程设计题目和要求题目：记事本的设计及实现基本设计要求：(1)功能齐全；(2)保证文件安全，操作简便；(3)操作方便、简单，界面友好；(4)易于维护和补充；(5)对系统的运行效率要高，绝对不能出错，对系统响应速度的要求不高；2 功能分析本程序要构建的记事本程序参照了Windows操作系统的记事本工具，其功能有以下几个方面：(1) 菜单中有“文件”、“编辑”、“格式”、“帮助”四个主菜单；(2) “文件”有“新建”、“打开”、“保存”、“另存为”、“打印”及“退出”分别用于新建文件，打开文件，保存文件，另存文件，打印文件及退出记事本。

大一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程序设计书习题和参考答案练习题习题⼀⼀、判断题1．Visual Basic是以结构化的Basic语⾔为基础、以事件驱动作为运⾏机制的可视化程序设计语⾔。

2．⾯向对象的程序设计是⼀种以对象为基础，由事件驱动对象的编程技术。

3．事件是由Visual Basic预先定义的对象能够识别的动作。

4．新建⼯程时系统会⾃动将窗体标题设置为Form1。

5．控件的属性值不可以在程序运⾏时动态地修改。

6．决定对象是否可见的属性为Visible属性，决定对象可⽤性的属性是Enabled属性。

7．保存Visual Basic⽂件时，若⼀个⼯程包含多个窗体或模块，则系统先保存⼯程⽂件，再分别保存窗体或模块⽂件。

8．单击“启动”菜单项将窗体装⼊内存时，⼀定触发窗体的Load事件。

9．“事件过程”是⽤来完成事件发⽣后所要执⾏的程序代码。

10．在打开某窗体时，初始化该窗体中的各控件，应选⽤Load事件。

⼆、选择题1．⼯程⽂件的扩展名为。

A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。

A、属性B、⽅法C、事件D、函数3．在设计模式双击窗体将显⽰的窗⼝是A、⼯程窗⼝B、⼯具箱C、代码窗⼝D、属性窗⼝4．VB中运⾏程序的快捷键是A、F2B、F5C、Alt+F35．改变控件在窗体中的上下位置应修改该控件的属性。

A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。

A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。

A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。

A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。

A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。

《面向对象程序设计》实习报告班级：学号：姓名：指导教师：实习时间：一．实习目的1. 学习怎样启动和退出VB，熟悉VB的工作环境2．掌握基本控件的重要属性、事件；3．熟练掌握在窗体上建立上述控件的操作方法；4．熟练掌握事件过程代码的编写；5．掌握建立基于图形界面的应用程序的过程6. 学习用属性窗口设置对象属性及用代码设置对象属性的方法。

7. 学习如何用对象（窗体和控件）建立界面及在代码编辑器中输入程序代码的基本操作。

8 .基本掌握用VB开发应用程序的一般步骤。

二．程序设计实验1 基本算法练习1．编写程序求“自己学号后3位到500”以内的所有素数及自然数对。

2．编写程序“计算最大公约数和最小公倍数”实验：计算3个数的最大公约数和最小公倍数，并以最小公倍数作为总金额，计算人民币各种票额的张数3.编写程序“歌德巴赫猜想及守形数”4．编写程序“百钱百鸡问题”实验：编写程序解决百钱买百鸡问题：公鸡5元/只，母鸡3元/只，小鸡一元买3只，用100元买100只鸡，问有哪些购买方案？实验2 常用统计练习1．成绩统计实验：利用文本框作为数据的输入和输出，产生数学、语文、英语、计算机等4门课程的成绩2．字符统计实验：随机产生200个“32到自己学号后3位”且小于128的随机数，将其转换成相应字符，形成一段统计字符。

统计字符中各个字母、各数字、空格、其它字符的个数。

实验3 常用排序方法1. 选择法排序实验：随机产生10个“学号后3位到500之间”的数，用选择法进行递增序。

2.冒泡法排序实验: 随机产生10个“50到学号后3位之间”的数，然后用冒泡法按递增的顺序进行排序。

3.二维数组排序实验：随机产生“10到学号后3位之间”的数，形成一个4*5 的二维数组，按升序排列。

4．从有序数组中删除一个元素实验要求：随机产生“1到学号后3位之间”的10个数，然后产生1-10间的随机数，确定删除元素，最后得出删除后的结果实验4 加密解密与数制转换1．数据加密与解密根据产生的后移位数，将输入的字符进行加密和解密。

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。

《面向对象程序设计》实习报告班级:电子商务0801学号:姓名:XX指导老师:刘光苏建恭龙延秀娟实习时间:2010.1.4-2010.1.10一·实习目的经过一周的实习,让我再次复习了SＱL和VＢ的相关知识，特别是亲自操作,更加熟悉和掌握其具体应用的方法，遇到难题时,经过查阅资料和同学间的探讨，也把许多以前不懂和不会的知识有所掌握。

在整个实习过程中，我清楚并掌握了SQL Ｓｅrｖｅr的集成环境、系统的菜单、工具栏、企业管理器、查询分析器的具体使用方法;同时在操作中掌握了创建数据库、数据表的方法；熟悉了数据表的操作命令以及T－SＱL命令的使用。

在编写代码是,我熟悉了基本命令的使用方法，以及常用函数、表达式的使用方法，掌握了程序控制结构的使用和程序设计,同时清楚了变量的作用范围和自定义函数的使用。

特别在于VB连接的过程中，我熟悉了VB与数据库管理系统的连接方法，较熟练地掌握了利用向导、数据环境、数据控件等工具开发应用程序的基本操作界面。

同时还熟悉了常用的算法程序、常用统计程序、数据排序方法、简单数据加密和解密程序、矩阵基本操作程序的编写、调试和使用。

在整个实习过程中，受益匪浅。

此次实习,达到了很好的效果。

通过实践让我把书本上的知识更好的应用于实际操作,可以独立的做一些简单小程序，也感觉到ＳQL和VB的实际操作的重要性，在以后的学习过程中，更应该把这种方法融合,这样才可以真正的掌握所学的知识。

二·程序设计实验一 Sｑl Server基本操作1·在Ｓtu1７7数据库中创建下列数据表：学生情况表1１7:课程情况表１17：选课情况表1１7:实验二 SQＬServer 与程序设计语言连接1·利用ＶB数据窗体向导生成学生情况表１17的录入界面如下: 单记录：网格:２·利用VB数据窗体向导生成课程情况表117的录入界面如下：单记录：网格:3·利用ＶB数据窗体向导生成选课情况表１17的录入界面如下：单记录：网格:4·利用VB数据窗体向导生成学生情况表１１7（主从)的录入界面如下：5·利用VB数据窗体向导生成课程情况表11７(主从)的录入界面如下:实验三基本算法练习1·求素数２.对任意偶数进行素数分解（哥德巴赫猜想)3·百钱百鸡问题实验四常用统计练习1·成绩统计2·字符统计实验五常用排序方法1·选择排序法2·冒泡排序法实验六综合设计１·程序封面设计２·系统集成界面设计三·实习总结经过一周的实习，我对SＱL和VB的综合运用能力有所提高，特别是经过实际操作，能够很好的将书本知识转化为实践能力。

电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：实验10 文件 实验时间2011-12-12班级： 姓名： 学号：实 验 目 的:1）、理解System.IO 对象模型。

2）、熟练掌握使用File 和Directory 对象操作文件的方法。

3）、熟练掌握DriveListBox 和StreamWriter 对象读写文本文件的方法。

4）、理解流的概念。

5）、掌握使用StreamReader 和StreamWriter 对象读写文本文件的方法。

实 验 环 境:Windows XPVisual 2003实 验 内 容 及 过 程:查找并替换文本文件的内容1、 新建一个“VisualBasic 项目”2、 界面设计由一个显示选择的文件的文本框（txtFileName ）、一个查找内容的文本框（txtFindText ）、一个替换内容的文本框（txtReplaceText ）、一个显示打开的文件内容的多行文本框（txtContent ）、三个标签（Label ）和两个按钮（btnSelFile 、btnReplace ）组成。

还要再添加一个OpenFileDialog 控件。

界面安排如图T10-1。

3、 编写程序代码引入System.IO 名称空间。

单击“选择文件”按钮的事件代码： 图T10-1 界面设计Private Sub btnSelFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnSelFile.ClickOpenFileDialog1.InitialDirectory = "c:\"OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.RestoreDirectory = TrueIf OpenFileDialog1.ShowDialog = DialogResult.OK ThentxtFileName.Text = OpenFileDialog1.FileNameEnd IfIf txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End If单击“替换”按钮的事件代码：Private Sub bntReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles bntReplace.ClickIf txtFindText.Text = "" ThenMsgBox("请输入查找字符串", MsgBoxStyle.Critical)End IfTryDim fs As New FileStream(txtFileName.Text, FileMode.Open)Dim sr As New StreamReader(fs)Dim tempstr As Stringtempstr = Path.GetTempFileNameDim sw As New StreamWriter(tempstr)Dim s As StringDos = sr.ReadLineIf s <> Nothing Thens = s.Replace(txtFindText.Text, txtReplaceText.Text)sw.WriteLine(s)ElseExit DoEnd IfLoop While s <> Nothingsw.Close()sr.Close()fs.Close()File.Delete(txtFileName.Text)File.Move(tempstr, txtFileName.Text)If txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End IfMsgBox("替换完成。

Visual Basic程序设计作业与实验报告学号：姓名：专业班级：授课教师：计算机基础教研室编2010年2月前言本册是《Visual Basic程序设计》的配套作业与上机练习，学生应根据课程进度及时认真完成并上交，期末考试后统一存档。

本册由信息与电气工程学院计算机基础教研室编写。

编者 2010年2月一Visual Basic的基础知识一、填空题1．Visual Basic的对象包含窗体和控件，对象有、和三个要素。

2．Visual Basic 源程序中的错误一般分为错误、错误和错误等三种。

3．Visual Basic 程序设计最大的特点是_____________________________________。

4．VB中，变量强制声明的语句是___________________。

5．产生从[A，B]的随机整数，可使用表达式_____________。

6．函数Mid（" Visual Basic程序设计"，8，5）的结果是_____。

7．表达式Abs（-20）+Sgn（5）& Right("abcdefg "，4)的结果是。

二、简答题1．简述取整函数Int（）和Fix（）的区别。

2．简述字符串运算符&和+之间的区别。

3．VB中运算符分为几类？各种运算的优先级别如何？三、上机实验：实验题目：输入圆的半径，计算并输出圆的周长和面积。

实验目的：练习使用各种内部函数和表达式、常量和变量的定义以及使用方法。

实验内容及实验步骤：1．在代码窗口的_____________中定义圆周率的值，使用的语句为________________。

2．在窗体上添加一个命令按钮，名称为CmdCal，在其Click事件中编写如下代码，计算出圆的周长和面积，并将结果分别显示在窗体上和立即窗口中：3．在窗体上添加一个命令按钮，名称为CmdExit，在其Click事件中编写如下代码，使单击该命令按钮时，程序退出运行。

实验一问答题：1、答：常见的有visual Basic、C++、Java、SQL。

用途特点：（参考课本4-5页）2、答：代码是一行或几行命令。

程序是针对某个任务编写的有序代码的集合。

软件是程序和文档的集合。

它们的关系是：代码 < 程序 < 软件3、答：面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。

它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。

4、答：参考课本第9页5、答：类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。

对象——是类的一个实例，继承了类的属性、方法。

控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。

属性——是对象的性质，用来描述和反应对象特征的参数。

事件——响应对象的动作，它发生在用户与程序交互时。

如单击控件、鼠标移动、键盘按下。

过程——指附在该对象上的程序代码，是事件的处理程序。

6、答：参考课本12页到17页。

实验二问答题：1、答通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。

2、答标签label是用来显示信息的，不具有输入功能。

属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。

文本框用来输入、输出数据，编辑文本。

属性有Text、 Maxlength、MultiLine、 ScrollBars、 Locked 、 PassWord 。

3、答结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。

4、答要保存2次，分别是工程文件.vbp和窗体文件.frm。

实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D10.编程机制是C、设计方式是B11.A12.D13.D14.C15.A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11. 工程文件结构及各文件名12. 工程13. 设计程序代码14.双击窗体15.vb的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象1.Private Sub Command1_Click()Print Sqr(8), 8 ^ (1 / 3)End Sub2.Private Sub Command1_Click()For i = 100 To 110Print Sqr(i)Next iEnd Sub3.Private Sub Form_Load()Print " 郑州大学在前进！"End Sub4. Private Sub label_click()PrintLabel.caption=”蓝天白云绿水青山”End sub实验二：一、选择1.B2.C3.B4.C5.C6.C7.B8.B9.D10.A11.C12.C13.C14.B15.A16.C17.B18.D19.C20.C二、填空1. Form_Click()2. Interval、5003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码1.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)Private Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2.Private Sub Command1_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = False'也可以改为：Picture1.Picture = LoadPicture("") End Sub3.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2) End Sub4.Private Sub Command1_Click() Text2 = Text1End SubPrivate Sub Command2_Click() Text1 = ""Text2 = ""End SubPrivate Sub Form_Load() Command1.Visible = False Command2.Visible = FalseEnd SubPrivate Sub Text1_Change() Command1.Visible = True Command2.Visible = TrueEnd Sub5.Private 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实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B10.B 11.B二、判断题不合法的变量：3. 4. 5. 6. 8. 10. 11. 14.15. 16.三、1、abs(x+y)2. (3+x*y)^23. (-b+sqr(b^2-4*a*c))/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或x/3=x\3 or x/7=x\74. x>=10 and x<205. x>="A" and x<="Z"6. left(s,3) 或mid(s,1,3)操作题：2.Private 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")'上句的输出也可以用下面的print方式:' Print Format(n ^ 2, "#.000"); Spc(2); Format(Sqr(n), "#.000"); Spc(2); Format(n ^ 3, "#.000"); Spc(2); Format(n ^ (1 / 3), "#.000")End Sub3.Private 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 Sub4.Private 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 Sub5.Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date))End Sub实验四：一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A10.C二、填空1. 48.71E-01, -4.87122. 关系、逻辑、算术3. 900，100，mid(s,2,1)4.m、1,2,3 、print m & "月是第二季度"、end select三、程序结果1. X=4 y=132. 10操作题：1.方法一：Private 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 Sub方法二：Option 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 Sub2.Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 ThenLabel2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd Sub3.Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数")z = InputBox("输入第三个数")Print "输入的数是："; x; y; zIf x > y Then t = x: x = y: y = tIf y > z Then t = y: y = z: z = tIf x > y Then t = x: x = y: y = tPrint "排序结果是："; x; y; zEnd Sub4.方法一：Private 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.5fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元" End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub方法二：Private 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 >= 100End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为"ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd Sub实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t>1E-6(3) j t(4) 5 11 51.Private Sub Command1_Click()For n = 1 To 100s = s + nNext nPrint sEnd SubPrivate Sub Command2_Click()n = 1Do While n <= 100s = s + nn = n + 1LoopPrint sEnd Sub2.Private 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 - j Next jNext iEnd Sub3.Private 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 Sub4.'已知x,y,z分别是0~9中的一个数，求x,y,z的值，使得xxz+yzz=532. Private Sub Command1_Click()Dim x%, y%, z%, i%, j%For x = 0 To 9For y = 0 To 9For z = 0 To 9If (x * 100 + x * 10 + z) + (y * 100 + z * 10 + z) = 532 Then Print x, y, z NextNextNextEnd SubPrivate Sub Command2_Click()For x = 0 To 9For y = 0 To 9For z = 0 To 9If Val(x & x & z) + Val(y & z & z) = 532 Then Print x; y; z NextNextNextEnd Sub5.Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1LoopPrint x, nEnd Sub6.Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0))For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Command2_Click()n = Val(InputBox("输入计算到第几项:", , 0))p = 1For i = 1 To ns = s + p * ip = -pNextPrint n, sEnd Sub7.'s=(0+1)+(0+1+2)+(0+1+2+3)+(0+1+2+3+4)+……(0+1+2+3+4+……n) Private Sub Command1_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0))s = 0: t = 0For i = 1 To nt = t + is = s + tNext iPrint sEnd SubPrivate Sub Command2_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0For i = 1 To nt = 0For j = 1 To it = t + jNexts = s + tNextPrint sEnd Sub8.Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001 '也可以是Do Until 1 / (2 * n - 1)< 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub9.'5-9:输出所有的“水仙花数”.'所谓的“水仙花数”是指一个3位数，其各位数字的立方和等于该数本身。

实验报告课程名称_程序设计基础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输出转换后的摄氏温度。

Visual Basic 程序设计学习与实验指导答案上篇学习指导第1章Visual Basic 概述1.事件2.查看对象3.工程4.视图属性窗口5.窗体编辑器第2章面向对象程序设计初步1.控件2.事件3.类属性4.属性5.略第3章Visual Basic 语言基础1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+12.mod3.X=Int(X) And Y=Int(Y) And X*Y>04. 4.Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400=05.x=Int((99-10+1)*Rnd+10)6.0 “”7.空格8.6，845.309.（1）8（2）1（3）abcd（4）出错，类型不匹配（5）False（6）2008-6-29（7）I likeVB（8）4（9）4 4（10）3 4（11）10 -10（12）-1（13）aa（14）3（15）0（16）1（17）C（18）5（19）8（20）34.54（21）中国（22）上海（23）VISUAL BASIC（24）visual basic10.（1）x<-100 or x>100（2）a=Int(a) And b =Int(b) Or a<0 And b<0（3）x<=y or x>=z（4）a>0 And a<>Int(a)（5）a=0 xor b=0（6）Len(S)<10（7）UCase(S)=S（8）Left(S,1)=”a” And Right(S,1)=”a”（9）Instr(S,”@”)<>0（10）Trim(S)=S（11）Date=#8/8/2008#（12）Weekday(Date)=2第4章程序控制结构与算法基础一.简单填空1.Randomize2.N=Int((99-10+1)*Rnd+10)3.M=(Int((100-10+1)*Rnd+10))/104.Exit For5.Exit Do二．读程序写结果1.150 122.22 23 -13. 5 3 04.20 40 60三．程序填空1.Len(s)Mid(s,i,1)c>=”A” And c<=”Z”c>=”a” And c<=”z”c>=”0” And c<=”9”n3=n3+12.01 n-1n Mod i=0sum+isum=n3.1000CStr(n)CStr(n*n)Right(s2,Len(s1))=s14.100 2002 N-1Exit Forcount+1count Mod 5=0 Print5.sum=1a*x^2/((2*n-1)*(2*n))sum+aAbs(a)<=0.0000001第5章数组的应用1.120 362.10 31 73.26 14 26三．程序填空1.A(i,j);Picture1.PrintA(i.1)1A(i,j)j“第” & i & “行最大数是” & Max Data & “，第” & Maxj & “列”2.Text1.Text & A(i);kpreserve B(k)B(k)=A(i)3.Sqr(n - m) = Int(Sqr(n - m))ReDim Preserve B(k)nA(m) & "和" & B(m)4.Int((100-50+1)*Rnd+50)1B(i)+1第6章过程四．读程序写结果1.x=2,y=2 m=22.9 4,5,9 273.50 264. 5 64,55.7,14 11,22 15,306.29 29 37.12 25下篇实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-22007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3.147.389056098930651 -1 .999999998205103 4-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L, ".00")Format(M, ".00")实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = ""Text2.Text = ""实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b ^ 2 - 4 * a * c"x1=" & (-b + Sqr(delt)) / (2 * a)"x2=" & (-b - Sqr(delt)) / (2 * a)Text2.Text = ""Text3.Text = ""End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数M<NL=ML=NM Mod k = 0 And N Mod k = 0Text3.Text = kExit ForM>NL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) – 1Mid(S, k, 1) >= Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next kk = Len(S)实验3-8 判断回文数1Len(s)\2-1Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)k = Len(S) \ 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)1x ^ ns * nt / s <= 10 ^ -6Text2.Text = y实验3-10 查找数字串并求和Text1.Text = ""Text2.Text = ""List1.ClearText1.TextFalseWhile Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int((99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26) c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26) c & s1s1Text1.Text = ""Text2.Text = ""实验3-13 统计单词个数Text1.TextMid(s, i, 1) <> " " And i <= Len(s)i = i + 1Mid(s, start, i - start)nText1.Text = ""List1.Clear实验4 数组的使用实验4-1 一维数组的产生及输出i = 1 To 20Int((9 - 0 + 1) * Rnd + 0)i = 1 To 20Print a(i);Printi = 1 To 20Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.Printi = 1 To 20Text1.Text & Space(2) & a(i)If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf v In aIf i Mod 5 = 0 Then Picture2.Print实验4-2 选手得分Int((50 - 10 + 1) * Rnd + 10) / 10i = 1 To 6sum = sum + score(i)max = score(1)min = score(1)score(i) > max Then max = score(i)score(i) < min Then min = score(i)(sum - max - min) / 4实验4-3 产生10个互不相同的整数Int((999 - 10 + 1) * Rnd + 10)t Mod 10 = 5Then Exit Forn= n + 1a(i) = tFor i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext i实验4-4 统计数字出现的次数IsNumeric(S) = FalseExit SubLen(S)c >= "0" And c <= "9"A(c) = A(c) + 1A(k) <> 0m = m + 1实验4-5 排序1 To 10Int((99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & " "1 To 9i + 1 To 10A(i) > A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) > A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & " "10T = A(i)ji - 1k + 11 To 10Text4.Text = Text4.Text & A(i) & " "实验4-6 二维数组的产生及输出1 To 41 To 5Int((9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & " "Text1.Text = Text1.Text & vbCrLf实验4-6 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int((99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) < minA(i, j)ij"最大元素" & "A(" & maxi & "," & maxj & ")=" & max "最小元素" & "A(" & mini & "," & minj & ")=" & min实验4-7 矩阵转置Dim A() As Integer"请输入N的值"ReDim A(N, N) As IntegerFor i = 1 To NFor j = 1 To NA(i, j) = Int((99 - 10 + 1) * Rnd + 10)Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext it = A(i, j)A(i, j) = A(j, i)A(j, i) = tFor i = 1 To NFor j = 1 To NText2.Text = Text2.Text & A(i, j) & " "Next jText2.Text = Text2.Text & vbCrLfNext i实验5 过程实验5-1 孪生素数和降序素数Dim i As IntegerFor i = 2 To N - 1If N Mod i = 0 Then Exit FunctionNext iPrime = TrueDim a As IntegerDim b As Integera = N \ 10b = N Mod 10If a > b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = TrueList2.AddItem i & "和" & i + 2DecNumber(i) = True And Prime(i) = TrueList3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / ((2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc("A") + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1)) * N ^ (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C >= "0" And C <= "7" Or C >= "A" And C <= "F" Or C = ".")实验5-4 Armstrong数i As Long, a As Long, b As LongCombo1.Text实验5-5Option Base 1Dim a(5) As IntegerDim b(5) As Integerb(i) = i * i + 1Text2.Text = Text2.Text & b(i) & " "1 To 51 To 5Gcd(a(i), b(j)) = 1Gcd = KExit For实验5-6Create(a)Output(a)Sort(a)Output(a)GetMaxMin(a, MaxData, MinData)MaxDataMinDataAverage(a)Int((99 - 10 + 1) * Rnd + 10)1 To UBound(a)a(i);a(i) > a(j)t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) > MM = a(i)a(i) < NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox "请登录！"PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)List1.RemoveItem List1.ListIndex实验6-3 字体格式设置Select Case OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板。

竭诚为您提供优质文档/双击可除vb实验报告标准答案篇一：Vb郭贤海实验报告及答案实验1.1设计一个程序，程序运行的初始界面如图1-1所示。

当单击“显示”按钮时，在文本框中显示“欢迎使用Vb！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。

图1-1程序运行初始界面图1-2单击“显示”按钮后的程序界面实验1.2设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。

同时要求：（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”按钮变为不可用（图1-4）。

图1-3第1题的程序运行初始界面图1-4单击“改变文字”按钮后的程序界面图1-5单击“隐藏”按钮后的程序界面四、实验原始记录实验1.1程序的界面设计。

（可以是多张主要的图。

下面的图要替换成你们自己设计的图。

如何取图？设计好界面，按“printscreensysRq”键，打开画图软件，单击“编辑|粘贴”命令，利用菜单栏下方的“选定”功能，选中窗体，按“ctrl+c”键，然后选中下面的实验样例图，按“ctrl+V”键，替换掉）程序代码。

privatesubcommand1_click()Text1.Text="欢迎使用Vb！"endsubprivatesubcommand2_click()Text1.Text=""endsubprivatesubcommand3_click()endendsub实验1.2程序的界面设计。

（可以是多张主要的图。

下面的图要替换成你们自己设计的图）程序代码。

privatesubcommand1_click()Label1.Visible=Truecommand2.enabled=Truecommand1.enabled=Falseendsubprivatesubcommand2_click()Label1.Visible=Falsecomma nd2.enabled=Falsecommand1.enabled=Trueendsub privatesubcommand3_click()Label1.caption="你好，张三！"command3.enabled=Falseendsub五、实验结果及分析实验1.1运行结果。

第1-2章 Visual B asic导论与算法一、单项选择题二、简答题1、有一个红色、充满氢气的气球，如果人不小心松开手抓的引线，它就会飞走；如果用针刺它，它会爆破。

请问，对于气球对象，哪些是属性，哪些是事件，哪些是方法？答：属性：红色、充满氢气事件：松开；刺方法：飞走；爆破。

2、请简述算法具有哪些特征？答：确定性、可行性、有穷性、输入性和输出性。

3、设x和y是同一类型的变量，试设计一个算法，把x与y中的数据相互交换。

第3章常见控件与界面设计一、单项选择题二、填空题三、简答题1、VB的常用控件中，哪些控件具有Caption 属性，而没有Text属性？哪些控件具有Text属性，却没有Caption 属性？答: 有Caption 属性，而没有Text属性:Form,Label,Command,Option,Checkbox,Frame,Data有Text属性，却没有Caption 属性:Textbox,Listbox,ComboBox第4章数据、表达式与简单程序设计一、单项选择题二、填空题第5章选择分支与循环一、填空题二、编程题（说明：界面自行设计，并上机调试，作业册上只需写出相应的主要程序代码和正确的运行结果。

）1、编写程序代码，随机生成100个两位整数，并统计出其中小于等于40，大于40小于等于70以及大于70的数据个数。

方法1：Private Sub Command1_Click()Dim sum, a%, b%, c%Dim i%a = 0:b = 0:c = 0For i = 1 To 100sum = Int((99 - 10 + 1) * Rnd) + 10Select Case sumCase Is <= 40a = a + 1Case 40 To 70b = b + 1Case Elsec = c + 1End SelectNext iText1 = a: Text2 = b: Text3 = cEnd Sub方法2：Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, I As IntegerDim c1 As Integer, c2 As Integer, c3 As IntegerRandomizeFor I = 1 To 100a = Int(90 * Rnd) + 10If a <= 40 Thenc1 = c1 + 1ElseIf a <= 70 Thenc2 = c2 + 1Elsec3 = c3 + 1End IfNext IPrint "其中，小于等于40的数有"; c1; "个；"Print " 大于40、小于等于70的数有"; c2; "个；"Print " 大于70的数有"; c3; "个。

大一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语言和开发环境的了解，对于如何设计用户界面和编写代码也有了一定的经验。

实验过程中，我遇到了不少问题，但通过查阅资料和请教同学，我一一解决了这些问题。

实验不仅让我学到了知识，还培养了我的动手能力和解决问题的能力。

我会继续努力学习，提升自己的编程水平。