vb程序设计测试题

Private Sub Command1_Click()

Dim n As Long

n = Val(InputBox("输入", "请输贺胡入您个年龄", 12))

If n <18 Then

Print n"少年"

ElseIf n >= 18 And n <禅睁拦 45 Then

Print n"青年"

ElseIf n >= 45 And n <= 59 Then

Print n"中年"

ElseIf n >59 Then

Print n"老年"

Else

Print n"输入年龄错误"

End If

End Sub

Private Sub Command2_Click()

Dim n As Long

n = Val(InputBox("输入", "请输入您个年龄", 12))

Select Case n

Case Is <18

Print n"少年"

Case Is >59

Print n"老年"

Case Is >= 18

Select Case n

Case Is <45

Print n"青年"

Case Else

Print n"中早老年"

End Select

Case Else

Print n"输入年龄错误"

End Select

End Sub

Private Sub Form_Load()

Me.Caption = "年龄段划分"

Command1.Caption = "使用if"

Command2.Caption = "使用select"

End Sub

正确运用已学的普通人群食谱设计原则、我国现行《中国居民膳食指南及平衡膳食宝塔》、《中国居民膳食营养参考摄入量》和《食物成分表》，掌握膳食编制的基本原则和方法。 2要求

针对特殊人群营养需要（如幼儿、学龄儿童、大中学生、老年人群等），当地常规食物供给和饮食习惯，进行个性化食谱设计并以组为单位为某人编制一周三餐的食谱。 二、 食雹拿锋谱编制的原则

1根据某特定人群的生理特点和营养需要 2选择适宜的食物种类，组成平衡膳食 3设计时应考虑到各种营养素之间的比例和数量

4设计时应考虑饮食者的习惯和口味，做到品种多样化，每周更换一次食谱

三、 设计源晌食谱步骤 1食谱设计的理论培训及分组

2以小组为单位分头到有关单位伙食科或家庭调查某人每周膳食结构和膳食营养素搭配。

3调查当地当前市场提供的食物品种

1/7

4列出已选择的食物，并查对食物成分表，确定每种食物的各种营养成分

5初步设计一周（7天）三餐的膳食组成及所使用的原料

6根据所用原料占每餐的用料(百分比)，计算每种食物可提供的营养量

7参照我国DRIs，对三餐食物进行合理调配和搭配，设计出较为理想的一周食谱

8制作一周食谱一览表，填写相应数据，并进行各种营养的核算 9计算每周膳食蛋白质、脂肪、碳水化合物各占能量的分配敏悔比例 10计算三餐能量的分配比例 11计算动植物食物蛋白质供应比例 四实验结果与分析

CLEAR

ACCEPT "请输基巧入生日 yyyy-mm-dd：" TO a

? MYOLD(CTOD(a))

PROCEDURE MYOLD(b)

c = YEAR(DATE()) - YEAR(b)

DO CASE

CASE c>=50

RETURN "老年人纳腔"

CASE c<50 AND c>搏茄键=40

RETURN "中年人"

CASE c<40 AND c>=18

RETURN "青年人"

OTHERWISE

RETURN "未成年"

ENDCASE

ENDPROC

---