VB顺序结构程序设计实验报告

高级语言程序设计（VB）实验报告实验日期：年月日姓名学号成绩实验名称：VB编程基础及顺序结构一．实验目的：掌握VB编程基础及顺序结构二．实验内容和步骤：1、程序运行界面w=10:x=8:y=3:z=7print w>x and y<=z or x>yFalseprint x>z orw=y and y<xFalseFalseprint not(w>y and x=z)Trueprint not(y<>x or w*3>z)Trueprint int(abs(99-100)/2)print sqr(sqr(64))2.82842712474619print fix(-3.1415926)-3print sgn(7*3+2)12.界面运行图程序代码Private Sub Form_Click()Dim a As Integer, h As Integer, t As Integer, n As Integer Randomizea = Int((999 - 100) * Rnd + 100)h = Int(a \ 100)t = Int((a - h * 100) \ 10)n = Int(a - h * 100 - t * 10)Print a, "的逆序为:", n & t & hEnd Sub程序运行代码Private Sub Command1_Click()f = Text1.TextText2.Text = (5 / 9) * (f - 32) End SubPrivate Sub Command2_Click() Text2 = ""End Sub5、拓展题1)界面运行图程序代码Private Sub Form_Click() Static a As IntegerDim b As Integera = a + 1b = b + 1Print "a="; a, "b="; bEnd Sub因为他们的变量声明格式不同。

VB顺序结构实验报告实验报告：VB顺序结构实验一、实验目的通过本次实验，学习和掌握VB的顺序结构的概念和基础语法，能够独立编写简单的VB程序。

二、实验内容1.确定题目：设计一个简单的计算器程序，能够进行加、减、乘、除运算。

2.编写程序代码，实现计算器的功能。

3.运行程序，测试功能是否正常。

三、实验步骤与方法1.打开VB编程软件，创建新项目。

3.设置控件的属性，如控件的名称、大小、位置等，以及控件的事件属性。

4.编写程序代码，实现控件之间的交互逻辑。

在按钮的点击事件中，根据用户的输入进行相应的计算，并将结果显示在文本框中。

5.运行程序，测试功能是否正常。

6.根据测试结果，发现问题并进行调试和修改，确保程序的正确性。

7.最终完成设计要求，实现一个简单的计算器程序。

四、实验结果与分析经过实验，成功实现了一个简单的计算器程序。

用户可在文本框中输入两个数值，并点击对应的按钮进行加、减、乘、除运算。

程序根据用户的输入进行相应的计算，并将结果显示在文本框中。

在测试过程中，发现了一些问题，如用户输入的数值为空或不合法时，程序可能会出错。

为解决这个问题，可以在程序代码中加入一些判断和处理语句，对用户输入进行验证和处理。

通过本次实验，我深入了解了VB的顺序结构以及相关语法，并成功完成了一个简单的计算器程序。

同时，我也学会了如何设置控件属性、编写程序代码、测试和调试程序。

掌握了这些基础知识后，我相信我可以进一步扩展和改进计算器程序，增加更多的功能和复杂的逻辑。

五、实验总结通过本次实验，我对VB的顺序结构有了更深入的理解，并掌握了编写简单程序的方法和技巧。

通过这个实验，我不仅学到了计算器程序的设计和实现方法，还培养了自己动手实践、发现问题并解决问题的能力。

以后，我将进一步学习VB的其他相关知识，如选择结构、循环结构等，以提升我的编程水平和能力。

同时，我也会继续完善和改进自己设计的计算器程序，使其更加稳定、功能更完善。

通过这次实验，我也认识到编程是一门需要耐心和细心的技术活，需要对程序进行详细的调试和测试，保证程序的正确性和稳定性。

湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级 1211学号姓名王亮任课教师王福林实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1：创建应用程序。

要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。

程序2：创建应用程序。

要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。

2、循环语句程序3：创建应用程序。

要求：单击窗体可显示一个由“*”组成的平行四边形图案。

程序4：创建应用程序，其功能是显示所有的水仙花数。

