vb程序设计实训报告

安徽机电职业技术学院《VB程序设计》课程实训

实训报告

系（部）：经贸管理学系

班级：电商

姓名：

指导教师：陈香

2015 ~ 2016学年第一学期

实训项目一vb集成开发环境........................................................... 错误!未定义书签。

实训1-1 ............................................................................ 错误!未定义书签。

实训1-2 ............................................................................ 错误!未定义书签。

实训项目二创建简单的应用程序 ................................................. 错误!未定义书签。

实训2-1 ............................................................................ 错误!未定义书签。

实训2-2 ............................................................................ 错误!未定义书签。

实训2-3 ............................................................................ 错误!未定义书签。

实训2-4 ............................................................................ 错误!未定义书签。

实训2-5 ............................................................................ 错误!未定义书签。

实训项目三Visual Basic 语言基础.................................................. 错误!未定义书签。

实训3-1 ............................................................................ 错误!未定义书签。

实训3-2 ............................................................................ 错误!未定义书签。

实训3-3 ............................................................................ 错误!未定义书签。

实训3-4 ............................................................................ 错误!未定义书签。

实训3-5 ............................................................................ 错误!未定义书签。

实训项目四“科学计数器”设计 ................................................... 错误!未定义书签。

实训4-1 ............................................................................ 错误!未定义书签。

实训4-2 ............................................................................ 错误!未定义书签。

实训项目五“文本字体”设置 ..................................................... 错误!未定义书签。

实训5-1 ............................................................................ 错误!未定义书签。

实训5-2 ............................................................................ 错误!未定义书签。

实训5-3 ............................................................................ 错误!未定义书签。

实训5-4 ............................................................................ 错误!未定义书签。

实训5-5 ............................................................................ 错误!未定义书签。

实训项目六图形设计 ........................................................................ 错误!未定义书签。

实训6-1 ............................................................................ 错误!未定义书签。

实训6-2 ............................................................................ 错误!未定义书签。

实训6-3 ............................................................................ 错误!未定义书签。

实训6-4 ............................................................................ 错误!未定义书签。

实训6-5 ............................................................................ 错误!未定义书签。

实训项目一vb集成开发环境

一、实训目的与要求

1、能进行Visual Basic 的启动与推出

2、培养Visual Basic的集成开发环境的简单应用

二、实训内容

实训1-1 练习的启动与退出

（1）启动

（2）退出

①单击vb主窗口右上角的按钮

②选择“文件”菜单中的“退出”命令

③按快捷键Alt+Q

实训1-2 熟悉集成开发环境的窗口（1）主窗口

（2）窗体设计器窗口

①拖动窗体设计窗口，改变其位置

②拖动窗体设计窗口边框，改变其大小

③拖动窗体设计窗口的最小化按钮，将其缩成图标双击窗体设计窗口控制菜单图标，恢复其原来大小

（3）属性窗口

（4）工程资源管理器窗口

（5）代码窗口

（6）、工具箱窗口

（7）、其他窗口①立即窗口

②窗体布局窗口

思考题

1、详细叙述各个窗口的主要作用

（1）、主窗口：由标题栏、菜单栏和工具栏组成

（2）、窗体窗口：是VB应用程序的主要构成部分，是应用程序最终面向用户的窗口，应用程序的运行结果最终在窗体中体现。

（3）、属性窗口：设计窗体和窗体中的控件属性

（4）、工程资源管理器窗口：以树形结构方式列出当前工程中所有文件（5）、代码窗口：编写代码

（6）、工具箱窗口：工具箱由各种图标组成，利用这些工具图标，用户可以在窗体上设计各种控件

（7）、其他窗口：包括立即窗口和窗体布局窗口，立即窗口是为调试应用程序提供的，窗体布局窗口用于指定程序运行时窗体相对于显示屏幕的初始位置以及窗体之间的相对位置。

2、任意举一个例子来说明VB应用程序开发的详细步骤

（1）、建立可视用户界面的对象

（2）、编写事件驱动的代码

Private Sub Command1_Click()

= "我爱vb"

End Sub

Private Sub Command2_Click()

= ""

End Sub

（3）、运行和调试

实训项目二创建简单的应用程序

一、实训目的和要求

1、Visual Basic 对象的属性、方法和时间作用

2、练习Visual Basic程序开发的一般步骤操作

3、培养编写简单的应用程序

二、实训内容

实训2-1

设计一个窗体，在窗体上添加一个【确定】命令按钮，运行程序时，单击确定按钮，在窗体上显示“你单击了命令按钮”，若单击窗体，在窗体上显示“你单击了窗体”，运行结果如下图所示

1、设计思路：添加一个命令按钮，两个标签并设置其属性

2、页面设置

3、编写代码

Private Sub Command1_Click() Print "你单击了命令按钮" End Sub

Private Sub Form_Click() Print "你单击了窗体"

