vb实验报告册.doc

《vb实验报告册.doc》由会员分享，可在线阅读，更多相关《vb实验报告册.doc（6页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、南京工程学院实 验 报 告 课程名称 计算机程序设计基础 实验项目名称顺序结构程序设计学生实验班级 工业工程131 实验学生姓名 徐广 实验学生学号 实验时间 2014年 3 月12 日 实验地点 工程实训中心2-201 实验成绩评定 指导教师签字 2014年 月 日 “VB环境和可视化编程基础”实验报告一、实验目的和要求1.掌握表达式、赋值语句的正确使用与书写规则。2.掌握常用函数的使用。3.掌握InputBox与MsgBox函数(过程)的使用。4掌握各种数据类型。5.掌握VB程序基本的输入输出方法。二、实验内容：【题目】1用户输入圆的半径，计算出圆周长和面积，运行界面如图1-1所示 。要求

2、对输入半径进行合法检查，若发现有非法数字（不是数字的字符），利用Msgbox显示出错信息，利用SetFocus方法定位于出错的文本框处，以便重新输入。 图1-1 实验1 运行界面2创建一个简单的VB程序。要求在窗体上显示“欢迎登录VB上机系统”、“请输入您的学号”和“请输入登录密码”“以及两个等待输入学号密码的文本框和两个命令按钮”。“验证”按钮，其功能是：若输入正确的学号“”、正确的密码“VB1234”,则在文本框中显示“True”，反之为“False”， 均为红色显示。“退出”按钮，其功能是：单击按钮“退出”，程序结束。运行效果如图2-1所示。 图1-2 实验2 运行界面 3.练习赋值语句

3、。利用标签、文本框、按钮等控件，显示赋值语句的内涵。运行效果如图1-3所示。 提示：1. 对应X、Y的文本框用于输入，其它三个用于输出，可设为只读。2. 几个按钮中单击事件的代码均为先将两个文本框的值给变量X与Y，如x=Text1：y=Text2；再进行相应的赋值，如x=y；最后再将新值给到新X和新Y，如Text3=x，Text4=y，等等。 图1-3 实验3运行界面三、实验过程（步骤、命令）及结果（截图、源程序）1.步骤；1.进入vb环境，建立用户界面，控件form1、label、command、text2.控件属性设置实验1-1控件名称属性名称属性值用途Form1caption 实验1-1

4、 窗体Label1caption输入半径 标签1 Command1 caption圆的周长 命令按钮 Command2caption 圆的面积 命令按钮 Text1Text 空 文本框 Text2Text 空 文本框 Text3Text 空 文本框编程: Private sub command1 _click() If not isnumeric(text1) then Msgbox非法数字 Text1.setfocus Exit sub End ifDim r as single r=val(text1.text) text2.text=2*3.14*r end subPrivate sub

5、 command2_click()If not isnumeric(text1)then Msgbox非法数字 Text1.setfocus Exit subEnd ifDim r as single r=val(text1.text)text3.text=3.14*r*rend sub实验1-2控件名称属性名称属性值用途Form1caption 实验1-2窗体Label1Caption请输入你的学号标签Label2Caption请输入登录密码标签 Text1 Text 空 文本框 Text2 Text 空 文本框 Command1Caption 验证命令按钮Command2Caption 退

6、出 命令按钮编程： Private Sub Command1_Click() If Text1.Text = Then Text1.ForeColor = vbRed Text1.Text = True Else Text1.ForeColor = vbRed Text1.Text = False End If If Text2.Text = 1234 Then Text2.ForeColor = vbRed Text2.Text = True Else Text2.ForeColor = vbRed Text2.Text = False End If End Sub Private Sub

7、Command2_Click() Unload me End Sub实验1-3控件名称属性名称属性值用途Form1caption实验1-3窗体Text1Text空文本框Text2Text空文本框 Text3 Text 空 文本框 Text4 Text 空 文本框 Text5 Text 空 文本框Command1 Caption赋值：x=y命令按钮Command2Caption赋值：y=x 命令按钮Command3Caption赋值：x=x+1 命令按钮 Command4Caption赋值：x=x+y 命令按钮Command5Caption交换x=y：y=x 命令按钮Command6Captio

8、n交换t=x：x=y：y=t 命令按钮 Private Sub Command1_Click()Text3.Text = Text2.TextEnd SubPrivate Sub Command2_Click()Text4.Text = Text1.TextEnd SubPrivate Sub Command3_Click()Text4.Text = Text1.Text + 1End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command5_

9、Click()Text1.Text = Text2.TextText2.Text = Text1.TextEnd SubPrivate Sub Command6_Click()Text5.Text = Text1.TextText1.Text = Text2.TextText2.Text = Text5.TextEnd Sub四.实验思考1.标签label、command控件设置的属性代码有哪些？Label1.Caption=“” command1.caption=“”Label1.fontsize=“” command1.fontsize=“”Label1.fontbold=“”2.按钮所使

10、用的是什么事件？代码分别是什么？ 事件为单击事件Private Sub Command1_Click()Text1.text=“”. End Sub五、简述本次实验收获或存在问题通过实验，收获了哪些？还有哪些疑问？感想？ 答：通过实验我掌握了表达式、赋值语句的正确使用与书写规则，掌握了常用函数的使用和inputbox与msgbox（过程）的使用，掌握了各种数据类型和vb程序基本的输入输出方。为什么text1=text2+text3与text1=val（text2）+val（text3）不同？表达的意思不同？大多数编码过程太烦，是否有简单的方法？通过实验了解到每门不同的学科都有各自的特点，只有你认真的去了解、去学习，才能发现这门学科的魅力、发现它的独特所在。