VB_实验一,二,三内容

合集下载

程序设计基础VB实验指导书

程序设计基础(Visual Basic)实验指导书西南林学院计算机与信息科学系实验说明一、实验文档下载：老师的实验上机文档下载的地址：/~hjp/下的“VB”文件夹拷贝到计算机中。

然后从该文件夹中找到本次实验的文档。

二、个人文件夹建立在实验前，请先在电脑桌面上建立个人自己的文件夹，名称以个人的姓名加学号组成。

如：“20130208001XXX”。

同学们自己个人的VB程序设计实验文档都存放在该文件夹中。

而且要求，每个实验都保存在单独的文件夹中。

如，本次实验有三个例子，那么就需要建立三个文件夹，第一个文件夹的命名可为“实验1-1”，如此类推。

相应的例子程序文件保存在相应的文件夹中。

三、实验结果上传给老师实验完成后，同学们需将自己的文件夹上传给老师，以备检查。

上传步骤如下。

1.压缩文件夹。

请将保存有VB实验上机程序的个人文件夹（在之前建立好的，如：“20130208001XXX”）进行压缩处理。

压缩方法如下：选中该文件夹，单击鼠标右键，选中“添加到“20130208001XXX.rar””。

计算机自动完成生成该文件夹的压缩文件。

2.进入FTP。

上传的地址为：ftp://192.168.1.2（或按任课老师指定的地址）,输入地址后进入该FTP网。

打开“XXX”文件（该文件夹以任课老师姓名而命名）下的“上传”文件夹。

3.上传文件。

将第一步中生成的压缩文件拷贝到第二步打开的“上传”文件夹中去。

等待拷贝完成后，才能确认程序上传成功。

四、实验内容说明本实验指导书共包含15次实验上机内容。

每次实验上机内容中包括三种题型：验证题、设计题和选做题。

验证题为教材中的例题，通过参考书上的说明和操作步骤来熟悉相应知识点，一般有1-2道题。

设计题为书上习题或其他来源的题目，目的是让学生能够在不照搬照抄的情况下自己独立思考完成VB程序设计，一般有1-2道。

选做题为学有余力的同学练习，一般有1-2道。

每次实验上机学生必须完成相应的验证题和设计题。

《程序设计基础—VB程序实验》

《程序设计基础—VB程序实验》说明：实验1和实验2均为电子实验报告，后面8个实验是纸制实验报告。

实验1 计算机基本操作实验目的⑴熟悉计算机，能够正确进行开、关机操作。

⑵熟悉键盘，掌握键盘上所有字符的输入，掌握正确的指法，能够进行中、英文切换。

⑶理解操作系统概念，掌握Windows XP的基本操作，能够利用“控制面板”进行一些参数的设置。

⑷知道“回收站”的功能，学会有关文件、文件夹的基本操作。

⑸学会在计算机上搜索或查找相关的文件或文件夹，掌握通配符的使用。

实验内容⑴熟悉上机实验的计算机，熟悉键盘，学会中、英文输入方式的转换。

⑵学会用正确的指法进行输入，知道键盘上所有字符的输入。

⑶利用“控制面板”修改系统时间、桌面背景、鼠标属性。

⑷在桌面上新建一个文件夹，该文件夹以学生自己的名字+班级+学号的后3位命名。

⑸用文本方式或Word文档，写一段字数不少于300字的自我介绍，以1.doc命名并保存到上述文件夹中。

⑹将上述文件夹复制到ftp://10.10.9.222上。

实验2 常用软件的基本操作实验目的⑴了解Word功能，掌握Word的基本操作，包括页眉/页脚的设置、分栏、页面设置、添加底纹等。

⑵学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等，能够在Word中插入图片、表格、艺术字、特殊符号等。

⑶了解Excel的功能，掌握Excel的基本操作，包括单元格属性的设置、数字的几种填充形式、单元格的合并与恢复、边框的设置等。

⑷掌握Excel的基本公式的使用，能够用公式进行基本计算。

掌握Excel中的图形制作方法，能够根据表格做出图形。