End Sub

4、运行结果

实训2-2

使用循环语句在窗体上输出由“*”组成的简单图形，运行效果如下图所示1、页面设置

2、编写代码

Private Sub Form_Click()

Dim n As Integer, i%, j%

Cls

n = Val

For i = 1 To n

Print Tab(20);

For j = 1 To i

Print "*";

Next j

Print

Next i

End Sub

3、运行结果

实训2-3

编写程序，输入年份，判断其是否为闰年，并写出具体的设计步骤

（1）分析：设N为年份，N为闰年的条件是：能被4整除但不能被100整除；或能被400整除，写出闰年N用VB表达式。

（2）具体思路：建立两个文本框TextBox和一个命令按钮(CommandButton)，在Text中输入任一年份，点击命令按钮，则在Text2中则会显示：“是闰年”或“不是闰年”

（3）页面设置：

（4）编写代码

Private Sub Command1_Click()

Dim n As Date

n =

If n Mod 4 = o And n Mod 100 <> 0 Or n Mod 400 = 0 Then = "是闰年"

Else

= "不是闰年"

End If

End Sub

（5）运行结果

实训2-4

解决“白鸡百钱”问题。“鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一；百钱买买白鸡，问鸡翁、鸡母、鸡雏各几何”编写程序，给出结果。

1、设计思路：设x、y、z分别表示鸡翁、鸡母、鸡雏的数目，根据题意，100钱最多买鸡翁20只、买鸡母33只鸡雏数为100—鸡翁数—鸡母数。写出计算鸡数量的判定式为：

2、编写代码：

Private Sub Form_Click()

Dim x, y, z As Integer

For x = 1 To 20

For y = 1 To 33

z = 100 - x - y

If (x + y + z = 100) And (5 * x + 3 * y + z / 3 = 100) Then

Print "公鸡，母鸡，小鸡的数目分别:"

Print x, y, z

End If

Next y

Next x

End Sub

3、运行结果

实训2-5

编写一个程序，使得程序运行时，在窗体上显示滚动字幕“欢迎进入奇妙的VB世界！”，运行效果和属性设置分别见下图所示，并写出详细设计步骤。

1、设置页面，添加一个标签和Timer并设置属性

2、编写程序代码

Private Sub Timer1_Timer()

- 20

If + <= 0 Then

=

End If

End Sub

3、运行结果

实训项目三Visual Basic 语言基础

一、实训目的与要求

1、掌握VB中基本数据类型和常用内部函数的使用

2、正确使用VB的运算符合表达式在编程中的应用

3、熟悉常用的输入和输出方法的运用

二、实训内容

实训3-1

编写一个程序，程序运行后单击窗体，则会在窗体上显示当前的日期和时间，具体界面如下图所示。

1、编写程序代码

Private Sub Form_Click()

t = Now

Print Format(t, "今天是:" & "dddddd" & "hh:mm:ss")

End Sub

2、运行结果

实训3-2

编写一个程序，在程序中使用数值格式符，当程序运行后单击窗体，则会在窗体上显示结果如下图所示

1、编写程序代码

Private Sub Form_Click()

Dim x As Single

x =

Print Format(x, "####.##")

Print Format(x, "")

Print Format(x, "########%")

Print Format(x, "+##,###.###$")

Print Format(x, "#.######E+")

Print Format(x, "####.###\美金")

End Sub

2、运行结果

实训3-3

编写一个程序，具体为当用户输入客户姓名后，单击输入框的“确定”按钮所输入内容赋值给变量guest。若用户单击输入框的“取消”按钮，则变量guest 的值为空。

设计思路：使用InputBox函数输入客户姓名。

（1）界面设计。在窗体上画出1个文本框、2个命令按钮。

（2）属性设置

控件名称属性名属性值

Command1Caption ”确定”

Command2Caption”取消”

Text1text “”

（3）填写代码

Private Sub Form_Click()

Dim sl As String, s2 As String, s3 As String, guest As String

s1 = InputBox("请输入客户姓名")

s2 = InputBox("输入后按回车键")

s3 = InputBox("或单击确定按钮")

guest = InputBox(s1 + Chr(13) + s2 + Chr(10) + s3, "输入客户姓名", "张玉生")

End Sub

（4）运行结果显示

实训3-4

编写一个购物打折程序！要求：程序运行后当输入购物金额时，自动计算出折后金额！题目自拟，打折规则自拟，并写出详细的设计步骤。

商场举办庆“十一”购物促销活动，根据购买武平总价格的不同，可以获得不同的优惠条件。其活动如下：

（1）总价格在500元一下不享受优惠

（2）总价在500元（含500元）以上且小于2000元者，给予10%的优惠。（3）总价在2000元（含2000元）~4000元者，给予12%的优惠。

（4）总价在4000元（含4000元）~6000元者，给予14%的优惠。

（5）总价在6000元（含6000元）以上者，给予15%的优惠。

