帮我看一段VB代码?
来源:百度知道 编辑:UC知道 时间:2024/05/14 04:05:31
Option Base 1
Private Sub Command1_Click()
Dim arr
Dim start As Integer, finish As Integer
Dim sum As Integer
arr = Array(12, 4, 8, 16)
start = LBound(arr)
finish = UBound(arr)
sum = 1
For i = start To finish
sum = sum + arr(i)
Next i
c = sum \ finish
Print c
end sub
请说明上述代码输出结果是多少?麻烦说的详细一点,因为我的VB水平实在有限,谢谢!
Private Sub Command1_Click()
Dim arr
Dim start As Integer, finish As Integer
Dim sum As Integer
arr = Array(12, 4, 8, 16)
start = LBound(arr)
finish = UBound(arr)
sum = 1
For i = start To finish
sum = sum + arr(i)
Next i
c = sum \ finish
Print c
end sub
请说明上述代码输出结果是多少?麻烦说的详细一点,因为我的VB水平实在有限,谢谢!
输出13.6
'定义变量
Dim arr
Dim start As Integer, finish As Integer
Dim sum As Integer
'arr是一个数组,有4个数字在里面
arr = Array(12, 4, 8, 16)
'求arr数组的上标跟下标, 因为数组有4个元素,所以上标是3,下标是0
start = LBound(arr)
finish = UBound(arr)
sum = 1
'下面这段代码是把数组arr里面的4个数全部加起来存在sum里面
For i = start To finish
sum = sum + arr(i)
Next i
'现在sum=1+12++4+8+16=41
c = sum \ finish
Print c
'c= 41 \3 = 13.6
楼上的说明输出说错.
输出13,因为使用了:
\ 运算符
用来对两个数作除法并返回一个整数。