实验内容⑴将ftp上自己文件夹中的1.doc文件复制到桌面上，然后做如下处理：①将标题“自我介绍”居中；②将文章中第二段的内容进行分栏，要求中间有分割线；③插入一个4行4列的表格，内容为学号、姓名、某门课的成绩；④任意插入一张图片；⑤在文章中的任意位置加底纹。

将做好的文档以2.doc命名并保存。

vb1

实验一窗体、按钮、标签、文本框实验目的：1、掌握简单的VB程序的建立、编辑、调试、运行和保存；2、正确设置窗体、标签、文本框、命令按钮的属性，并编写简单的事件过程代码；3、掌握使用窗体的Print方法。

实验内容：一、设计一个登陆窗口。

单击“登陆”按钮，弹出Form2，并在Form2上的标签上输出“江垚，欢迎使用VB6.0！”单击“退出”按钮，则退出程序。

提示：（1）设置各标签的背景颜色，字体大小，以美化界面。

姓名处输入有下划线。

（2）密码处输入的“*****”在属性PasswordChar中设置。

二、实验设计步骤1、首先创建窗体Form1，在窗体中建立文本框Text1至Text5以及命令按钮Command1和Command2。

2、各对象建立好之后，要为其设置属性。

首先将窗体的BackColor 属性设置为“活动边框”。

选中文本框Text1并将其BackColor属性设置为深蓝色，Caption属性设置为“请登录”，双击Font，将“请登录”字体设置为宋体、粗体、小初；用同样的方法将Text2、Text3的Caption 属性设置为“姓名：、密码：”，字体设置为宋体、粗体、三号，背景颜色为黄色；将命令按钮Command1、Command2的Caption属性设置为“登陆、退出”，其字体为宋体、常规、四号。

将文本框Text4的Font属性设置为新宋体、倾斜、小三，同时在其中输入的内容需加下划线；Text5的PasswordChar属性设置为“*”。

3、再新建窗体Form2，将该窗体的BackColor属性设置为“活动边框”，同时在窗体中建立标签Label1，将其Caption属性设置为欢迎使用VB6.0！，其Font属性设置为新宋体、粗体、倾斜及二号。

4、双击命令按钮Command1，出现工程1-Form1（code）对话框，在该对话框中输入程序，如下图所示：该程序是利用命令按钮来控制程序，该Command1程序中用了Show方法，此方法是用于显示窗体，其语法为：【对象.】Show 【Style】,将Style的参数设置为0，即无模式显示。

VB实验--------所有实验题目

实验题目总体要求：本学期的所有的实验题目，希望同学们按如下步骤认真做，（1）先画出处理界面（窗体）；（2）再给出处理步骤，（3）写出程序代码：可参考下面的例题：例如：设计程序，求1+2+3+...+N 的和值。

其处理过程是：（一）设计界面（在纸上画出界面，并注明各控件的名称）：（二）处理步骤：单击命令按钮，按以下步骤处理（1）定义3个变量：N ，s ，x ，分别用于存放：输入的数值，和值，控制循环（2）将文本框1的值，提供给变量N ；（3）s=0（累加前，将变量s 初始化为0）；（4）X=1（设置循环的开始值）（5）当X<=N 时重复执行S=s+xX=X+1（5）在文本框2中显示和值S（三）编写有关的代码：Private Sub Command1_Click()Dim n%，s%，x%N=val(text1.text)S=0X=1Do while x<=nS=s+xX=x+1LoopText2=sEnd Sub文本框1：TEXT1 文本框2：TEXT21：Command1标签1：Label1 标签2：实验一：用语言或流程图描述处理步骤(1次)1.判定一个数X是否是偶数的处理步骤;2.写出求5的阶乘的计算步骤;3.写出求1+2+3+...... +100的计算过程;4.写出计算1!+2！+3！+4！+......+20!的计算步骤;5.写出求一元二次方程解的处理步骤;6.给出将三个整数A,B,C按从小到大的顺序排列的处理步骤;实验二：表达式及其运算的实现(1次)1.设计一个程序，完成利用文本框输入任意两个数的乘法运算，并显示计算结果。

