用vb程序求以下问题,非常感谢!

来源：百度知道 编辑：UC知道 时间：2024/06/05 13:28:15
1. 计算1+2+3+…+n，当和数大于1000时停止计算，并显示出此时的n值。
2. 在窗体上添加一个文本框和两个按钮，一个按钮能够使文本框中显示当前日期，另一个按钮使文本框显示当前时间。
3. 设圆半径r=1.5，圆柱高h=3，求圆周长、圆面积及圆柱体积。用InputBox函数输入数据，结果在文本框中输出。请编写程序。
4. 输入一个华氏温度，要求输出摄氏温度。公式为：C=(F-32)×5/9 ，输出要有文字说明，取两位小数。
5. 求和：计算1+2+3+…+100的值。
6. 求阶乘n！
7. 计算分段函数：y=6x*x+9x-7 (x大于等于0时)；y=3x*x+4x-5 (x小于0时)
8. 在窗体上添加一个文本框和一个按钮，编写程序，实现单击按钮可以随机改变文本框中文字颜色的功能。
9. 计算：1-2+3-4+…+n，其中n的值由用户输入。
10. 循环结构程序设计：计算1*1+2*2+3*3+…+100*100

一定写清题号,非常感谢!

'1. 计算1+2+3+…+n，当和数大于1000时停止计算，并显示出此时的n值。

Private Sub Command1_Click()
Dim N, Count As Integer
N = 1
Count = 0
Do While Count <= 1000
Count = Count + N
N = N + 1
Loop
MsgBox N
End Sub

'2. 在窗体上添加一个文本框和两个按钮，一个按钮能够使文本框中显示当前日期，另一个按钮使文本框显示当前时间。

Private Sub Command1_Click()
Text1.Text = Date
End Sub

Private Sub Command2_Click()
Text1.Text = Time
End Sub

'3.设圆半径r=1.5，圆柱高h=3，求圆周长、圆面积及圆柱体积。用InputBox函数输入数据，结果在文本框中输出。请编写程序

Private Sub Command1_Click()
Dim R, H As Double
R = InputBox("请输入圆柱底面半径", "数据输入")
H = InputBox("请输入圆柱高", "数据输入")
Text1.Text = "圆周长=" & 2 * 3.14 * R & ";圆面积=" & 3.14 * R * R & ";圆柱体积=" & 3.14 * R * R * H
End Sub

'4. 输入一个华氏温度，要求输出摄氏温度。公式为：C=(F-32)×5/9 ，输出要有文字说明，取