VB基本函数大全+vb初学者n个简单实例练习(共69页).doc

《VB基本函数大全+vb初学者n个简单实例练习(共69页).doc》由会员分享，可在线阅读，更多相关《VB基本函数大全+vb初学者n个简单实例练习(共69页).doc（69页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、精选优质文档-倾情为你奉上VB基本函数大全VB函数大全_基本函数大全 Abs 函数 返回数的绝对值。And 运算符 执行两个表达式的逻辑连接。Array 函数 返回含一数组的 变体 。Asc 函数 返回字符串首字母的 ANSI 字符代码。赋值运算符 (=) 给变量或属性赋值。Atn 函数 返回数的反正切值。调用语句 将控制移交 Sub 或 Function 过程。CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。CByte 函数 返回已被转换为字节子类型的变体的表达式。CCur 函数 返回已被转换为货币子类型的变体的表达式。CDate 函数 返回已被转换为日期子类型的变体

2、的表达式。CDbl 函数 返回已被转换为双精度子类型的变体的表达式。Chr 函数 返回指定 ANSI 字符码的字符。CInt 函数 返回已被转换为整数子类型的变体的表达式。Class 对象 提供对已创建的类的事件的访问。Class 语句 声明类名Clear 方法 清除 Err 对象的所有属性设置。 CLng 函数 返回已被转换为 Long 子类型的变体的表达式。颜色常数 颜色常数列表。比较常数 用于比较运算的常数列表。连接运算符 (&) 强制两个表达式的字符串连接。 Const 语句 声明用于字母值的常数。Cos 函数 返回角度的余弦值。CreateObject 函数 创建并返回对“自动”对象

3、的引用。CSng 函数 返回已被转换为单精度子类型的变体的表达式。CStr 函数 返回已被转换为字符串子类型的变体的表达式。日期和时间常数 在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数 用于日期和时间格式的常数列表。Date 函数 返回当前系统日期。DateAdd 函数 返回加上了指定的时间间隔的日期。DateDiff 函数 返回两个日期之间的间隔。DatePart 函数 返回给定日期 的指定部分。DateSerial 函数 返回指定年月日的 日期子类型的变体 。DateValue 函数 返回日期子类型的变体 。Day 函数 返回日期，取值范围为 1 至 31。Descr

4、iption 属性 返回或者设置说明某个错误的字符串。Dictionary 对象 存储数据键、项目对的对象。Dim 语句 声明变量并分配存储空间。除法运算符 (/) 两数相除并以浮点数格式返回商。Do.Loop 语句 当条件为 True 或者当条件变为 True 时，重复一语句块。Empty 表示尚未初始化的变量值。Eqv 运算符 使两个表达式相等。Erase 语句 重新初始化固定数组的元素并重新分配动态数组的存储空间。Err 对象 含有关于运行时错误的信息。Eval 函数 计算并返回表达式的值。Execute 方法 根据指定的字符串，执行正则表达式的搜索。Execute 语句 执行单个或更多

5、的指定语句。Exit 语句 退出 Do.Loop、For.Next、 Function 或 Sub 代码块。 Exp 函数 返回 e （自然对数的底）的多少次方。自乘运算符 () 指数函数，幂为自变量。False 关键字，其值为零。FileSystemObject 对象 提供对计算机文件系统的访问。Filter 函数 根据指定的筛选条件,返回含有字符串数组子集的、下限为 0 的数组。FirstIndex 属性 返回字符串匹配的位置。Fix 函数 返回数的整数部分。For.Next 语句 以指定的次数重复一组语句。For Each.Next 语句 对于数组或集合中的每一个元素，重复一组语句。Fo

6、rmatCurrency 函数 返回的表达式为货币值格式，其货币符号采用系统控制面板中定义的。FormatDateTime 函数 返回格式化为日期或时间的表达式。FormatNumber 函数 返回格式化为数的表达式。FormatPercent 函数 返回格式化为百分比（乘以 100）的表达式，以 % 符号结尾。Function 语句 声明形成 Function 过程体的名称、参数和代码。GetObject 函数 从文件返回对“自动”对象的访问。GetRef 函数 返回对可以绑定到事件的过程的引用。Global 属性 设置或返回 Boolean 值。Hex 函数 返回表示数的十六进制值的字符串

7、。HelpContext 属性 设置或返回帮助文件中某主题的上下文 ID。HelpFile 属性 设置或返回帮助文件的全路径。Hour 函数 返回小时数，取值范围为 0 至 23。If.Then.Else 语句 根据表达式的值，有条件地执行一组语句。IgnoreCase 属性 设置或返回 Boolean 值，指示模式搜索是否区分大小写。Imp 运算符 执行两个表达式的逻辑隐含。初始化事件发生在创建相关类的实例时。InputBox 函数 在对话框中显示提示，等待用户输入文本或者单击按钮，并返回文本框的内容。InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。InStrRev 函数

