这道题题用VB怎么做

来源：百度知道 编辑：UC知道 时间：2024/06/10 21:27:18
幼儿园教师把40块糖分给班上的25名小朋友，她让小朋友围坐一圈按1～25编号，然后从1号开始1～3报数，逢数到3的小朋友分得一块糖。问最后把糖分尽后，都有哪些小朋友还没得到糖，哪位小朋友得到的糖最多?

较简单,一会儿发给你.
Private Sub Command1_Click()
Dim a(1 To 25) As Integer
For i = 1 To 25
a(i) = 0
Next

i = 40
j = 1
k = 1

Do
If j = 26 Then j = 1

If k Mod 3 = 0 Then
a(j) = a(j) + 1
i = i - 1

End If
k = k + 1
j = j + 1
Loop While i > 0

maxval = a(1)
maxindex = 1
For i = 2 To 25
If maxval < a(i) Then
maxval = a(i)
maxindex = i
End If
Next

MsgBox "最多的小朋友" & maxindex & ",共" & maxval & "个"
Text1 = ""
For i = 1 To 25
Text1.Text = Text1.Text & "[" & i & "]" & a(i) & " "
Next
End Sub

很强

自己写的 我也是初学者....

放一个按钮command1

Private Sub Command1_Click()
Dim 报数 As Integer
Dim 第几号小朋友 As Integer
Dim i As Integer
Dim 小朋友现有糖数(25) As Integer
Dim 人数, 糖数 As Integ