写出VB表达式~

来源:百度知道 编辑:UC知道 时间:2024/06/18 03:20:52
将任意一个两位数x的各位数与十位数对换。

Dim sex$, zc$, btime

'sex是性别
'zc是职称
'btime是出生年月日,请录入时输入标准的时间格式,比如"1998-8-8"

If (sex <> "女" And btime < DateSerial(1966, 1, 1)) Or (sex <> "男" And zc <> "高工") Then
MsgBox "就是这些!!"
End If