问个问题

Question

问题：以论坛可用分为例，本人的可用分，在4天内，平均每天要发多少帖（200分的帖，不够取上限）？平均要结多少帖？才能散尽可用分。请给个算法...

Answer 1

实际上，在代码编写时需要使用do loop穷举，直到分数为0即可。

Answer 2

can u share me some codes? 

Answer 3

无聊一下Private Sub Command1_Click()
    Dim i As Integer
    Dim lngFen As Long
    Dim lngSanFen() As Long
    Dim intNum As Integer
    
    lngFen = Text1.Text + 40
    i = 0
    
    Do
        ReDim Preserve lngSanFen(i)
        
        If lngFen > 200 Then
            lngSanFen(i) = 200
        Else
            lngSanFen(i) = lngFen
        End If
        
'        Debug.Print lngSanFen(i)
        lngFen = lngFen - lngSanFen(i) + (lngSanFen(i) \ 2)
        i = i + 1
    Loop Until lngFen = 0
    
    intNum = Round(i / 4 + 0.5, 0)
    
    For i = 0 To UBound(lngSanFen)
        If i Mod intNum = 0 Then
            Debug.Print "第" & i \ intNum + 1 & "天"
        End If
        
        Debug.Print lngSanFen(i)
    Next i
End Sub

Answer 4

    Do While Not sTotalPoint = 1
        If sTotalPoint > 200 Then
            iCtr = Int(sTotalPoint / 200)
            iRtn = iCtr * 100
            sTotalPoint = sTotalPoint - iCtr * 200 + iRtn
            jCtr = jCtr + iCtr
        Else
            iCtr = sTotalPoint / sTotalPoint - 1
            jCtr = jCtr + iCtr
        End If
    Loop
写到一半，被通知要去顾客那了，各位请补上。晚上来结贴。

Answer 5

vbsdim idx
dim totaltotal = 2000idx = 0while total >= 200
total = total - 100
idx = idx + 1
msgbox idx & " - " & total
wendwhile total > 0
total = fix(total/2)

idx = idx + 1
msgbox idx & " - " & total
wend