设计算法：香蕉促销：3千克以下（不包括3千克），每千克3.5元，3-6千克（不包括6千克），每千克3元，6千克以上，每千克2.6元。请补全以下代码。Dim w_刷题宝

题干

设计算法：香蕉促销：3千克以下（不包括3千克），每千克3.5元，3-6千克（不包括6千克），每千克3元，6千克以上，每千克2.6元。请补全以下代码。
Dim w as double
Dim p as double
W = inputbox(“请输入购买的重量：千克”)
If （1）__________ then
If （2）__________ then
P =3 *w
Else
P =2.6 *w
End if
Else
P=3.5*w
End if
Print p

上一题下一题 0.99难度填空题更新时间:2019-05-10 02:11:50

答案(点此获取答案解析）

同类题1

程序的三种基本结构是 ( )

A．选择结构、循环结构、树型结构

B．顺序结构、选择结构、循环结构

C．顺序结构、循环结构、树型结构

D．树型结构、顺序结构、选择结构

同类题2

将以下程序段补充完整。
问题：往一个足够大的盒子里放小球，第一次放1个，第二次放2个，第三次放3个……，即每次放的小球数比上一次多1个。问放到第几次盒子里的小球才能多于300个？输出答案。n 表示放球的次数，sum表示小球的总数。
Dim n as integer , sum as integer
n=0
sum=0
Do While sum<=300
n =____   ① ______
sum =____  ②____
Loop
Print “放到第” & ___   ③___  & “次盒子里的小球才能多于300个”

同类题3

某算法的流程图如图所示，若输入值依次为7.3.2.1.执行这部分流程图后，输出的值为

同类题4

某VB程序的一个事件过程如下:
Private sub command1_click( )
Dim i as integer
Dim a(1 to 8 ) as integer
List1.clear
For i="1" to 99
a(i)=i+1
Next i
For i="1" to 8
list1.AddItem str(a(i))
Next i
End sub
程序运行时，单击命令按钮command1后，将会出现的提示信息是（）

A．溢出	B．下标越界
C．类型不匹配	D．无效的过程调用或参数

同类题5

有关下列语句说法不正确的是（）
① If a="b=c" Then Msgbox(“这三个数相等”) Else Msgbox(“这三个数不相等”)
②赋值语句 a=b>c
③赋值语句 a+b=c
④ Msgbox (a+b=c)

A．语句①能运行，但逻辑上有错误

B．语句②能运行，且无任何逻辑错误

C．语句③不能运行

D．语句④不能运行

相关知识点