for k =1 to 5,怎么算的?
private sub command1_click()
dim k as integer ,s as single,a as single,b as single
a=val(text1(0).text)
s=a
b=a
for k =1 to 5
s=s+val(text1(k).text)
if aval(text1(k).text)then
b=val(text1(k).text)
end if
next k
s=(s-a-b)/4
s=s*3*val(text2.text)
text3=int(s*100)/100
end sub
人气:266 ℃ 时间:2020-06-15 08:54:06
解答
就是从1到5的循环,最开始的时候k=1,下一次2,依次一直到5是最后一次
所以从1到5循环5次这题是填空题,从哪可以看出是1到5的循环?抱歉,我没懂你什么意思。。。你不是写“for k=1 to 5”吗?这就是1到5的循环啊?填空题,5这个位置原来是空格要填的,答案上是5哦,这样啊。你的题里面没有说明这个是干嘛的,我就按照我对程序的理解猜测一下。应该是从text1中的六个值里面,求平均数,然后乘以三再乘以text2,然后取两位小数这里平均数的算法,是求出最大值和最小值,然后用所有数字的和减去最大最小值,再求平均。所以,在倒数第四行,可以看出,(s-a-b)/4是求平均值,减掉最值后,再除以4,说明一共有6个数字。而程序开始时,先是取出text1(0),再从1到k,共6个数字,就是0,1,2,3,4,5,因此,循环从1到5
推荐
- 首先能先给我解释下书里面的一个例子. for k =5 to 10 step 2 k=2*k next k
- 14.下列Visual Basic程序段运行后,变量Y的值变为:( C )
- for 循环语句:下列程序段循环的次数是------,k的最终值是--- for k=5 to 10 step 2 k=2*k next k
- s=0,for i=1 to 5,for j=1 to i,for k=j to 4,s=s+1,next k,next j,next i,msgbox s,求详解
- 10 FOR K=7 TO 90 STEP 5
- 丑小鸭和我的作文
- 地球半径为R,地面上重力加速度为g,在高空绕地球做匀速圆周运动的人造卫星,其线速度可能为?我算到gr^2 但答案为(gr/2)^2 为什么
- 有两桶油,第一桶油是第二桶油的1.5倍,如果从第一桶油中倒入第二桶4千克,两用油相等
猜你喜欢