網(wǎng)站制作NEWS
SCROLL
高中微機(jī)會(huì)考編程題，再一道！
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 0 To 20
For j = 0 To 33
k = 100-i-j
If 5 * i + 3 * j + k / 3 = 100 Then
Label1 = "小雞=" & k
Label2 = "母雞=" & j
Label3 = "公雞=" & i
End If
Next j
Next i
End Sub
標(biāo)簽： 高中微機(jī)會(huì)考編程題再一道
多重隨機(jī)標(biāo)簽