早教吧作业答案频道 -->数学-->
vb至少发到多少张时没人手中贺卡书相同有11各人围成一圈发贺卡,一次给13681125710……号发至少发到多少张时每个人手中的贺卡数相同
题目详情
vb至少发到多少张时没人手中贺卡书相同
有11 各人围成一圈发贺卡,一次给1 3 6 8 11 2 5 7 10 ……号发至少发到多少张时每个人手中的贺卡数相同
有11 各人围成一圈发贺卡,一次给1 3 6 8 11 2 5 7 10 ……号发至少发到多少张时每个人手中的贺卡数相同
▼优质解答
答案和解析
Private Sub Command1_Click()
Dim a(11) As Long
Dim i As Long
Dim step As Long '递增规律2,3
i = 1
Dim k As Long '总发糖数
Dim j As Long
Dim isFindOk As Boolean
isFindOk = False
step = 2
While Not isFindOk
a(i) = a(i) + 1 '发糖一块
k = k + 1
If k Mod 11 = 0 Then
'发糖数是11倍数时才有可能相同
isFindOk = True
For j = 2 To 11
If a(j) a(j - 1) Then
'发糖数不同
isFindOk = False
Exit For
End If
Next
End If
i = i + step
If step = 2 Then
step = 3
Else
step = 2
End If
If i > 11 Then
i = i - 11
End If
Wend
MsgBox "发:" & k & "张时,每人贺卡相同"
End Sub
Dim a(11) As Long
Dim i As Long
Dim step As Long '递增规律2,3
i = 1
Dim k As Long '总发糖数
Dim j As Long
Dim isFindOk As Boolean
isFindOk = False
step = 2
While Not isFindOk
a(i) = a(i) + 1 '发糖一块
k = k + 1
If k Mod 11 = 0 Then
'发糖数是11倍数时才有可能相同
isFindOk = True
For j = 2 To 11
If a(j) a(j - 1) Then
'发糖数不同
isFindOk = False
Exit For
End If
Next
End If
i = i + step
If step = 2 Then
step = 3
Else
step = 2
End If
If i > 11 Then
i = i - 11
End If
Wend
MsgBox "发:" & k & "张时,每人贺卡相同"
End Sub
看了 vb至少发到多少张时没人手中...的网友还看了以下:
中第5.1.4条“每浇注50m3必须有1组试件,小于50m3的桩,每根桩必须有1组试件.”是不是不 2020-04-26 …
中国大约有13.7亿人口,是世界上人口最多的国家,排在第二位的是印度,人口总数比中国少1.6亿,比 2020-04-27 …
妈妈分香蕉,如果分给家中每人1根还剩1根,如果每人分2根还少2根.那么,家中有几个人?妈妈买了几根 2020-05-13 …
1,从1-10中每次取两个不同的整数相加,和大于10的共有多少取法?2,从1-10中每次取两个不同 2020-05-13 …
1.小明跑3千米用了10分钟.平均每分钟跑了全程的几分之几?平均每分钟跑多少千米?平均跑1千米用多 2020-05-20 …
例8.将4名教师分派到3所中学任教,每所中学至少1名教师,则不同的分派方案共有多少种?例8.将4名 2020-06-06 …
一个人打靶只要命中1次即可随着瞄准时间延长而提高命中率瞄准第1秒时10%命中率每多瞄准1秒多10% 2020-07-05 …
某超声波测速仪在一次测速中每隔1秒发出一束超声波,已知其第一束超声波后0.4秒接受回声,发出第二束 2020-07-08 …
用红蓝两种颜色讲一个3行9列的小方格涂色,必有两列小方格中涂的颜色完全相同,为什么?一串彩灯按红, 2020-07-29 …
1.平面内有8个点.(1)以其中每2个点为端点的线段共有多少条?(2)以其中每2个点为端点的有1. 2020-07-30 …