简单的编程问题。高分悬赏。

来源：百度知道 编辑：UC知道 时间：2024/09/24 16:37:26
一元二次方程编程通式。
3个数求最大。
计算101+102……+1001=？
1+（1+2）+（1+2+3）……（1+2+3……+2004）=
画从一点向4个方向发散半径递增的圆
在窗体任意位置画随机颜色的圆
已知s=1+2+3……+n找最大整数n使s<30000
平方值小于10000最大整数

需要以上程序的过程。
谢。
会追加分数。

Protected Sub Button44_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button44.Click
'3个数求最大。
Dim a As Double, b As Double, c As Double
a = InputBox("请输入数字a!")
b = InputBox("请输入数字b!")
c = InputBox("请输入数字c!")
If a < b Then
a = b
End If
If a < c Then
a = c
End If
MsgBox(a)
End Sub

Protected Sub Button45_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button45.Click
Dim i As Integer, sum As Integer
'计算101+102……+1001=？
For i = 101 To 1001
sum = sum + i
Next
MsgBox(sum)
End Sub

Protected Sub Button46_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button46.Click
'1+（1+2）+（1+2+3）……（