📄 例3－12.htm
字号:
<html><head><title>Sub和Function简例</title>
<script language="VBScript">
Sub Output( )
Dim input_val
input_val=Document.OpForm.InputText.value
Document.OpForm.OutputText.value=Factor(input_val)
End Sub
Function Factor(n)
Dim i,m
m=1
For i=1 To n
m=m*i
Next
Factor=m
End Function
</script></head>
<body>
<center><form name="OpForm">请输入一个小于10的正整数：
<input type=text name="InputText" size=6>
<p>输入数据后，按此按钮可在下框中得到所输入数的阶乘：
<input type=button onClick="Call Output( )" value="显示结果">
<p><input type=text name="OutputText" size=10>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -