Question

vb的sub子程序怎么用

vb的sub子程序怎么用题是用sub调用实现输入两个任意数之间所有数的平方和
我原来做的是
<script language="vbscript">
dim b,j,i
sub a(i,j,k)
for i to j
k=k+i^2
end sub
i=inputbox(“请输入第一个数”)
j=inputbox(“请输入第二个数”)
call a(i,j,b)
document.write b
</script>
可是执行有点小问题，求大神在这基础上改改，如果实在不能改帮写个也行，谢谢啦，很急。

Answer 1

<script language="vbscript">
dim b,j,i
i=inputbox("请输入第一个数")
j=inputbox("请输入第二个数")
call a(i,j,b)
document.write b
sub a(i,j,k)
dim l
for l= i to j
k=k+l^2
next
end sub
</script>

Answer 2

建立sub过程

1、定义sub过程 语句结构如下：

[static][private][public] sub 过程名
[(参数列表)]

语句块

[exit sub]

[语句块]

End
sub

参数列表指明了调用时传送给过程的参数的类型和个数，每个参数的格式为：[byval] 变量名[( )][as 数据类型]
如果加上byval则表明该参数是传值参数，没有byval或者加byref的参数称为引用参数。
在定义sub过程时，参数列表中的参数称为形式参数，不能用定长字符串变量或定长字符串数组作为形式参数。
2、end sub表明sub过程的结束，每个sub过程必须有一个end sub子句，在一个子过程体内可以用一个或多个exit sub语句退出。
3、sub过程不能嵌套。在sub过程内不能定义sub过程或function过程，不能用goto语句进入或转出一个sub过程，只能通过调用执行sub过程，而且可以嵌套调用。

在标准模块中建立通用过程方法：

方法1、菜单“工程—添加模块”，在对话框中选择“新建”选项卡，双击“模块”图标，打开模块代码窗口。

执行“工具—添加过程”，在对话框中输入过程名，并设置相应的选项。单击确定返回代码输入框输入代码。

方法2、执行“工程—添加模块”，打开代码窗口，然后输入过程的名字。例如：sub test( )，按回车后显示：

sub test(　)

end
sub

在sub与end sub之间输入代码

要执行一个过程，必须调用该过程。调用sub过程的方法有两种：
n把过程的名字放在call语句中；n把过程名作为一个语句来使用。
1、用call语句调用sub过程
格式：call 过程名[(实际参数)]
2、把过程名作为一个语句来使用
格式：过程名 实际参数
与第一种的区别在于省略了call ，去掉了实际参数的括号。

事件过程是一种特殊的sub过程，它附加在窗体和控件上。一个控件的事件过程由控件的实际名字、下划线和事件名组成。而窗体事件过程由form、下划线和事件名组成。窗体的事件过程不能由用户任意定义，而有系统指定。
事件过程的一般格式为：
[private|public] sub 控件名_事件名(参数表)
语句组
end sub
通用过程可以放在标准模块和窗体模块中，而事件过程只能放在窗体模块中。当过程名唯一时可以直接通过过程名调用，如果两个或两个以上的标准模块中含有相同的名字时，则在调用时必须用模块名限定。一般格式：
模块名.过程名(参数表)
当一个模块调用其他模块的过程时，被调用的过程必须是“公用的”(public)