1、页面设置

VB程序设计实验要求及报告

上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验3 选择结构 一、 实验目的 1． 掌握单分支、双分支和多分支条件语句的使用 2． 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（），其余实验依此类推。 2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 1. 编一程序输入上网的时间并计算上网费用，计算的方法如下： 费用= 50250~102.51030?? ???>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数 同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分支结构（IF THEN ELSEIF ）编写，效果如图3-1所示。

图3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150

VB程序设计实验报告

《VB程序设计》实验单元二 实验报告 专业班级：新闻班姓名: ________________ 学号：—指导教师：完成时间：2013.5 一、实验题目 数组和自定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 1.掌握数组的声明、数组元素的引用。 2.掌握固定长度数组和动态数组的使用差别。 3.掌握数组常用的操作和常用算法。 4.掌握列表框和组合框的使用。 5.掌握自定义类型及数组的使用。 四、实验内容 1.随机产生30—100 （包括30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的只和结果。 2.随机产生20个学生成绩，统计各分数段人数。即0~59、 60~69、 70~79、80~89、90~100,并显示结果。

五、实验步骤 1.打开VB界面，建立工程 2.在窗体窗口设置界面 3?属性窗口控件对象属性设置 4.编写程序代码 5?运行程序及调试 6?程序建立，保存工程文件六、实验结果 第1题：

70 53 57 28 30 77 1 76 81 70最大值81 最小值1 平均值54.3 4 41 86 79 37 96 87 5 94 36 最大值96 最小值4 平均值56.5 52 76 5 59 46 29 62 64 26 27 :最大值76 最小值5 平均值44.6 82 82 58 98 91 22 69 98 24 53最大值98 最小值22 平均值67.7 10 99 67 1 57 10 10 79 28 4 最大值99 最小值1 平均值36. 5 29 38 30 94 97 40 27 16 16 64实验 r Q Forml 回

程序设计实训心得体会

程序设计实训心得体会 心得体会这种学习方法对于一个人来说也许是优秀的，但没有被推广普及的必要。因为学习的方法因人而异，方法的奏效是它与这个人相适应的结果，以下《程序设计实训心得体会》由心得体会栏目为您精心提供。 在软件实验室经过2个星期Jsp程序设计实训，从对软件开发没有太多经验的我掌握了更多的软件开发的方 法和技能，收获颇多。 经过这次理论学习，了解到要做好软件开发，要求 掌握的知识并不是只有编写代码方面的，网络、数据库、操作系统等的知识对做好项目开发是很有帮助的。这让 我明确了以后学习的目标，在不断学习软件开发的同时，也应该继续其他相关知识的深入学习。 实训期间经历的许许多多，给我们带来了很多很多 有实无形的东西，知识、友情以及团队开发的热情，快 乐无一不包围着我们。在这我很想感谢几个人，王璐老 师和班上一同参与这次实训的2位同学。王璐老师对我 们备至关心，不论在学习前后，都给予我们关怀不少， 并且王璐老师不愧是从事多年软件开发的专业人士，其 深厚的专业技能知识和丰富的经验令我等钦佩无比。对 于我们未出茅庐的大学生而言，遇到的问题多而复杂，

询问有经验的人，他们或许一句话就能解决问题，而自 己就得找资料或上网摸索可能要一两天，有时甚至绞尽 完脑汁都不得其解。用个词形容，老师的解答如醍醐灌顶，而对我们，则甘之如饴。 实训这段期间真的好累，尽管实验室给我们提供了 一个相当不错的上课学习环境，但是整天木木地待在实 验室面对毫无生气的荧屏，为 code而烦恼，为bug而郁闷，被文档所包围，随程序侵蚀。然而，这就是学习的 生活，既选之也则安之。忙碌的生活让我每天似乎没有 太多的时间去想一些其他的事，耐心的去调试，专注的 去编写更好的算法，沉浸充实和快乐之中。 更重要的是，两个星期的实训使我们明白我们所欠 缺的不仅仅是技术知识，更重要的是有一种处理事情的 方法、面对问题的心态和动手能力。面对完全陌生的新 知识、新技术、新项目以及整个IT行业，我们不能畏惧，要以一种积极的心态去面对，分析并抓住关键所在。因 为我们所即将应对的每一个项目都是既需要实际操作， 又需要详细规划的。作为组长，协调组员、激励其他组 员和积极参与项目开发是我每天必做的工作。我认为每 个人都应该在团队中做好自己应尽的职责，再优秀的个 人也可能完成一个即庞大又复杂的项目工作，我们必需 紧密的联合在一起，以一个团队的角色来面对。

vb程序设计实验教程习题答案

实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5

（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③

VB课程实验报告

