UC知道求牛人做VB，万分感谢
来源：百度知道 编辑：UC知道 时间：2024/07/05 04:50:22
一只小青蛙在一口深56尺（井深的值从键盘输入）的水井里，作为井底青蛙，很向往井外面的世界，于是它就向上跳，它白天向上跳上去5尺，可是一到晚上睡觉时抓不住又往下滑了2尺，问它要多少天才能跳出这口水井。（注意，请考虑最后一天，青蛙可能会在白天爬上去后，就已经出去了，不再下滑了。所以要在最后一天加入条件判断（If语句））
已知函数 f(n)=1+2+..+n ,和函数 s(n)=f(1)+f(2)+..+f(n),求当 s(n)<=100000 时的最大整数 n.(提示，本题宜采用两个循环语句实现，一个循环求出f(n),另一个求出S(n)的最终值)
已知函数 f(n)=1+2+..+n ,和函数 s(n)=f(1)+f(2)+..+f(n),求当 s(n)<=100000 时的最大整数 n.(提示，本题宜采用两个循环语句实现，一个循环求出f(n),另一个求出S(n)的最终值)
Private Sub Command1_Click()
Dim n As Long
m = Val(InputBox(""))
Print "井深" & m & "米"
Do While m > 0
m = m - 5
If m > 0 Then
m = m + 2
End If
n = n + 1
Loop
Print n & "天爬出去"
End Sub
Private Sub Command1_Click()
Dim dh As Integer, H As Integer, Sign As Integer
Dim Num As Integer
H = Val(Text1.Text)
Sign = 1
Num = 0
L = 0
dh = 0
While Sign <> 0
dh = dh + 5
Num = Num + 1
If dh >= H Then
Sign = 0
Else
dh = dh - 2
End If
Wend
Print Num
End Sub
提示什么意思？
Private Sub Command1_Click()
Dim dh As Integer, H As Integer, Sign As Integer
Dim Num As Integer
H = Val(Text1.Text)
Sign = 1
Num = 0
L = 0
dh = 0
While Sign <> 0
dh = dh + 5
Num = Num + 1
If dh >= H Then
Sign = 0
Else
dh = d