VBScript Sub and Function Demo

最新推荐文章于 2024-07-29 12:18:55 发布

markinlqx

最新推荐文章于 2024-07-29 12:18:55 发布

阅读量649

点赞数

分类专栏： VBScript

本文链接：https://blog.csdn.net/markinlqx/article/details/8764325

版权

VBScript 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

Option Explicit

GreetUser GetUserName

Sub GreetUser(strUserName)
	If IsNumeric(strUserName) Or IsDate(strUserName) Then
		MsgBox "That is not a legal name."
		Exit Sub
	End If
	
	MsgBox "Hello " & strUserName & vbNewLine & vbLongDate &" " & vbLongTime & " " & VbGreen	
End Sub

Function GetUserName
	GetUserName = InputBox("Please input you name.")
End Function