第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)