山西财经大学《程序设计（VB+Acces）》实验报告 ＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计 选课课号2015-2016-2-N081002S00-08034- 学院 ＊＊＊＊＊ 学院 班 级 ＊＊＊＊＊＊＊ 姓名＊＊＊ 学 号 ＊＊＊＊＊＊＊＊＊ 理论课教师李平珍 上机指 导教师 李平珍 实验目的及要求： 1．掌握条件表达式和分支语句 2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用 编写以下程序段： 求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器 实验的详细操作步骤、程序代码及运行截图： 一． Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val

If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub 二． Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC)

四等水准VB实习总结

实验报告一一实验内容 应用程序进行四等水准的计算 二程序界面设计 1 程序的设计界面 2 程序的运行界面

3 程序计算界面 三、编写程序 Option Explicit Dim startPoint!, endPoint! Private Sub cmdCheckCalc_Click() Dim i%, tDist '距离 tDist = 0 Dim totalDetH!, closeDetH! '累计高差和高差闭合差 For i = 1 To nMarks tDist = tDist + dis(i) Next i totalDetH = 0

For i = 1 To nMarks '计算累计高差 totalDetH = totalDetH + detH(i) Next i '计算闭合差 startPoint = Val(txtStartPoint.Text) endPoint = Val(txtEndPoint.Text) If optAnnex.Value Then '附合水准 closeDetH = (endPoint - startPoint) - totalDetH Else '闭合水准和支水准 closeDetH = -totalDetH End If '检查闭合差是否超限 If closeDetH > 0.04 * Sqr(tDist) Then '采用40*Sqr(L)来计算，单位是毫米 MsgBox "闭合差超限，测量成果不合格！", , "闭合差超限" txtShowResult.Text = txtShowResult.Text & "闭合差超限，测量成果不合格！" Exit Sub Else MsgBox "闭合差合格，继续计算转点高程！", , "闭合差合格" End If Dim temp! temp = startPoint txtShowResult.Text = txtShowResult.Text & "平差后的高程为：" & vbCrLf For i = 0 To nMarks temp = temp + detH(i) + closeDetH * dis(i) / tDist txtShowResult.Text = txtShowResult.Text & " （" & Str(i) & "）：" & Str(Format(temp, "0.000")) & vbCrLf

VB设计报告

南京工程学院 课程设计说明书（论文）题目打字练习 课程名称VB语言课程设计 院(系、部、中心) 专业 班级 学生姓名 学号 设计地点图书馆基础教学机房 指导教师 设计起止时间：201x年x月x日至201x年x月x日 目录

一、设计任务 (3) 二、方法原理 (3) 三、总体设计思路 (3) 四、程序调试和解决问题 (4) 五、完善及存在的问题 (4) 六、收获体会 (4) 七、意见建议 (4) 八、示例截图 (5) 九、附录1（代码） (6) 十、附录2（主要参考资料） (10) 一、设计任务 1.题目介绍

在计算机及其他数码产品日益普及的今天，人们使用键盘应像用笔写字一样熟练。进行打字练习时熟悉键盘并提高打字速度的好方法。本体要求编制一个打字练习游戏程序，使用户在游戏过程中进行打字练习。 2.功能要求 （1）启动界面如图1 （2）选择难度和速度后，单击“开始”按钮，界面如图1。若选择简单，则落下字母；若选择复杂，单击开始后出现对话框，如图 2.单击确定，开始练习，落下单词。 （2）若用户在字符落到屏幕底部之前敲击了相应的键盘键，则该字符被“击中”然后消失。根据程序速度和难度的设置自动进行积分，实时分数时间正确率掉落个数显示在窗体的上部。 积分规则：正确击中一个字母或一个单词，加一分；反之，不得分，亦不扣分。（4）当游戏者单击“暂停”按钮时，程序停止运行，在单击“开始”按钮，程序继续运行；当单击“退出”按钮时，则弹出对话框（如截图示例3），单击“取消”按钮，程序继续运行，单击“确定”按钮，则弹出对话框（如截图4），此时对话框显示分数，单击“确定”按钮，退出程序。 （5）为了增加视觉效果，每个掉落的字符的颜色随机产生。 二、方法原理 根据题目要求，使用控件数组，用标签标题表示字符，键盘事件的处理判断打字正确与否，随机值的产生方法随机产生字符，用Timer控件属性反映时间、控制字符下落速度。 三、总体设计思路 首先在窗体上画出三个按钮标题分别为开始、暂停、退出。画六个标签分别表示已落字母个数、已花时间、得分与正确率。 画出一个含有五个元素的标签控制数组用以显示字符。 画出两个时间控件，一个用来返回已用时间，一个控制字符下落。 最后编写相关代码

VB实验一 实验报告

实验报告一 课程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学时) 成绩 专业班级 姓名学号实验日期 实验目的 （1）熟悉Visual Basic6.0集成开发环境 （2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支 （4）掌握控制结构相关控件（单选按钮、复选框） （5）能综合运用选择及循环控制结构解决较复杂的问题 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序（10分） 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。 实验结果： 【实验1 代码】 【实验1 典型结果】 【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：

