vb函数与表达式练习题

函数与表达式练习题

一、选择题

1、\,/,Mod,*四个算术符中.优先级最低的是（）.

(A)\ (B) / (C) Mod

(D) *

2.下列字符串常量中,最大的是（）.

(A) "北京" (B) "上海" (C) "天津"

(D) "广州"

3.表达式Int(8*sqr(36)*10^(-2)*10+0.5)/10的值是（）.

(A) .48 (B) .048 (C) .5

(D) .05

4.表达式Val(".123E2CD")的值是（）.

(A).123 (B) 12.3 (C) 0

(D) .123E2CD

5.系统符号常量的定义可以通过（）获得.

(A)对象浏览器(B)代码窗口(C)属性窗口 (D)工具箱

6.表达式(7\3+1)*(18\5-1)的值是（）.

(A)8.67 (B)7.8 (C) 6

(D)6.67

7.表达式5^2Mod 25\2^2的值是（）.

(A)1 (B)0 (C)6

(D)4

8.表达式25.28 Mod 6.99的值是（）.

(A)1 (B)5 (C)4

(D)出错

9.下面表达式中,（）的运算结果与其他三个不同.

(A) Exp(-3.5) (B) Int(-3.5)+0.5

(C) -Abs(-3.5) (D) Sgn(-3.5)-2.5

10.Int(100*Rnd(1))产生的随机整数的闭区间是（）.

(A) [0,99] (B) [1,100] (C) [0,100]

(D) [1,99]

11.产生[10,37]之间的随机整数的Visual Basic表达式是（）.

(A) Int(Rne(1)*27)+10 (B)

Int(Rnd(1)*28)+10

(C) Int(Rnd(1)*27)+11 (D)

Int(Rnd(1)*28)+11

12.表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是（）.

(A) 1 (B) 0 (C) 01 (D) 2

13.表达式Int( - 17.8) +Sgn(17.8)的值是（）.

(A) 18 (B)-17 (C) -18 (D) -16

14.表达式Int( - 17.8) +Abs(17.8)的值是（）.

(A) 0 (B) 0.8 (C) - 0.2

(D) 0 34.8

15.表达式Left("how are you",3)的值是（）.

(A) how (B) are (C) you

(D) how are you

16.表达式Right("Biejing",4)的值是（）.

(A) Bei (B) jing (C) eiji

(D) ijin

17.表达式Abs( - 5) +Len("ABCDE")的值是（）.

(A) 5ABCDE (B) 0 5ABCDE (C) 10

(D) 0

18.表达式Mid("SHANGHAI",6,3)的值是（）.

(A) SHANGH (B) SHA (C) ANGH

(D) HAI

19.函数Len(Str(Val("123.4")))的值为（）.

(A) 11 (B) 5 (C) 6

(D) 8

20.设A="12345678",则表达式Val(Left(A,4) +

Mid(A,4,2))的值为（）.

(A) 123456 (B) 123445 (C) 8

(D) 6

21.设A="abcdefghijklm",下面（）的函数值为

"jklm".(多选)

(A) Mid(A,10,14) (B) Right(A,4)

(C) Mid(A,10,4) (D) Left(A,10,4)

22.函数InStr("VB程序设计教程","程序")的值为

（）.

(A) 1 (B) 2 (C) 3

(D) 4

23.函数Ucase(Mid("Visual basic",8,5))的值为

（）.

(A) Visual (B) basic (C) VISUAL

(D) BASIC

24.表达式Str(Len("123")) + Str(77.7)的值为

（）.

(A) 377.7 (B) 3 77.7 (C) 80.7

(D) 12377.7

25.表达式( - 1)*Sgn( - 100 +Int(Rnd*100))的值是

（）.

(A) 0 (B) 1 (C) - 1

(D) 随机函数

26.Visual Basic布尔运算符Xor,Or,Eqv,And中,级

别最高的运算符是（）.

(A) Xor (B) Or (C) Eqv

(D) And

27.在下面各关系中,当X取任意数值时都能成立的式

子是（）.

(A) Int(X) >= Abs(X) (B) Int(X) =

Abs(X)

(C) Int(X) <=Abs(X) (D) Int(X) <>

1

Abs(X)

28. 设有如下声明：

Dim X As Integer

如果Sgn(X) 的值为-1，则X的值是( )

A) 整数B) 大于0的整数C) 等于0的整数D) 小于0的数

29.在一个语句行内写多条语句时,语句之间应该用（）分隔.

(A) 逗号(B) 分号(C) 顿号

(D) 冒号

30．设a=3,b=5，则以下表达式值为真的是( )

A) a>=b And b>10 B) (a>b)Or(b>0)

C) (a<0)Eqv(b>0) D)

(-3+5>a)And(b>0)

