4.VB-常用函数

1.

函数	含义	实例	结果
Asc(C)	字符转化为ASCII值	Asc("b")	98
Chr(N)	ASCII值转化为字符	Chr(98)	"b"
Str(N)	数值转化成字符串	Str(12.45)	"  12.45"
Val(N)	将字符串转化为数值	Val("123")	123
LCase()	大写字母变小写	LCase(“ABC”)	"abc"
UCase()	小写字母变大写	UCase("abc")	"ABC"
Int(N)	返回不大于N的整数	Int(3.4) Int(-3.5)	3 -4
CStr(N)	类型转化函数，数值转化成字符串	CStr(12.45)	" 12.45"

Str()函数数值转化为字符串时，前面要有空格。

2.

3.

4.判断你的年龄

Private Sub Form_Click()
 Dim s$, y$, age%
 s = InputBox("请输入你的身份证号", "身份证")
If Len(Trim(s)) <> 18 Then

    MsgBox ("身份信息不准确")
    Exit Sub
    
Else
    y = Mid(s, 7, 4)
    age = Year(Now) - y
    MsgBox ("你的出生年份为" & y & "你的年龄是" & age)
    

End If
 

End Sub

5.InputBox函数

格式：变量=IntputBox(提示[,标题][，默认值])

s = InputBox("请输入你的身份证号", "身份证")