S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分） 程序界面如下所示 实验结果： 【实验2 代码】 【实验2 典型结果】 【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分） 实验结果： 【方法1 代码】 【方法1 典型结果】 【方法2 代码】 【方法2 典型结果】

传感器实训心得体会.doc

传感器实训心得体会 篇一：传感器实训心得 实训报告 学了一学期的传感器实训心得体会)传感器，在最后期末的时候我们也参加了传感器这一学科的实训，收获还是颇多。 在做测试技术的实验前,我以为不会难做,就像以前做物理实验一样,做完实验,然后两下子就将实验报告做完.直到做完测试实验后,才知道其实并不容易做,但学到的知识与难度成正比,使我们受益匪浅.做实验时,最重要的是一定要亲力亲为,务必要将每个步骤,每个细节弄清楚,弄明白,这样,也会有事半功倍的效果。 实验就是使我们加深理解所学基础知识，掌握各类典型传感器、记录仪器的基本原理和适用范围;具有测试系统的选择及应用能力;具有实验数据处理和误差分析能力;得到基本实验技能的训练与分析能力的训练，使我们初步掌握测试技术的基本方法，具有初步独立进行机械工程测试的能力，对各门知识得到融会贯通的认识和掌握，加深对理论知识的理解。更重要的是能够提高我们的动手能力。 这次实习的却让我加深了对各种传感器的了解和它们各自的原理，而且还培养我们分析和解决实际问题的能力。 在做实验的时候，连接电路是必须有的程序，也是最重要的，而连接电路时最重要的就是细心。我们俩最开始做实验的时候，并没有多注意，还是比较细心，但当我们把电路连接好通电后发现我们并不能得到数据，不管怎么调节都不对，后来才知道是我们电路连接错了，然

后我们心里也难免有点失落，因为毕竟是辛辛苦苦连了这么久的电路居然是错了，最后我们就只有在认真检查一次，看错啊你处在哪里。有了这次的经验下次就更加细心了。以上就是我们组两人对这次实训最大的感触，下次实训虽然不是一样的学科，但实验中的经验和感受或许会有相似的，我们会将这次的经验用到下次，经验不断积累就是我们实训最大的收获。 篇二：传感器实训报告 上海第二工业大学 传感器与测试技术技能实习 专业：机械电子工程 班级：10机工A2 姓名： 学号： 指导老师：杨淑珍 日期：2013年6月24日~7月7日 项目五：转子台转速测量及振动监控系统。 （一）内容 设计一个转子台的振动检测系统，能实时测量转子台工作时的振动信号（振幅）并实时显示转速，当振幅超过规定值时，报警。具体要求： 1.能测量振动信号并显示波形，若振动超过限值，报警（软硬件报警）； 2.能测量并显示转子的转速； 3.限值均由用户可设定（最好以对话框方式设置，软件重新打开后，能记住上次的设置结果）；

VB程序设计课程设计报告完整版

V B程序设计课程设计 报告 HEN system office room 【HEN16H-HENS2AHENS8Q8-HENH1688】

《VB程序设计》 课程设计报告（2016 — 2017 学年第 1 学期） 题目：排序演示 学院：经济与管理学院 班级：物流管理1502 学号： 姓名： 指导教师：阮冰 时间：起 2017年1月3日止 1月6日

一、课程设计基本信息 课程代码：05190124 课程名称：计算机基础课程设计 课程英文名称: Computer-based Course Design 课程所属单位（院（系）、教研室）：数学与计算机学院计算机基础课程群 课程面向专业：生物科学类、制药工程、制药工程(生物制药)、药物制 剂、物流管理 课程类型：必修课 先修课程：大学计算机基础通识选修课程、Visual Basic程序设计课程学分：1 总学时：16 二、课程设计目标 掌握所学语言程序设计的方法，熟悉所学语言的开发环境及调试过程，熟悉所学语言中的数据类型，数据结构、语句结构、运算方法，巩固和加深对理论课中知识的理解，提高学生对所学知识的综合运用能力。通过综合设计要求达到下列基本技能： 1．培养查阅参考资料、手册的自学能力，通过独立思考深入钻研问题，学会自己分析、解决问题。 2．通过对所选题目方案分析比较，确立方案，编制与调试程序，初步掌握程序设计的方法，能熟练调试程序。 3．系统设计编程简练，可用，功能全面，并有一定的容错能力。用户界面良好，有较好的输出功能。在完成课题基本要求后，具有创新型设计，具有一定的实用价值。 4．根据个人的设计调试过程，撰写设计报告。 三、课程设计内容 利用已掌握的VB程序设计语言基础，以及面向对象的程序设计方法、事件驱动的编程方式，进行应用程序和系统的开发设计。在强化巩固已有编程知识基础之上，训练新的设计与编程思路，通过综合应用所学知识设计、编制、调试实用的Visual Basic程序。 四、课程设计要求 1.要求每个同学都要认真对待，积极参与。 2.课程设计结束时，提交完成的所有源程序、相关文件和可执行文件。同 时填写并完成《课程设计报告册》。 3.不符合要求的程序、设计报告、抄袭的设计报告或源程序代码、在设计 中完全未参与的将作不及格处理。 五、考核方式

