Vb考试复习
(考过的)★窗体文件(.frm)
程序模块文件(.bas)
工程文件(.vbp)
工程组文件(.7\vbvbg)
1、 ★开启vb的四种方法:①开始菜单→程序→vb;②我的电脑→vb6.0.exe→双击;③开始菜单→运行→输入该电脑上vb6.0.exe的保存路径;④桌面上的快捷方式
2、 每个工程文件对应着一个工程,工程文件的扩展名为vbp;当一个程序包括两个以上的工程时,这些工程构成了工程组,工程组的扩展名为vbg
文件→新建工程→建立一个新的工程
文件→添加工程(快捷图标
)→添加一个工程
文件→打开工程(快捷图标
)→打开一个已有的文件
3、 ★为了用键盘打开菜单和执行菜单命令,第一不需要激活菜单命令,所以第一步应按键为(功能键F10)或(alt)键
4、 一个程序当中最多有255个窗体文件
工程→添加窗体(快捷图标
)
5、 工程→添加模块
6、 类模块的扩张名为cls
7、 资源文件的扩展名为res
8、 工程资源管理器窗口的顶部还有三个按钮,分别为“查看代码”“查看对象”“切换文件夹”(
)
“查看代码” →选中窗体后,点击“查看代码”,可以查看该窗体的代码
“查看对象” →若窗体2在窗体1的上方,选中窗体1后点击“查看对象”,那么窗体1会跑到窗体2的上面来
“切换文件夹” →
点击完“切换文件夹”之后就变为
二、属性窗口:
2、工具箱中的工具分为两类:一、内部控件或标准控件;二、ActiveX控件。启动vb之后,工具箱中只有内部控件
例题:vb窗体设计器的主要功能是(A)
A、 建立用户界面 B、编写源程序代码 C、画图 D、显示文字
A:我们在对用户界面进行的操作都会显示在窗体设计器当中
B:在窗体设计器的代码编写里面
C:不是vb所具备的功能
D:可以通过文本框,但不是窗体设计器的功能
可考知识点:
3、vb6.0的三个版本:企业版,学习版,专业版
4、vb可以通过文件菜单当中的退出命令退出vb,或者用快捷键Alt+q来退出
5、 打开工程:Ctrl+O=“文件”菜单中的“打开工程”命令=单击工具栏上的“打开工程”按钮
6、打开了不需要的菜单和对话框,可以用万能退出键ESC键关闭
7、vb的工具栏有两种形式,分别是:浮动形式和固定形式。
三、对象及其操作
1、窗体(
)和控件(
)是vb的预定义对象
2、对象是有特殊属性(数据)和行为方式(方法)的实体,建立对象后其操作通过对该对象的有关属性,事件及方法来描述
3、在程序中用程序语句设置对象的有关属性,一般
格式
pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载
如下:★对象名.属性名称=”新设置的属性值”→运行
4、运行程序时第一个触发的事件是load事件,不需要在运行后做任何操作就触发
5、事件过程的一般格式:Private sub 对象名称_事件名称()+程序代码+End sub
例如:private sub command1_click() (对command1对象进行单击事件)
★6、激活属性窗口的几种方法:①单击属性窗口的任何部位;②“视图”菜单中的“属性窗口”命令; ③F4键;④单击工具栏上的“属性窗口”按钮;⑤Ctrl+PgUp或者是Ctrl+PgDn(2.3.4.5种方法针对桌面上没有“属性窗口”时的情况)
7、属性:Caption属性→窗体的名字
Text没有caption属性
(名称)→修改的是工程的名字
Visible(对象的可见性)属性只有true和flase
修改text文本框的内容→修改text属性
四、窗体的结构与属性
I、自动重画属性(Autoredrew):相当于刷新,当autoredrew属性设置为true是,则当该窗体被另一个窗体覆盖,然后又回到该窗体时,将自动刷新或重画该窗体上的所有图形
例:在窗体上画一个command按钮,再单击事件上让他输出“123”,运行。单机几次后窗体上会出现几组“123”(单击几次有几组)。
如果autoredrew属性为false,那么当运行中的窗体被最小化之后,再单击出来之后,窗体上的“123”会消失,继续单击则会出现的结果是
;如果autoredrew属性为true,那么当运行中的窗体被最小化之后,再点出来,窗体上的“123”不会消失,即
。
II、背景颜色(Backcolor):该属性是能够用于窗体极大多数控件,适用范围比较广泛
III、边框类型(Borderstyle):用来确定窗体边框的类型
设置值
作用
0
窗体无边框
1
固定单边框,可以包含控制菜单框,标题栏。包含“最大化”,“最小化”按钮,其大小只能用“最大化”和“最小化”按钮来控制
2
(默认值)可调整边框,窗体大小可变,并有标准的双线边框
3
固定对话框,可以包含控制菜单框和标题栏,但没有“最大化”和“最小化”按钮,窗体大小不变(设计时可以设定),并有双线边界
4
固定工具窗口,窗体大小不能改变,只显示关闭按钮,并用缩小字体显示标题栏
5
可变大小工具窗口,窗体大小可变,只显示关闭按钮,并用缩小字体显示标题栏
(注:通常我们不需要调整该属性,需要知道他的默认值为2,而且值为0的时候是没有边框的
在运行期间borderstyle属性是只读属性,也就是说他只能在设计阶段设置,不能在运行期间改变
不同的控件,该属性取值不同,含义也不同
Text、List没有该属性)
IV、标题(Caption):窗体的默认标题为Form1、Form2……(对象.Caption=”行名称”)
(★command1.caption=form1.caption,等于后边没有””,那么意思是command1的caption为form1的caption)
例:窗体的默认值是form1
Private Sub Command1_Click()
Form1.caption=”窗体”
End Sub
Private Sub Command2_Click()
Command1.Caption = Form1.Caption
End Sub
(1、单击command2,command1的名字变为了“form1”。 2、单击command1,form1的名字变为了“窗体”。 3、最后再单击command2,command1的名字变为了“窗体”)
★Text没有该属性
V、控制框(Controlbox):
该属性为true→
该属性为false→
(该属性的默认值为true;当borderstyle的属性为0时,即没有边界时,controlbox的属性不生效)
★VI、允许(Enabled):用于激活或禁止,每个对象都有一个该属性
该值可以在属性窗口中设置,也可以用程序代码来设置(对象.Enabled=Boolean值)
VII、字形属性:可以通过属性窗口设置,也可以通过程序代码设置
Font:改变字型、字体、大小
VIII、前景颜色(forecolor):与背景颜色相比较
IX、高和宽(height和width):对象.height=数值
对象.width=数值(对象可以是窗体和各种控件)
X、最大化、最小化按钮(maxbutton和minbutton):只在运行阶段起作用,在设计阶段不起作用,如果borderstyle属性设置为0,既没有边界是,这两个属性别忽略
XI、名称(name):只读属性;位于属性窗体第一栏,用汉字表示(注意区别标题caption属性)
XII、图形(picture):
XIII、顶边和左边位置(top和left):设置对象顶边和左边的坐标值,来确定对象的位置
对象,top=数值
对象.left=数值
五、窗体事件:
1、Click
2、Dblclick(双击事件:实际上是两个事件,第一次按鼠标产生的是click事件,第二次按鼠标产生的是Dblcilck事件)
例:Private Sub Form_Click()
Print "单击窗体"
End Sub
Private Sub Form_DblClick()
Print "双击窗体"
End Sub
运行程序后,双击窗体,结果→
3、Load
4、Unload(卸载事件)
六、控件:
分类:A、标准控件:启动vb后,自动出现在工具箱中,既不能添加,也不能删除。B、ActiveX:知道有这类空间就行。C、可插入对象:同上
控件值:“控件.属性”的格式来设置一个控件的值
例:text1.text=”vb”,后边的”.text”可省略,省略之后默认为是text属性,那么text就叫做控件值
控件
属性
Checkbox(复选框)
Value
Combobox(组合框)
Text
Commandbutton(命令按钮)
Value
Commondialog(通用对话框)
Action
Date(数据)
Caption
Dirlistbox(
目录
工贸企业有限空间作业目录特种设备作业人员作业种类与目录特种设备作业人员目录1类医疗器械目录高值医用耗材参考目录
列表框)
Path
Drivelistbox(驱动器列表框)
Drive
Filelistbox(文件列表框)
Filename
Frame(框架)
Caption
Image(图像框)
Picture
Lable
caption
Line(直线)
Visible
Listbox(列表框)
Text
Optionbutton(单选按钮)
Value
Picturebox(图片框)
Picture
Shape(形状)
Shape
Textbox(文本框)
Text
Timer(计时器)
Enabled
WScrollBar(垂直滚动条)
Value
按住键盘上的ctrl键,再有鼠标点击控件,放开键盘上的键,就可以连续画出多个控件
★★★★属性窗口分为四部分,这四部分分别为:
对象框
;属性显示方式
;
属性列表
;属性解释
Visible(可见性):对象.Visible=Boolean值
Windowstate(窗口状态):对象.windowstate=设计值(设计值为0、1或2)
0→正常状态,有窗口边界
1→最小化状态,显示一个示意图标
2→最大化状态,无边界,充满整个屏幕
★★★七、常用语句:
1、赋值语句:把右边的值赋给左边
例:text1.text=tex2.text
说明:a、赋值语句有计算与赋值双重功能
i、 Private Sub Command1_Click()
Command1.Caption = "123+123"
End Sub
单击之后command1上显示的是123+123
ii、Private Sub Command1_Click()
Command1.Caption =123+123
End Sub
单击之后command1上显示的是246
B、“=”左边和右边的数据类型必须一致
C、赋值语句以“let”为开头,一次也可以称为let语句,let可以省
2、注释语句:
格式:Rem注释内容
‘注释内容
i、注释语句并非执行语句
ii、任何字符都可以放入注释语句中
iii、注释语句不能放在续行符后面
3、结束语句: End (End Sub、End Function、End if)
例:Private Sub Command3_Click()
End
End Sub(单击command3结束程序)
八、代码编辑器:工具→选项→编辑器
九、数据类型:
基本字符类型:
String—字符串
Integer—整数:占两个字节,取值范围是-32768---32767
Long—长整数:占四个字节
Single—单精度:占四个字节,用E来表示
例:123.45E3==123.45*1000(10的3次方)
★★123.45为尾数,E为指数符号,3为指数部分
Double—双精度:占八个字节,用D来表示
例:123.45D3==123.45*1000(10的3次方)
Variant—变体类型,可以表示任何值
Date—日期:8个字节,必须用##括起来
用户定义数据类型:type语句
例:(学生姓名 李玉 字符串
学生年龄 20 整形
学生成绩 90.5 浮点型)
Type student
Name as string
Age as integer
Cj as single
End type
枚举类型:enum语句
例:「public/private」enum 类型名称
成员名1=长整数类型
成员名2=长整数类型
成员名3=长整数类型
……
End enum
Public:所定义的enum类型在整个工程中都是可见的(默认)
Private:所定义的enum只在声明模块中是可见的
l ★★enum语句中默认情况下成员1的值为0,后面的值为比前一成员值大1的常熟(用户没有自己给成员定义制的情况下)。如果用户给成员1定义的值为5,成员2、3、4……的值没有定义,那么成员2、3、4……的值依次为6、7、8……
l ★★长整数类型:如果用户定义成员1的值为5.2,那么系统直接默认为5,把.2省略掉
十、变量和常量
1、常量:★★★★一种是文字常量,一种是符号常量
㈠文字常量:a、字符串常量(除双引号和回车以外任何字符);b、数值常量
数值常量:
(1)整型数:
十进制:逢十进一,0—9组成,取值范围-32796—32767
★★十六进制:逢十六进一,0-9及a-f组成,前面有&H开头
10 11 12 13 14 15
a b c d e f
也就是说10用a来表示,11用b来表示……一直到15,再往下就进一(取值范围:&H0--&HFFFF)
八进制:逢八进一,0-7组成,以&或&o开头取值范围&o0--&o177777
(2)长整型数:
十进制:同上
十六进制、八进制:在结尾要加一个&
类型说明符:
%
整型
&
长整型
!
单精度浮点数
#
双精度浮点数
@
货币性
$
字符串型
★㈡符号常量:Const 常量名=表达式(以下再出现常量名的地方呢都表示该表达式),,,,(可以在常量名后面加上类型说明符i,来说明表达式中的是什么类型,如:Const one&=5.3,实际上使用one的时候,one的值是5)
2、变量:★★i、只能由字母,数字和下划线组成
ii、名字的第一个字符必须是英文字母,最后一个字符可以是类型说明符(如果变量名为2as,时,系统不会显示错误,可以运行,但变量名不会被识别,就相当于没用)
iii、名字的有效字符是255个
iv、不能用vb的保留字做变量名(if、at、const……),但可以把保留字嵌入变量名中,也不能是末尾带有类型说明符的保留字(const@、if&……)
v、变量名中字母不分大小写
static:保留原值
public:
Def--:格式:Def—字母范围
Def后可接Int(整型)、Lng(长整型)、Sng(单精度型)、Dbl(双精度型)、Cur(货币型)、Str(字符串型)、Byte(字节型)、Bool(布尔型)、Date(日期型)、Obj(对象性)、Var(变体型)
例:defint a-f(把以a-f开头的字符串定义为整型)
Private sub command1_click()
Aev=3.2
Sre=5.4
Print aev,sre
End sub
单击之后输出结果为aev=3,sre=5.4
重点:def和类型标注(int、sng……)之间不能有空格,字母范围用字母-字母的形式
十一、变量的作用域:
1、 局部变量与全局变量:
Vb应用程序由3种模块组成,窗体模块,标准模块,类模块
窗体模块包括事件过程,通用过程,声明部分
标准模块由通用过程、声明部分组成
变量分为三类:局部变量,模块变量,全局变量。模块变量包括窗体模块,标准模块
局部变量:例:Private sub command1_click()
Dim a as integer
A=5 (黑体部分即为局部变量)
End sub
Private sub command2_click()
Print a
End sub(单击command2时,并不能输出a的值)
模块变量(包括窗体模块和标准模块):选择通用和声明
全局变量(了解):★★★(笔试可能考)必须用public语句声明,只能在标准模块中声明,不能在过程或窗体模块中声明
默认声明:
要求
对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗
变量声明设置:工具→选项→编辑器(如图)
如果不选上“要求变量声明”,那么可以不用dim语句的声明变量,变量可以默认;但是如果选上“要求变量声明”,那么必须声明变量类型,否则不能运行
十二、常用内部函数:
类别
函数
作用
转换
Int(x)
Fix(x)
Hex(x)
Oct(x)
Asc(x)
Chr(x)
?Str(x)
Cint(x)
Clng(x)
Ccur(x)
Cdbl(x)
Csng(x)
求不大于自变量x的最大整数(int(5.4)=5,int(-5,9)=-6)
去掉一浮点数的小数部分,保留其整数部分(fix(5.9)=5,)
把十进制整数转换为十六进制整数(hex(10)=A)
把一十进制数转换为八进制数(oct(10)=12)
返回字符串中第一个字符的ASCII码(asc(abc)=97)
把x值转换成相应的ASCII码字符(chr(97)=a)
把x的值转换成一个字符串
四舍五入,转换为整形
四舍五入,转换为长整型
把x的值转换为货币类型,小数部分自动保留四位小数,自动四舍五入(ccur(3456.987377)=3456.9874)
将x的值转换为双精度
将x转换为单精度
数学
Sin(x)
Cos(x)
Tan(x)
Atn(x)
Abs(x)
Sgn(x)
Sqr(x)
Exp(x)
求30度的正玄:sin(30*3.14159/180)(弧度制)
反切值
返回自变量的绝对值
返回x的符号。+为1:;-为-1;0为0
求x的平方根
e的x次方
日期
Day(Now)
Weekday(now)
Month(now)
Year(now)
返回当前日期
返回当前的星期
返回当前月份
返回当前年份
时间
Hour(now)
Minute(now)
Second(now)
返回小时(0-24)
返回分钟(0-60)
返回秒(0-60)
例:Private sub command1_click()
Print Str(Year(Now)) + "年" + Str(Month(Now)) + "月" + Str(Day(Now)) + "日" + "星期" + Str(Weekday(Now))
Print Str(Hour(Now)) + "点" + Str(Minute(Now)) + "分" + Str(Second(Now)) + "秒"
End sub(输出2011年7月24日星期一,七点33分50秒)
随机数
Rnd(x)
产生0<=x<1之间的随机数
ASCII 字符
65 A(B对应的是66,以此类推)
97 a(b对应的是98,以此类推)
48 0
十三、字符串处理与字符串函数:
1、 vb的字符处理机制:
ANSI方式:一个西文字、标点符号符用一个字节进行编码, 一个中文字符用两个字节进行编码。其代码称为ASCII码。一个中文字节相当于用两个ASCII码组成(abcsd中文→占用了9个字节,4个半字符,即4个字符没有半个(按中文进行编码))
UniCode方式:不管英文还是中文,都是占用一个字符,两个字节(asd哈哈→占用了10个字符,5个字节)
StrConv转换函数:vbunicode→转换为UniCode方式
Vbfromunicode→转换为ANSI方式
例:Private sub command1_click()
Dim a as string
A=”basic程序设计”
A=strconv(a, Vbfromunicode)
Print len(a),lend(a) (输出字符,和字节)
End sub
(单击后输出6 13)
2、 字符串函数:
㈠删除空白字符函数:
Ltrim(字符串):去掉字符串左边的空白字符”* asd*”
Rtrim(字符串):去掉字符创右边的空白函数”*asd *”
Trim(字符串):去掉字符串两边的空白函数”* asd *”
㈡字符串截取函数:
Left(字符串,n):截取字符串左边n个字符
Mid(字符串,t,n):从字符串的第t个字符开始,接取n个字符
Right(字符串,n):截取字符串右边n个字符
㈢字符串长度测试函数:
Len(变量名):字节长度
或者是Len(“字符串”)
㈣String函数:
string(n,ASCII码):返回由n个ASCII码组成的字符串(例:string(5,97)→输出aaaaa)
string(n,字符串):返回由n个字符串中第一个字符组成的字符串(例:string(5,asdf)→输出aaaaa)
㈥空格函数:
space(n)→返回n个空格
㈦字符串匹配函数:
InStr(<首字符位置>(可选参数),字符串1,字符串2,
(可选参数))
作用:在字符串1中查找字符串2,输出字符串2在字符串1中第一次出现时字符串2的第一个字母的位置,字符串1的第一个字母的位置为1
例如:(不考虑可选参数)
print instr(“asdqweqweerteytASD”,”sdq”)
单击后输出2
*“首字符位置”作用是从字符串1的第几个字符开始查找
Private sub command1_click()
Print instr(2,”asdasdasd”,”asd”)(从字符串1的第2个字符开始查找“asd”)
End sub
单击后输出4
*第四个参数n有三个取值:0(查找时区分大小写)、1(查找时不区分大小写)、2.<默认值为0>
㈧字母大小写转换函数:
1、Ucase(字符串):把字符串中的小写字母转换成大写字母
2、Lcase(字符串):把字符串中的大写字母转换成小写字母
㈨插入字符串语句:mid(字符串,n,L<可选参数>)
Mid(字符串1,n)=字符串2:在字符串1中,从第n个字母开始,替换成字符串2
*参数L的作用:将字符串2中左侧L个字符替换为字符串1中从第n个字符开始
十四、运算符和表达式:
(一)算是运算符
运算
运算符
表达式例子
幂
^
3^2=9
浮点除法
/
5/2=2.5
整除
\
5\2=2
5.2\2.9(\为浮点数的话,现将\两侧的数四舍五入转化为整数)=5\3=1
1\2=0
取余
Mod(结果的正负号与被除数的相同)
5mod2=1(商2余1)
-5mod2=-1
连接
&
等价于+
优先顺序:幂、取负(优先级相同)、乘法、浮点除法(优先级相同),整数除法、取余、加法、减法、连接(从左向右,优先顺序依次从高到低)
(二)关系运算符(输出结果只有false或true;0=false,1=true)
运算符
测试关系
=
<>或><
不等于
<
>
<=
>=
(三)逻辑运算符
运算符
作用
Not
取反运算
And
两个关系式都是真时才为真,一假即假
Or
一真即真,两个均为假时才假
Xor
同为true或同为false时为false,否则为true
Eqv
同为true或同为false时为true
Imp
第一个为true,第二个为false时,结果为false
(四)表达式的执行顺序:
1)函数运算
2)算术运算
3)关系运算符
4)逻辑运算:优先顺序为上表中的not至imp,从上往下依次降低
例外:负号和幂相遇时负号优先: 10^-2=0.01
l ★★表达式中只能用圆括号
十五、数据的输出和输入
数据输出,print方法:对象.Print 数据
(一)Print后面输出多个值时可以用逗号、分号、空格分开
逗号:a*************(十三个空格)b(也就是说b是从第十四个位置开始输出)但如果ab为数值型,则前面多一个空格,即*a***********(前面一共十三个位置)*b 空格和b算一个整体,从第十四个位置开始输出
分号、空格:ab是挨着的,但数值型的话a、b前后都有一个空格,即*a**b*
l 当输出数值型时,数值的前后都有一空格,数值前面的空格实际上是符号位,显示正负号用的,如果是正号则不显示,如果是负号则显示;而字符串前后没有空格
l Print有输出、计算双功能,但没有赋值功能,例如:print 3+5=8,单击后输出的是true,也就是说print可以计算出3+5=8,但不会输出8;如果想要输出3+5=8时,必须加上“”
l Print有自动换行功能,Private sub command1_click()
Print 3
Print 4
End sub
单击后输出的是3
4(自动换行)
Private sub command1_click()
Print “30+50=”,
Print 30+50
End sub(单击后输出30+50=<字符串形式>********80*)
(二)与print有关的函数:
1)tab(n)函数:将光标移到参数n指定的位置,从这个位置开始输出信息
Tab(10);”12346”;tab(15);”ASD”在第10个位置输出12346,第15个位置输出ASD
2)spc(n)函数:两个内容之间间隔n个空格0
注意事项
软件开发合同注意事项软件销售合同注意事项电梯维保合同注意事项软件销售合同注意事项员工离职注意事项
:1、inputbox返回值是字符串;2、对话框弹出之后如果点击“取消”,则当前输入作废,输入一个空字符串;3、没执行依次inputbox只能输入一个值,想要输入多个值,则必须多次使用inputbox函数
Msgbox函数:
Type参数的取值:
取值
作用
第一部分
0
只有“确定”按钮
1
“确定”“取消”按钮
2
“终止”“重试”“忽略”按钮
3
“是”“否”“取消”按钮
4
“是”“否”按钮
5
“重试”“取消”按钮
第二部分
16
(一个叉)
32
(一个问号)
48
(一个叹号)
64
(一个i的图标)
第三部分
0
第一个按钮为默认按钮
256
第二个按钮为默认按钮
512
第三个按钮为默认按钮
768
第四个按钮为默认按钮
第四部分(默认0)
0
应用程序强制返回:应用程序一直被挂起,直到用户对消息框作出相应才继续工作
4096
系统强制返回:全部应用程序被挂起,直到用户对消息框作出相应才继续工作
格式:Private Sub Form_Click()
Dim x As String
x = MsgBox("当前操作有误", 2 + 48 + 0 + 0, "提示")
End Sub
("当前操作有误"是对话框中显示的内容;2 + 48 + 0 + 0即type部分,把四部分中所选的数值都加起来即为type部分;"提示"为对话框的标题)
单击后输出
Msgbox函数中,x有一个返回值:
返回值
操作
1
选“确定”按钮
2
选“取消”按钮
3
选“终止”按钮
4
选“重试”按钮
5
选“忽略”按钮
6
选“是”按钮
7
选“否”按钮
Msgbox函数的一个简单应用:
Private Sub Form_Click()
Dim x As String
x = MsgBox("当前输入是否正确", 3 + 16 + 0, "输入错误")
If x = 6 Then ‘当x选6时,也就是选“是”,则输出6*6=36
Print 6 * 6
ElseIf x = 7 Then ‘如果x选7,即选的是“否”,则输出“重新输入”
Print "重新输入"
End If
End Sub
实例:在键盘上输入两个数据,分别付给变量x,y,要求输入值在0-10之间,之后算出他们的成绩,如果正确则输出在窗体上。
Private Sub Command1_Click()
Dim x As Integer, y As Integer, i As Integer, f As Integer, e As Integer
x = InputBox("请输入一个x在0-10的数", "输入框", "100") (inputbox函数!!)
If x < 0 Or x > 10 Then
x = InputBox("请输入一个x在0-10的数", "输入框", "100")
End If
y = InputBox("请输入一个y在0-10的数", "输入框", "100")
If y < 0 Or y > 10 Then
y = InputBox("请输入一个y在0-10的数", "输入框", "100")
End If
i = x * y
f = InputBox("输入x*y的结果", "结果", 100)
If f = i Then (if 函数)
Print f
ElseIf f <> i Then
e = MsgBox("输入有误,是否重新输入", 3 + 32 + 0 + 0, "提示")(msgbox 函数)
If e = 6 Then (当选“是”时)
f = InputBox("输入x*y的结果", "结果", 100)
If f = i Then
Print f
ElseIf f <> i Then
End
End If
ElseIf e = 7 or e = 8 Then (当选“否”或“取消”时)
End
End If
End If
End Sub
Magbox语句:Magbox (……)。
格式同msgbox函数一样,唯一不同的是Magbox语句不需要返回值
例:Private Sub Command1_Click()
Dim x As Integer, y As Integer, i As Integer, f As Integer, e As Integer
x = InputBox("请输入一个x在0-10的数", "输入框", "100")
y = InputBox("请输入一个y在0-10的数", "输入框", "100")
i = x * y
f = InputBox("输入x*y的结果", "结果", 100)
if f=I then
print f
elseif f<>I then
Msgbox (“输入有误”) (直接弹出一对话框来,提示“输入有误“)
End
End if
End sub
十六、字形:
Private Sub Command1_Click()
FontName = "隶书" (字体为隶书)
FontSize = 15 (文字大小15)
FontBold = True (加粗)
FontItalic = True (斜体)
FontUnderline = True (下划线)
FontStrikethru = True (删除线)
Print "中国"
End Sub
十七、文本控件:
文本控件包括文本框和标签,标签中只能显示文本,而不能进行编辑;文本框中既可以显示文本,又可以输入文本
Private Sub Command1_Click()
Text1.Text = "123"
Label1.Caption = "123"
End Sub
单击后输出
,可以发现,text可以继续输入,而label不可以
一些属性:
1、alignment属性:确定标签中标题的放置方式,可取值0、1或2
取0时:(默认)标题靠左显示
取1时:标题靠右显示
取2时:标题居中显示
2、 autosize属性:true:根据caption属性指定的标题自动调整标签的大小
false:标签保持设计时的大小
3、 boderstyle属性:标签的边框,两种取值0或1
取0时:(默认)标签无边框
取1时:标签有边框
4、 backstyle属性:取1时:(默认)标签将覆盖背景
取0时:标签为透明的
5、 wordwrap属性(考题的考点):前提是autosize属性为true
true:标题在竖直方向上大小与文本相适应,水平方向上大小与原来画的一样(即:一行到头之后自动换行)
false:标签在水平方向上扩展到标题中最长的一行,在竖直方向上显示标题的所有行(注意:画完标签之后,要先设置wordwrap属性,之后再设置autosize属性)
74