31．设a=“Visual Basic”，下面使b=“Basic”的语句是( )

A) b=Left(a,8,12) B) b=Mid(a,8,5)

C) b=Rigth(a,5,5) D) b=Left(a,8,5)

32.函数String(n，“str”)的功能是( )

A)把数值型数据转换为字符串

B)返回由n个字符组成的字符串

C)从字符串中取出n个字符

D)从字符串中第n个字符的位置开始取子字符串

33.以下声明语句中错误的是( )

A）Const var1=123 B）Dim var2 = 'ABC'

C）DefInt a_z D）Static var3 As Integer

34. 以下合法的Visual Basic标识符是( )

A) ForLoop B) Const C) 9abc

D) a#x

35. 表达式 5 Mod 3+3\5*2的值是( )

A) 0 B) 2 C)4

D) 6

36. 设x=4,y=8,z=7，以下表达式的值是( )

xz) Or z

A) 1 B) -1 C) True

D) False

37.设a=5，b=4，c=3，d=2下列表达式的值是( )。

3 > 2 * b Or a = c And b <> c Or c > d

A)1 B)True C) False

D)2

38.设a = "MicrosoftVisualBasic" ，则以下使变量b的值为“VisualBasic”的语句是( )。

A) b = Left(a, 10)

B) b = Mid(a, 10)

C) b = Right(a, 10)

D) b = Mid(a, 10, 11)

二、填空题

1.已知A=7.5，B=2，C= - 3.6 ，写出下列布尔表达

式的值.

A >

B And

C > A Or A =B

2.设A=2,B=3,C=4,D=5，写出下列布尔表达式的值。

（1）A>B And C<= D Or 2*A>C

___________

（2）3>2*B Or A=C And B<>C Or C>D

____________

（3）Not A<=C Or 4*C=B ^ 2 And B<>A+C

________

3．设C= “A”，写出下列布尔表达式的值。

（1）C>= “0” And C <= “9” Or C >= “A” And

C <= “Z”__________

（2）C<= “0” And C >= “9” Or C>= “A” And C

<= “Z”__________

（3）C>= “0” And C <= “9” And C>= “A” And

C <= “Z”__________

（4）C>= “0” Or C <= “9” And C>= “A” Or C

<= “Z”__________

4.若A=20,B=80 ,C=70, D=30 ,则表达式

A +

B >160 Or (B*C>200 And Not D>60)的值

是 .

5.设A=2 , B= - 2 ,则表达式A / 2 + 1 > B + 5 Or

B * (-2)=6的值是 .

6.设A=2,B= -4 ,则表达式3*A> 5 Or B + 8<0的值

是 .

7.关系式X≤ -5或X≥5所对应的布尔表达式是:

8.关系式-5≤X≤5所应的布尔表达式是:

9.A的绝对值大于等于B同时不等于C的布尔表达式

是:

10.X是小于100的非负数,对应的布尔表达式是:

11.闰年的条件是:年号(Y)能被4整除,但不能被100

整除;或者年号能被400整除.表示该条件的布尔表达

式是:

12.一元二次方程ax2+bx+c=0有实根的条件是a≠0,

并且b2-4ac≥0,表示该条件的布尔表达式是:

13.表示条件"变量X为能被5整除的偶数"的布尔表达

式是:

2

VBNET各种常用函数

(1) https://www.wendangku.net/doc/828341976.html,函数库的名称空间和模块 Conversion 转换函数 DateAndTime 日期和时间函数 Strings 字符串函数 VbMath 随机函数 (2) 基础类库中的名称空间和类 引用名称空间的方法： 项目引用新建一个项目时，https://www.wendangku.net/doc/828341976.html,根据所建项目类型，自动导 入部分名称空间的引用 直接引用给出名称空间的全名，就可访问其中的任一个类及其 各项内容 例使用Math类开方函数sqrt： Label1.Text = system.Math.sqrt(100) Imports语句导入在代码中就可直接使用名称空间的类或成员。 导入语句的格式：Imports 名称空间

数学函数 .NET中的数学函数包含在Math类。使用前在模块的开头用语句Imports System.Math导入 Rnd函数返回0和1（包括0但不包括1）之间的双精度随机数. 每次运行时，要产生不同序列的随机数，先执行Randomize 语句。产生a~b的之间的随机整数：Int(Rnd *(b-a)+a)

(1) Chr和Asc函数互为反函数。 (2) Str函数将非负数值转换成字符类型后，会在转换后的字符串左边增加一空格。 (3) Val将数字字符串转换为数值类型，当字符串中出现数值类型规定的字符外的字符，则停止转换，函数返回的是停止转换前的结果。例如表达式： Val("-123.45ty3")结果为-123.45。 (4) CDdate函数将以日期型表达式转换成日期类型。例如表达式：CDate("2005/5/12")结果为日期类型 https://www.wendangku.net/doc/828341976.html,中还有其他类型转换函数，例如，CInt、CBool、CSng、CStr等，详细例子查阅帮助功能。 日期函数 计算从当前日期到2007年6月30日有多少天？表达式为： DateDiff("d", Now, #6/30/2007#)

