例3.1 使用数学函数的事例。
Private Sub form_click()
x = -123
y = 456.789
a = Abs(x) - Sgn(x) * x
b = Int(y / 100) '求百位数
c = y - Int(y / 100) * 100 '剔除百位数
d = Int(y * 10 + 0.5) / 10 '舍入到小数后第一位
Print a, b, c, d
End Sub
运行程序后单击窗体,如图3-4所示:
图3-4 运行效果图
输出结果是: 0 4 56.789 456.8
例3.2 使用字符串函数示例。先从字符串a中找出某个指定字符(本例为空格),再以此字符为界拆分成两个字符串。
编写的窗体单击过程代码如下:
Private Sub Form_click()
Dim a As String, b As String, c As String
Dim n As String
a = "visual basic"
n = InStr(a, " ") '查找空格位置
b = Left(a, n - 1) '取左边部分
c = Mid(a, n + 1) '取右边部分
Print b
Print c
End Sub
程序运行后单击窗体,如图3-5所示:
图3-5运行效果图
输出结果是:
visual
basic
例3.3使用转换函数的示例。
编写的窗体click事件过程代码如下:
Private Sub Form_click()
x = "123": y = 123
a=Chr(Asc(x)+5)
b= Str(Val(x)+5)
c=Val(Str(y)+"5")
print a
print b
print c
End Sub
运行程序后单击窗体,如图3-6所示:
图3-6运行效果图
输出结果为如下数值:
6
128
1235
例3.4 给定一个两位正整数(如36),要求交换个位数和十位数的位置,把处理后的数显示在窗体上。
编写的窗体单击事件过程代码如下:
Private Sub Form_Click()
Dim x As Integer, a As Integer
Dim b As Integer, c As Integer
x = 36
a = Int(x / 10) '求十位数
b = x Mod 10 '求个位数
c = b * 10 + a '生成新的数
Print "处理后的数: "; c
End Sub
运行程序后单击窗体,如图3-7所示:
图3-7运行效果图
输出结果如下:
处理后的数:63