用VB编程序,会的帮帮啊~~

来源：百度知道 编辑：UC知道 时间：2024/05/26 03:21:19
1、 请编写程序求圆的面积s=πr2.
2、 有一函数aaaa
Y=-1 (x<0)aa
Y=0（x=0）
Y=1（x>0）
请编写程序解决这个问题.
3、 请编写程序求：s=1+2+3+…+99+100的值.
大哥大姐们，谢谢啦

1
Private Sub Form_Click()
Dim R as Single
R=Val(inputbox("请输入圆的半径"))
Msgbox "半径为" & R & "的圆的面积为:" & 3.1415926*R^2
End Sub

2.
Function AAAA(X as Single) as Integer
AAAA=Sgn(X)
End Function

3.
Private Sub Form_Click()
Dim I as Integer,S as integer
For i=1 to 100
S=s+i
Next
Print "总和为:" & S
End Sub