VB程序设计Word文档格式.docx

VB程序设计Word文档格式.docx

《VB程序设计Word文档格式.docx》由会员分享，可在线阅读，更多相关《VB程序设计Word文档格式.docx（53页珍藏版）》请在冰豆网上搜索。

1单击窗体设计窗口，此时属性窗口显示了当前Form1的所有属性

2选中Caption属性,将Form1改为窗体练习,此时窗体变为窗体练习

（4）资源管理器窗口

操作练习:

1查看代码窗口按钮,显示和编译代码

2查看对象代码按钮,显示窗口上的模块对象

（5）代码窗口

代码窗口是专门进行程序设计的窗口，可在其中显示和编辑代码窗口

（6）工具箱窗口

1选择工程菜单中的部件按钮

2在弹出部件对话框中选择控件选项卡,单击确定按钮,这时工具箱中会出现新的按钮

（7）其他窗口

1）立即窗口:

使用立即窗口可以在中断状态下监视对象属性,变量或表达式的值,也可以在设计时查询表达式的值或命令的执行结果.初学者可以在设计时利用立即窗口练习常用函数,语句和表达式的使用.

2）窗体布局窗口

窗体布局窗口,用于指定程序运行时窗体的初始位置,在窗体布局窗口中有一个模拟显示器,在它的屏幕上直观地显示了本程序中各窗体在实际显示器屏幕中的位置和大小

思考题:

1详细叙述VB6.0各个窗口的主要作用

窗体窗口的作用:

窗体窗口简称窗体.是VB应用程序的主要构成部分,是应用程序最终面向用户的窗口,应用程序的运行结果最终在窗体中体现。

属性窗口:

在VB中,窗体和控件被称为对象,每个对象都可以用一组属性来描述其特征,如大小,字体和颜色等,属性窗口就是用来设置窗体和窗体中的控件属性的.

工程资源管理器窗口：

工程资源管理器窗口中的文件可以分为6类，即窗体文件、程序模块文件、类模块文件、工程文件、工程组文件和资源文件。

工程资源管理器窗口标题栏的下方有3个快捷按钮，分别是查看代码、查看对象和切换文件夹。

代码窗口：

专门用来显示和编辑代码，每个窗体都有一个代码窗口。

工具箱窗口：

工具箱由各种图标组成，这些图标称为对象或控件，利用这些工具图标，用户就可以在窗体上设计各种控件。

立即窗口：

立即窗口是为了调试应用程序提供的。

窗体布局窗口：

窗体布局窗口用于指定程序运行时窗体相对于显示屏幕的初始位置以及窗体之间的相对位置。

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

一界面设计

二属性设计

三代码设计

四运行调试

五保存

实训心得

实训项目一结束了,在实训中重温了VB的特点和作用,简单直接介绍了VB的启动和退出的几种方法。

VisualBasic是基于Ｂasic的可视化程序设计语言，它继承了Basic语言简单易懂的特点，采用面相对对象、事件驱动的编程机制，提供了直观的可视化程序设计方法。

VisualBasic是目前面向对象开发的主要语言之一，是最简单、最容易使用的语言，因此它是初学者学习可视化编程语言的最佳选择。

在以Windows操作系统为平台的众多可视化编程工具中，VisualBasic具有易用性、通用性和开发效率高等特点，这使得VisualBasic特别适合于一般应用程序的开发，成为最流行的Windows应用程序开发语言。

VisualBasic6.0现有三种版本：

学习版、专业版和企业版通过这次实训熟练掌握最基本的VB简单设计和各个窗体的作用,工具箱的使用及窗体的属性设计,窗体的合理布局。

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

一、实训目的和要求

1.VisualBasic对象的属性、方法和事件运用；

2.练习VisualBasic程序开发的一般步骤操作；

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

[实训2-1]设计一个窗体，在窗体上添加一个[确定]命令按钮。

运行程序时，单击[确定]按钮，在窗体上显示“你单击了命令按钮”。

若单击窗体，在窗体上显示“你单击了窗体”

一界面设计

二属性设计

三代码设计

[实训2-2]使用循环语句在窗体上输出有“*”组成的简单图形

一、设计界面

三代码编辑

PrivateSubForm_Click（）

DimnAsInteger,i%,j%

Cls“清屏”

n=Val（Text1.Text）

Fori=1Ton

PrintTab（20）:

Forj=1ToI

Print"

*"

:

