考思维最近问道区的题量不是太多。
手头没有编程软件,机器也没有安装IIS,只好动用了Word的宏
自己编写了一个宏,具体如下:
Sub taozi()
'
' taozi 宏
'
'
For i = 1 To 100000000
k = i
k = k * 5 + 1
If Int(k / 4) = k / 4 Then
k = k / 4 * 5 + 1
If Int(k / 4) = k / 4 Then
k = k / 4 * 5 + 1
If Int(k / 4) = k / 4 Then
k = k / 4 * 5 + 1
If Int(k / 4) = k / 4 Then
k = k / 4 * 5 + 1
...全部
手头没有编程软件,机器也没有安装IIS,只好动用了Word的宏
自己编写了一个宏,具体如下:
Sub taozi()
'
' taozi 宏
'
'
For i = 1 To 100000000
k = i
k = k * 5 + 1
If Int(k / 4) = k / 4 Then
k = k / 4 * 5 + 1
If Int(k / 4) = k / 4 Then
k = k / 4 * 5 + 1
If Int(k / 4) = k / 4 Then
k = k / 4 * 5 + 1
If Int(k / 4) = k / 4 Then
k = k / 4 * 5 + 1
Exit For
End If
End If
End If
End If
Next
A1 = (k - 1) / 5
A2 = (A1 * 4 - 1) / 5
A3 = (A2 * 4 - 1) / 5
A4 = (A3 * 4 - 1) / 5
A5 = (A4 * 4 - 1) / 5
Selection。
TypeText Text:="桃子总数:" & k
Selection。TypeParagraph
Selection。TypeText Text:="第一个猴子拿走 " & A1 & "桃子,还剩下 " & A1 * 4 & "桃子"
Selection。
TypeParagraph
Selection。TypeText Text:="第二个猴子拿走 " & A2 & "桃子,还剩下 " & A2 * 4 & "桃子"
Selection。
TypeParagraph
Selection。TypeText Text:="第三个猴子拿走 " & A3 & "桃子,还剩下 " & A3 * 4 & "桃子"
Selection。
TypeParagraph
Selection。TypeText Text:="第四个猴子拿走 " & A4 & "桃子,还剩下 " & A4 * 4 & "桃子"
Selection。
TypeParagraph
Selection。
TypeText Text:="第五个猴子拿走 " & A5 & "桃子,还剩下 " & A5 * 4 & "桃子"
End Sub
运行后结果如下:
桃子总数:3121
第一个猴子拿走 624桃子,还剩下 2496桃子
第二个猴子拿走 499桃子,还剩下 1996桃子
第三个猴子拿走 399桃子,还剩下 1596桃子
第四个猴子拿走 319桃子,还剩下 1276桃子
第五个猴子拿走 255桃子,还剩下 1020桃子
。收起