三、实验记录程序1如下：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定义a,b,c,t为整形变量Cls '清屏a = Val(InputBox("请输入第1个数：")) '给a赋值b = Val(InputBox("请输入第2个数：")) '给b赋值c = Val(InputBox("请输入第3个数：")) '给c赋值If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给bIf b > c Then '嵌套，如果b>ct = b: b = c: c = t '把b的值赋给t，b的值赋给c，t的值赋给cIf a > b Then '再次嵌套，如果a>bt = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; c End SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下：Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定义整形变量i,k,n n = Val(InputBox("任意输入一个整数：")) '给n输入值i = 2 'i初始值为2k = Int(n / 2) '为整形的二分之一n的值赋给kDo While i <= k '当i小于且等于k If n Mod i = 0 Then '如果n模除i为0 Exit Do '退出循环Elsei = i + 1 '否则i加1End IfLoopIf i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k，输出n的值是素数，否则输出n的值不是素数End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下：Private Sub Form_Click()Dim m As Integer, n As Integer '定义整形变量m,nCls '清屏PrintFor m = 1 To 6 'm赋初始值为1，当m大于6停止 Print Tab(15 - m); '第15 - m列开始输出For n = 1 To 8 'n赋初始值为1，当n大于6停止 Print "*"; '输出*Next nPrint "" '输出空格Next mEnd Sub程序4如下：Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege '定义整形变量i,m,n,k,sxkFor i = 100 To 999 'i赋初始值为100，当i大于999，停止循环 m = i \ 100 'i除以100，结果赋给mn = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给n k = i Mod 10 'i模除10后的值赋给ksxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算If sxh = i Then '如果sxh等于iPrint i, '输出i的值End IfNext iEnd SubPrivate Sub Command2_Click()End '程序结束End Sub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。

顺序结构程序设计实验报告
实验目的：
本次实验旨在让学生掌握顺序结构程序设计的基本概念，深入了解程序的运行过程，
以及学习如何编写一个简单的顺序结构程序。

实验器材：
计算机、编程软件“Visual Basic”。

实验过程：
1.理解顺序结构程序
顺序结构程序是指程序按照从上到下的顺序执行，具有简单、直观、易于理解的特点。

在此基础上，实现更复杂的程序设计。

2.熟练掌握计算机基本操作
使用计算机是程序设计的前提条件之一，通过熟悉计算机的基本操作，有利于更好地
进行程序设计。

“Visual Basic”是一款用于Windows平台的可视化编程环境，可以轻松编写出各种Windows应用程序。

4.编写“Hello World”程序
“Hello World”程序是编程入门的必备项目，通过打印出“Hello World”这句话，
来证明程序的正确性和运行结果。

5.编写一个简单的求和程序
求和程序是程序设计的基础，能够帮助初学者更好地理解程序运行的原理。

实验结果：
通过本次实验，我学会了如何编写一个简单的顺序结构程序，深入了解了程序设计的
基本概念和过程。

在未来的学习和工作中，我将进一步加强对计算机和编程环境的熟悉，
不断深入学习和掌握程序设计的技巧，更好地应对日益复杂的实际工作中的问题。

VB实习三赋值与输出实习目的：1、掌握符号常量的定义、变量的声明方法；2、掌握赋值语句和Print方法的功能与使用方法。

实习要求：结合简单的数学问题进行程序算法设计，初步掌握顺序结构程序设计方法。

实习内容：1、计算半径为5的圆的周长和面积2、求一元二次方程4x2+5x-20=0的根3、设A=357，B=684，编程交换A、B两个变量的值4、用随机函数和取整函数，产生三个100 ~ 999之间的整数，求三个数的和及平均值（结果保留两位小数）实习过程：1、计算半径为5的圆的周长和面积在窗体的Click事件中输入如下代码：Const …定义符号常量PI，值为3.1416Dim L As Single，S As Single …定义单精度变量L，SL = …求圆的周长S = …求圆的面积Print “圆的周长：”；L，“圆的面积：”；S单击工具栏上的“启动”按钮，进入运行模式，单击窗体，观察结果。

2、求一元二次方程4x2+5x-20=0的根在窗体的Click事件中输入如下代码：Dim a As Integer, b As Integer, c As IntegerDim d As Single, x1 As Single, x2 As Singlea = ：b = ：c =d = b * b – 4 * a * cx1 =x2 =Print “一元二次方程的根是：”Print “x1=”；x1，“x2=”；x2单击工具栏上的“启动”按钮，进入运行模式，单击窗体，观察结果。