2.进一步完善程序，完成利用文本框输入任意两个数的加法、减法、乘法、除法运算，并显示计算结果，3.再进一步，改进，完成，利用随机函数，产生任意两个100到200之间的整数，并完成两个数的加法、减法、乘法、除法运算，并显示计算结果。

4．求方程AX+B=0的解。

VB实验

一、程序运行界面如下图所示。

程序实现的功能：1、程序运行时，首先随机产生30个100-3000之间的任意年份，并显示在List1中。

2、当单击“判断”按钮时，选出是闰年的年份，显示在List2中。

3、当单击“排序”按钮时，将选出的闰年的年份值按从小到大的顺序排序，并重新显示在List2中。

说明：判断某一年是否是闰年有两个条件：1、能被4整除，但不能被100整除。

2、既能被4整除，又能被400整除二、在磁盘上有顺序文件test22in.txt。

要求编程实现以下功能：1．单击“读入串”按钮，从文件中读出一个字符串并显示在text1中；2．淡季“排序”按钮，将字符串按字母ASCⅡ码值从小到大排序，并显示在text2中；3．单击“追加”按钮，将排序后生成的字符串添加到文件末尾（要求采用冒泡法排序）。

三、编写程序，实现对任意字符串的加密和解密操作。

其中，对大小写英文字母的加密规则为：A→D，B→E，C→F，……，M→P，N→Q，……，W→Z，X→A，Y→B，Z→C；其他字符保持原样不变。

要求程序界面如下所示。

当在test1中输入需要加密的源文后，单击“加密”按钮，得到密文，并显示在test2中；当在test3中输入需要解密的密文后，单击“解密”按钮，得到源文，并显示在test4中。

四、建立一个成绩查询窗体如下图所示：要求在Form_Load时打开磁盘文件test42in.txt度曲数据，并将读入的学号和姓名分别添加进两个列表框中，同时将三门课的考试成绩读入c,d,e三个数组（每个数组可定义为200个元素）；并将两个列表框Listindex属性置为0。

当点击姓名中任意一项，学号的Listindex应随之改变，同样点击学号中任意一项，姓名的Listindex应随之改变。

点击“查询”则将该学生的三项成绩显示在右边的三个文本框内，同时将平时成绩置空。

点击“计算”则将该学生三项成绩的平时值显示出来。

点击“退出”则结束程序。

VB[1].NET实践教程(实验1)

窗口
（1）窗体窗口
窗体窗口可分为窗体设计和窗体运行窗口。窗体设计窗口指的是在设计应用程序时，用户在窗体上建立应用程序的界面。窗体运行窗口指的是用户看到的正在运行的窗口，用户可通过与窗体和控件交互得到相应的结果。
（2）代码设计窗口
代码设计窗口专门用来进行代码编辑，包括各种事件过程、自定义过程和类等源程序代码的编写和修改。双击窗体、控件均可直接打开代码设计窗口，再单击选择代码窗口右上方的方法名称下拉框下的对应事件，可自动生成事件过程框架，然后设计者进行编码。
10选择菜单【文件】|【全部保存】保存该项目。
2.创建一个“欢迎你”应用程序，初始设计界面如图1-5所示，运行界面如图1-6所示。具体要求如下：
（1）在Label1标签上显示“请输入姓名”，Label2刚开始运行时为不可见。
（2）在TextBox1文本框输入你的姓名，单击“显示”按钮，在窗体标题上显示“欢迎你，×××”，并显示出Label2，内容为“×××，预祝你学习愉快！”。
属性名
含义
取值与说明
Muitiline
是否支持多行显示
False：不支持（默认）True：支持
PasswordChar
用于密码
如用*来表示输入的文本内容
Readonly
是否只读
False：只读TRUE：可写（默认）
ScrollBars
若多行显示，指定滚动条
None：没有。Horizontal：水平。Vertical：垂直。Both：水平、垂直滚动条。
Label1.Left = Label1.Left + 20'右移个单位
'当标签移动到窗体外时，再从窗体的左边进入
IfLabel1.Left >=Me.WidthThen

