vb常用内部函数及习题
vb中常用内部函数
SearchString ="XXpXXpXXPXXP" SearchChar = "P" MyPos = Instr(4, SearchString, SearchChar, 1) MyPos = Instr(1, SearchString, SearchChar, 0) MyPos = Instr(SearchString, SearchChar) MyPos = Instr(1, SearchString, "W")
35常用内部函数一分类随机函数二类型转化函数number参数为数值其中可包含任何有效的数值表达式返回值为由该数值组成的字符串
3.5 常用内部函数
一、分类
转换函数 数学函数 字符串函数 时间/日期函数 随机函数
二、类型转化函数
Str(number) number 参数为数值，其中可包含任何有效的 数值表达式，返回值为由该数值组成的字符串。 当一数字转成字符串时，总会在前头保留一空 位来表示正负。如果 number 为正，返回的字 符串包含一前导空格暗示有一正号 。 CStr(expression)数字转化为字符。对于正数 而言没有符号位
Mid(string, start[, length])：返回由string 字 符串中从Start位置开始的长度为length的字符 串。 MyString = "Mid Function Demo" FirstWord = Mid(MyString, 1, 3) LastWord = Mid(MyString, 14, 4) MidWords = Mid(MyString, 5)
三、字符串转化函数
StrComp(string1, string2[, compare]) 返回值为整形数据，其中0为string1=string2， 1为string1大于string2， -1为string1小于string2。 功能：如果第三个参数值为 1，字符串是以文 本比较的方式进行比较；如果第三个参数值为 0 或是缺省，则以二进制比较的方式进行比较。 文本比较方式会将大小写字母视为一样，但二 进制比较方式则视为不同。
VB常用函数介绍
VB常用函数介绍一、常用内部函数在VB内部提供了大量函数。
在这些函数中，有些是通用的。
有些则与某种操作有关的。
大体分成五类，分别是：转换函数、数学函数、日期函数、时间函数和随机函数。
（1）转换函数函数名功能Int(x) 返回不大于自变量的最大整数。
Fix(x) 去掉一个浮点数的小数部分,保留其整数部分。
Hex(x) 把一个十进制数转换成为十六进制数。
Oct(x) 把一个十进制数转换成为八进制数。
Asc(x) 返回字符串中第一个字符的ASCII码。
Chr(x) 把值转换为相应的ASCII字符。
Str(x) 把值转换为一个字符串Cint(x) 把小数部分四舍五入，转换为整数。
Ccur(x) 把值转换为货币类型，小数部分最多保留4位。
CDbl(x) 把值转换为双精度数值。
CLng(x) 把值小数部分四舍五入转换为长整型数值。
CSng(x) 把值转换为单精度数值。
CVar(x) 把值转换为变体类型值。
（2）数学函数函数名功能Sin(x) 返回正弦值。
Cos(x) 返回余弦值。
Tan(x) 返回正切值。
Atn(x) 返回反正切值。
Abs(x) 返回绝对值。
Sgn(x) 返回自变量的符号。
即：值为负数时，函数返回-1值为0时，函数返回0值为正数时，函数返回1Sqr(x) 返回自变量x的平方根，自变量必须大于或等于0。
Exp(x) 返回以e为底数，以x为指数的值，即求e的x 次方。
（3）日期函数函数名功能Day(Now) 返回当前的日期。
WeekDay(Now) 返回当前的星期。
Month(Now) 返回当前的月份。
Year(Now) 返回当前的年份。
（4）时间函数函数名功能Hour(Now) 返回小时（0~23）。
Minute(Now) 返回分钟（0~59）。
Second(Now) 返回秒（0~59）。
（5）随机函数Rnd(x) 产生一个0~1之间的单精度随机数Rnd函数可以产生随机数，当一个应用程序不断地重复使用随机数时，同一序列的随机数会反复出现，用Randomize语句可以消除这种情况。
VB程序设计课件-常用内部函数
6
128 1235
注意：程序代码编写规则
在编写程序代码时，要遵守一定的规则。不能超越其规定 来自由发挥。 (1) 一行写多条语句。冒号分隔
Sum=Sum+x : Count=Count+1 (2) 一条语句写成多行 使用续行符(一个空格后面跟随一个下划线“_”)，将长语句分 成多行。例如： Print Text1.Text & Text2.Text & Text4.Text &└┘_ & Left(Text3.Text，3) (3)不区分大小写字母
VB不区分应用程序代码字母的大小写 。
(4) 各关键字之间，关键字和变量名、常量名、过程名 之间一定要有空格分隔。
示例： Private└┘ Sub└┘ Form_Click()
(5)使用缩进 在编写程序代码时，可以使用缩进来反映代码的逻辑结 构和嵌套关系。例如： Private Sub Form_Click()
a = "Visual└┘FoxPro"
'└┘表示空格
n = InStr(a, "└┘")
'查找空格位置
b = Left(a, n - 1)
'取左边部分
c = Right( ____, ____ )
'取右边部分
Print b
'显示左边部分
Print c
'显示右边部分
End Sub
想一想
Visual FoxPro
Mid(“ABCDE”，2) 的结果为 “BCDE”
(2)插入字符串语句Mid Mid(字符串, p[,n]) = 子字符串
用“子字符串”替换“字符串”中从P开始的与“子字 符串”等长的一串字符。
vb_常用函数
算术运算符
算术运算符是最常用的运算符，在VB中提供了9个算术运算符，见下表
运算 幂 取负 乘法 浮点除法 整数除法 取模 加法 减法 连接
运算符
例子
-X X*Y X/Y X\Y X mod Y X+Y X-Y X$ & Y$
∧
* / \ Mod + &
X∧Y
注意：在上面9个运算符中，除了取负是单目运算符外，其余均为双目运算符 （需要两个运算量）
字符串函数—字符串截取函数
用来截取字符串的一部分，可以从左边、右边、中间进行截取 1、左边截取 left$(字符串，n) 返回字符串的前n个字符，在立即窗口进行测试 ？Left$(“abcdefg”,4) 2、中间截取 mid$(字符串，p，n) 从第P个字符开始向后截取n个字符 注意：如果省略第三个变量n则从第P个字符截取到字符串的末尾 3、右部截取 right$(字符串，n) 返回字符串的最后n个字符 字符串长度测试函数：Len(字符串) 可以测试字符串的长度，也可以测试变量的存储空间。
字符串匹配函数
在编写程序时有时候需要知道是否在文本框中是否输入了某个字符串，可 以通过instr函数进行判断。格式如下： Instr([首字符位置,]字符串1,字符串2[,n]) 在字符串1中查找字符串2，如果找到了则返回字符串2的第一个字符在第一 个字符串1中的位置。例如在立即窗口测试： A=“happy new year” B=instr(a$,”new”) Print B 说明： 1、字符串2的长度必须小于65535个字符 2、instr()返回的是一个常整型数。 3、首字符位置是可选的 4、函数的最后一个自变量n是可选的。N的取值为:0,1,2 N=0 进行二进制比较，区分字母大小写 n=1 忽略大小写 N=2 基于数据库中包含的信息进行比较
VB常用函数
VB常用函数：1.数值型函数：int(num): 取整int(99.8)=99; int(-99.2)=-100fix(num):取整fix(99.8)=99; fix(-99.2)=-99round(num,n):四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.3sqr(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:ssCsng(str)：转换为单精度数值Cdbl(str)：转换为双精度数值Cdate()4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值Datetime类型DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一d m yyyyweekday(date)：计算星期几Sunday 1Monday 2Tuesday 3Wednsday 4Thurday 5Friday 6Saturday 7year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒IsnumericIsdateFormatDateTime(datetime,n)n 0~4FormatNumber(m,n) 对象按钮\图片\表格.... 事件onclick 单击ondblclick 双击onbeforecopy 拷贝onload 对象加载onunload 对象关闭onchange 对象改变onfocus 对象获得焦点onblur 对象失去焦点动作网页与表单进行关联1.sub 对象名_事件名end sub2.sub xend sub<input type="button" name="Submit" value="按钮" onclick="x()"/>。
vb基础函数试题及答案
vb基础函数试题及答案一、选择题（每题2分，共20分）1. 在VB中，哪个函数用于计算字符串的长度？A. LenB. StrC. UCaseD. LCase答案：A2. 下列哪个函数可以将数字转换为字符串？A. ValB. StrC. IntD. CInt答案：B3. 在VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D4. 如果变量x的值为5，那么表达式"x * 2"的结果是什么？A. 10C. 5D. 2答案：A5. 在VB中，哪个函数用于获取系统时间？A. NowB. DateC. TimeD. Today答案：C6. 下列哪个函数用于将字符串转换为数字？A. ValB. StrC. IntD. CInt答案：A7. 在VB中，哪个函数用于计算两个数的和？A. SumB. AddC. +D. =答案：C8. 如果变量x的值为10，那么表达式"x Mod 3"的结果是什么？B. 0C. 3D. 10答案：A9. 在VB中，哪个函数用于计算两个数的差？A. DiffB. SubtractC. -D. =答案：C10. 下列哪个函数用于将数字四舍五入到最接近的整数？A. RoundB. IntC. CIntD. Fix答案：A二、填空题（每题2分，共20分）1. VB中，使用________函数可以将字符串转换为大写。
答案：UCase2. 使用________函数可以获取当前的日期和时间。
答案：Now3. 使用________函数可以将数字格式化为货币格式。
答案：FormatCurrency4. 使用________函数可以获取系统当前的年份。
答案：Year(Date)5. 使用________函数可以获取系统当前的月份。
答案：Month(Date)6. 使用________函数可以将数字格式化为百分比。
答案：FormatPercent7. 使用________函数可以获取系统当前的星期几。
Vb常用内部函数练习题加答案
Vb常用内部函数练习题加答案1、编写一个计算器，在text1和text2中输入数字，text3中输出结果。
实现的功能为“加、减、乘、除、绝对值、符号函数、平方根函数、取余、乘方、负号、整除”2、编写一个程序，在text1中输入，text2中输出结果。
实现的功能为“int（x）、asc（x）、chr（x）、val（s）、str（s）”3、编写一个程序，在text1中输入一个身份证号码，先去除该数字前的空格（ltrim（s））从该身份证号码中截取此身份证号码的出生年月日4、编写以一下程序，实现如下的效果5、编写一个程序，在text1和text2中输入一串字符开始查找，如果text2中找到text1中的字符，text3返回位置，如果找不到text3则返回06、编写一个程序，在text1中输入一段英文语句，text2中返回其大写或小写7、编写一个程序，获取当前系统时间8、编写一个随机函数，产生1-20之间的5组随机函数，且第二次初始化时不能重复出现答案1、Private Sub Command1_Click()Dim a As SingleDim b As Singlea = Text1.Textb = Text2.TextText3.Text = a + bPrivate Sub Command10_Click()Text3.Text = Sgn(Text3.Text)End SubPrivate Sub Command11_Click()Text3.Text = Sqr(Text3.Text)End SubPrivate Sub Command2_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a - bEnd SubPrivate Sub Command3_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a * bEnd SubPrivate Sub Command4_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a / bEnd SubPrivate Sub Command5_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a Mod bPrivate Sub Command6_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a \\ bEnd SubPrivate Sub Command7_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a ^ bEnd SubPrivate Sub Command9_Click() Dim a As Single Text3.Text = Abs(Text3.Text)End Sub2、Private Sub Command1_Click() Dim a As Singlea = Text1.TextText2.Text = Int(a)End SubPrivate Sub Command2_Click() Dim a As Stringa = Text1.TextText2.Text = Asc(a)End SubPrivate Sub Command3_Click() Dim a As Stringa = Text1.TextText2.Text = Chr(a)End SubPrivate Sub Command4_Click() Dim a As Singlea = Text1.TextText2.Text = Str(a)End SubPrivate Sub Command5_Click() Dim a As Stringa = Text1.TextText2.Text = Val(a)End Sub3、Private Sub Command1_Click() Dim a As String Dim b As Stringa = Text1.Textb = LTrim(a)Text2.Text = Mid(b, 7, 6)End Sub4、Private Sub Form_Click()Print String(1, "*")Print String(2, "*")Print String(3, "*")Print String(4, "*")Print String(5, "*")Print String(6, "*")Print String(6, "*")Print String(5, "*")Print String(4, "*")Print String(3, "*")Print String(2, "*")Print String(1, "*")End Sub5、Private Sub Command1_Click()Dim a As StringDim b As Stringa = Text1.Textb = Text2.TextText3.Text = InStr(a, b)End Sub6、Private Sub Command1_Click()Dim a As Stringa = Text1.TextText2.Text = LCase(a)End SubPrivate Sub Command2_Click()Dim a As Stringa = Text1.TextText2.Text = UCase(a)End Sub7、Private Sub Command1_Click()Dim a As StringText1.Text = Now()End Sub8、Private Sub Form_Click()Dim a As IntegerDim b As Integera = 1b = 20RandomizePrint Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a)End Sub。
vb常用内部函数及习题
当操作数为假时，结果为 Not T 真 Not F
And
与
2
T 两个操作数都为真时，结 F 果为真 T F T 两个操作数之一为真时， F 结果为真 T F
And And And And Or Or Or Or
T F F T
T F F F T F T T
Or
或
3
T F F T
29
表达式
• 例如 数学中判断0<X<1写成VB表达式： • 0<xAnd X<1
15
“/”和“\”的区别：1/2=0.5，1\2=0
• \ 取整 • / 除以
16
• 1.表达式23/5.8、 23\5.8、 23 Mod 5.8的运 算结果分别是_______。 • A. 3、 3.9655、3 B. 3.9655、 3、 5 • C. 4、 4、 5 D. 3.9655、 4、 3
Asc(x) 返回字符串中第一个字符的ASCII码。 Chr(x) 把值转换为相应的ASCII字符。 Chr(65)=“A” • Str(x) 把值转换为一个字符串 Cint(x) 把小数部分四舍五入，转换为整数。
• • • •
Cint(-12.6)=-13 CInt(-12.3)=-12 Cint(12.6)=13 Cint(12.3)=12
• Fix（n）:不管n为正数还是负数，均直接去 掉小数部分 • Int(n):当n为正数，直接去掉小数部分。 • 当n为负数，去掉小数部分再加-1
8
表达式Fix(-28.58)+Int(28.08)的值 为 。
9
30. 下列表达式中，表达式______的运算结果与其它3个不 同。 A. Int(-3.5)-1.5 B. Int(-4.5)+0.5 C. -Abs(-4.5) D. Fix(-4.5)-0.5
vb计算机语言基础——常用内部函数
3.1415
Print y2
8
3.1415
生物医学工程学院 计算机教研室
第二章 VB语言基础 — 常用内部函数
计算机程序设计基础
（2） 取整函数 (Fix、Int)
Fix(x) 删除x的小数部分，返回其整数部分。
Int(x) 返回不大于x的最大整数。
当x>0时，二者功能相同； 当x<0时，Fix(x)≥x，而Inx(x)≤x。
28
生物医学工程学院 计算机教研室
第二章 VB语言基础 — 常用内部函数
计算机程序设计基础
（5） 重复字符串生成函数
Space(n)
生成由n个空格组成的字符串。
String(n, ch)
生成由n个相同字符组成的重复字符串。这个 字符由ch指定。 ch可以是某个字符的ASCII码，也可以是字符 串，由它的第一个字符构成重复串。
生物医学工程学院 计算机教研室
LCase(s)
第二章 VB语言基础 — 常用内部函数
计算机程序设计基础
Private Sub Form_Click() Dim a As String
a = " I love computer! " Print "字符串变量赋值后的长度：" & Len(a) Print "字符串变量赋值后字节数：" & LenB(a) Print "字符串去掉空格后的长度：" & Len(Trim(a)) Print "字符串去掉空格后字节数：" & LenB(Trim(a)) End Sub
3
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为正数时，返回17、 Sqr(x):返回自变量x的平方根，x必须大于或等于08、 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个字符4、 Right$(字符串,n):取字符串右部的n个字符5、 Mid$(字符串,p,n):从位置p开始取字符串的n个字符6、 Len(字符串):测试字符串的长度7、 String$(n,字符串):返回由n个字符组成的字符串8、 Space$(n):返回n个空格9、 InStr(字符串1,字符串2):在字符串1中查找字符串210、 Ucase$(字符串):把小写字母转换为大写字母11、 Lcase$(字符串):把大写字母转换为小写字母六、窗体输入输出函数1、 Print(字符串):在窗体输出字符串，可以用”&”对变量进行连接后输出2、 Tab(n):把光标移到该行的n开始的位置3、 Spc(n):跳过n个空格4、 Cls:清除当前窗体内的显示内容5、 Move 左上角x，左上角y,宽度，高度:移动窗体或控件6、InputBox(prompt,…):跳出一个数据输入窗口，返回值为该窗口的输入值7、MsgBox(msg,[type]…):跳出一个提示窗口七、文件操作函数1、 Open 文件名 [For方式] [Access存取类型] [锁定] AS [#]文件号 [Len=记录长度]功能：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式说明：1) 方式：指定文件的输入输出方式，可选,默认是Random,可以是以下值a、 Output:指定顺序输出方式，将覆盖原有内容b、 Input:指定顺序输入方式c、 Append:指定顺序输出方式，在文件未尾追加内容d、 Random:指定随机存取方式，也是默认方式，在Random方式时，如果没有Access子句，则在执行Open语句时，VB将按下列顺序打开文件：读/写、只读、只写e、指定二进制文件。
vba试题及答案
vba试题及答案1. 题目一：编写一个VBA函数，该函数接受一个字符串作为参数，并返回该字符串中每个字符出现的次数。
答案：```vbaFunction CountCharacters(str As String) As DictionaryDim dict As New DictionaryDim i As IntegerDim char As StringFor i = 1 To Len(str)char = Mid(str, i, 1)If Not dict.Exists(char) Thendict.Add char, 1Elsedict(char) = dict(char) + 1End IfNext iSet CountCharacters = dictEnd Function```2. 题目二：编写一个VBA宏，用于在Excel工作表中查找并高亮显示所有与指定条件相匹配的单元格。
答案：```vbaSub HighlightCells()Dim rng As RangeDim criteria As StringDim cell As Range' 用户输入条件criteria = InputBox("请输入要高亮显示的条件：")' 遍历工作表中的所有单元格For Each cell In edRangeIf cell.Value = criteria Thencell.Interior.Color = RGB(255, 255, 0) ' 黄色高亮 End IfNext cellEnd Sub```3. 题目三：编写一个VBA程序，用于计算Excel工作表中指定列的总和。
答案：```vbaFunction SumColumn(col As Range) As DoubleDim sum As DoubleDim cell As Rangesum = 0For Each cell In colIf IsNumeric(cell.Value) Thensum = sum + cell.ValueEnd IfNext cellSumColumn = sumEnd Function```4. 题目四：编写一个VBA宏，用于将Excel工作表中的数据复制到另一个工作表中。
VB常用函数大全(数学函数)
P=Replace(X,S,R)
[说明]：将字符串X中的字符串S替换为字符串R，然后返回。
[范例]：
X=”VB is very good”
P=Replace(X,good,nice)
输出结果为：P=”VB is very nice”
5. StrReverse：反转字符串
现在的编程软件像VB，C++等，大多自带功能很强的函数库，可以很省力得完成各种功能。很多时候，想不起来实现某个功能的函数或函数格式，导致编程大费周折。作为一个编程人员，我对此深有体会。因此，特地准备了几期VB常用函数的介绍，供大家学习或参考。有说的不当之处，也欢迎在本网站的论坛中提出，大家学习。
（2） 若日期D大于当月的日数，则日期从当月的日数起，向后推算D-当月日数；若小于1，则日期从1日起向前推算1-D日。
[范例]：
P=DateSerial(2000,02,02)
则结果为P=2000/02/02
4．TimeSerial函数：合并时，分，秒成为时间
[格式]：P=TimeSerial(H,M,S)
9. Tan(N) 正切函数
例：Tan(0) 结果：0
10.Atn(N) 反切函数
例：Atn(0) 结果：0
[注意]：在三角函数中，以弧度表示。
(一)字符串类函数：
1. ASC(X)，Chr(X)：转换字符字符码
[格式]：
P=Asc(X) 返回字符串X的第一个字符的字符码
2. Int(X),Fix(X)：取X的整数值
[格式]：
P=Int(X) ' 取<=X的最大整数值
P=Fix(X) ' 取X的整数部分，直接去掉小数
VB常用内部函数
VB常⽤内部函数1.转换函数函数功能说明⽰例结果Int(x)求不⼤于x的最⼤整数Int(4.8)4 Int(-4.3)-5Fix(x)截尾取整Fix(-4.8)-4Hex$(x)把⼗进制转换成⼗六进制Hex(100)“64″Oct$(x)把⼗进制转换成⼋进制Oct(100)“144″Asc（x$)返回x$中第⼀个字符的ASCII码Asc(”ABC”)65 Chr$(x)把x的值转换成ASCII码Chr（64）“A”Str$(x)把x的值转换成字符串Str(12.34)“12.34″Val(x)把字符串x转换成数值Val(”12.34″)12.34 CInt(x)把x的值四舍五⼊取整CInt(12.53)13CCur(x)把x的值四舍五⼊为货币类型Ccur(12.53)12.53 CDbl(x)把x的值转换成双精度数CDbl(12.53)12.53CLng(x)把x的值四舍五⼊为长整型数CLng(12.53)13 CSng(x)把x的值转换成单精度数CSng(12.53)12.53CVar(x)把x的值转换成变体类型值CVar(12.53)12.532.数学函数函数功能说明⽰例结果Sin(x)返回x的正弦值Sin(0)0Cos(x)返回x的余弦值Cos(0)0Tan(x)返回x的正切值Tan(0)0Atn(x)返回x的反正切值Atn(0)0Abs(x)返回x的绝对值Abs(-2.8) 2.8Sgn(x)返回x的符号：x为负数时 -1Sgn(-2)-1 x为0时 0Sgn(0)0 x为正数时 1Sgn(3)1Sqr(x)返回x的平⽅根Sqr(25)5Exp(x)求e的x次⽅Exp(2)7.389Rnd[(x)]产⽣随机数Rnd0~1之间的数3.⽇期和时间函数功能说明⽰例结果Now返回系统⽇期/时间Now2009-1-12 1:01 Day(d)返回当前的⽇期Day(Now)12 WeekDay(d)返回当前的星期WeekDay(Now)1Month(d)返回当前的⽉份Month(Now)1Year(d)返回当前的年份Year(Now)2009Hour(t)返回当前的⼩时Hour(Now)14Minute(t)返回当前分钟Minute(Now)51Second(t)返回当前秒Second(Now)33Timer返回从0点开始已过的秒数Timer35385.5 Time返回当前时间Time14:53:22VB中处理字符串的函数1.删除空⽩字符串函数LTrim$(字符串）：去掉字符串左边的空⽩字符RTrim$(字符串）：去掉字符串右边的空⽩字符Trim$(字符串）：去掉字符串两边的空⽩字符，这个函数在处理字符串中使⽤很频繁，尤其在有输⼊操作时。
VB常用的内部函数
（一）VB常用的内部函数：Abs (x)：求x的绝对值例：Abs（-3.2）= 3.2Sqr (x)：求 x的平方根例：Sqr（9）= 3 Int(x)：求不大于给定数x的最大整数例：Int (-1.6) = -2Mod : 整除取余数例：9 Mod 5 = 4 （二）阅读下列程序段，写出运行结果。
1、x = 3y = Abs (-4.8) *2z = x+yPrint y , z 运行结果：（）2、A= Sqr (4) * 3B= Int (1.9) +3Print A+B 运行结果：（）3、A= 9.8B= 8 Mod 4C = Int (9.8)S= A*B + CPrint “S=”; S 运行结果：（）4、下列程序的功能是求长方体的体积，请将程序补充完整，并上机验证。
Private sub command1_click()Dim A As SingleDim B As SingleDim H As SingleDim V As SingleA= Val(InputBox(“A=”,”输入长”))B= Val(InputBox(“B=”,”输入宽”))H= Val(InputBox(“H=”,”输入高”))V =_________________________________PRINT “长方体的体积V=”; VEnd Sub顺序题小李同学参加了一场模拟考试，其一道题目是已知长方体的长为10，宽为3，高为5，求长方体的体积V，小李同学编写出了如下的不完整程序：一、′算法描述：′注意事项：′1、请在func()函数中实现算法，返回算法结果′2、请不要修改main()过程Function func()Dim a as integerDim b as integerDim h as integerDim v as integerA=10B=3H=5V=Func=”长方体的体积V=”& vEnd function二、′算法描述：′注意事项：′1、请在func()函数中实现算法，返回算法结果′2、请不要修改main()过程Function func()Dim r as integerDim s as integerr=5s=Func=”圆的面积S=”& SEnd function三、已知A=2011，B=2030，请将A、B交换Function func()Dim A as integerDim B as integerT=AB=TFunc=”交换后的结果”&AEnd function注意：求圆形的面积，体积，圆柱体的体积，将一个数顺序输入，倒序输出（书上有这个题）等等，都是利用数学公式计算，顺序计算，仔细读题。
VB常用内部函数
常用内部函数一、数学函数1、三角函数Sin(x):求正弦值,x必须为弧度值求sin30。
的值Sin(30*3.14/180)Cos(x):求余弦值，x必须为弧度值Tan(x):求x正切值，x必须为弧度值Atan(x):求x反正切值，x必须为弧度值2、绝对值函数Abs(x):求x的绝对值，x是数值型3、Exp(x):求e的指定的次幂,即e x4、Log(x):求lnx，即log e x5、符号函数Sgn(x):根据x值返回-1、0、1 当x>0,Sgn(x)=1当x=0,Sgn(x)=0当x<0,Sgn(x)=-16、Sqr(x):返回x的平方根,x>=0二、转换函数1、取整函数Int(x):返回小于等于x的最大整数Int(9.59)=9Int(-9.59)=-10Fix(x):截断取整，即去掉小数部分Fix(9.59)=9Fix(-9.59)=-9问题：若要对x实现四舍五入取整：Int(x+0.5)或Fix(x+0.5)2、Chr和Asc函数Chr(x):x必须为ASCII码值(0-255)，将x指定的ASCII码值转换成对应的字符Chr(65)=“A”Chr(97)=“a”注意：Chr函数得到那些非显示的控制字符。
Chr(13):回车键Chr(8):退格键Asc(x):x为字符串型数据,将x指定的字符串的首字符转换成ASCII码值。
例如：Asc(“A”)=65Asc(“Asdger”)=653、Val(x)和Str(x)函数——重点Val(x):x为数字字符串，将该数字字符串转换成相应的数值。
若x中出现数值规定字符以外的字符，则只将最前面的符合数值型规定字符转换成对应的数值。
Val(“-3.14”)=-3.14Val(“1.2sa10”)=1.2Val(“-1.2E3Eg”)=-1200Str(x):x为数值型数据,将x转换成字符串，若x为正数，则转换的字符串的第一位一定是空格;若x的小数点最后有多个”0”，则将去掉。
VB程序设计第五章常用内部函数
3.若定义了变量x 为可变类型, 3.若定义了变量x 为可变类型,但是没有赋任何 若定义了变量 值下一页
第五章 常用内部函数
4.计算离你毕业(假设2009年 4.计算离你毕业(假设2009年7月15日毕业)大约 计算离你毕业 2009 15日毕业) 日毕业 还有多少个星期的表达式是————. . 还有多少个星期的表达式是
上一页 返回章首 下一页
第五章 常用内部函数
选择题: 选择题: 范围内的整数. 1.Int(Rnd*10)返回 Int(Rnd*10)返回——范围内的整数. 返回 范围内的整数 A. (1,9) B.(1,10) C.(0,10) D.[0,9]
2.以下哪个表达式的值与其他三个不同. 2.以下哪个表达式的值与其他三个不同. 以下哪个表达式的值与其他三个不同 Mid("12345 12345",3)+ 23 23" A. Mid( 12345 ,3)+ "23 Mid("12345 12345",3,3) 23" B. B. Mid( 12345 ,3,3) + "23 23 Right("12345 12345",3) 23" C. Right( 12345 ,3) + "23 23 ("12345 12345",3)+ 23 23" D. Left ( 12345 ,3)+ "23
第五章 常用内部函数
第五章 常用内部函数 (Internal Function)
本章要求 5.1 常用函数
5.2 其他函数
返回目录
第五章 常用内部函数
第五章 常用内部函数
VB基本函数大全+vb初学者n个简单实例练习
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 函数返回日期子类型的变体。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
把这几个例子抄到课本
1
数学函数
• Sin(x) 返回正弦值 Cos(x) 返回余弦值。 Tan(x) 返回正切值。 Atn(x) 返回反正切值。 Abs(x) 返回绝对值。 Abs(-5)=5
2
Sgn(x) 返回自变量的符号。即： 值为负数时，函数返回-1 值为0时，函数返回0 值为正数时，函数返回1 Sgn(-12)=-1,Sgn(12)=1,Sgn(0)=0 • 表达式Sgn(-6)-4.5的值是______。 • A. -1.5 B. -5.5 C. -3.5 D. -4.5
15
“/”和“\”的区别：1/2=0.5，1\2=0
• \ 取整 • / 除以
16
• 1.表达式23/5.8、 23\5.8、 23 Mod 5.8的运 算结果分别是_______。 • A. 3、 3.9655、3 B. 3.9655、 3、 5 • C. 4、 4、 5 D. 3.9655、 4、 3
25
3.关系运算符
关系运算符属于双目运算符，又称比较运算符，用来对两个表
达式的值进行比较，比较的结果是一个逻辑值，True或者False
即若关系成立则返回True，否则返回False。在VB中，分 别用-1和0表示True和False。表3-5列出了VB中的关系运 算符。
表2-4关系运算符 实 "abc"="ABC" "abc">" ABC " "abc">=“ab" 2<3 1<=3 "abc"<>"ABC" 关系运算符 = > >= < <= <> 含 等于 大于 大于等于 小于 小于等于 不等于 义 例 结 False True False True True True 果
17
• 执行 PRINT 9.4\3.7, 9.4 MOD 3.7 命令后， 输出结果为______。 • A. 2 1 B. 3 0 C. 2 20 D. 1 2
18
运算次序（课本P96）
• 1.圆括号 2.函数 3.取负（-）4.^取幂 • 5.*/乘除 6 .\整数除 7.Mod取模 • 8.加减 9.&连接
22
1.执行 PRINT 18/2*3,-3^2 命令后，输出结果为______。 A. 3 9 B. 3 -9 C. 27 -9 D.-9 27
23
表达式16/4-2^5*8/4 MOD 5\2的值为______。 A. 14 B. 4 C. 20 D. 2
24
关系运算符
• 又称比较运算符，用来对两个表达式的值 进行比较，比较的结果是一个逻辑值，即 True或者False
11
3.VB表达式Int(Rnd(x)*3+1)产生区间（ ）内的随机整数 A、[1，4] B、(1，4) C、（2，3） D、[1，3]
12
函数Int(Rnd*80)+10是在（ A.[10,90] B. [10,89]
）范围内的整数。 C. [11,90] D.[11,89]
13
VB表达式SQR（9）+INT（-5.4）*SGN(6.8)-FIX(3.1)的值 是（ ） A. -6 B. -5 C. 35 D. 30
14
模运算符MOD用来求整除的余数
8MOD3---2 7Mod2的——的值是1 Mod 运算符 用来对两个数作除法并且只返回余数。 语法 result = number1 Mod number2 在进行 Mod 运算或求余数运算时，该运算符将 number1 用 number2 除（将浮点数字四舍五入成整数），并把余 数作为 result 的值返回。例如，在下列表达式中，A (result) 等于 5。 A = 19 Mod 6.7
19
表达式10 MOD 16\4的值是（ ）
20
• 1. \，/，Mod，*四个算术运算符中，优先 级别最低的是______。 • A. \ B. / C. Mod D. *
21
1.在下列算术运算符中，运算等级最高的是_______。 A. 取负（-） B. 乘、除（*，/） C. 取模（MOD） D. 加、减（+，-）
• 36. Rnd函数不可能为下列( )值。 • A. 0 B. 1 C. 0.1234 D. 0.0005
7
Int(n)与Fix(n) Int(8.6)=8 Int(-8.6)=-9
Fix(8.6)=8 Fix(-8.6)=-8
• Fix（n）:不管n为正数还是负数，均直接去 掉小数部分 • Int(n):当n为正数，直接去掉小数部分。 • 当n为负数，去掉小数部分再加-1
8
表达式Fix(-28.58)+Int(28.08)的值 为 。
9
30. 下列表达式中，表达式______的运算结果与其它3个不 同。 A. Int(-3.5)-1.5 B. Int(-4.5)+0.5 C. -Abs(-4.5) D. Fix(-4.5)-0.5
10
25.函数Int(Rnd*5)+1产生的随机整数的范围是 _______。 A. [0,6] B. [1,6] C. [0,5] D. [1,5]
3
数学函数
• Sqr(x) 返回自变量x的平方根，自变量必须 大于或等于0。 Sqr(16)=4 • Exp(x) 返回以e为底数，e约为2.718，以x 为指数的值，即求e的x次方
4
日期时间函数
• Hour(Now) 返回小时（0~23）。 Minute(Now) 返回分钟（0~59）。 Second(Now) 返回秒（0~59）。
Asc(x) 返回字符串中第一个字符的ASCII码。 Chr(x) 把值转换为相应的ASCII字符。 Chr(65)=“A” • Str(x) 把值转换为一个字符串 Cint(x) 把小数部分四舍五入，转换为整数。
• • • •
Cint(-12.6)=-13 CInt(-12.3)=-12 Cint(12.6)=13 Cint(12.3)=12
5
• • • • • • •
Print Now Print Day(Now) Print Year(Now) Print Hour(Now) Print Month(Now) Print Hour(#3:30:20 PM#) Print (Now)
6
Rnd (N) 返回小于1且大于或等于 的随机数 返回小于 且大于或等于0的随机数 且大于或等于 Rnd [0,1) ——抄到课本 抄到课本P95 抄到课本