3、设A=357，B=684，编程交换A、B两个变量的值在窗体的Click事件中输入如下代码：Dim a As Integer, b As Integera = 357：b = 684Print “交换前a和b的值分别是：”Print a , b…交换两变量的值Print “交换后a和b的值分别是：”Print a，b单击工具栏上的“启动”按钮，进入运行模式，单击窗体，观察结果。

实验报告实验目的：(1)熟练掌握窗体、命令按钮、标签、文本框控件的使用。

(2)掌握Visual Basic基本数据类型(3)掌握Visual Basic基本语句、常用函数的使用。

(4)掌握数据输入输出方法。

实验内容：(1)在名称为Form1的窗体上画一个文本框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：A.在文本框中可以显示多行文本B.在文本框中显示垂直滚动条C.文本框中显示的初始信息为“程序设计”D.文本框中显示的字体为三号规则黑体E.窗体的标题为“设置文本框属性”F.完成设置后的窗体如图所示。

要求：不编写任何代码。

窗体名称保存为sy2-1.frm，工程名保存为sy2-1.vbp。

(2)在名称为Form1的窗体上有一个命令按钮，名称为command1,标题为计算。

要求：单击命令按钮输入一元二次方程的三个系数，根据系数求解方程的两个实根，并将结果打印在窗体上。

窗体名称保存为sy2-1.frm，工程名保存为sy2-2.vbp。

程序代码：Private Sub Command1_Click()a = Val(InputBox("请输入第一个系数"))b = Val(InputBox("请输入第二个系数"))c = Val(InputBox("请输入第三个系数"))X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)Print X1, X2End Sub(3)在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，编写适当的程序，如果往Text1中输入一个小写字母，就在Text2中显示输入字母所对应的大写字母；如果往Text1中输入一个大写字母，就在Text2中显示输入字母所对应的小写字母。

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实验报告范文（电子版题目及答案）2022－2022学年第二学期实验报告实验课程名称专业班级学生姓号学生姓名实验指导老师实验项目清单实验一程序设计初步实验二程序设计基础实验三顺序结构程序设计实验四分支结构程序设计实验五简单循环结构程序设计实验六循环结构程序设计深入实验七数组与相应算法程序设计实验八函数与过程浙江大学城市学院实验报告课程名称VB程序设计基础实验实验项目名称实验一程序设计初步学生姓名专业班级学号实验成绩指导老师（签名）日期一.实验目的和要求1.2.3.4.熟悉VB开发环境，掌握VB程序设计步骤。

理解基本概念：工程、窗体、属性、事件、方法。

熟悉立即窗口的使用。

掌握Print、赋值语句的正确书写规则。

二.实验内容和原理1）在E盘或你的U盘上，建立一个自己的文件夹，准备用来保存VB 编程过程中的相关文件。

文件夹的名字是学号。

如E:\\309088882）将窗体文件“1-1.Frm”和工程文件“1-1.Vbp”上传到老师的ftp服务器上的”周三下午”或”周四下午”或”周五下午”你的文件夹中。

如：“30908888传媒0901张三”.3）练习1-2，1-3，1-4，1-5也同样将窗体文件和工程文件上传到老师的ftp服务器上。

谢谢！【练习1-1】新建一个工程，单击窗体时，在窗体上显示“这是我的第一个VB实验”；双击窗体时，清除窗体上显示的所有信息。

研究下面的代码段，考虑应填入什么内容？PrivateSubForm_ClickForm1.Print\这是我的第一个VB实验\EndSubPrivateSubForm_DblClickClEndSub上机实践调试运行以上程序，在同一文件夹下保存工程1-1.vbp和窗体文件1-1.frm。

【练习1-2】设计一个程序，窗体上有一个文本框、两个命令按钮，命令按钮的标题是“隶书”和“黑体”，当程序运行后，在文本框中输入“欢迎光临VB世界”，是用粗体、18号、宋体、红色字显示(通过窗体加载事件完成)；单击“隶书”按钮文本框中显示内容的字体是隶书，单击“黑体”按钮文本框中显示内容的字体是黑体。

