常见VB考试题型VIP免费

1输入半径,求圆面积和球体积。PrivateSubForm_Load()DimrAsSingle,sAsSingle,vAsSingler=InputBox("请输入半径r：","输入数据")s=3.14*r^2v=4/3*r^3*3.14'Print"圆面积为:";s'Print"球体积为:";vMsgBox("圆面积为:"&s&Space(2)&"球体积为:"&v)EndSub2输入两个数存放在x和y中，比较大小，保证大数放在x中，小的数放在Y中。PrivateSubCommand1_Click()Print"比较前:"X=InputBox("请输入X")Y=InputBox("请输入Y")Print"X=";X,"Y=";YIfX