VB6.0函数

Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象含有关于运行时错误的信息。

VB6常用函数大全

VB常用函数大全 现在的编程软件像VB，C++等，大多自带功能很强的函数库，可以很省力得完成各种功能。很多时候，想不起来实现某个功能的函数或函数格式，导致编程大费周折。作为一个编程人员，我对此深有体会。因此，特地准备了几期VB常用函数的介绍，供大家学习或参考。有说的不当之处，也欢迎在本网站的论坛中提出，大家学习。 （一）类型转换类函数 1、CType(X) [格式]： P=CBool(X) 将X转换为“布尔”（Boolean）类型 P=CByte(X) 将X转换为“字节”（Byte）类型 P=CCur(X) 将X转换为“金额”（Currency）类型 P=CDate(X) 将X转换为“日期”（Date）类型 P=CDbl(X) 将X转换为“双精度”（Double）类型 P=CHr(X) 返回字符码对应的字符 P=CInt(X) 将X转换为“整型”（Integer）类型 P=CLng(X) 将X转换为“长整型”（Long）类型 P=CSng(X) 将X转换为“单精度”（Single）类型 P=CStr(X) 将X转换为“字符串”（String）类型 P=Cvar(X) 将X转换为“变体型”（Variant）类型 P=CVErr(X) 将X转换为Error值 [ 范例]：(1) CStr(13)+CStr(23) 数值转换成字符串后，用“+”号连接，结果：1323 (2) CInt("12")+12 字符串转换成整型后与12相加，结果：24 (3) P=CInt(True) 输出结果为-1，布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1，False存为0 (4) CBool(-0、001) 输出结果为True。将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True 2、Int(X)，Fix(X)：取X的整数值 [格式]： P=Int(X) 取<=X的最大整数值 P=Fix(X) 取X的整数部分，直接去掉小数 [范例]：(1) Int(-54、6) 结果为-55，取<=-54、6的最大整数 (2) Fix(54、6) 结果为54，取整数并直接去掉小数 （二）常用数学函数 [格式]： 1、Abs(N) 取绝对值 例：Abs(-3、5) 结果：3、5 2、Cos(N) 余弦函数 例：Cos(0) 结果：1 3、Exp(N) e为底的指数函数 例：Exp(3) 结果：20、068 4、Log(N) 以e为底的自然对数

VB常用函数表

ASP纯ASP VBscript常用函数： 1.数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示：&Hxx 最大8位 oct(num): 返回八进制值直接表示：&Oxx 最大8位 sqr(num): 返回平方根num>0 int(num): 取整int(99.8)=99; int(-99.2)=100 fix(num): 取整fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2 log(num): 取以e为底的对数num>0 exp(n): 取e的n次幂通常用num^n sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）

VB常用函数

VB常用函数： 1.数值型函数： int(num): 取整int(99.8)=99; int(-99.2)=-100 fix(num):取整fix(99.8)=99; fix(-99.2)=-99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.3 sqr(num) 取根号 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 trim(str)：去除字符串两端空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符1；替代次数不限；比较方法区

分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrrev() split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选CHR（num）通过ASCII值获取一个字符 chr(32) 空格 chr(13) 回车 Ucase(str)所有字符转成大写 Lcase(str)所有字符转成小写 3.数据类型转换函数： Cint(str)：转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段0；下午段1； Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ss Csng(str)：转换为单精度数值 Cdbl(str)：转换为双精度数值 Cdate() 4.时间函数： date：取系统当前日期

vb6常用函数

字符函数 函数名 功能 示例 ASC 返回一个Integer，代表字符串中首字母的字符代码。 Asc(string) CHR 返回String，其中包含有与指定的字符代码相关的字符 Chr(charcode) Format 返回Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。 Format(expression[, format[, firstdayofweek[, firstweekofyear]]]) Hex 返回代表十六进制数值的String。 Hex(number) InStr 返回Variant (Long)，指定一字符串在另一字符串中最先出现的位置。 InStr([start, ]string1, string2[, compare]) InstrRev 返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。 InstrRev(string1, string2[, start[, compare]]) Join 返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。 Join(list[, delimiter]) LCase 返回转成小写的String。 LCase(string) Left 返回Variant (String)，其中包含字符串中从左边算起指定数量的字符。 Left(string, length) Len 返回Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。

