網(wǎng)站制作NEWS
SCROLL
高中微機會考編程題，再一道！
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
標簽： 高中微機會考編程題再一道
上一篇：不會玩電腦會考微機能過么
下一篇：高中微機會考編程題
多重隨機標簽