田里的拼音怎么写:求VB难题
来源:百度文库 编辑:高校问答 时间:2024/05/11 19:54:24
谢谢~
Dim i As Integer
Dim sum As Double
i = 1
Do While 1 / i >= 0.0001
sum = sum + 1 / i
i = i + 1
Loop
MsgBox sum
输出结果是:9.7806036
用个循环判断语句不就行了吗?
dim a as long
a=2
for i=2 to 100000
a=a/i+1
if a <0.001 then
exit for
end if
next
试试吧,我机器没vb,运行不了
dim n as integer
dim sum as single
n=1
do
sum=sum+1/n
n=n+1
loop while 1/n<0.0001
欢迎加入24885035群,请说明意图
VB,VB.NET交流
代码成就天地人生,程序造就你我辉煌
让我们在程序的路上一起走得更远!
1. 设计界面
添加控件:Label1,Command1,Command2
2. 程序如下:
Private Sub Form_Load()
Label1.Caption = ""
Label1.BorderStyle = 1
Command1.Caption = "计算"
Command2.Caption = "退出"
End Sub
Private Sub Command1_Click()
Sum = 0
n = 1
Do
Sum = Sum + 1 / n
n = n + 1
Loop Until 1 / n < 0.0001
Label1.Caption = Sum
End Sub
Private Sub Command2_Click()
End
End Sub