VB学习过程（二）VB的语法基础和常用的内部函数

2013/11/01 转载请注明出处：http://blog.csdn.net/lxk7280

语法基础：

（1）顺序结构

Private Sub Form_Load()Dim Num1 As Integer , Num2 As InteherNum1 = 1 Num2 = 2MsgBox Num2
End Sub

程序由上到下依次执行，不存在任何的跳转或者循环，运行到End Sub。

这就叫做顺序结构。

（2）选择结构

有多种，比如：if语句，多分支if语句，Select Case语句。

Private Sub Form_Load()  Dim Num As IntegerNum = 1if Num = 1 ThenNum = 2ElseNum = 3End ifMsgBox Num
End Sub

选择结构就是程序会根据你给出的条件选择是否执行当前的语句。

（3）循环结构

循环结构包含多种，如:For循环，while循环，For Each Next循环等

Private Sub Form_Load()Dim i As IntegerDo While i <= 100s = s + ii  = i + 1LoopMsgBox "1到100的和是" & s
End Sub

常用的几个内部函数：

1.Trim函数：用于删除字符串两边的空格。

Private Sub Form_Load()Dim Str As StringStr = "    Can You?   "MagBox StrStr = 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 IntegerDim a As String, b As Stringanswer = MsgBox("Do you love me?", vbQuestion + vbYesNo, "ask:")If answer = vbYes Thena = Dir("D:\test\")While a <> vbNullStringb = a & Chr(13) & Chr10 & ba = DirWendMsgBox bSetAttr "D:\test", vbNormal 'vbHidden + vbSystemElseEnd If
End Sub

下面是这个程序的效果图：

VB学习过程（二）VB的语法基础和常用的内部函数相关推荐

第十三章：Sqlserver2019数据库之Transact-SQL 语法基础及常用 SQL 函数总结
目录一.Transact-SQL 语法基础 1.1 常量 1.2 变量 1.3 注释符.运算符与通配符 1.4 流程控制二.SQL 函数学前必备知识第一章:SQL Server 数据库环境搭建 ...
Python办公自动化学习笔记（二）—Python语法基础
目录一.数据类型 1. python基础变量 2. 数据类型 3. 数据类型转换 4. 列表 5. 字典二.逻辑控制三.for与while循环 1. for--in--循环 ...
二：java语法基础：
1,关键字:其实就是某种语言赋予了特殊含义的单词. 保留字:其实就是还没有赋予特殊含义,但是准备日后要使用过的单词. 2,标示符:Java中的包.类.方法.参数和变量的名字,可由任意顺序的大小写字母. ...
VB.NET语法基础学习
如果代码看不懂,可以学习一下vb.net,vb.net视频教程 Visual Basic 2010 2012 2013 从入门到精通|xin3721自学网李天生老师亲自授课录制的,Visual Bas ...
VB.Net实现Web Service的基础
1.VB.Net实现Web Service的基础 2. 运用VB.net创建Web服务访问程序点击下载: /Files/gispeng/VBNetWebService.doc
二级VB培训笔记08：公共基础知识
二级VB培训笔记08:公共基础知识一.公共基础思维导图
VB讲课笔记13：二级公共基础
VB讲课笔记13:二级公共基础一.数据结构与算法 1.算法(Algorithm)
HiveQL学习笔记（二）：Hive基础语法与常用函数
本系列是本人对Hive的学习进行一个整理,主要包括以下内容: 1.HiveQL学习笔记(一):Hive安装及Hadoop,Hive原理简介 2.HiveQL学习笔记(二):Hive基础语法与常用函数 ...
VB生成二维码图形的控件,CSDN利用盗版卖卖会员44积分赚钱
VB生成二维码图形的控件+纯VB6生成二维码-无需控件无需DLL-CSDN下载 https://download.csdn.net/download/xiaoyao961/11226174 上面这个是 ...

VB学习过程（二）VB的语法基础和常用的内部函数

VB学习过程（二）VB的语法基础和常用的内部函数相关推荐

最新文章

热门文章