题目
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
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
提问时间:2020-12-17
答案
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1关于X的方程9的X方减(4乘3的X方)减A等于0有实根,求A的取值范围
- 2极速训练王 人教版 p57 16题怎么解?
- 3大海的海水为什么不会蒸发呢.
- 4Alice start doing chore when she started doing chores when she was about eight years old改为同义句
- 5海防前哨的意思
- 6Jim and Tom( )have the same hobbies A:too b:all c:both
- 7请各举一例说明演绎推理和归纳推理
- 8一个瓶子装满水后的质量为190g,在瓶中放入一快质量为37.3g的金属片,称得总质量为224g,求该金属的密度?
- 9面面角 二面角 二面角的平面角 的取值范围
- 10you just let the fish go without asking it for something?为什么这里用asking,
热门考点
- 1将何计略以备不虞?吾不知卿才略所及乃至于此地也.的翻译,等.
- 2已知a.b.c.d且a^2+b^2=1c^2+d^2=1求证ac+bd的绝对值小于等于一
- 3one of them ,one of whom 区别
- 4一次函数y1=k1+2与反比例函数y2=k2/x的图像交于点A(4,m)和B(-8,-2),与y轴交于点C
- 5I have made great progress with his help this term改同义句
- 6下列计算错误的是( )A0.25°=900秒 B.1.5=90分 C.1000秒=(十八分之五)° D.125.45°=125.
- 7某种型号的纸100长厚度约为1cm,有人说:“如果将一张纸裁成两份,把裁成的两份纸摞
- 8一般现在时的谓语分为哪四种情况
- 9从冰箱里拿出一会儿的肉会比冰箱里的肉重?
- 10( ) -Wow!Jenny,I still owe you for the film ticket yesterday.-____.