Len(string | varname) Ltrim Rtrim Trim 返回Variant (String)，其中包含指定字符串的拷贝，没有前导空白(LTrim)、尾随空白(RTrim) 或前导和尾随空白(Trim)。 LTrim(string)RTrim(string)Trim(string) Mid 返回Variant (String)，其中包含字符串中指定数量的字符。 Mid(string, start[, length]) Partition 返回一个Variant (String)，指定一个范围，在一系列计算的范围中指定的数字出现在这个范围内。 Partition(number, start, stop, interval) Replace 返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，且替换发生的次数也是指定的。 Replace(expression, find, replacewith[, start[, count[, compare]]]) Right 返回Variant (String)，其中包含从字符串右边取出的指定数量的字符。 Right(string, length) Space 返回特定数目空格的V ariant (String)。 Space(number) Split 返回一个下标从零开始的一维数组，它包含指定数目的子字符串。 Split(expression[, delimiter[, count[, compare]]]) StrComp 返回Variant (Integer)，为字符串比较的结果。 StrComp(string1, string2[, compare]) String 返回Variant (String)，其中包含指定长度重复字符的字符串。 String(number, character) StrReverse 返回一个字符串，其中一个指定子字符串的字符顺序是反向的。 StrReverse(string1)

VB函数与过程

VB函数与过程 教学目的： 1、熟悉VB中函数的含义及函数的分类。 2、掌握VB中用户函数的定义及应用。 3、掌握VB中通用过程的含义及使用方法。 教学重点： 1、VB中函数基本概念的理解。 2、VB中用户函数定义方法。 3、VB中变量的作用范围。 4、VB中通用过程的应用。 课时安排： 理论教学安排6课时，上机练习8课时 一、VB通用过程 1、重复使用的程序段独立定义为过程。 2、过程的分类 （1）事件过程（例如click,dblclick,……） （2）通用过程（由用户定义，可供VB过程来调用；用户定义的过程称为“子过程”）3、通用调用流程： 程序过程： （1）调用过程可以事件过程或者用户定义过程。调用过程按顺序执行时，遇到CALL命令则转向指定的子过程。 （2）子过程按顺序执行，遇到子过程的结束语句时，返回到调用过程的断点后一条语句（CALL的下一条语句）。

（3）调用过程接着执行，遇CALL命令重复（2）；否则执行到程序结束。 4、VB中的通用过程： （1）SUB（过程）------无返值 （2）FUNCTION（函数）-------有返值 二、SUB过程 上机练习： P165例7.1 Private Sub Form_Load() Show Call sub1(30) Call sub2 Call sub2 Call sub2 Call sub2 Call sub2 Call sub2 Call sub1(30) End Sub Private Sub sub1(n) Print String(n, "*") 'string函数用来重复出现n次"*" End Sub Private Sub sub2() Print "*"; T ab(30); "*" End Sub 1、Sub过程的定义 Private|public|static sub 过程名(形式参数列表) 过程语句块(可以含有Exit sub) End sub （1）Private表示过程只在当前模块有效，public则表示在整个程序范围都有效。 （2）Static表示过程的局部变量静态分配空间（局部变量保持到整个程序结束才释放，而动态变量则是过程退出就释放变量。） 2、Sub过程的建立 （1）窗体中打开代码窗口（.frm），选择通用过程，直接编写sub过程。 （2）在标准模块（.bas）中来创建sub过程。 第一步，在“工程”菜单或工程面板的快捷菜单中选择“添加模块”。 第二步，在“工具”菜单中选择“添加过程”，弹出“过程对话框”，输入过程名，录入过程代码；也可以直接在通用代码框中录入过程。 注意：在标准模块书写通用过程时，单独保存.bas的模块文件。如果过程中使用窗体等对象，不能省缺对象名。 3、Sub过程的调用 Call 过程名(实参数表) 过程名实参表 上机练习：

VB函数大全

VB函数大全 Calendar 常数 可在代码中的任何地方用下列常数代替实际值： 常数值描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 -------------------------------------------------------------------------------- Color 常数 可在代码中的任何地方用下列常数代替实际值： 常数值描述 vbBlack 0x0 黑色 vbRed 0xFF 红色 vbGreen 0xFF00 绿色 vbYellow 0xFFFF 黄色 vbBlue 0xFF0000 蓝色 vbMagenta 0xFF00FF 紫红色 vbCyan 0xFFFF00 青色 vbWhite 0xFFFFFF 白色 -------------------------------------------------------------------------------- Comparison常数 下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值： 常数值描述 VbUseCompareOption -1 使用Option Compare语句的设置进行比较。VbBinaryCompare 0 进行二进制的比较。 VbTextCompare 1 进行文字的比较。 vbDatabaseCompare 2 用于 Microsoft Access(仅限于Windows)，进行以数据库所含信息为基础的比较。 -------------------------------------------------------------------------------- Compiler 常数