顺序结构程序设计实验报告一、实验目的1、掌握顺序结构程序设计的基本概念和方法。

2、熟悉使用编程语言实现简单的顺序结构程序。

3、培养通过编程解决实际问题的能力，提高逻辑思维和代码编写能力。

二、实验环境1、操作系统：Windows 102、编程软件：Visual Studio 2019三、实验内容（一）问题描述设计一个程序，实现输入两个整数，计算并输出它们的和、差、积、商。

（二）算法分析1、首先，需要使用输入函数获取用户输入的两个整数。

2、然后，分别进行加法、减法、乘法和除法运算。

3、最后，使用输出函数将计算结果显示出来。

（三）代码实现｀｀｀c+＋include ＜iostream>using namespace std;int main(）｛int num1, num2;cout ＜＜＂请输入第一个整数：＂；cin ＞＞ num1;cout ＜＜＂请输入第二个整数：＂；cin ＞＞ num2;int sum ＝ num1 ＋ num2;int difference ＝ num1 num2;int product ＝ num1 num2;double quotient;if （num2!＝ 0) ｛quotient ＝ static_cast<double>（num1) ／ num2;｝ else ｛cout ＜＜＂除数不能为 0，无法进行除法运算。

＂＜＜ endl;return 0;｝cout ＜＜ num1 ＜＜＂＋＂＜＜ num2 ＜＜＂＝＂＜＜ sum ＜＜ endl;cout ＜＜ num1 ＜＜＂＂＜＜ num2 ＜＜＂＝＂＜＜ difference ＜＜ endl;cout ＜＜ num1 ＜＜＂＂＜＜ num2 ＜＜＂＝＂＜＜ product ＜＜ endl;cout ＜＜ num1 ＜＜＂／＂＜＜ num2 ＜＜＂＝＂＜＜ quotient ＜＜ endl;return 0;｝｀｀｀（四）运行结果1、当输入两个整数分别为 5 和 3 时，程序输出：｀｀｀5 ＋ 3 ＝ 85 3 ＝ 25 3 ＝ 155 ／ 3 ＝ 166667｀｀｀2、当输入的第二个整数为 0 时，程序输出：｀｀｀除数不能为 0，无法进行除法运算。

实 验 报 告（ 2011 —2012 学年第 2 学期）课程名称： 计算机程序设计（VB ） 姓学 专 年 级： 2011 级 学实验报告2012 年03 月23日第7.8 节综合楼624 号室进入实验室时间进入时仪器设备状况离开实验室时间离开时仪器设备状况机器号13：35 正常15：10 正常30实验项目名称实验二顺序结构一、实验目的1.掌握正确书写表达式、赋值语句的规则；2.掌握常用函数的使用；3.掌握InputBox和MsgBox的使用；4.掌握Print方法和Format格式的使用。

二、实验内容1.计算某人的BMI指数（体重健康指数）2.计算商品总金额（实验教程2.4）。

3.课本实验3.3.1。

