intRnd = Int((Rnd * 61) + 1)
3.字符串函数
函数
功能
实例
结果
Len(字符串)
求字符串的长度
Len(“2008奥运”) 6
Left(字符串，截取长度) 截取字符串左边部分 Left(“2008奥运”,4) 2008
Mid(字符串，起始位置 从中间指定位置截取 Mid(“2008奥
2.Print 语句
❖ 语法格式：[对象名.]Print [表达式列表] ❖ 功能：在指定的对象上输出文本 注意： ❖ 对象可以是窗体、图片框等。如果不指定对
象名，默认在当前窗体上输出。 ❖ Print 语句行末若没有分隔符“,”或“;”，则
Print语句执行完后自动换行。
3.注释语句
❖ 为了提高程序的可读性，通常需要在程序适 当的位置加上必要的注释。
期的日数、月数、年份数。
[，截取长度])
字符串
运”,3,2)
Right(字符串，长度) 截取字符串右边部分 Right(“2008奥 运”,2)
String(数值，字符)
生成指定长度与指定 String(3,”9”) 字符的字符串
08 奥运 999
4.日期函数
❖ Date()函数返回系统的当前日期。 ❖ Time()函数返回系统的当前时间。 ❖ Day()、Month()、Year()函数分别返回指定日
注意:
❖ 三角函数中的参数应该是弧度数。如数学中的 sin30°应写为
sin(30*3.14159/180)
❖ Rnd函数返回[0，1)(即包括0，但不包括1)之间的一 个随机数，它往往和Randomize结合使用。
如:
Dim intRnd As Integer Randomize ‘初始化随机数生成器
如： r = InputBox("请输入半径r:", "输入圆半径")
❖ MsgBox()函数的基本语法格式:
MsgBox(提示消息[,按钮][,标题])
❖ 该函数的返回结果为一数值,其中,“按钮”参数 一般用VB的内部符号常量,这些符号常量有
vbOkOnly,vbOkCancel,vbYesNo,vbYesN求1+2+3+…+100
❖ S=0 ❖ N=1 ❖ While N<=100 ❖ S=S+N ❖ N=N+1 ❖ Wend ❖ Print S
一、常用语句
1.赋值语句 注意:
❖ 赋值语句“=”后面可以是常量、变量或表达 式。
❖ 赋值语句中的“=”与数学中的“=”是不同的。
Sin(30*3.14/180)
求x的余弦值
Cos(30*3.14/180)
求x的正切值
Tan(60*3.14/180)
求x的反正切值
4* Atn(1)
求指数函数e^x
Exp(2.0)
求x的自然对数值 Log(10)
取整数函数
Int(99.8)
产生0~1之间（不包 Rnd() 括1）的随机数
结果 4.6 3 0.49977 0.86616 1.72993 3.14159 7.38906 2.30259 99 返回一个 随机数
❖ VB中注释语句的格式为: 在字符“‘”后加注释内容或用“Rem 注释 内容”。
注意： ❖ 如果用Rem语句注释，应将Rem语句单独书
写。
4.结束语句
❖ 语法格式：End ❖ 功能：强制程序结束运行。
二、函数
VB中函数的概念与一般数学中函数的概念没有本质的区别。
1.与用户交互函数
❖ InputBox()函数的语法格式： InputBox(提示[,标题][,默认值][,x坐标][,y坐标])
j = MsgBox("请输入正数！", vbYesNo, " 错误提示")
2.数学函数
函数 Abs(x) Sqr(x) Sin(x) Cos(x) Tan(x) Atn(x) Exp(x) Log(x) Int(x) Rnd(x)
功能
实例
求x的绝对值
Abs(-4.6)
求x的平方根
Sqr(9)
求x的正弦值