VB中sub过程与function函数的区别

function是函数，sub是子程序，都可以传递参数，但函数有返回值，子程序没有 function 可以用自身名字返回一个值，sub 需定义别的变量，用传址方式传回值。 Sub 过程与Function 过程的区别： 1．Sub 过程定义时无需定义返回值类型，而Function 过程一般需要用“As 数据类型”定义函数返回值类型。 2．Sub 过程中没有对过程名赋值的语句，而Function 过程中一定有对函数名赋值的语句。 3．调用过程：调用Sub 过程与Function 过程不同。调用Sub 过程的是一个独立的语句，而调用函数过程只是表达式的一部分。Sub 过程还有一点与函数不一样，它不会用名字返回一个值。但是，与Function过程一样，Sub 过程也可以修改传递给它们的任何变量的值。 4．调用Sub 过程有两种方法： 以下两个语句都调用了名为MyProc 的Sub 过程。 Call MyProc (FirstArgument, SecondArgument) MyProc FirstArgument, SecondArgument 注意当使用Call 语法时，参数必须在括号内。若省略Call 关键字，则也必须省略参数两边的括号。 在VB中，子过程与函数过程只有一处区别（要学好VB一定要记住），区别就是：子过程没有返回值，函数过程有返回值。 子过程用于编写一些代码的集合，函数过程用于建立函数。我兴个例吧。 例如，我要做多处要做如下事件，我只要编写一个子过程，在其它事件下，我只要把子过程的名称写下就行了。 Private Sub ABC(A As Integer, B As Integer, C As Integer) A = 1 B = 1 C = 1 End Sub Private Sub Command1_Click() ABC '按扭一就调用了该子过程了，而不用再写子过程的代码。 End Sub Private Sub Command2_Click() ABC '按扭二就调用了该子过程了，而不用再写子过程的代码。 End Sub

VB内置函数详细解释大全

VB内置函数大全 Abs(number) 返回参数的绝对值，其类型和参数相同。 必要的 number 参数是任何有效的数值表达式，如果 number 包含 Null，则返回 Null，如果 number 是未初始化的变量，则返回 0。 一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1) 和 ABS(1) 都返回 1。 Array(arglist) 返回一个包含数组的 Variant。 所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。 用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。Dim A As Variant A = Array(10,20,30) B = A(2) 使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库（例如 VBA.Array )名称限定。如果是由类型库名称限定，则 Array 不受 Option Base 的影响。 注意没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。 Asc(string) 返回一个 Integer，代表字符串中首字母的字符代码。 必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何

vb 常用函数

第五章常用内部函数 教学目的及要求： 使学生掌握函数的概念，函数的调用格式，VB中的常用内部函数。 重点与难点： 1、学会调用内部函数进行各种运算。 2、掌握调用各种函数时需要的参数、函数的参数类型和函数返回值类型，这也是本章的难点。 主要外语词汇： ANSI 、function randomize、 format 授课内容： 1、函数的分类：（1）内部函数 （2）外部函数（用户自定义函数、函数过程） 2、VB常用的内部函数有：数学函数、字符串函数、转换函数、日期与时间函数、其他函数。 3、函数的一般调用格式为：函数名([参数表]) 注：参数的类型和个数。 若参数类型或个数不匹配，则提示出错信息。 4、方法与函数的区别： （1）方法可以单独作为语句使用，函数不可以。 （2）方法没有返回值，函数有返回值。 （3）方法的格式：[对象名.]方法 [参数列表] 函数的格式：①变量名=函数名([参数列表]) ②[对象名.]属性=函数名([参数列表]) 5、一般将函数值进行输出或赋值给某个变量。 第一节常用函数 一、数学函数： 1、利用Log(N)/Log(10)得到Lg(N)的值。 2、注意函数Int(N)、Fix(N)、Cint(N)和Round(N)之间的区别。 例1：05_1.vbp 二、字符串函数： 1、常用的字符串函数： （1）Len(S)：测试字符串S的字符个数，中西文字符均算1个字符。 （2）LenB(S)：测试字符串S的字节数，中西文字符均占2个字节。