[心得体会]vb程序设计实验心得4篇

[心得体会]vb程序设计实验心得4篇数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。 首先，让我的记忆追溯到大二暑假，在老大的指引下，我接触到Microsoft 公司的.NET产品。那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var 看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.网络是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sql serverXX，以前学asp的时候用的是aess，那个时候只是照着人家做，理论是什么也不是很清楚。

通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么 用也不是很清楚。但是这为这学期的课程设计打下了铺垫。 来到学校后，随着这学期的数据库课程大赛开始了，我有一个看 法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，just do it！我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseUML 建模工具。在此之前，我脑袋里面没有软件建模的思想，什么UML建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的powerdesigner也是一样。 开发的时候我想过用什么架构，c/s模式？模式有很多，怎么选择？我就上网搜索现在最流行的架构是什么。结果搜到了MVC架构，就是你啦。我决定用这个架构，不会，没关系，咱学。Just do it！

《VB程序设计》实验报告

台州学院 《VB程序设计》实验报告 实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。Private Sub Command1_Click() Text1.Text = "欢迎使用VB！" End Sub Private Sub Command2_Click() Text1.Text = "" End Sub Private Sub Command3_Click() End End Sub 实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求： （1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）； （2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）； （3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示” Private Sub Command1_Click() Label1.Caption = "你好，张三！" Command1.Enabled = False End Sub Private Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = False End Sub 实验2.1 设计一个程序，运行时界面如图2-1所示。当单击“左”、 “右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。 Private Sub Command1_Click() Label1.Left = Label1.Left - 100 End Sub Private Sub Command2_Click() Label1.Left = Label1.Left + 100 End Sub Private Sub Command3_Click() Label1.Top = Label1.Top - 100 End Sub Private Sub Command4_Click() Label1.Top = Label1.Top + 100 End Sub

VB 课程实训总结

VB 课程实训总结 VB 课程实训总结 VB课程实训总结 跟随着我们学习的步伐，我们又迎来了新一次的实训。本次实训是我们对刚接触一学期的VB程序设计课程进行实训。跟以往的我的实训有很大的区别。 本次实训中我们主要以制作某一个管理系统为主，主要考察我们对VB程序设计软件的了解，及对数据库管理的应用。在短短的一周实训中，让我深刻的明白了，我们对学习的态度要一丝不苟吗，细心谨慎，因为在本次的实训中，我们所做的系统程序中，只要你从中稍有不慎，就会导致全部出错，所以我们对学习要谨慎，认真，细心。在这次我实训中，我深深的发现了，自己在对VB程序设计软件的掌握中，还有很多的不了解，还有很多不明白的地方，同时也提醒了自己，要在今后的学习中更加的努力认真，弥补自身的不足之处。 每天面对着一串串的代码，原先自己感觉头晕眩，不知道从何入手，头脑一点思路都没有，面对自己要做的任务，“制作某一个管理系统”感觉是多么的渺茫，感觉是那么的遥不可及。但是在老师的细心教导下，我们找的了思绪，从迷雾中走了出来，开始着手制作了我们所谓的“管理系统”。在老师的帮助中，我都对系统的制作有了初步了了解，同时也有了方向，我们朝着老师给我们引导的方向，一步一步的开始制作我们的“管理系统”。在我们制作的道路上，我们面临了很多的问题，但我们没有气馁，坚持，细心，慢慢的分析错误纯在的问题，请求老师的帮助，把问题一个一个的去解决掉，在此我们要感谢老师对我们的教导，及给予我们的帮助。

在这次的学习中，我也体会到了同学间的协助也是相当的重要，我们在课下一起讨论，研究。同时也有和更大的收获，对VB程序设计软件也有了更深的了解，也感受到了在学习的道路上我们彼此之间要相互帮助相互关心，以求取得更大的进步。 扩展阅读：VB 课程实训总结电子商务 VB实训总结 一、实训目的： 加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。 二、实训时间：20xx年01月02日20xx年01月06日三、实训方式：上机操作四、实训内容： 这次在3名指导老师的带领下，利用VB开发工具与数据库SQLserver开发一个实用的小型管理信息系统。一共有五个题目。我选择的是第四个-学籍管理系统。它的功能要求如下： 1、学籍信息输入：实现学生基本情况的输入。包括各个学生的情况，姓名、家庭电话、家庭住址、学号等各个消息。 2、学籍信息管理：本模块实现了信息的修改、删除、查询。还能查询到平均信息以及单科最高最低信息以及个人信息。把信息统计这个繁琐的工作简单化，为学生信息的管理方面提高工作效率。 3、学籍信息查询：通过输入学号便可以查询到这个学生的全部信息，包括姓名、性别、生日是、班号、入学日期、联系电话、奖惩日期、奖惩名称和成绩表都一目了然，很大的方便了教工们查询学生信息的过程。