VB试验指导书

实验一Visual Basic集成开发环境和程序设计初步实验目的：1、了解Visual Basic系统对计算机软、硬件的要求。

2、掌握启动与退出Visual Basic的方法。

3、了解Visual Basic集成环境的组成，各部分的作用。

4、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。

5、掌握常用控件（文本框、标签、命令按钮）的应用。

6、感性认识控件（对象）、过程、事件、属性等的概念，初步认识窗体、控件、属性、过程在程序设计中的作用和关系。

实验内容：建立一个“标准exe”类型的应用程序，要求单击“确定”按钮，在屏幕上显示“您好，世界！”，单击“退出”按钮，退出应用程序。

界面如图1-1所示，以sy1.frm、sy1.vbp和sy1.exe文件保存到自己的软盘上。

1-1 图实验准备：应用程序建立VB1) VB集成化开发环境 2) 复习相关知识：1.准确写出两事件代码，列出各控件所需属性（属性项目和属性值）。

2.实验步骤：中文版的启动与退出。

1.Visual Basic 6.0 启动：Microsoft Visual Basic 6.0）单击“开始”按钮，然后选择“程序”中“1 中文版”，单击即可。

中文版”图标，Microsoft Visual Basic 6.0或：单击桌面上“ exe”按钮，进入环境。

）新建工程对话框，单击打开“标准2--退出：1) 单击集成环境窗口右上角的关闭按钮。

2) 单击“文件”下拉菜单中的“退出”选项。

2.界面设计：（1）添加标签Label1。

（2）添加命令按钮Command1。

（3）添加命令按钮Command2。

（4）使用格式菜单，使用两命令按钮尺寸完全一样，并恰好处在窗体的中间位置。

3.设置界面对象属性：可以通过用鼠标右键单击某一窗体或控件，在弹出的菜单中为其设置属性，也可以从属性窗口的对象列表框中选择要设置属性的对象。

1)设置Form窗体Caption属性为“Hello,World!”2)设置Command1按钮Caption属性为“确定”，名称属性为“OK”.3)设置Command2按钮Caption属性为“退出”，名称属性为“Cancel”。

VB实验报告

VB实验报告《VB程序设计》实验单元一实验报告专业班级：姓名学号 2指导教师：王云侠完成时间： 3月22日实验一VB环境和可视化编程基础一、实验目的1 了解Visual Basic的安装2 掌握启动与退出Visual Basic3 掌握建立、编辑和运行一个简单应用程序的全过程4 掌握基本控件的使用二、实验环境VB6.0三、实验内容1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。

提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。

对文本框计数：Text1=Val(text1)+1 。

2、命令按钮、字号、内容和格式的复制练习。

按钮1：使得Text1中的文本按要求改变。

按钮2：将Text1中选定的文本复制到Text2. 控件名 Form1 Label1 Label2 Text1 属性 Ca ption=”实验2” 复制文本输入文本Text=“VB功能强大，但要下功夫学习才能学好。

” （每个同学文本框中内容可以不同） Text2 Command1 Command2 四、实验步骤1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。

从运用中点击vb6.0经典版Text=”” Caption=”隶书25磅” Caption=”复制=>” 打开标准 EXE 建立一个form 1添加一个Label和TextBox，Label的caption改为“你单击窗体的次数”，TextBox 的text改为空，然后编写代码如图点击运行即可。

2、命令按钮、字号、内容和格式的复制练习。

从运用中点击vb6.0经典版打开标准 EXE 建立一个form 1添加两个Label两个TextBox两个CommandButton，Label的caption改为“输入内容”和“复制效果”，TextBox的text改为“任意文字”和“空”，CommandButton的caption改为“隶书25磅”和“复制=>”。

大学计算机基础实验指导教程电子版

