VB作業(yè)，作業(yè):輸入圓的半徑，計(jì)算圓面積和圓周長(zhǎng)。計(jì)算結(jié)果數(shù)據(jù)類型為單精度型？①方法1:private sub command1 Click（）dim P as singledim s as sing

VB作業(yè)，作業(yè):輸入圓的半徑，計(jì)算圓面積和圓周長(zhǎng)。計(jì)算結(jié)果數(shù)據(jù)類型為單精度型？

①方法1:

private sub command1 Click（）

dim P as single

dim s as single

dim r as single

P=3.1415“定義Pai值

r=Val（text1）

s=P*r^2”面積公式

C=2*P*r”周長(zhǎng)公式

label2.caption=C“l(fā)abel 2輸出周長(zhǎng)結(jié)果

text2=s”文本框2output area result

end sub

method 2

private sub command1uclick（）

dim P as single

dim s as single

dim r as single

P=3.1415“定義Pai的值

r=InputBox（“請(qǐng)輸入圓的半徑”，“input”，0）“獲取輸入值

s=P*r^2”面積公式

C=2*p*r“周長(zhǎng)公式

msgbox（“圓的面積為：”&S&“圓的周長(zhǎng)為：”&c）“輸出結(jié)果

結(jié)束sub！”