三、实验过程（步骤、命令）及结果（截图、源程序）（一）做自行选题1(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。

控件及属性设置表控件名属性Label1 Caption=”身高”；Font属性：字号为二号，字体为隶书Label2 Caption=”体重”；Font属性：字号为二号，字体为隶书Command1 Capion=”BMI指数”Text1 Text=””Text2 Text=””Text3 Text=””设置后的界面如下图（2）设置代码。

对Command1的Click（单击）事件添加如下代码：Dim h ! , t ! , bmi !h = Val (Text1 . Text)T = Val (Text2 .Text)Bmi = Round(t / (h * h), 2)Text3.Text = Str(bmi)设置后详见下图：运行后在文本框中输入“1.70”，“85”单击按钮后的界面图如下：（二）做自行选题2(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。

控件及属性设置表控件名属性Form1 Caption="计算商品总金额"Label1 Caption=”商品1”；Font属性：字号为二号，字体为隶书Label2 Caption=”商品2”；Font属性：字号为二号，字体为隶书Label3 Caption=”商品3”；Font属性：字号为二号，字体为隶书Label4 Caption=”单价”；Font属性：字号为二号，字体为隶书Label5 Caption=”数量”；Font属性：字号为二号，字体为隶书Label6 Caption=”总计”；Font属性：字号为二号，字体为隶书Label7 Caption=”0”；Font属性：字号为二号，字体为隶书Command1 Capion=”计算”Text1 Text=””Text2 Text=””Text3 Text=””Text4 Text=””Text5 Text=””Text6 Text=””设置后的界面如下图（2）设置代码对Command1的Click（单击）事件添加如下代码：Private Sub Command1_Click()Dim a1 As Single, b1 As Single, c1 As SingleDim a2 As Integer, b2 As Integer, c2 As IntegerDim x As Singlea1 = V al(Text1.Text)a2 = V al(Text4.Text)b1 = V al(Text2.Text)b2 = V al(Text5.Text)c1 = V al(Text3.Text)c2 = V al(Text6.Text)x = a1 * a2 + b1 * b2 + c1 * c2Label7.Caption = Val(Label7.Caption) + xEnd Sub设置后详见下图：运行后在文本框中输入“15”，“2”，“13","7","24","1"单击按钮后的界面图如下：（三）做自行选题3(1)设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。

实验三、顺序结构程序设计【实验目的】1、了解顺序结构的结构特点2、掌握顺序结构程序设计方法3、掌握基本的输入、输出语句的使用【实验内容】MsgBox语句格式：MsgBox msg[,type][,title][,helpfile,context]InputBox函数格式：InputBox[$](prompt[,title][,default][,xpos,ypos][,helpfile,context])1. 编写程序，将摄氏温度转换为华氏温度。

两者间的关系是：F=32+ 1.8C其中 F 是华氏温度，C 是摄氏温度（用INPUTBOX 函数输入摄氏温度，用MSGBOX 语句输出华氏温度）。

2. 小王有存款A 元（用textbox 输入），年利率P （用textbox 输入），存储时间为T 年（用INPUTBOX 函数输入）。

试编程求本利合计(提示:最后的总金额S=A*(1+P)^T)【上机参考练习题】1.（基本设计题）Print方法练习：编写打印下面图案的程序提示：1、若用户在Form_load() 事件中编写显示图形的过程，必须将form窗体的Autoredraw属性修改为True，否则没有办法显示。

2、★只需要切换到中文输入状态，然后鼠标指向软键盘按右键选择“特殊字符”，就可以输入★，Tab(n) 的功能是在指定的位置显示输出信息。

Spc(n)的功能是在Print的输出中跳过N个空格。

2.（基本设计题）用Textbox 控件输入半径，计算圆的周长和面积。

进一步要求，为了保证程序的运行正确，对输入的半径的要进行合法性检查，若发现有非法的数据输入，利用msgbox 显示出错信息。

提示：主要是MsgBox 函数的应用，它用于向用户发布提示信息，要求用户做出必要的反应。

其格式： MsgBox(msg[,type][,title][,helpfile,context])3.（基本设计题）用inputbox 输入三角形三条边的长度a,b,c ，计算并显示出三角形的面积。

实验2顺序结构程序设计2014年月日代码：Public Class Form1Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedTextBox3.Text = Math.Sqrt(Val(TextBox1.Text) + Val(TextBox2.Text))TextBox4.Text = Int(Val(TextBox3.Text)) 结果取整TextBox5.Text = Math.Round(Val(TextBox3.Text), 2) 结果取两位小数End SubPrivate Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChangedTextBox3.Text = Math.Sqrt(Val(TextBox1.Text) + Val(TextBox2.Text))TextBox4.Text = Int(Val(TextBox3.Text))TextBox5.Text = Math.Round(Val(TextBox3.Text), 2)End SubEnd Class2.中等题（1）Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickRandomize() 随机TextBox1.Text = Int(Rnd() * (99 - 10 + 1) + 10)TextBox2.Text = Int(Rnd() * (999 - 100 + 1) + 100)TextBox3.Text = Int(Rnd() * (9999 - 1000 + 1) + 1000)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTextBox4.Text = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3 TextBox4.Text = Format(Val(TextBox4.Text), "0.0") 取一个小数点End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEndEnd SubEnd Class（2）Public Class Form1Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim n, a, b, c, d, m As IntegerIf Asc(e.KeyChar) = 13 Thenn = Val(TextBox1.Text)a = n Mod 10 取个位b = n \ 10 Mod 10 取十位c = n \ 100 Mod 10 取百位d = n \ 1000 取千位2: m = a * 1000 + b * 100 + c * 10 + dLabel2.Text = "逆序后整数为" & mIf Not IsNumeric(TextBox1.Text) ThenMsgBox("输入有非数字字符，请重新输入", , "数据检验") TextBox1.Text = ""TextBox1.Focus()End IfEnd IfEnd SubPrivate Sub TextBox1_MouseUp(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseUpEnd SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubEnd Class（3）代码Public Class Form1Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.ClickEnd SubButton6.ClickLabel2.Text = Button6.Text & "函数的结果"Dim m$ 字符串m = InputBox("用什么来代替", "replace函数")Dim n$n = InputBox("代替什么字符", "replace函数")TextBox2.Text = Replace(TextBox1.Text, n, m) m代替nEnd SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubEnd Class（4）vb画图Word代码Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickShell("C:\Program Files (x86)\Microsoft Visual Studio 8\Common7\IDE\devenv.exe", 1) End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickShell("%windir%\system32\mspaint.exe", 1)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click。

实验报告2.2 编写程序求“鸡兔同笼问题”实验程序结构Private Sub Form_Click()s = InputBox("请输入鸡和兔的总的头数")Print "共有鸡和兔"; s; "只"Print "请输入总脚数介于"; 2 * s; "~"; 4 * s; "之间的偶数" s = Val(s)f = InputBox("请输入鸡和兔的总脚数")Print "共有脚数为"; f; "只"f = Val(f)y = (f - 2 * s) / 2x = (4 * s - f) / 2Print "笼中有鸡"; x; "只,兔"; y; "只"End Sub程序界面2.3 随机产生一个三位数，然后逆序输出实验程序结构Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerRandomizes = 100 + Int(Rnd * 900)Print "获得的随机数为"; sa = s Mod 10b = Int(s / 10) Mod 10c = Int(s / 100)Print "逆序输出结果为;" & (a * 100 + b * 10 + c) End Sub程序界面2.4 在文本框中输入3种商品的单价、购买数量，计算并输出所用的总金额实验程序结构Private Sub Cmd_Click()Dim a1 As Single, b1 As Single, c1 As SingleDim a2 As Integer, b2 As Integer, c2 As IntegerDim x As Singlea1 = Val(Txt1)a2 = Val(Txt2)b1 = Val(Txt3)b2 = Val(Txt4)c1 = Val(Txt5)c2 = Val(Txt6)x = a1 * a2 + b1 * b2 + c1 * c2Lbl7.Caption = Val(Lbl7.Caption) + xEnd Sub程序界面四、存在问题及解决方法评语：。

VB程序设计》实验报告实验二顺序结构程序设计Text3 = Len(Text1)Text4 = Len(Trim(Text1))End SubPrivate Sub Form_Load()End Sub计算机技术基础（VB）实验报告——实验二四、思考并回答1．写出实验中的代码：⑴2-1a 代码是：Private Sub Command1_Click() Text2.Text = 2 * 3.14 * Val(Text1) End SubPrivate Sub Command2_Click() Text3.Text = 3.14 * Val(Text1) ^ 2 End SubPrivate Sub Form_Load()End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) Theni = MsgBox("输入了非法字符！", 64, "提示") Text1 = ""Text1.SetFocusEnd If Text2 = ""Text3 = ""End Sub⑵2-1b 代码是：Private Sub Command1_Click()Const pi = 3.14159Dim r As Single, l As Single, s As Single r = InputBox(" 请输入半径:", " 输入半径") s = pi * r ^ 2 l = 2 * pi * r Label2 = Label2 & rLabel3 = Label3 + Str(l) label4 = label4 + Str(s)End Sub2．2-2a 代码是：Private Sub Command1_Click() Text1.ForeColor = RGB(255, 0, 0) Text2.ForeColor = RGB(255, 0, 0) Text2.PasswordChar = ""Text1 = (Text1 = "2006000")Text2 = (Text2 = "TJin1234") End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_GotFocus()Text1 = ""Text1.ForeColor = RGB(0, 0, 0)End SubPrivate Sub Text2_GotFocus()Text2 = ""Text2.ForeColor = RGB(0, 0, 0) Text2.PasswordChar = "*" End Sub3．2-2b 代码是：Private Sub Command1_Click()Text2 = UCase(Text1)End SubPrivate Sub Command2_Click()Text2 = LCase(Text1)End SubPrivate Sub Command3_Click()Text3 = Len(Text1)Text4 = Len(Trim(Text1))End SubPrivate Sub Form_Load()End Sub4. 2-2c 代码是：5. 2-3a 代码是：Private Sub Command1_Click() Dim x%, y%x = Text1: y = Text2x = y Text3 = x Text4 = y End SubPrivate Sub Command2_Click() Dim x%, y%x = Text1: y = Text2 y = xText3 = x Text4 = yEnd SubPrivate Sub Command3_Click() Dim x%, y%x = Text1: y = Text2x = x + 1 Text3 = x Text4 = y End SubPrivate Sub Command4_Click() Dim x%, y%x = Text1: y = Text2x = x + y Text3 = x Text4 = y End SubPrivate Sub Command5_Click() Dim x%, y%x = Text1: y = Text2x = y: y = x Text3 = x Text4 = y End SubPrivate Sub Command6_Click() Dim x%, y%, t%x = Text1: y = Text2 t = x: x = y: y = t Text3 = x Text4 = y Text5 = t End Sub Private Sub Form_Load() End Sub6. 2-3b 代码是：Private Sub Command1_Click() Dim r1!, r2!, r3!, X!r1 = Val(Text2): r2 = Val(Text3): r3 = Val(Text4) X = 1 / (1 / r1 + 1 / r2 + 1 / r3) Label5 = "计算结果:" & XEnd Sub五、简述本次实验存在的问题在实验2-3b中：需题目的公式是一张图片。

VB实验报告2-顺序结构VB 程序设计实验报告2020年04月25 日课程名称：VB程序设计实验名称：实验二顺序结构一、实验目的1.掌握表达式、赋值语句的正确书写规则2.掌握函数的使用3.掌握inputbox与msgbox的使用4.掌握print方法和format格式的使用二、实验内容实验2-1随机生成3 个正整数，其中一个1 位数， 1 个 2 位数， 1 个 3位数，计算它们的平均值，保留两位小数实验2-2我国有13 亿人口，假定按人口年增长0.8% 计算，多少年后我国人口超过26 亿实验2-3输入一个合法的3 位正整数，测试其数值合法性后，逆序输出并显示。

例如，输入“734 ”，输出是“437 ”实验2-4输入一个字符串，分别调用UCase 、Len、Mid、Left 、Right函数，显示如图2.2.4 所示的效果。

实验2-5效仿实验2.4 ，验证转换函数的使用，Text1 文本框输入字符串，Text2 文本框显示调用所选函数的结果，4 个命令按钮为转换函数，Label2 显示对应的函数名，运行效果如图实验2-6Print 方法练习，显示字符图形。

参考教学篇例4.4 输出简单图形，如图2.2.6 所示。

要求窗体不可改变大小，当单击“清屏”按钮后，清除窗体所显示的图形。

实验2-7用InputBox 输入一个正实数，用Print 方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，其间有间隔。

三、实验分析及设计实验2-1随机数生成某范围内的正整数公式为Int(Rnd* 范围+基数)其中范围=数的上限- 下限+1，基数=数的下限保留两位小数，利用Format 函数，形式为Format( 要显示的数值, "0.00 ")实验2-2已知年增长率r=0.8% ，求人数超过26 亿的年数n的公式为：n = log(2)/log(1+r),r = 0.8%实验2-31.利用Text1_LostFocus 事件，输入数据合法性检查调用IsNumeric 函数，参阅教学篇例2.5 ；若有错利用MsgBox显示出错信息，如图2.2.3 所示；清除文本框内输入的非法数据，通过SetFocus 定位于文本框处，重新输入2. 利用“MOD ”和“”运算符将一个3 位数分离出3 个1位数，然后利用乘法和加法运算将3 个 1 位数连接成一个逆序的 3 位数。