LenB(S)=2*Len(S) （3）Ucase(S)：将字符串S中的小写字母改为大写字母。 （4）Lcase(S)：将字符串S中的大写字母改为小写字母。 （5）String(N,S)：重复输出N个S单个字符 例：Print String(5,“a”) Print String(5,“abcd”) 结果相同 2、在字符串函数名后面可以加“$”符号。 例：Print String(5,“*”) Print String$(5,“*”) 等价 3、字符串的编码方案： （1）ANSI方式： 美国国家标准协会制定，西文字符占用1个字节，汉字占用2个字节。（2）UniCode方式： 国际标准化组织ISO制定，西文字符和汉字统一进行编码，占用2个字节。VB6.0内部采用UniCode编码形式来存储字符串。 4、字符处理函数：针对字符数，中西文字符均算1个字符。 字符处理函数+B：针对字节数，中西文字符均占2个字节。 5、StrConv函数： 格式：StrConv( S,指定格式 ) （1）S：要转换的字符串表达式。 （2）指定格式： ① vbUnicode（64）：ANSI格式 -> UniCode格式 ② vbFromUnicode（128）：UniCode格式 -> ANSI格式 ③ vbUpperCase（1）：将字符串S文字转换成大写 ④ vbLowerCase（2）：将字符串S文字转换成小写 ⑤ vbProperCase（3）：将字符串S每个字的开头字符转换成大写 总结： 1、小写 -> 大写 2、大写 -> 小写 （1）UCase(S) （1）LCase(S) （2）StrConv(S,vbUpperCase) （2）StrConv(S,vbLowerCase) 例：Private Sub Command1_Click( ) Dim x As String ,y As String x = Text1.Text y = UCase(x) ‘ y = StrConv(x,vbUpperCase) Text2.Text = y End Sub

VB系统函数

VB系统函数 Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为 1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。

vb函数与表达式练习题

函数与表达式练习题 一、选择题 1、X=-9.8，表达式INT(X)+FIX(－X)的值是( ) A.1 B.17 C.0 D.－1 2. 执行A＝9\4后，A的值为( 2 ) A.9/4 B.3 C.2 D.2.25 3.表达式Int(8*sqr(36)*10^(-2)*10+0.5)/10的值是（）. (A) .48 (B) .048 (C) .5 (D) .05 4.表达式Val(".123E2CD")的值是（）. (A).123 (B) 12.3 (C) 0 (D) .123E2CD 5. 表达式SQR(2^3^2) MOD 7的值为( ) A.0 B.1 C.2 D.3 6.表达式(7\3+1)*(18\5-1)的值是（）. (A)8.67 (B)7.8 (C) 6 (D)6.67 7.表达式5^2 Mod 25\2^2的值是（）. (A)1 (B)0 (C)6 (D)4 8.表达式25.28 Mod 6.99的值是（）. (A)1 (B)5 (C)4 (D)出错 9.下面表达式中,（）的运算结果与其他三个不同. (A) Exp(-3.5) (B) Int(-3.5)+0.5 (C) -Abs(-3.5) (D) Sgn(-3.5)-2.5 10.Int(100*Rnd(1))产生的随机整数的闭区间是（）. (A) [0,99] (B) [1,100] (C) [0,100] (D) [1,99] 11.产生[10,37]之间的随机整数的Visual Basic表达式是（）. (A) Int(Rne(1)*27)+10 (B) Int(Rnd(1)*28)+10 (C) Int(Rnd(1)*27)+11 (D) Int(Rnd(1)*28)+11 12.表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是（）. (A) 1 (B) 0 (C) 01 (D) 2 13.表达式Int( - 17.8) +Sgn(17.8)的值是（）. (A) 18 (B)-17 (C) -18 (D) -16 14.表达式Int( - 17.8) +Abs(17.8)的值是（）. (A) 0 (B) 0.8 (C) - 0.2 (D) 0 34.8 15.表达式Left("how are you",3)的值是（）. (A) how (B) are (C) you (D) how are you 16.表达式Right("Biejing",4)的值是（）. (A) Bei (B) jing (C) eiji (D) ijin 17.表达式Abs( - 5) +Len("ABCDE")的值是（）. (A) 5ABCDE (B) 0 5ABCDE (C) 10 (D) 0 18.表达式Mid("SHANGHAI",6,3)的值是（）. (A) SHANGH (B) SHA (C) ANGH (D) HAI 19.函数Len(Str(Val("123.4")))的值为（）. (A) 11 (B) 5 (C) 6 (D) 8 20.设A="12345678",则表达式Val(Left(A,4) + Mid(A,4,2))的值为（）. (A) 123456 (B) 123445 (C) 8 (D) 6 21.设A="abcdefghijklm",下面（）的函数值为"jklm".(多选) (A) Mid(A,10,14) (B) Right(A,4) (C) Mid(A,10,4) (D) Left(A,10,4) 22.函数InStr("VB程序设计教程","程序")的值为（）. (A) 1 (B) 2 (C) 3 (D) 4 23.函数Ucase(Mid("Visual basic",8,5))的值为（）. (A) Visual (B) basic (C) VISUAL (D) BASIC 24.表达式Str(Len("123")) + Str(77.7)的值为（）. (A) 377.7 (B) 3 77.7 (C) 80.7 (D) 12377.7 25.表达式( - 1)*Sgn( - 100 +Int(Rnd*100))的值是（）. (A) 0 (B) 1 (C) - 1 (D) 随机函数 26. 15.5\2的结果是__ ___。 (A) 1 (B) 1.5 (C) 7 (D) 8 27. 下列选项中，为字符串常量的是______。 (A) 6/12/2001 (B) "6/12/2001" (C) #6,12,2001# (D) 6,12,2001# 28. 设有如下声明： Dim X As Integer 如果Sgn(X) 的值为-1，则X的值是( ) A) 整数B) 大于0的整数C) 等于0的整数D) 小于0的数 29.在一个语句行内写多条语句时,语句之间应该用（）分隔.