8、返回一个字符串在另一个字符串中出现的位置，是从字符串的末尾算起。Int 函数 返回数的整数部分。整数除法运算符() 两数相除，返回的商取其整数部分。Is 运算符 比较两个对象引用变量。IsArray 函数 返回 Boolean 值，表示变量是否为数组。IsDate 函数 返回 Boolean 值，表示表达式是否可以转换为日期。IsEmpty 函数 返回 Boolean 值，表示变量是否已被初始化。IsNull 函数 返回 Boolean 值，表示表达式是否含有无效数据 (Null)。IsNumeric 函数 返回 Boolean 值，表示表达式能否当作一个数，用来计算。IsObject 函数

9、返回 Boolean 值，表示表达式是否引用了有效的“自动”对象。Join 函数 返回连接许多包含在一个数组中的子串而创建的字符串。LBound 函数 对于指示的数组维数，返回最小的可用下标。LCase 函数 返回已被转换为小写字母的字符串。Left 函数 返回字符串最左边的指定数量的字符。Len 函数 返回字符串中的字符数量，或者存储变量所需的字节数。Length 属性 返回在搜索字符串中匹配的长度。LoadPicture 函数 返回图片对象。仅用于 32 位平台。Log 函数 返回数的自然对数。 LTrim 函数 返回去掉前导空格的字符串副本。Match 对象 提供访问匹配正则表达式的只读

10、属性。Matches 集合 正则表达式匹配对象的集合。Mid 函数 从字符串中返回指定数量的字符。Minute 函数 返回小时内的分钟数，取值范围为 0 至 59。杂项常数 不能纳入任何其他类的常数列表。Mod 运算符 两数相除，只返回余数。Month 函数 返回月份，取值范围为 1 至 12。MonthName 函数 返回表示月份的字符串。 MsgBox 常数 与MsgBox 函数一起使用的常数列表。MsgBox 函数在对话框中显示消息，等待用户单击按钮，并返回表示用户所击按钮的数值。 乘法运算符 (*) 两数相乘。 取反运算符 (-) 表示数值表达式的相反数。Not 运算符执行表达式的逻辑

11、“非”运算。 Now 函数 返回当前计算机的系统日期和时间。 Nothing 使对象变量与所有实际的对象没有任何关联。Null 表示变量含有无效的数据。Number 属性 返回或设置代表某个错误的数值。Oct 函数 返回表示一数的八进制值的字符串。On Error 语句 启用错误处理。运算符的优先级 表示各种 VBScript 运算符的优先顺序的列表。Option Explicit 语句 强制显式声明脚本中的所有变量。Or 运算符 执行两个表达式的逻辑“或”运算。Pattern 属性 设置或返回正被搜索的正则表达式的模式。Private 语句 声明私有变量并分配存储空间。PropertyGet

12、 语句 声明在窗体属性过程中获取（返回）属性值的名称，参数和代码。PropertyLet 语句 声明在窗体属性过程中指定属性值的名称，参数和代码。PropertySet 语句 声明在窗体属性过程中设置引用到对象的名称，参数和代码。Public 语句 声明公有变量并分配存储空间。Raise 方法 产生运行时错误。Randomize 语句 初始化随机数发生器。ReDim 语句 声明动态数组变量，并分配或重新分配过程级的存储空间。RegExp 对象 提供简单正则表达式的支持。Rem 语句 包含程序中的注释。Replace 函数 返回一个字符串，其中某个指定的子串被另一个子串替换，替换的次数也有规定。

13、Replace 方法 替换在正则表达式搜索中已发现的正文。RGB 函数 返回表示 RGB 颜色值的数。 Right 函数 返回字符串最右边的指定数量的字符。Rnd 函数 返回一随机数。Round 函数 返回指定位数、四舍五入的数。RTrim 函数 返回去掉尾部空格的字符串副本。 ScriptEngine 函数 返回表示正在使用中的脚本语言的字符串。ScriptEngineBuildVersion 函数 返回使用中的脚本引擎的编译版本号。ScriptEngineMajorVersion 函数 返回使用中的脚本引擎的主版本号。ScriptEngineMinorVersion 函数返回使用中的脚本引

