4. 给定年份和月份，判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。（闰年的条件是：年份能被4整除但不能被100整除或能被400 整除）
private sub command1_click()
dim x as integer, y as integer
= inputbox("请输入年份")
x = val(
= (x mod 4) =0 and (x mod 100 <>0) _
or (x mod 4) =0 and (x mod 400 = 0)
end sub
private sub command2_click()
dim x as integer, y as integer
= inputbox("请输入月份")
y = val(
select case y
case 3 to 5
= "春季"
case 6 to 8
= "夏季"
case 9 to 11
= "秋季"
case 1, 2, 12
= "冬季"
end select
end sub
private sub command3_click()
dim x as integer, y as integer
= inputbox("请输入年份")
x = val(
= (x mod 4) =0 and (x mod 100 <>0) _
or (x mod 4) =0 and (x mod 400 = 0)
= inputbox("请输入月份")
y = val(
select case y
case 1, 3, 5, 7, 8, 10, 11
= "31天"
case 4, 6, 9, 12
= "30天"
case 2
if = 0 then
= "29天"
else= "28天"
end if
end select
end sub
6. 编写程序，输入学生的姓名、学号和成绩（高数、英语和专业课），判断该学生能获得几等奖学金，并输出结果。获奖条件是：
一等奖学金要求所有成绩在95分以上；二等奖学金要求所有成绩在90分以上；三等奖学金要求所有成绩在88分以上。
private sub command1_click()
dim m%, n%, d%, sun%, no$, name$
no = inputbox("输入学号")
name = inputbox("输入姓名")
m = val(
n = val(
d = val(
sun = m + n + d
if m > 95 and n > 95 and d > 95 then
= name & 获一等奖学金"
elseif m >=90 and n >=90 and d >=90 then
= name & 获二等奖学金"
elseif m >=88 and n >=88 and d >=88 then
= name & 获三等奖学金"
else= name & 没有奖学金"""
end if
end sub
private sub command2_click()
end sub
8. 已知：
当任意输入x值时求f(x)的值。请编制程序完成。
private sub command1_click()
dim x!, f!
x = val(inputbox("请输入x的值"))
if (x < 0 and x <>3) then
f = x ^ 2 + x - 6
elseif (x >=0 and x < 10 and x <>2 and x <>3) then
f = x ^ 2 - 5 * x + 6
elsef = x ^ 2 - x - 1
end if
msgbox "f(x)的值是" &f
end sub
9. 编写一个程序输入某人的身高（cm）和体重（kg），按下式确定其体重是否为标准、过胖或过瘦：
1）标准体重=身高-110；（2）超过标准体重5kg为过胖；（3）低于标准体重5kg为瘦。
private sub command1_click()
dim m!, n%, d!
m = val(
n = val(
d = n - 110
= "按你的身高，标准体重为：" d & 公斤"
if m - d > 5 then
= "你比较胖，请注意**"
elseif m = d then
= "你是标准体重"
else= "你比较瘦，请注意锻炼"
end if
end sub
private sub command2_click()
end sub
private sub command3_click()
endend sub
10. 征兵的条件是：男性（sex）年龄（age）在18~20之间，身高（size）在1.
65米以上；或者女性（sex）年龄（age）在16~18之间，身高（size）在1.60米以上。
用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵条件，用标签控件输出结果。
private sub command1_click()
dim m$, n%, d!
m = n = val(
d = val(
if m = 男" and n >=18 and n <=20 and d > 1.63 then
= "符合征兵条件"
elseif m = 女" and n >=16 and n <=18 and d > 1.6 then
= "符合征兵条件"
else= "不符合征兵条件"
end if
end sub
private sub command2_click()
endend sub
11. 夏季到了，超市对水果进行**，具体活动如下：
早市 9：00~ 12：00 所有水果打九折；
午市 12：00 ~ 16：00 所有水果打8折；
晚市 16：00 ~ 21：00 所有水果打7折；
小明今天要去超市买些荔枝，请根据他去的时间段，编程输入荔枝的**并计算总价。（请注意，他买的水果可能不止1斤）
private sub command1_click()
dim m!, n, r%, dj!
m = val(
n = val(
dj = val(
select case m
case 9 to 12
r = 90
case 12 to 16
r = 80
case 16 to 21
r = 70
end select
= "打折率为：" str(r) &
= "共收款" &r * dj * n / 100 & 元"
end sub
private sub command2_click()
endend sub
private sub form_load()
= time()
end sub
12. 为某航空公司设计一售机票程序，能根据月份和订票数决定优惠率，计算票
价。假设优惠折扣规定如下：
在旅游的旺季7～9 月份，如果订票数超过20 张，票价优惠15%；20 张以下，票价优惠5%。
在旅游的淡季1～5 月份、10 月份和11 月份， 如果订票数超过20 张，票价优惠30%，20 张以下，票价优惠20%。
其他情况，一律优惠20%。
private sub command1_click()
dim m%, n%, r%, dj!
m = val(
n = val(
dj = val(
select case m
case 1 to 5
if n <=20 then r = 20 else r = 30
case 7 to 9
if n <=20 then r = 5 else r = 15
case else
r = 20
end select
= "所订机票的优惠率为：" str(r) &
= "单张票价为" &100 - r) *dj / 100 & 元" &共收款" &100 - r) *dj * n / 100 & 元"
规则高级消防题库含有答案注释
a卷。1.未经过防火安全知识教育的人员不准进行船舶油漆工作 a a 对 b.错。2.形成蓄热自然的热能都是由于本身物理作用 化学反应或生物效能产生的。a a.对 b 错。3.固体燃烧的燃烧速率取决于本身的结构，粉末或碎屑状的固体燃料比大块的屋子燃烧的快且依然粉尘容易 a a a 对 b 错。4.船舶...
规则高级消防题库含有答案注释 新
a卷。1.未经过防火安全知识教育的人员不准进行船舶油漆工作 a a 对 b.错。2.形成蓄热自然的热能都是由于本身物理作用 化学反应或生物效能产生的。a a.对 b 错。3.固体燃烧的燃烧速率取决于本身的结构，粉末或碎屑状的固体燃料比大块的屋子燃烧的快且依然粉尘容易 a a a 对 b 错。4.船舶...
流行热词注释
定难以成功。在互联网初起时代人们期。构 对抗的地位，然而一个违反常规的陌生化词语组合 被 被自杀 被平均 被代表 却。待的无门槛的平民化传播很快便被证明。不过是个新的童话 当然，每个人都。可以用极低的成本自由地在网上传播信息。然而同样当然的是，普通人发的东西在绝大多数情况下，转瞬间就会如吐进大海的一...