标准模块代码Public Function Oddsum(ByVal Num1 As Integer, Num2 As Integer) As IntegerDim i As IntegerDim intSum As IntegerFor i = Num1 To Num2
If i Mod 2 = 1 Then
intSum = intSum + i
End IfNext iOddsum = intSumEnd Function在prg1中输入代码Dim i As IntegerDim j As Integeri = InputBox("请输入第一个数字!", "提示...