UC知道二级VB求助
来源：百度知道 编辑：UC知道 时间：2024/06/12 10:31:58
option base1
private sub form_click
dim arr,s
arr=Array(1,3,5,7,8,11,13,15,17,19)
for i=1 to 10
if arr(i)/3=arr(i)\3 then
s=s+arr(i)
end if
next i
print s
end sub
答案27 做不出答案。。。
最后一道
private sub commond1_click
for i=1 to5
s=s+f(5+i)
next
print s
end sub
public function f(x%)
if x>=10 then
t=x+1
else
t=x+2
end if
f=t
end function
运行程序，窗体显示49，可我算的是47
麻烦各位写具体过程。。。
private sub form_click
dim arr,s
arr=Array(1,3,5,7,8,11,13,15,17,19)
for i=1 to 10
if arr(i)/3=arr(i)\3 then
s=s+arr(i)
end if
next i
print s
end sub
答案27 做不出答案。。。
最后一道
private sub commond1_click
for i=1 to5
s=s+f(5+i)
next
print s
end sub
public function f(x%)
if x>=10 then
t=x+1
else
t=x+2
end if
f=t
end function
运行程序，窗体显示49，可我算的是47
麻烦各位写具体过程。。。
第一题
for第1次 arr是1 不等 跳过
for第2次 arr是3 相等 s=3
for第3次 arr是5 不等 跳过
for第4次 arr是7 不等 跳过
for第5次 arr是8 不等 跳过
for第6次 arr是11 不等 跳过
for第7次 arr是13 不等 跳过
for第8次 arr是15 相等 s=18
for第9次 arr是17 不等 跳过
for第10次 arr是19 不等 跳过
最后是18，答案错了
第二题
for第1次 f(6)=8 s=8
for第2次 f(7)=9 s=17
for第3次 f(8)=10 s=27
for第4次 f(9)=11 s=38
for第5次 f(10)=11 s=49
最后是49，你错了
第一个题答案应该是18~你的答案错了吧？
第2题是49，有VB6.0吗？自己测试一下吧~按F8逐语句执行