表框中显示出来）Private Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs HandlesButton1.Click Dim c a b As Integer For a 0 To 300 For b 0 To 33 For c 0 To 20 If a b c 100 And 5 c 3 b 1 / 3 a 100 Then Label1.Text Label1.Text amp quot小鸡quot amp a amp quot只quot amp quot quot amp quot母鸡quot amp b amp quot只quot amp quot quot amp quot公鸡quot amp c amp quot只quot amp vbCrLf End If Next Next Next End SubEnd Class24. 设计程序，求 s1（12）（123）….（1234…n）的值，编程求 s 不大于20000 时最大的 n 值。
Private Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs HandlesButton1.Click Dim i sum sum1 j As Single sum1 1 : j 1 Do While sum1 lt 20000 For i 1 To j .
上一篇：
VB屏幕保护程序设计
下一篇：
首鼠两端
2013-9-15