Nextj

Print

Nexti

EndSub

[实训2-3]编写程序，输入年份，判断其是否为闰年

Text1Text=“”

Text2Text=“”

Command1Caption=“测算”

PrivateSubCommand1_Click（）

DimnAsDate

n=Text1.Text

IfnMod4=oAndnMod100<

>

0OrnMod400=0Then

Text2.Text="

是闰年"

Else

不是闰年"

EndIf

5保存

[实训2-4]解决“百鸡百钱”问题。

鸡翁一，值钱五，鸡母一，值钱三。

鸡雏三。

值钱一，百钱买百鸡，问鸡翁，鸡母，鸡雏各几何？

计算鸡数量的判定式：

x+y+z=100and5x+3y+z/3=100

1、设计界面

2、本题不需要添加控件

3、编写代码

Dimx,y,zAsInteger

Forx=1To20

Fory=1To33

z=100-x-y

If（x+y+z）=100And（5*x+3*y+z/3）=100Then

公鸡;

"

;

x,"

母鸡;

y,"

小鸡;

z

Nexty

Nextx

4运行调试

5保存

[实验2-5]编写一个程序，使得程序运行时，在窗体上显示滚动字幕“欢迎进入奇妙的VB世界！

”，运行效果和属性设置如下图

1、设计界面

2控件属性设计

对象名称

属性

属性值

Form1

名称

Caption

Backcolor

Windowstate

我的第一个程序

H00FFC0C0

Timer1

Enabled

Interval

Ture

100

Lable

Backstyle

Autosize

Font

Forecolor

欢迎进入奇妙的VB世界

隶书、粗体、四号

H008080FF

PrivateSubTimer1_Timer（）

Label1.MoveLabel1.Left-20

'

判断是否到达窗体左边缘

IfLabel1.Left+Label1.Width<

=0Then

Label1.Left=Form1.Width

4、运行调试

实训项目三VisualBasic语言基础

一、实训目的与要求

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

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

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

二、实训内容

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

1、编写程序代码

PrivateSubForm_Click（）

t=Now

PrintFormat（t,"

今天是:

&

"

dddddd"

hh:

mm:

ss"

）

EndSub

2、运行结果

[实训3-2]编写一个程序，在程序中使用数值格式符，当程序运行后单击窗体，则会在窗

体上显示结果如下图所示

1、编写程序代码

DimxAsSingle

x=1234.5678

PrintFormat（x,"

####.##"

000000.0000"

）

########%"

+##,###.###$"

#.######E+"

####.###\美金"

