一个text控件
Private Sub Form_Load()
Dim R As Double
Dim S As Double
R = Val(Text1.Text)
S = 3.14 * (R ^ 2)
MsgBox Str(S)
End Sub
猜你喜欢
- 1已知a,b是质数,且是关于x的方程x2-13x+m=0的根,则b/a+a/b值为() A,2
- 2翻译:The Kings are going to move to the city next year.
- 31.精神不集中( ) 根据意思写词语
- 4已知甲、乙两人从相距18千米的两地同时出发,相向而行,1.8小时相遇;如果甲比乙先走, 速度回答.给高分
- 5世界上第一个 现在那个生物还存在吗?
- 639又5分之2÷13 ,4又5分之2+12*4又5分之2+13*5又5分之3,(6.9*0.125*1.75)÷(2.3*8分之1*4分之1)
- 7智取生辰纲的智表现在哪结合原文
- 8关于成长的名人名言,佳句和事例
- 966和33的最大公因数
- 10有两箱苹果,第一箱中10千克,如果从第一箱中取出二分之一放入第二箱中,两箱重量等.两箱