求这两道VB题的答案 求详细解释
Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsInteger...
Function fun(m As Integer) As Integer
Dim k As Integer, sum As Integer
sum = 0
For k = m To 1 Step -2
sum = sum + k
Next k
fun = sum
End Function
若在程序中用语句 s =fun(10) 调用此函数，则s的值为___________。
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum = 0
arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i = 1 To 10
If arr(i) / 3 = arr(i) \ 3 Then
Sum = Sum + arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A）25 B）26 C）27D）28 展开
Dim k As Integer, sum As Integer
sum = 0
For k = m To 1 Step -2
sum = sum + k
Next k
fun = sum
End Function
若在程序中用语句 s =fun(10) 调用此函数，则s的值为___________。
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum = 0
arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i = 1 To 10
If arr(i) / 3 = arr(i) \ 3 Then
Sum = Sum + arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A）25 B）26 C）27D）28 展开
1个回答
展开全部
第一个10+8+6+4+2=30
第二个3+9+15=27选择c
有不懂得话再问，正确的话请采纳O(∩_∩)O~
第二个3+9+15=27选择c
有不懂得话再问，正确的话请采纳O(∩_∩)O~
追问
我是说能说下那些东西的具体意思么 说下这两题的思路 ```麻烦了
追答
两道题都是循环结构
1.问fun(10) 所以m的初始值就是10，当m=10时sum=0+10,此时进入下一个循环使得m=8(For k = m To 1 Step -2),,,然后就是m=8时，sum=10+8，进入下个循环。。。。一直到最后m=2时候不能继续循环，结束，sum=10+8+6+4+2=30
2.理解/ 与 \ 两个符合的区别 /为浮点除法...例如5/2=2.5，\为整数除法5\2=2,,, 所有满足(If arr(i) / 3 = arr(i) \ 3 Then)条件的只有3,9,15.......然后就是跟上题一样的简单循环了,
亲,能理解吧,打字真累,还不懂得话把你哪里不懂得提出来,我好针对性的回答
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