14、擎的次版本号。 Second 函数 返回时间的秒数，取值范围为 0 至 59。Select Case 语句 根据表达式的值，在若干组语句中选择一组执行。Set 语句 将对象引用赋予变量或属性。Sgn 函数 返回表示数的符号的整数。Sin 函数 返回角度的正弦值。Source 属性 返回最早出错的对象或应用程序的名称。Space 函数 返回由指定数量的空格组成的字符串。Split 函数 返回下限为 0 的、由指定数量的子串组成的一维数组。Sqr 函数 返回数的平方根。 StrComp 函数 返回反映字符串比较结果的值。字符串常数 字符串常数的列表。String 函数 返回重复的字符串，达到指定的

15、长度。StrReverse 函数 返回一字符串，其中字符的顺序与指定的字符串中的顺序相反。Sub 语句 声明形成 Sub 过程体的名称、参数和代码。减法运算符 (-) 求两数之差，或表示某数值表达式的相反数。Tan 函数 返回角度的正切值。终结事件发生在相关类的实例终结之时。Test 方法 根据指定的字符串，执行正则表达式的搜索。Time 函数 返回反映当前系统时间的日期子类型的变体。Timer 函数 返回时经子夜 12:00 AM 后的秒数。TimeSerial 函数 返回含有指定时分秒时间的日期子类型的变体。TimeValue 函数 返回含有时间的日期子类型的变体。Trim 函数 返回去掉

16、前导空格或末尾空格的字符串副本。三态常数 在代码中使用，以便表示每个显示的值。True 其值为 -1 的关键字。TypeName 函数 返回一字符串，它提供了关于变量的变体子类型信息。UBound 函数 返回指定维数数组的最大有效下标。UCase 函数 返回的字符串已经被转换为大写字母。Value 属性 返回在搜索字符串中已发现匹配的值或正文。VarType 常数 定义变体子类型的常数列表。VarType 函数 返回标识变体子类型的数值。VBScript 常数 在 VBScript 中提供不同种类的常数。Weekday 函数 返回表示星期几的数值。WeekdayName 函数 返回表示星期几的

17、字符串。While.Wend 语句 只要给定的条件为 True，便执行一串语句。With 语句 对单个的对象执行一串语句。Xor 运算符 执行两个表达式的逻辑“异或”运算。Year 函数返回表示年份的数值。 VB中整除运算符 与取整函数 INT 的作用是否相同 性质不同。一个是运算符，一个是函数。整除，顾名思义，有除法在里面，而取整只是删除零头而已。但它们在某种情况下可以相互替换，如：32=Int(3/2)Int(10.11)=10.111-第3章课前体验Private Sub Form_Click()For i = 1 To 10For j = 1 To iPrint * ;Next jPr

18、intNext iEnd Sub【例3-1】Private Sub Form_Click()c1$ = Chr$(13) + Chr$(10)msg1$ = 请输入您的名字: msg2$ = 输入后按回车键msg3$ = 或单击“确定”按钮msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$name$ = InputBox(msg$, InputBox 函数示例, 张三)Print name$End Sub【例3-2】Private Sub Form_Click() Msg1$=”Are you Continue to?” msg2$=”Operation Dial

19、og Box” r=MsgBox(msg1$,34,msg2$) Print rEnd Sub【例3-3】编写程序，用MsgBox函数判断是否继续执行。Private Sub Form_Click() msg$ = 请确认此数据是否正确 Title$ = 数据检查对话框 x = MsgBox(msg$, 19, Title$) If x = 6 Then Print x * x ElseIf x = 7 Then Print 请重新输入 End IfEnd Sub【例3-5】Private Sub Form_Click() Print: Print FontName = 隶书 FontSize

20、 = 16 Print 姓名; Tab(8); 年龄; Tab(16); 职务; Print Tab(24); 单位; Tab(32); 籍贯 Print Print 吴大明; Tab(8); 25; Tab(16); 职员; Tab(24); 人事科; Tab(32); 北京 Print 吴大明; Tab(8); 25; Tab(16); 职员; Tab(24); 人事科; Tab(32); 北京End Sub【例3-6】Private Sub Form_Click()X = InputBox(请输入成绩, 学生成绩录入, 00)Print xEnd Sub【例3-7】Private Sub

21、 Form_Click()Dim x As Single, y As Singlex=InputBox(“请输入x的值”)If x0 Then y=1 ElseIf x=0 Then y=0 Else y=-1Print “x=”; x ,”y=” ; yEnd Sub【例3-8】Private Sub Form_Click()Dim msg, UserInputmsg = 请输入一个字母或09之间的数字.UserInput = InputBox(msg) 输入一个字母或数字If Not IsNumeric(UserInput) Then 判断是否是数字 If Len(UserInput) =

