VB2010初学者求帮忙1.写一程式输入圆的半径r,计算圆周长及面积.(提示:圆周长=2*pi*r,圆面积=pi*r2,pi=3.14159)2.写一程式输入摄氏温度,将其换算成华氏温度.(提示:f=c*9/5+32,f为华氏温度,c为摄氏温

Question

VB2010初学者求帮忙
1.写一程式输入圆的半径r,计算圆周长及面积.(提示:圆周长=2* pi * r,圆面积=pi* r2,pi=3.14159)
2.写一程式输入摄氏温度,将其换算成华氏温度.(提示:f=c*9/5+32,f为华氏温度,c为摄氏温度)
3.写一程式找出A,B两数中绝对值较大者.
4.个人综合所得税,采月下列累进课税方式如下:
所得30万以内(不含30万) 课6%
所得30~80万以内(含30万及不含80万) 课13%
所得80~150万以内(含80万及不含150万) 课21%
所得150~300万以内(含150万及不含300万) 课30%
所得300万以上(含300万) 课40%
写一程式输入某人的所得,然後计算应缴之税款.

Answer 1

If IsNumeric(半径输入框.Text) Then Dim 半径 As Double = CDbl(半径输入框.Text) MsgBox("该圆的周长是 " & 2 * Math.Pi * 半径 & ",面积是 " & Math.Pi * 半径 ^ 2)End IfIf IsNumeric(摄氏温度输入框.Text...