简单的VB程序设计用while和if写程序

发布网友发布时间：2023-09-19 03:50

共4个回答

热心网友时间：2023-09-23 13:34

这个程序效率很高，给几个结果
k n
1 2
2 4
3 11
。。。。。。
10 12367
。。。。。。
20 272400600

Private Sub Form_Load()
End Sub

Private Sub Command1_Click()
sn = 0
k = Val(Text1.Text)
J = 1
While sn <= k
sn = sn + 1 / J
J = J + 1
Wend
Text2.Text = Str(J - 1)
End Sub

热心网友时间：2023-09-23 13:35

你是不是想要给定一个k，想要算出最小的n值？
那么应该是
while sn>cdbi(text1.text)
n=n+1
sn=sn+1/n
wend
循环结束后 n 就是你要的结果

热心网友时间：2023-09-23 13:35

'注意:k值不能大于12
Private Sub Command1_Click()
Dim k As Single, n As Double, sn As Single
k = Val(Text1)
n = 0
sn = 0
While sn < k
n = n + 1
sn = sn + 1 / n
Wend
If sn > k Then
Text2 = n
End If
End Sub追问为什么k值不能大于12，急复理由

追答大于12时,计算机就算不过来了.明白不?

热心网友时间：2023-09-23 13:36

题目和要求写的清楚一点，你这样没法判断