[实训3-3 

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

若用户单击输入框的“取消”按钮，则变量guest的值为空。

要求：

使用InputBox函数输入客户姓名。

（1）界面设计。

在窗体上画出1个文本框、2个命令按钮

（2）属性设计

控件名称属性名属性值

Command1Caption“确定”

Command2Caption“取消”

Text1text“”

（3）编写代码

PrivateSubForm_Click（）

DimslAsString,s2AsString,s3AsString,guestAsString

s1=InputBox（"

请输入客户姓名"

s2=InputBox（"

输入后按回车键"

）

s3=InputBox（"

或单击确定按钮"

guest=InputBox（s1+Chr（13）+s2+Chr（10）+s3,"

输入客户姓名"

"

贾莹芳"

（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）页面设计

（2）属性设计

（3）编写代码

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

DimPriceAsSingle

Price=Val（Text1.Text）

IfKeyAscii=13Then

SelectCasePrice

CaseIs<

500

Text2.Text=Price

Text3.Text=0

CaseIs<

2000

Text2.Text=Price*0.9

Text3.Text=Price*（1-0.9）

4000

Text2.Text=Price*0.88

Text3.Text=Price*（1-0.88）

6000

Text2.Text=Price*0.86

Text3.Text=Price*（1-0.86）

CaseElse

Text2.Text=Price*0.85

Text3.Text=Price*（1-0.85）

EndSelect

EndIf

（5）运行结果

[实训3-5] 

编写程序，通过产生的对话框输入学生的分数，从而判断学生是否及格方法是：

90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分一下为不及格。

Private 

Sub 

Form_Click（） 

Dim 

Score 

As 

Single 

= 

InputBox（"

输入分数"

） 

Select 

Case 

90 

To 

100 

Form1.Print 

优秀"

80 

89 

良好"

70 

79 

Form1.Print 

中等"

60 

69 

及格"

Else 

不及格"

（2）运行结果

实训项目四“科学计数器”设计

1、进一步熟悉窗体、命令按钮、标签、文本框是哇属性、时间和方法运用

2、学会使用菜单编辑器

3、培养VB基本语句的使用

[实训4-1]编写程序，设计一个简易的科学计数器，写出详细的设计步骤。

1、页面设置

2代码设计

DimaAsSingle,bAsSingle,zAsInteger,yAsInteger

z=7

a=Text1.Text

PrivateSubCommand10_Click（）

Text1.Text=Val（（Text1.Text）+Str（4））

PrivateSubCommand11_Click（）

Text1.Text=Val（（Text1.Text）+Str（5））

PrivateSubCommand12_Click（）

Text1.Text=Val（（Text1.Text）+Str（6））

PrivateSubCommand13_Click（）

z=2

Text1.Text=0

PrivateSubCommand14_Click（）

Text1.Text=Val（（Text1.Text）+Str（7））

PrivateSubCommand15_Click（）

Text1.Text=Val（（Text1.Text）+Str（8））

PrivateSubCommand16_Click（）

Text1.Text=Val（（Text1.Text）+Str（9））

PrivateSubCommand17_Click（）

z=3

PrivateSubCommand18_Click（）

Text1.Text=Str（Text1.Text）+"

."

PrivateSubCommand19_Click（）

Text1.Text=Val（（Text1.Text）+Str（0））

PrivateSubCommand2_Click（）

z=6

PrivateSubCommand20_Click（）

b=Text1.Text

Ifz=1ThenText1.Text=a+b

Ifz=2ThenText1.Text=a-b

Ifz=3ThenText1.Text=a*b

Ifz=4Andb<

0ThenText1.Text=a/b

Ifz=6ThenText1.Text=Sin（a）

Ifz=7ThenText1.Text=Tan（a）

Ifz=8ThenText1.Text=Cos（a）

Ifz=9ThenText1.Text=Hex（Text1.Text）

PrivateSubCommand21_Click（）

z=4

PrivateSubCommand3_Click（）

PrivateSubCommand5_Click（）

a=0

b=0

x=0

y=0

PrivateSubCommand6_Click（）

Text1.Text=Val（（Text1.Text）+Str

（1））

PrivateSubCommand7_Click（）

Text1.Text=Val（（Text1.Text）+Str

（2））

PrivateSubCommand8_Click（）

Text1.Text=Val（（Text1.Text）+Str（3））

PrivateSubCommand9_Click（）

z=1

3运行调试

[实训4-2]设计一个类似于windows操作系统

一界面设计

二属性设计

标题

快捷键

Visible属性

Enable属性

文件（&

F）

MNFILE

True

…新建（&

N）

FILENEW

Ctrl+N

…打开（&

O）

FILEOPEN

Ctrl+O

…保存（&

S）

FILESAVE

CTRL+S

FALSE

…另保存（&

A）

FILESAVEAS

…关闭（&

C）

FILECOLSE

….打印（&

p）

FILEPRINT

CTRL+P

…退出（&

X）

MNEXIT

编辑（&

E）

EDIT

…剪切（&

U）

EITCUT

CTRL+X

…复制（&

EDITCOPY

CTRL+C

…粘贴（&

P）

EDITPASTE

CTRL+V

…查找与替换（&

EDITFOUND

…块写文件（&

w）

EDITWRITE

CTRL+W

…插入文件（&

R）

EDITREAD

CTRL+R

格式（&

MNUF

…字体

FONT

CTRL+F

…段落

PARAG

工具（&

T）

TOOL

...统计

TOOL_VIEW

复选属性为TRUE

…工具栏

TOOL_BAR

…状态栏

TOOL_STATU

…选项

TOOL_OPT

窗口（&

W）

WIND

只能有一个窗口列表菜单

…排列窗口

ARANGE

…重叠窗口

OVERLAY

帮助（&

H）

HELP

…帮助主题

HELPTOPIC

CTRL+H

…关于记事本…

HELPABOUT

三运行

实训项目五 

“文本字体”设置

1、熟悉选择类控件与框架的属性、事件及方法控件的应用

2、熟悉列表类控件的属性、事件和方法以及控件的应用

3、培养运用所学相关知识Windows字体对话框程序对相关文本文字进行设置

二代码设计

Rem字体设计过程代码

PrivateSubOption1_click（IndexAsI