VB学习过程(二)VB的语法基础和常用的内部函数
2013-11-01 11:13
519 查看
2013/11/01 转载请注明出处:http://blog.csdn.net/lxk7280
语法基础:
(1)顺序结构
程序由上到下依次执行,不存在任何的跳转或者循环,运行到End Sub。
这就叫做顺序结构。
(2)选择结构
有多种,比如:if语句,多分支if语句,Select Case语句。
选择结构就是程序会根据你给出的条件选择是否执行当前的语句。
(3)循环结构
循环结构包含多种,如:For循环,while循环,For Each Next循环等
常用的几个内部函数:
1.Trim函数: 用于删除字符串两边的空格。
2.Mid函数:Mid(字符串,起始位置,长度) 例如:Mid(str,4,1); 从字符串str的第四位开始,截取一个字符
3.Len函数:计算字符串的长度
4.Left函数:从一个字符串的左边第一位开始截取,若干数量的字符。
5.Right函数:从一个字符串的右边第一位开始截取,若干数量的字符。
6.Instr函数:用于确定字符串2是否出现在了字符串1中,以及出现的位置。 例如:Instr(str1,"god")
7.Asc函数:返回一个字符的ASCII码
8.Chr函数:功能和Asc函数完全相反
9.Lcase函数:字符转化为小写。
10.Ucase函数:与Lcase函数完全相反。
☆11.MsgBox函数:
vbOKOnly:只显示OK按钮
vbOKCance:只显示ok和cancel按钮
vbAbortRetrylgnorel:显示abort retry ignore按钮
vbYesNocancel:显示Yes no cacel 按钮
vbYesNo:显示yes no按钮
vbRetryCancel:显示retry cancel按钮
vbCritical:显示critical message图标
vbQuestion:显示warning query图标
vbExclamation:显示warning message图标
vbInformation:显示 information message图标
vbDefaultButton1:第一个按钮是缺省值
vbDefaultButton2:第二个按钮式缺省值
vbDefaultButton3:第三个按钮式缺省值
vbDefaultButton4:第四个按钮是缺省值
例如:
缺省值:计算机软件系统要求用户输入某些值而用户未给定时,系统自动赋予的事先设定的数值。
MsgBox函数是有返回值的,下面介绍其返回值(int型):
vbOK:按下了OK
vbCancel:按下了CANCEL
vbAbort:按下了ABORT
vbRetry:按下了RETRY
vbIgnore:按下了IGNORE
vbYes:按下了YES
vbNo:按下了No
12.dir函数
基本形式:Dir(路径,属性)
属性的可能值:
vbNormal:缺省 没有属性的文件
vbReadOnly:无属性的只读文件
vbHidden:无属性的隐藏文件
vbSystem:无属性的系统文件
vbVolume:卷标文件
vbDirectory:无属性文件以及路径和文件夹
例如:
运行这两行之后File将会是D盘下Test文件里第一个文件的名称。
13.SetAttr函数
用于设置文件和文件夹的属性。
属性的可选值:
vbNormal:常规
vbReadonly:只读
vbHidden:隐藏
vbSystem:系统文件
vbArchive:上次备份以后,文件已经改变
例如:
执行完这一句之后test文件夹被隐藏。想要他回来的方法很多,下面给出两种。
一种是在打开任何一个系统盘的时候打开设置,设置为显示隐藏文件夹,一般电脑默认的是不显示隐藏文件。
另外一种是在VB6.0中运用SetAttr函数对文件进行操作,语句为:
这章要写的就是这么一点了,下面贴上一些简单的程序:
下面是这个程序的效果图:
语法基础:
(1)顺序结构
Private Sub Form_Load() Dim Num1 As Integer , Num2 As Inteher Num1 = 1 Num2 = 2 MsgBox Num2 End Sub
程序由上到下依次执行,不存在任何的跳转或者循环,运行到End Sub。
这就叫做顺序结构。
(2)选择结构
有多种,比如:if语句,多分支if语句,Select Case语句。
Private Sub Form_Load() Dim Num As Integer Num = 1 if Num = 1 Then Num = 2 Else Num = 3 End if MsgBox Num End Sub
选择结构就是程序会根据你给出的条件选择是否执行当前的语句。
(3)循环结构
循环结构包含多种,如:For循环,while循环,For Each Next循环等
Private Sub Form_Load() Dim i As Integer Do While i <= 100 s = s + i i = i + 1 Loop MsgBox "1到100的和是" & s End Sub
常用的几个内部函数:
1.Trim函数: 用于删除字符串两边的空格。
Private Sub Form_Load() Dim Str As String Str = " Can You? " MagBox Str Str = Trim(Str) MsgBox Str End Sub
2.Mid函数:Mid(字符串,起始位置,长度) 例如:Mid(str,4,1); 从字符串str的第四位开始,截取一个字符
3.Len函数:计算字符串的长度
4.Left函数:从一个字符串的左边第一位开始截取,若干数量的字符。
5.Right函数:从一个字符串的右边第一位开始截取,若干数量的字符。
6.Instr函数:用于确定字符串2是否出现在了字符串1中,以及出现的位置。 例如:Instr(str1,"god")
7.Asc函数:返回一个字符的ASCII码
8.Chr函数:功能和Asc函数完全相反
9.Lcase函数:字符转化为小写。
10.Ucase函数:与Lcase函数完全相反。
☆11.MsgBox函数:
vbOKOnly:只显示OK按钮
vbOKCance:只显示ok和cancel按钮
vbAbortRetrylgnorel:显示abort retry ignore按钮
vbYesNocancel:显示Yes no cacel 按钮
vbYesNo:显示yes no按钮
vbRetryCancel:显示retry cancel按钮
vbCritical:显示critical message图标
vbQuestion:显示warning query图标
vbExclamation:显示warning message图标
vbInformation:显示 information message图标
vbDefaultButton1:第一个按钮是缺省值
vbDefaultButton2:第二个按钮式缺省值
vbDefaultButton3:第三个按钮式缺省值
vbDefaultButton4:第四个按钮是缺省值
例如:
MsgBox "Do You Love Me?",vbYesNo,"Ask:"
MsgBox "You Are Right!",vbInformation,"Yes"
缺省值:计算机软件系统要求用户输入某些值而用户未给定时,系统自动赋予的事先设定的数值。
MsgBox函数是有返回值的,下面介绍其返回值(int型):
vbOK:按下了OK
vbCancel:按下了CANCEL
vbAbort:按下了ABORT
vbRetry:按下了RETRY
vbIgnore:按下了IGNORE
vbYes:按下了YES
vbNo:按下了No
12.dir函数
基本形式:Dir(路径,属性)
属性的可能值:
vbNormal:缺省 没有属性的文件
vbReadOnly:无属性的只读文件
vbHidden:无属性的隐藏文件
vbSystem:无属性的系统文件
vbVolume:卷标文件
vbDirectory:无属性文件以及路径和文件夹
例如:
Dim File As String File = Dir("D:\test\")
运行这两行之后File将会是D盘下Test文件里第一个文件的名称。
13.SetAttr函数
用于设置文件和文件夹的属性。
属性的可选值:
vbNormal:常规
vbReadonly:只读
vbHidden:隐藏
vbSystem:系统文件
vbArchive:上次备份以后,文件已经改变
例如:
SetAttr "D:\test",vbHidden + vbSystem
执行完这一句之后test文件夹被隐藏。想要他回来的方法很多,下面给出两种。
一种是在打开任何一个系统盘的时候打开设置,设置为显示隐藏文件夹,一般电脑默认的是不显示隐藏文件。
另外一种是在VB6.0中运用SetAttr函数对文件进行操作,语句为:
SetAttr "D:\test",vbNormal
这章要写的就是这么一点了,下面贴上一些简单的程序:
Private Sub Form_Load() Dim answer As Integer Dim a As String, b As String answer = MsgBox("Do you love me?", vbQuestion + vbYesNo, "ask:") If answer = vbYes Then a = Dir("D:\test\") While a <> vbNullString b = a & Chr(13) & Chr10 & b a = Dir Wend MsgBox b SetAttr "D:\test", vbNormal 'vbHidden + vbSystem Else End If End Sub
下面是这个程序的效果图:
相关文章推荐
- salesforce 零基础学习(六十六)VF页面应善于使用变量和函数(二)常用函数的使用
- (C/C++ 学习笔记)函数指针语法基础
- VB常用内部函数
- Scala学习教程笔记一之基础语法,条件控制,循环控制,函数,数组,集合
- 浅谈Delphi过程与函数03 - 零基础入门学习Delphi22
- Verilog学习笔记基本语法篇(十)········ 常用系统函数
- Python学习入门基础教程(learning Python)--8.3 字典常用的方法函数介绍
- Oracle基础学习三:过程PROCEDURE 和函数FUNCTION 的创建及调用
- Python基础语法学习--函数+案例--定义一个函数,实现两个数的四则运算
- vb常用的内部函数(六):颜色函数
- 浅谈Delphi过程与函数03 - 零基础入门学习Delphi22
- 窗口函数的学习 windows的基础上(windows内部函数)
- C++学习笔记:函数指针语法基础以及函数指针做函数参数的思想剖析
- vb常用的内部函数(八):环境函数
- Vb常用内部函数
- salesforce 零基础学习(六十六)VF页面应善于使用变量和函数(二)常用函数的使用
- mysql存储过程学习笔记--常用函数
- python基础学习之os、os.path模块常用函数
- vb常用内部函数(四):随机数函数
- sql数据库基础知识整理,常用函数及常用语法