VB計算E的近似值循環鑲嵌問題。

Private?Sub?Command1_Click()

'如果是題目要求用循環鑲嵌個人覺得應該這樣寫

Dim?e,?n,?v,?n1

e?=?1:?v?=?1:?n?=?1

While?1?/?v?>?0.00001

v?=?1:?n1?=?1

While?n1?<=?n

v?=?v?*?n1

n1?=?n1?+?1

Wend

n?=?n?+?1

e?=?e?+?1?/?v

Wend

Label1.Caption?=?"e的近似值為:"?&?e

End?Sub

上一篇:如何在ug 工具箱下建立壹對齒輪模型

下一篇:c語言可以開發web嗎？