VB程序设计实验报告

《VB程序设计》实验报告 专业：信息管理与信息系统 班级：1502班 学号： 姓名： 日期：2016年12月20日

一、实验题目：记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容：设计一个记事本程序。 2、界面设计（贴出对象属性表和界面设计图）。 ①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜 单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V

文本风格mnuStyle ···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器

界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制

VB程序设计报告a

VB程序设计报告 姓名：阮玮娜学号：020******* 设计题：3.诗词欣赏电子书 （一）程序简介 窗体出现后单击打开命令按钮时出现打开对话框，在目录文件中选择作者并按“确定”键。 目录列表框中会出现诗词目录，从列表框中选择要欣赏的诗词则两个文本框中会出现相应的内容和注释与题解。当单击向上（或向下）按钮时列表框中条目会上移（或下移）一个条目，同时两个文本框也会进行相应的变化。 在此程序中我所新增功能是：当诗词条目处在第一个（或最后一个）时，单击向上（或向下）按钮时列表框中条目会自动循环到最后一个（或第一个）条目，同时两个文本框也会进行相应的变化。 （二）程序用到的主要控件：窗体(form)，文本框（textbox）,标签(label)、框架(frame)、列表框(listbox)、命令按钮(commandbutton) （三）程序用到的主要控件，属性，过程： 1．列表框的应用： 用以显示打开的诗词名，其中style属性设为0 2．文本框的应用： 用以显示与“*.cnt”相对应的“*.txt”文件，其中multiline属性设为true, scrollbars 属性设为2 （四）程序的调试和要困难的解决方法： 在程序的编译及调试过程中遇到的最大困难既是如何利用源文件中的*号进行诗词的标示及读写。由于三个诗词文件中并非都是以单个*为一行，不同的样式其判断语句也有相 应的变化。最终的编成语句如程序代码所示。另一个问题是单击右移命令按钮时所激发的 Click事件中若直接使用List1.ListIndex属性值进行条目相加时运行出错，解决方法是定 义一个整型过程级变量int1作为中间量先将List1.ListIndex属性值赋给int1，在对int1 进行加减判断后再将int1值赋给List1.ListIndex从而又一次激发列表框的Click事件 （五）经验心得： 在进行课程设计时首先要对各个控件的常用属性有初步了解及一些属性值的应用条件。其次在编写程序代码时应细心书写，每一个语句的微小错误都有可能使程序无法正常运 行而出错。 在进行VB程序设计的前期，我因为对某些控件的各个属性不很熟悉，只能每每参照教科书，但通过书以及同学老师的帮助，像诗词欣赏电子书这样比较简单的程序设计，使我 从中受益非浅，开阔了程序设计的思路，完备了VB的知识体系，并培养了自己不断探索的 劲头，而且渐渐对VB产生了兴趣。 （六）附件 本题所有的程序代码及注释如下： Public strName As String '公共变量strName用于记录文件路径

VB实验报告一

本科实验报告 课程名称：人机界面程序设计基础 实验项目：一、VB环境和可视化编程基础实验地点： 专业班级：学号： 学生姓名： 指导教师：李何 年月日

一、实验目的和要求 1、掌握启动与退出Visual Basic的方法。 2、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。 3、掌握定义变量、常量的方法；了解运算符和表达式的使用；熟悉内部函数。 4、掌握基本控件的应用。 二、实验内容和原理 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 2、使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性Current X和Current Y的定位输出。 3、编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式 提示：使用Timer控件、Format函数和Now函数。 4、对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。 5、使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析。 三、主要仪器设备 计算机

四、实验步骤 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 打开VB软件，建立标准exe，在窗体设计器中添加Command1，更名为“按钮” 添加text1，删掉名称。 双击按钮，编写程序如图

VB学生信息管理系统课程设计报告

专业实践 课 程 设 计 报 告 班级：08计科一班 姓名：*** 学号：*************

学生信息管理系统 1.需求分析: 随着学校的规模不断扩大，学生人数急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。通过这样的系统可以做到信息的规范管理，科学统计和快速查询，修改，增加，删除等，从而减少管理方面的工作量。实现学生信息关系的系统化，规范化，自动化，用计算机对学生各种信息进行日常管理。 本系统主要包括学生信息查询和信息添加等功能，来初步实现学生信息的计算机化管理，更多相关功能有待以后慢慢完善。 2.系统功能： 本学生信息管理系统采用的语言是Visual Basic,用SQL Sever 2000数据库完成，有以下功能: (1)有较好的权限管理; (2) 原始数据修改简单方便,支持多条件修改; (3)方便的数据查询，支持多条件查询. 2.1采用Visual Basic有以下特点： 2.1.1可视化编程 Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。 2.1.2结构化程序设计语言 Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。