22、 1 Then 不是数字时，判断输入的字符串长度是否为1 Select Case Asc(UserInput) 判断输入字母的ASCII码值 Case 60 To 90 在60-90之间为大写字母 msg = 你输入的是一个大写字母 msg = msg & Chr(Asc(UserInput) & 。 Case 97 To 122 小写字母 msg = 你输入的是一个小写字母 msg = msg & Chr(Asc(UserInput) & 。 Case Else msg = 你没有输入字母或数字. End Select End IfElse Select Case Val(UserInput

23、) 将输入的数值型字符转换为数值 Case 1, 3, 5, 7, 9 如果是奇数 msg = UserInput & 是一个奇数。 Case 0, 2, 4, 6, 8 如果是偶数 msg = UserInput & 是一个偶数。 Case Else 出界 msg = 你输入的数字不在09范围内 End Select End If MsgBox msgEnd Sub【例3-8】Private Sub Form_Click()Dim msg, UserInputmsg = 请输入一个字母或09之间的数字.UserInput = InputBox(msg) 输入一个字母或数字If Not IsN

24、umeric(UserInput) Then 判断是否是数字 If Len(UserInput) = 1 Then 不是数字时，判断输入的字符串长度是否为1 Select Case Asc(UserInput) 判断输入字母的ASCII码值 Case 60 To 90 在60-90之间为大写字母 msg = 你输入的是一个大写字母 msg = msg & Chr(Asc(UserInput) & 。 Case 97 To 122 小写字母 msg = 你输入的是一个小写字母 msg = msg & Chr(Asc(UserInput) & 。 Case Else msg = 你没有输入字母或数

25、字. End Select End IfElse Select Case Val(UserInput) 将输入的数值型字符转换为数值 Case 1, 3, 5, 7, 9 如果是奇数 msg = UserInput & 是一个奇数。 Case 0, 2, 4, 6, 8 如果是偶数 msg = UserInput & 是一个偶数。 Case Else 出界 msg = 你输入的数字不在09范围内 End Select End If MsgBox msgEnd Sub【例3-10】Sub Form_Click()Dim N As Integern = InputBox(Enter N:) 输入N

26、的值k = 1For i = 1 To N 循环N次，计算出N！k = k * I Next iPrint N;”!=”;k 数据输出End Sub【例3-12】Dim S, NS = 0: N = 0Do While S = 100N = N + 1S = S + NLoopPrint S, N【例3-13】Private Sub Form_Click()Dim char As StringCount = 0char = InputBox(请输入一个字符)While char ? Count = Count + 1 char = InputBox$(请输入一个字符)WendPrint 输入的

27、字符数是:; CountEnd Sub【例3-14】Private Sub Form_Click()Print *;For i = 1 To 9 Print Tab(i * 6); i;Next iPrintFor j = 1 To 9 Print j; For k = 1 To j Print Tab(k * 6); j * k; ; Next k PrintNext jEnd Sub第4章课前体验（1）假定用来输入数学成绩的文本框名称为Text1，该文本框的LostFocus事件过程如下：Private Sub Text1_LostFocus() If Val(Text1.Text) 10

28、0 Then Text1.Text = Text1.SetFocus End IfEnd Sub（2）其他文本框的LostFocus事件类似。（3）假定按钮名称为Command1，该按钮的Click事件过程如下：Private Sub Command1_Click()If Check1.Value = 1 Then Sum = Sum + Val(Text1.Text)If Check2.Value = 1 Then Sum = Sum + Val(Text2.Text)If Check3.Value = 1 Then Sum = Sum + Val(Text3.Text)If Check4.

29、Value = 1 Then Sum = Sum + Val(Text4.Text)If Check5.Value = 1 Then Sum = Sum + Val(Text5.Text)Text6.Text = SumEnd Sub【例4-1】Private Sub Command1_Click() 在其单击事件中编程For i = 1 To 6 外循环，控制输出几行For j = 1 To i 内循环，控制输出几列Print * ;Next jPrint 换行Next iEnd Sub【例4-2】Private Sub Text1_Change()Text2.Text = LCase(Te

30、xt1.Text)Text3.Text = UCase(Text1.Text)End Sub【例4-3】Private Sub Check1_Click() Text1.FontUnderline = Not Text1.FontUnderlineEnd SubPrivate Sub Check2_Click() Text1.FontItalic = Not Text1.FontItalicEnd SubPrivate Sub Option1_Click() Text1.Font = 黑体End SubPrivate Sub Option2_Click() Text1.Font = 宋体End

31、 Sub【例4-4】Private Sub Command1_Click() If Option1 Then Text1.FontName = 宋体 Else Text1.FontName = 黑体 End If If Option3 Then Text1.FontSize = 8 Else Text1.FontSize = 10 End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub【例4-5】Private Sub Form_Load()在窗体的Load事件中输入列表框的各个项目 lstBooks.AddItem 计算机应用基础 lstBo

32、oks.AddItem 操作系统 lstBooks.AddItem 数据结构 lstBooks.AddItem 网络技术基础End SubPrivate Sub cmdAdd_Click()单击添加命令按钮时将文本框中输入的内容添加到列表框中 lstBooks.AddItem txtItem txtItem = End SubPrivate Sub cmdDelete_Click()删除列表框中选中的项目 lstBooks.RemoveItem lstBooks.ListIndexEnd SubPrivate Sub cmdModify_Click()所选项目显示在文本框中，等待修改 txtI

33、tem.Text = lstBooks.Text cmdAdd.Enabled = False cmdDelete.Enabled = False cmdModify.Enabled = False cmdModify_OK.Enabled = TrueEnd SubPrivate Sub cmdModify_OK_Click()所选项目显示在文本框中修改完成后，按下修改确定按钮，更新列表框内容 lstBooks.List(lstBooks.ListIndex) = txtItem cmdModify_OK.Enabled = True cmdAdd.Enabled = True cmdDel

34、ete.Enabled = True cmdModify.Enabled = True txtItem = End Sub【例4-6】Private Sub Form_Click()Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.PicturePciture3.Picture=LoadPicture()把第3个图片框设置为空End sub【例4-7】Private Sub HScroll1_Change() Text1.Text = HScroll1.Valu

35、eEnd Sub【例4-8】Private Timer1_Timer()Labe1.Caption=Time$End Sub实训Private Sub Command1_Click()Debug.Print 姓名:; Text1.TextDebug.Print 出生年月:; Text2.TextDebug.Print 籍贯:; Text3.TextIf Option1.Value Then Debug.Print 性别:; 男If Option2.Value Then Debug.Print 性别:; 女Debug.Print 民族:; Combo1.TextIf Check1.Value =

36、 1 Then Debug.Print 健康 Else Debug.Print 不健康Debug.Print 职称:; Combo3.TextDebug.Print 工资:; Text4.TextDebug.Print 外语熟练程度; HScroll1.ValueDebug.Print 简历:; Text5.TextEnd Sub第5章课前体验Private Sub Command6_Click()Const n = 10 定义常量n的值为10Max = 0: K = 0 最高分及所在位置赋初值For i = 1 To n b(i) = InputBox(请输入第& i &个同学的成绩,求最高

37、分) 输入成绩 If b(i) Max Then Max = b(i)K = I 将第i个成绩与最高分Max相比，如果比最高分高，则保存起来 End IfNext iPrint最高分是第& K &个同学，其成绩是：& MaxEnd Sub【例5-1】Option Base 1Private Sub Command1_Click()Dim a(3) As Integera(1) = 1: a(2) = 3: a(3) = 5Print a(1)Print a(2)Print a(3)End Sub【例5-2】For i=1 To 10b(i) = InputBox(请输入第 & i & 个数)N

38、ext i【例5-3】For i=1 To 2For j=1 To 2b(i,j) = i+jNext jNext i【例5-4】Dim S(3，2) As Integer程序如下：For i = 0 To 3 Print Tab(5); 输出位置定位 For j = 0 To 2 S(i, j) = i * 2 + j 给各元素赋值图5-4 使用二维数组打印出的图形 Print S(i, j); Next j Print 换行Next i【例5-5】Private Sub Form_Click()Dim s(5) As Integer 定义数组SConst n = 5For i = 1 To

39、 n s(i) = Val(InputBox(请输入第 & LTrim$(Str$(i) & 个数, 数据排序)输入n个数，转换成数值后保存在数组中。Next iFor i = 1 To n-1 进行n-1趟比较 Max = I 对第i遍比较时，初始假定第i个元素最小。 For j = i + 1 To n 在数组in个元素中选最小元素 If s(j) s(Max) Then Max = j Next j t = s(i) s(i) = s(Max) s(Max) = t in个元素中选出的最小元素与第i个元素交换Next iFor i = 1 To 5 Print s(i)Next iEnd Sub【例5-6】Dim b() As IntegerPrivate Sub Form_Click() ReDim b(2) For i = 0 To 2 b(i) = i Next i ReDim Preserve b(3) b(3) = 7For i = 0 To 3 Print b(i);Next iEnd Sub【例5-7】Dim a(8, 8) As Integer 定义一个二维数组Priv