vbscript函数（若产生输入框可以用vbscript的什么函数）

本文目录

• 若产生输入框可以用vbscript的什么函数
• 如何使用vbscript中的msgbox函数
• VBSCRIPT的函数都有什么作用VB只有msgbox和inputbox这两个函数吗
• vbscript函数中的函数返回值是什么意思
• VBScript FormatNumber 函数
• 用VBScript编个函数

若产生输入框可以用vbscript的什么函数

vbscript输入框可以用InputBox函数。

1、InputBox介绍：

InputBox是Visual Basic和VBS中的函数，功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字。

2、InputBox使用语法：

InputBox(Prompt,[Title],[Default],[XPos],[YPos],[Helpfile],[Context])

3、代码示例：（显示效果如下图）

Private Sub Command1_Click()

    Dim a As String, b As String

　　a = InputBox(“输入第一个数据：“)

　　b = InputBox(“输入第二个数据：“)

　　MsgBox a & b

End Sub

如何使用vbscript中的msgbox函数

　　MsgBox是Visual Basic和VBS中的一个函数，功能是弹出一个对话框，等待用户单击按钮，并返回一个Integer值表示用户单击了哪一个按钮。
　　“MsgBox”即为“Message Box”的缩写，在英语中意为“信箱”。
　　语法：
　　MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context])
　　说明：
　　在提供了Helpfile与Context参数的时候，用户可以按F1来查看由Context参数指定的帮助主题。像Microsoft Excel这样的一些主机应用程序就会在对话框中自动添加一个帮助按钮。
　　如果对话框显示“取消”按钮，则按下Esc键与单击“取消”按钮的效果相同。如果对话框中有帮助按钮，则对话框中提供与上下文相关的帮助。但是，直到其它按钮中有一个被单击之前，都不会返回任何值。

　　代码示例：
　　一、使用MsgBox函数，在具有“是”及“否”按钮的对话框中显示一条错误信息。示例中的缺省按钮为“否”，并假设Demo.hlp为一帮助文件，其中有一个帮助主题编号为1000。
　　
　　Dim Msg, Style, Title, Help, Ctxt, Response, MyString
　　Msg = “程序发生错误，继续？“ ’定义消息文本
　　Style = vbYesNo + vbCritical + vbDefaultButton2 ’定义对话框样式
　　Title = “错误信息“ ’定义标题文本
　　Help = “Demo.hlp“ ’定义帮助文件
　　Ctxt = 1000 ’定义帮助主题编号
　　Response = MsgBox(Msg, Style, Title, Help, Ctxt)
　　If Response = vbYes Then ’用户按下“是”按钮
　　MyString = “Yes“ ’进行某些操作
　　Else ’用户按下“否”按钮
　　MyString = “No“ ’进行某些操作
　　End If
　　

　　二、使用vbCrLf常数在消息内容中换行。
　　MsgBox “第1行“ & vbCrLf & “第2行“
　　

　　三、使用vbTab常数显示多行对齐的文本。
　　MsgBox “常数“ & vbTab & “值“ & vbCrLf & _
　　“vbOK“ & vbTab & 1 & vbCrLf & _
　　“vbCancel“ & vbTab & 2 & vbCrLf & _
　　“vbAbort“ & vbTab & 3 & vbCrLf & _
　　“……“ & vbTab & “……“, _
　　vbOKOnly, “MsgBox函数返回值“
　　

VBSCRIPT的函数都有什么作用VB只有msgbox和inputbox这两个函数吗

当然不是，完全可以通过改变一个文本框的值给出提示信息:
例如：
form1.text1.value=“该用户名已经注册“
或者说通过改变一些边框的颜色也可以的。方法非常多。

vbscript函数中的函数返回值是什么意思

例如你定义一个变量a，再定义一个函数fun1()，如果你需要用到fun1()的返回值的时候，就是说当你写a=fun1()的时候，fun1()的返回值就赋给了a。所以一般在vbscript的函数需要返回的时候，在函数的最后就要写上fun1=xyz此类语句，这时a就赋值为xyz了。

VBScript FormatNumber 函数

FormatNumber函数

描述

返回一个数字格式的表达式。

语法

FormatNumber(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])

FormatNumber函数语法有如下几部分：

部分 描述
Expression 必需的。要被格式化的表达式。
NumDigitsAfterDecimal 可选的。数字值，表示小数点右边的显示位数。缺省值为–1，表示使用计算机的区域设置值。
IncludeLeadingDigit 可选的。三态常数，表示小数点前是否显示零。关于其值，请参阅“设置值”部分。
UseParensForNegativeNumbers 可选的。三态常数，表示是否把负数值放在圆括号内。关于其值，请参阅“设置值”部分。
GroupDigits 可选的。的三态常数，表示是否用组分隔符对数字分组，组分隔符在计算机的区域设置值中指定。关于其值，请参阅“设置值”部分。

设置值

IncludeLeadingDigit、UseParensForNegativeNumbers和GroupDigits参数的设置值如下：

常数 值 描述
vbTrue –1 True
vbFalse 0 False
vbUseDefault –2 用计算机区域设置值中的设置值。

说明

当忽略一个或多个选项参数时，被忽略的参数值由计算机的区域设置值提供。

注意 所有设置值信息都来自“区域设置”的“数字”选项卡。

例如：formatnumber(-.545656,3,-1,-1,-1)＝（0.546）意思是保留三位小数，小于1的小数点左边前导字符0，负数用括号括起来，使用分组表示

用VBScript编个函数

用这段把，动易公司开发的系统都是用搞的这个，只不是函数名称不同，但是觉得功能一样！
’**************************************************
’函数名：gotTopic
’作 用：截字符串，汉字一个算两个字符，英文算一个字符
’参 数：str ----原字符串
’ strlen ----截取长度
’返回值：截取后的字符串
’**************************************************

function gotTopic(str,strlen)
if str=““ then
gotTopic=““
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str,“ “,“ “),“““,chr(34)),“》“,“》“),“《“,“《“)
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c》255 then
t=t+2
else
t=t+1
end if
if t》=strlen then
gotTopic=left(str,i) & “…“
exit for
else
gotTopic=str
end if
next
gotTopic=replace(replace(replace(replace(gotTopic,“ “,“ “),chr(34),“““),“》“,“》“),“《“,“《“)
end function