Question

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

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

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

Answer 1

'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 ，输出要有文字说明，取两位小数。

'5. 求和：计算1+2+3+…+100的值

Private Sub Command1_Click()
Dim i, j As Integer
j = 0
For i = 1 To 100
j = j + i
Next
MsgBox j
End Sub

'6.求阶乘n！

Private Sub Command1_Click()
Dim m, Count As Double
m = 1
For Count = 1 To CDbl(Text1.Text)
m = m * Count
Next
MsgBox m
End Sub

'7. 计算分段函数：y=6x*x+9x-7 (x大于等于0时)；y=3x*x+4x-5 (x小于0时)

Private Sub Command1_Click()
Dim y As Double
If Text1.Text < 0 Then
y = 3 * Text1.Text * Text1.Text + 4 * Text1.Text - 5
Else
y = 6 * Text1.Text * Text1.Text + 9 * Text1.Text - 7
End If
MsgBox y
End Sub

'8. 在窗体上添加一个文本框和一个按钮，编写程序，实现单击按钮可以随机改变文本框中文字颜色的功能。

'9. 计算：1-2+3-4+…+n，其中n的值由用户输入。

Private Sub Command1_Click()
Dim Count, M As Double
M = 0
For Count = 1 To CInt(Text1.Text)
If Count Mod 2 = 1 Then
M = M + Count
Else
M = M + Count * (-1)
End If
Next
MsgBox M
End Sub

'10. 循环结构程序设计：计算1*1+2*2+3*3+…+100*100

Private Sub Command1_Click()
Dim I, J As Double
J = 0
For I = 1 To 100
J = J + I * I
Next
MsgBox J
End Sub