VB设计计算器实验报告

VB 设计计算器 实验报告 姓名: 专业: 学号: 二0 一一年十一月七日

设计功能完整的计算器，实现如下图所示按钮（除“ MC，“MR , “MS，“M+ ）及菜单功能，如图： 一、解题思路、分析： 对于我来说，设置一个完整的计算器是一个艰巨的任务，一开始想了一小段时间，自己试着编了一些，但就是无法达到一个完整的计算器，于是，就到网上去下载了一些有关计算 器的程序进行参考分析。首先先定义一些量，比如说前后两个操作数opl、op2，小数点是 否真存在的量DecimalFlag ，操作数个数NumOps上一次按键的类型等。接着对窗体进行初始化，同时设置所有变量为其初始。然后对各个键盘的命令进行编写程序，对0---9按键设 置为一个按键命令组，编写一个程序，同时加减乘除设置一个命令组，也编写一个程序，其 他按键都各自设置为一个命令，分别单独进行编写程序。同时在多个命令中都要对显示器中 的小数点进行分析，看它是否是真实存在。同时对于除法分母是否为0，也要加以考虑。 、源程序: Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastI nput = "NONE" OpFlag ="" Text1.Text = Format(0, "0.") 'Decimal.Captio n = Format(0, ".") End Sub Opti on Explicit Dim Op1, Op2 Dim DecimalFlag As In teger Dim NumOps As In teger Dim LastInput 类型 Dim OpFlag Dim TempReadout ' 窗体的初始化过程 ' 设置所有变量为其初始值 前面输入的操作数 小数点仍然存在吗？ 操作数个数 指示上一次按键事件的 指示未完成的操作

vb课程设计报告心得感想.doc

vb课程设计报告心得感想 vb课程设计报告心得感想篇1 在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。 刚开始做程序的时候，就是完全按照老师的要求，老师的步骤去做的，结果却发现，怎么运行不了?明明是按照老师的步骤去做的，明明是按照老师的要求去做的，但是就是会遇到一些问题使程序运行不了。开始也没有管那么多，仍然是按照课本上的去做。 第一次，在上机课的时候，我根据老师讲的，在机房里做了一次，但没有做完。于是把东西存在了自己的MP3里面，以便以后上机的时候再来做。但真的没有想到，我的MP3，在一次上电子阅览室的时候，忘了拔了。于是乎，我辛辛苦苦做了一大节课的程序就这样没了。心里真的很不舒服，但是，不舒服归不舒服，这个程序，还是得继续做下去，这么以点点小小的失误不算什么，然后跑到学校机房，继续我的VB程序设计。但由于时间问题，做的还是有点粗糙，还是不免存在一定的问题，比如说开始的时候打开不了文件，总是出现错误，自己总也找不出来，后来请教了一下同学，结果发现时代码的编写出现了错误，把代码改过来之后，程序终于可以打开运行了。然后，检查的时候，又发现查找运行错误，又是代码那里出现的黄色的字样，结果发现，是代码拼写错误，于是，拿着同学的代码对比一下，发现了错误所在之地，然后更正了过来。 经过一番努力，程序终于做完了。 后来，室友看了我的程序，她说运行不了的，就是出现了错误，出现了错误，就应该改过啊，这时的我才恍然大。是错误，那么就要改正的! 于是当天，我就去了学校机房，再一次运行我的程序，仍然出现错误情况，需要调试，我回忆起上课的时候，老师是怎么跟我们讲的，哪里出现了错误，需要怎么样改正。于是，我就耐着性子，一个一个，一个一个得改正，编辑代码，一个一个得检查，终于完成了。完成之后，我在运行一下，一切正常，心里终于舒了一口气。经过这次的VB程序设计，让我知道了更多学习的方法。具体如下：(1)保持良好的学习心态，第一，要有自信，自强，积极主动学习.第二，克服畏难情绪，树立学好程序设计的信心(2)要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习. (3)自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法.因此我们得多动手编写程序，逐渐提高写程序的能力.自己动手，编写一些程

(完整版)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的值赋给b If b > c Then '嵌套，如果b>c t = b: b = c: c = t '把b的值赋给t，b 的值赋给c，t的值赋给c If a > b Then '再次嵌套，如果a>b t = a '把a的值赋给t a = b 'b的值赋给a b = t 't的值赋给b End If End If Print a; "、"; b; "、"; c '输出 a "、"b;"、"; c End Sub Private Sub Command2_Click() End '退出程序 End Sub 程序2如下： Private Sub Command1_Click() Dim i As Integer, k As Integer, n As Integer '定义整形变量