vb函数与过程习题精选

第三章函数与过程习题 一、选择题 1．如果要声明一个全局性的符号常量，则应将该声明放在( )。 A．过程中 B．窗体模块的通用声明段中 C．标准模块的通用声明段中 D．窗体模块或标准模块的通用声明段中 2．定义过程的语句为： Sub Suba(X As Single，Y As Single) 则正确的调用语句为( )。 A．Suba 10，12 B．Call Suba("A"，Sin(1.57)) C．Call Suba X，Y D．Call Suba(1 2，1 0，x) 3．在窗体的通用段声明变量时，不能使用( )关键字。 A．Dim B．Public C．Private D．Static 4．Sub过程与函数过程最主要的区别是( )。 A．后者可以有参数，而前者则不行 B．前者可以用Call语句直接调用，而后者则不行 C．两种过程的参数传递方式不同 D．前者的过程名不能返回值，而后者的过程名则可以返回值 5．要在过程调用后返回两个值，下列过程定义正确的是( )。 A．Sub Proc(ByVal n，ByVal m) B．Sub Proc(n，ByVal m) C．Sub Proc(n，m) D．Sub Proc(ByVal n，m) 6．在程序模块的开头声明Option Explicit，则( )。 A．这个模块里所用到的变量必须声明后才能使用 B．整个工程里所用到的变量必须声明后才能使用 C．这个模块里所用到的变量不需要声明就能使用 D．整个工程里所用到的变量不需要声明就能使用 7．若希望在离开某过程后还能保存该过程中局部变量的值，则应使用( )关键字在该过程中定义局部变量。 A．Dim B．Private C．Public D．Static 8．在一个多窗口程序中，可以在标准模块或某个窗体模块的通用声明处分别用( )语句定义一个在所有窗体模块中都可以引用的变量IntA。 A．Private IntA As Integer，Public IntA As Integer B．Public IntA As Integer，Private IntA As Integer C．Public IntA As Integer，Public IntA As Integer D．Private IntA As Integer，Private IntA As Integer 9．在应用程序中用“Private Function Fun(X As Integer，Y As Integer)”定义了Fun 函数。调用Fun函数的过程中的变量I、J均定义为Integer型，能正确引用Fun函数的是( )。 ①Print Fun I，J ②Call Fun(I，3．65)

最全VB常用函数

一、类型转换函数 1、Int(x):求不大于自变量x的最大整数 2、Fix(x):走 失一个浮点数的小数部分，保存其整数部分 3、Hex$(x):把一个十进制数转换为十六进制数 4、Oct$(x):把一个十进制数转换为八进制数 5、Asc(x$):返回字符串x$中第一个字符的ASCII字符 6、CHR$(x):把x的值转换为相应的ASCII字符 7、Str$(x):把x的值转换为一个字符串 8、Cint(x):把x的小数部分四舍五进，转换为整数 9、Ccur(x):把x的值转换为货币类型值，小数部分最多保存4 位且主动四舍五进 10、CDbl(x):把x值转换为双精度数(Double) 11、CLng(x):把x的小数部分四舍五进转换为长整数型数（Long） 12、CSng(x):把x值转换为单精度数(single) 13、Cvar(x):把x值转换为变体类型值(variant) 14、VarPtr(var):获得变量var的指针 二、数学函数 1、Sin(x):返回自变量x的正弦值 2、Cos(x): 返回自变量x的余弦值 3、Tan(x): 返回自变量x的正切值 4、Atn(x): 返回自变量x的横竖切值 5、Abs(x): 返回自变量x的尽对值

6、Sgn(x): 返回自变量x的标记，即卖x为负数时，返回-1；卖x为0时，返回 0;卖x为正数时，返回1 7、Sqr(x):返回自变量x的平方根，x务必大于或即是0 8、Exp(x):返回以e为底，以x为指数的值，即求e的x次方 三、日期函数 1、Day(Now):返回卖前的日期 2、WeekDay(Now):返回卖前的星期 3、Month(Now):返回卖前的月份 4、Year(Now):返回卖前的年份 5、Hour(Now):返回小时(0~23) 6、Minute(Now):返回分(0~59) 7、Second(Now):返回秒(0~59) 四、随机数函数 1、Rnd[(x)]:孕育发生一个0~1之间的单精度随机数 2、Randmize[(x)]:功能同上，不过更好 五、字符串函数 1、LTrim$(字符串):走 失字符串左边的空缺字符 2、Rtrim$(字符串):走 失字符串右边的空缺字符 3、Left$(字符串,n):取字符串左部的n个字符

