UC知道关于VB的2道题目
来源：百度知道 编辑：UC知道 时间：2024/06/18 18:53:19
呃～本人VB白痴，有几个翻书也看不懂的程序，帮帮我啊．．．．
答案我已经知道了
具体的不明白
第一题答案是-6 -15 26 9
第2题答案是6 15 28 45
可否根据第一题答案-6做一个比较详细的计算的方法?
怎么计算我还是不太清楚
Private function f1(n as integer) as integer
dim i as integer
while i<=n
f1=f1-i:i=i+1
wend
end function
private function f2(byval n1 as integer,n2 as integer) as integer
dim i as integer
do while n2>=n1
f2=f2+n2:n2=n2-1
loop
end function
private sub command1_click()
dim a as integer b as integer
print f1(3) (问会显示什么）
print f1(5) 同问
a=5:b=8
print f2(a,b)
print f2(b,a)
end sub
这个程序里的F1，F2怎么弄出来？:是连接符号对吧？i 怎么确定？
一点都不懂
还有一个滚动条的
前提
hscroll1.min=1
hscroll1.max=10
hscroll1.value=1 1是啥意思
hscroll1.smallchange=2
hscroll1.largechange=3
程序
dim y as single
private function f1(x2 as integer)as single
static x1 as inte
答案我已经知道了
具体的不明白
第一题答案是-6 -15 26 9
第2题答案是6 15 28 45
可否根据第一题答案-6做一个比较详细的计算的方法?
怎么计算我还是不太清楚
Private function f1(n as integer) as integer
dim i as integer
while i<=n
f1=f1-i:i=i+1
wend
end function
private function f2(byval n1 as integer,n2 as integer) as integer
dim i as integer
do while n2>=n1
f2=f2+n2:n2=n2-1
loop
end function
private sub command1_click()
dim a as integer b as integer
print f1(3) (问会显示什么）
print f1(5) 同问
a=5:b=8
print f2(a,b)
print f2(b,a)
end sub
这个程序里的F1，F2怎么弄出来？:是连接符号对吧？i 怎么确定？
一点都不懂
还有一个滚动条的
前提
hscroll1.min=1
hscroll1.max=10
hscroll1.value=1 1是啥意思
hscroll1.smallchange=2
hscroll1.largechange=3
程序
dim y as single
private function f1(x2 as integer)as single
static x1 as inte
第一题
print f1(3) 就上把这个3代到第一个自己定义的过程里的形参表n的值。。因为开始变量i没赋初值。。所以变量i就默认为0。。。最后算出它的值等于6。。。
print f1 (5) 和上面一样。。。
f1和f2是自己定义的过程。。。。
：是合并符。。。
print f2(a,b) 就是代到对应的第二个自己定义的过程里去。。不要看错a等于n1 ,b等于n2...
print f2(b,a) 也代到第二个过程里。。可是要记住刚执行了上面的时候。。。b的值发生变化了，它的值变成了4。。。后面就对应程序就好了。。。
第二题
hscroll1.value=1 （这个1就是最大和最小值中取出一个来。。也是那个滚动条中的那条开始在什么位置上。。。）
for i% =x1 to x2% (就是x2对应hscroll1.value是值...）
第一次单击滚动条右端箭头就是单击一次就把value 的值加上那个smallchange的值。。。然后把值代到过程里的形参表x2的值。。然后就可以算出来。。
第二次就是在前面那个value 的值（已经值是1+2了。。不要忘记）上再加上一个smallchange的值。。（也就是加两个smallchange值。。。）
第三次就再加一个smallchange值在代上去算了。。
第四次也一样。。。