有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i =

admin2010-03-30  25

问题 有如下函数过程:    Function lj(x As Integer) As Long            Dim s As Long            Dim i As Integer          s=0          For i = 1 To x                s=s+ i          Next i                1j= s    End Function在窗体上添加一个命令按钮,名为Command1, 编写事件过程调用该函数:    Private Sub Command1 Click()                Dim i As Integer                Dim sum As Long                For i = 1 To 5                      sum = sum + 1j(i)                Next i                Print sum    End Sub   

选项 A、 25      
B、35
C、45        
D、55

答案2

解析
转载请注明原文地址:https://kaotiyun.com/show/Wv1p777K
0

随机试题
最新回复(0)