vb函数大全

如果你装了MSDN帮助或装了Office软件，就可以得到 在MSDN中“MSDN Library Visual Studio 6.0 | Visual Basic文档 | 参考 | 语言参考 | 函数” 即可看到VB所有内部函数 在Office软件中，打开“工具|宏|Visual Basic编辑器”，打开Visual Basic 编辑器帮助，“Visual Basic语言参考 | 函数” 即可看到VB所有内部函数 Vb常用内部函数 类型转换函数 数学函数 日期与时间函数 随机数函数 字符串函数 文件操作函数 窗体输入输出函数 ? 类型转换函数 1、 Int(x):求不大于自变量x的最大整数 2、 Fix(x):去掉一个浮点数的小数部分，保留其整数部分 3、 Hex$(x):把一个十进制数转换为十六进制数 4、 Oct$(x):把一个十进制数转换为八进制数 5、 Asc(x$):返回字符串x$中第一个字符的ASCII字符 6、 CHR$(x):把x的值转换为相应的ASCII字符 7、 Str$(x):把x的值转换为一个字符串 8、 Cint(x):把x的小数部分四舍五入，转换为整数 9、 Ccur(x):把x的值转换为货币类型值，小数部分最多保留4 位且自动四舍五入 10、 CDbl(x):把x值转换为双精度数 11、 CLng(x):把x的小数部分四舍五入转换为长整数型数 12、 CSng(x):把x值转换为单精度数 13、 Cvar(x):把x值转换为变体类型值 14、 VarPtr(var):取得变量var的指针 15 val(X):把X的值转换为数值类型 ? 数学函数 1、 Sin(x):返回自变量x的正弦值 2、 Cos(x): 返回自变量x的余弦值 3、 Tan(x): 返回自变量x的正切值 4、 Atn(x): 返回自变量x的反正切值 5、 Abs(x): 返回自变量x的绝对值 6、 Sgn(x): 返回自变量x的符号，即当x为负数时，返回-1；当x为0时，返回 0;当x为正数时，返回1 7、 Sqr(x):返回自变量x的平方根，x必须大于或等于0 8、 Exp(x):返回以e为底，以x为指数的值，即求e的x次方 ? 日期与时间函数

vb过程间参数的传递

一、形式参数与实际参数 1 形式参数：就是在定义函数或过程的时候命名的参数。通俗讲就是一个记号。 2 实际参数：就是在执行时，调用函数或过程时，传递给函数或过程的参数。通俗讲就是实际值。 3 参数嘛，就是一个可变量，它随着使用者的不同而发生变化。举个例子，在中学的时候学过sin(x)函数，这里的x就是形式参数，当你需要求1的正弦值时，你会使用sin(1)，这里的1就是实际参数。 4 形参和实参间的关系：两者是在调用的时候进行结合的，通常实参会将取值传递给形参，形参去之后进行函数过程运算，然后可能将某些值经过参数或函数符号返回给调用者。 在过程之间传递参数，形式参数和实际参数是很重要的概念。我们通常说形式参数是过程为了运行的需要预先在内存中保留的地址单元，而实际参数就是在调用过程时放入这些内存地址中进行处理的数据。如果形式参数是一个盒子，那么实际参数就是盒子里面装的东西。在参数传递的过程中，形式参数和实际参数的数据类型要一致。 二、参数传递 函数参数的传递方式有两种，一种是按地址传递，一种是按值传递。 按地址传递：调用函数时，不直接把实参的值“告诉”函数，而是把地址“告诉”它，函数根据这个地址来寻找并处理值，如果函数修改了这个值，也就修改了这个地址对应的值。 按值传递：把值复制一份再给函数，这个值只属于函数，函数对这个值的修改不影响原值。 VBScript中，要按地址传递可在形参前加 ByRef，要按值传递得在形参前加 ByVal，如果什么也不加则表示按地址传递。 1)按值传递

如果在声明过程时，形式参数名前面加上关键字“ByVal”，即规定了在调用此过程时该参数是按值传递的。按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所做的改动只影响副本而不会影响变量本身。 代码1 ********************************** Private Sub Command1_Click() Dim num1 As Integer num1 = 5 Print num1 Call MySub(num1) Print num1 ' 输出结果为5 Call MySub2(num1) Print num1 ' 输出结果仍为5 End Sub Private Sub MySub(ByVal A As Integer) A = 10 End Sub Private Sub MySub2(ByVal A As String)