目录实验一熟悉Visual Basic 6.0编程环境 ....................................................................... 实验二Visual Basic语句基础 ............................................................................................ 实验三顺序结构 . (23)实验四选择结构（一） ..................................................................................................... 实验五选择结构（二） ..................................................................................................... 实验六循环结构（一） ..................................................................................................... 实验七循环结构（二） ..................................................................................................... 实验八循环结构（三） ..................................................................................................... 实验九循环结构（四） ..................................................................................................... 实验十一维数组程序设计 ................................................................................................. 实验十一二维数组程序设计 ............................................................................................. 实验十二控件数组和自定义数组程序设计 ..................................................................... 实验十三过程程序设计（一） ......................................................................................... 实验十四过程程序设计（二） ......................................................................................... 实验十五窗体和常用控件（一） ..................................................................................... 实验十六窗体和常用控件（二） ..................................................................................... 实验十七窗体和常用控件（三） ..................................................................................... 实验十八用户界面设计（一） ......................................................................................... 实验十九用户界面设计（二） ......................................................................................... 实验二十用户界面设计（三） ....................................................................................... 实验二十一图形操作 .........................................................................................................实验一熟悉Visual Basic 6.0编程环境【实验目的】（1）熟悉VB集成开发环境。

vb实验报告答案全(2)(1)

实验一问答题：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位数，其各位数字的立方和等于该数本身。

VB实验及答案

对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值象限判断判断 X= Y=
（3）编写事件代码： Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
（4）程序的运行及保存。 4 求圆的面积及圆柱体的体积，界面如图 2-3 所示。
【步骤】（1）设计应用程序的界面：在窗体上创建两个命令按钮 Command1 和 Command2，四个标签 Label1、Label2、Label3 和 Label4，四个文本框 Text1、Text2、Text3 和 Text4。（2）设置对象的属性
【步骤】
（ 1 ）在窗体中创建一个标签 Label1 、一个命令按钮 Command1。
（2）在属性窗口中设置对象的属性：
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
（3）在 Command1 的 Click 事件中编写程序代码：
x = Val(Text1) y = Val(Text2) If x > 0 Then

VB实验报告1-9

实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。

2．熟悉Visual Basic 的集成开发环境。

3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。

4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。

二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。

2、编一程序，计算任意输入的正整数的平方根。

3、编写一个应用程序，界面如图1-1所示。

窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。

（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。

2).程序主要代码。

3).运行结果（输入与输出）。

4).实验总结。

