第1页共6页1题；设计应用程序，输入圆柱体的底面半径和高，求底面积、侧面积、体积
要求1）程序中将π定义成符号常量
2）将输入的底面半径和高分别存于单精度变量r和h中
（窗体文件名A1
FRM，工程文件名A1
VBP）ConstpiAsSingle=3
1415926PrivateSubCommand1_Click()DimhAsSingleDimrAsSingleh=Val(Text1
Text)r=Val(Text2
Text)Text3
Text=Format(pi*r^2,"0
000")Text4
Text=Format(2*pi*r*h,"0
000")Text5
Text=Format(pi*r^2*h,"0
000")EndSub2题；用块结构条件语句实现
要求用InputBox函数输入三个数，找出并输出三个数中的最大数及最小数
（窗体文件名A2
FRM，工程文件名A2
VBP）PrivateSubForm_Click()DimMaxAsInteger,MinAsInteger,a(1To3)AsIntegerFori=1To3a(i)=Val(InputBox("请输入数值","找出最大和最小值","0"))NextiMax=a(1)Min=a(1)Fori=1To3Ifa(i)>MaxThenMax=a(i)EndIfIfa(i)