(写上你自己的总结。

可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。

2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。

12级《VB程序设计》教学大纲

VB程序设计课程（Visual Basic Programming Design）（学时60 ）一、前言《VB程序设计》是面向全校所有非计算机专业的一门计算机公共基础课。

本课程共60学时，3.5学分，其中实验教学30学时。

二、课程教学目的本课程的教学目的就是使学生在掌握了计算机文化基础层次内容的基础上，进一步深化计算机的技术能力，培养学生利用计算机技术和自己所学专业，解决一些实际问题的能力。

通过本课程的学习，掌握VB集成开发环境的使用方法，掌握VB基本对象、属性、方法和事件的基本知识，掌握程序设计基础知识，结合程序设计的基本算法开发简单的应用系统。

三、教学基本要求和方法1、教学基本要求通过本课程的学习，使学生掌握面向对象程序设计的基本概念，了解程序设计的基本原理、技巧和方法，并且能够利用VB语言编写简单的程序。

基本要求如下：（1）熟悉Visual Basic操作环境与设计工具；（2）掌握面向对象程序设计基本概念和常用控件、窗体设计；（3）重点掌握结构化程序控制的三种基本结构，并且能够熟练运用之编写程序；（4）掌握子程序、自定义函数设计与参数传递的方法；（5）掌握变量和过程的作用域及变量生存期的概念；（6）掌握图形的基本操作；（7）掌握文件操作和菜单的设计。

2、教学方法（1）采用课堂讲授、上机实践相结合的教学方式；（2）在教学过程中，辅以小型实例，使学生加深对基本语法知识和编程思路的理解与运用，培养学生分析问题及实践能力。

（3）本课程是一门实践性很强的课程，要求学生不仅掌握基本原理以及会编制程序，而且会在计算机上调试和测试程序。

在学习的过程中，要求学生能切实掌握本门语言以便在实际工作中能作为工具使用，同时又应当对今后学习其它的语言起一定的触类旁通作用。

而对程序设计技巧和方法的学习和实践，则是基本的训练。

四、课程考核方式参加省计算机等级考试（二级Visual Basic）作为期末考核方式，考试形式：采用无纸化上机考试。

VB程序设计学习与实验指导书答案(包含实验答案)

VB学习与实验指导测试题参考答案第一章第二章第三章第四章第五章第六章第七章第八章第九章综合测试题一综合测试题二下篇实验教程实验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 实验作业1 熟悉Visual Basic集成开发环境

实验名称实验时间
实验一熟悉 Visual Basic 集成开发环境 2013 年 9 月 4 日 3-6 节、9 月 5 日 5-8 节（1）掌握 VB 的启动和退出。
实验目的
（2）掌握利用 VB 建立、编辑、保存及运行应用程序的过程。（3）了解和使用 VB 集成开发环境各窗口、菜单的一般功能。（4）了解基本控件窗体、标签、文本框、命令按钮的属性、事件和方法。

实验内容
3、简单界面设计。要求设置窗体的 icon、 caption、 minbutton、 maxbutton、 controlBox 和 picture 属性，属性值自定，运行观察设置的结果。 4、简单界面设计。在窗体上建立一个文本框控件。要求： ①文本框无初始内容。 ②高、宽分别为 2000 和 1800。 ③可显示多行。 ④有水平滚动条。 ⑤字体样式为斜体。 ⑥最多允许输入 20 个字符。 ⑦输入的字符以“*”显示。运行观察设置的结果。
实验小结
2、简单界面设计。在窗体上建立一个标签控件和两个命令按钮控件。要求： ①适当调整两个命令按钮的格式，如对齐、尺寸等。（选中命令按钮后，单击格式菜单下的相关命令） ②两个命令按钮 command1 和 command2 的 caption 属性值分别为： “中文”和“英文” 。 ③编写 command1 命令按钮的 click 事件，实现在标签上输出 “计算机” 。编写 command2 命令按钮的 click 事件，实现在标签上输出 “computer” 。
实验环境
硬件: 微型计算机软件: Microsoft Visual Basic 6.0 1、简单界面设计。设计实现以下界面：运行时，单击“大家好”命令按钮，在窗体上输出“hello everyone!”

vb关于for 循环实验报告

VB程序设计课内实验报告书系部名称：学生姓名：专业名称：班级：学号：时间： 2012-3-30 至 2012-4-9实验题目过程一、实验目的1．掌握if语句的使用。

2．掌握if语句的各种形式的使用。

3．掌握如何控制顺序结构和分支结构条件，防治if语句的错误。

二、实验内容实验一：利用分支结构判断输入的数是奇数还是偶数。

实验二：计算函数x (x≤1)y= 3x-2 (1≤x＜10)4x-12 (x≥10)实验三（选做）：判断象限三、设计方案（程序，界面）实验一：1.打开Visual Basic，新建一个EXE工程。

2.创建一个按钮命名Command1,双击Command1编写程序如图1-1.图1-13. 运行程序,点击Command1,得结果如图1-4；4．分别保存工程文件和窗体文件实验二： 1. 打开Visual Basic，新建一个EXE工程2．创建一个按钮命名Command1,双击Command1编写程序如图：1－2图1－23. 运行程序,点击Command1,得结果如图1-5；4．分别保存工程文件和窗体文件。

实验三： 1.打开Visual Basic，新建一个EXE工程2．创建一个按钮命名Command1,双击Command1编写程序如图1-3.图1－33. 运行程序,点击Command1,得结果如图1-64．分别保存工程文件和窗体文件。

四、结果及分析实验一图1－4 实验二：图1－5-1图1-5-2图1-5-3 实验三：图1－6五、调试情况，设计技巧及体会通过学习VB我更好了解了计算机运行程序，了解了计算机运行的语言，并能根据自己的需要编写程序，极大的减小了工作量提高了工作效率，使计算机更加人性化使我们更加充分地运用了计算机，为以后工作提供了方便。

同时也很好的解决了在试验中发现并解决问题。

六、源程序清单实验一：Private Sub Command1_Click()Dim x As Longx = Text1.TextIf x Mod 2 = 0 ThenLabel2 = "你输入的数是:" & x & "输入的是偶数"ElseLabel2 = "你输入的数是:" & x & "输入的是奇数"End IfEnd Sub实验二：Private Sub Command1_Click()Dim x, y As Singlex = Val(Text1.Text)If x < 1 Theny = xText2.Text = yElseIf x >= 1 And x <= 10 Theny = 3 * x - 2Text2.Text = yElseIf x >= 10 Theny = 4 * x - 12Text2.Text = yEnd IfEnd Sub实验三：Private Sub Command1_Click()If Text1.Text > 0 And Text2.Text > 0 Then Label3 = "在第一象限"ElseIf Text1.Text < 0 And Text2.Text > 0 Then Label3 = "在第二象限"ElseIf Text1.Text < 0 And Text2.Text < 0 Then Label3 = "在第三象限"ElseIf Text1.Text > 0 And Text2.Text < 0 Then Label3 = "在第四象限"ElseIf Text1.Text <> 0 And Text2.Text = 0 Then Label3 = "在x轴上"ElseIf Text2.Text <> 0 And Text1.Text = 0 Then Label3 = "在y轴上"ElseIf Text2.Text = 0 And Text1.Text = 0 Then Label3 = "在原点上"End IfEnd Sub。

VB程序设计教案

VB程序设计教案《VB程序设计》课程教案2008~2009学年第二学期适用班级: 自动化086班教研室: 自动化教研室任课教师: 张红丽黑龙江建筑职业技术学院课时授课计划班次自动化086 日期 09、3、2 班次日期班次日期班次日期基本课题:第1章程序设计的基本知识目的要求:要求学生掌握程序设计的基本知识，了解程序设计的有关概念。

重点难点: 重点: VB的特点难点: 程序设计的概念教学方法:讲授教具挂图:无授课过程与内容(最后按课时或单元写课后分析):一、课程介绍二、教学过程:第1章程序设计的基本知识1.1Visual Basic的集成开发环境1.1.1 Visual Basic的集成开发环境概述1.1.2 窗体设计器1.1.3 代码窗口1.1.4 工程资源管理窗口1.1.5 属性窗口1.2Visual Basic应用程序开发基础三、小结四、思考题教研室主任(签字) 任课教师: 张红丽黑龙江建筑职业技术学院课时授课计划班次自动化086 日期 09、3、3 班次日期班次日期班次日期基本课题:第2章设计最简单的VB应用程序目的要求:要求学生掌握程序设计方法。

重点难点:重点:VB的运行环境及设计方法难点:设计简单的VB程序教学方法:讲授教具挂图:无授课过程与内容(最后按课时或单元写课后分析):一、课程回顾二、教学过程:第2章设计最简单的VB应用程序开发Visual Basic应用程序的步骤是什么,如何在窗体上添加一个标签,三、小结四、思考题教研室主任(签字) 任课教师: 张红丽黑龙江建筑职业技术学院课时授课计划班次自动化086 日期 09、3、9 班次日期班次日期班次日期基本课题:第3章窗体目的要求:要求学生掌握窗体及多窗体的设计方法及属性的设置重点难点:重点:多窗体难点:多窗体的设计教学方法:讲授教具挂图:无授课过程与内容(最后按课时或单元写课后分析):一、课程回顾二、教学过程:第3章窗体3.1窗体设计举例3.2多窗体3.3属性、事件和方法的概念3.4窗体属性3.5事件三、小结四、思考题教研室主任(签字) 任课教师: 张红丽黑龙江建筑职业技术学院课时授课计划班次自动化086 日期 09、3、9 班次日期班次日期班次日期基本课题:实验1 窗体目的要求:要求学生掌握窗体及多窗体的设计方法及属性的设置。