vb源代码1.docVIP

1有36块砖要求36个人一次搬完。这36个人中有男性、女性和小孩。男性一次搬4块，女性一次搬2块，小孩两人一次搬一块。问有几个男性，几个女性和几个小孩。 代码： Private Sub Command1_Click() i为男孩,j为女孩,k为小孩子 Dim i As Integer, j As Integer, k As Integer, x As Integer x = 1 For i = 0 To 9 For j = 0 To 12 For k = 0 To 36 If (j + i + k) = 36 And (4 * i + 2 * j + k / 2) = 36 Then Print 男人的人数为： i; Spc(x); 人; vbCrLf; Print 女孩的人数为： j; Spc(x); 人; vbCrLf; Print 小孩的人数为： k; Spc(x); 人; vbCrLf; End If Next k Next j Next i Print End Sub 2编写程序输出20个两位正整数，要求每行输出5个数。 代码： Private Sub Command1_Click() Dim s(1 To 4, 1 To 5) As Integer, i As Integer, j As Integer For i = 1 To 4 For j = 1 To 5 s(i, j) = Int((90 * Rnd) + 10) Picture1.Print s(i, j); Next j Picture1.Print Next i End Sub 3、用三种方式（全部、下三角、上三角）显示“九九乘法表”。三种方式分别通过单击相应按钮实现。 代码： Private Sub Command1_Click() Form1.Cls Form1.Print 全部的九九乘法表： Dim i, j As Integer Dim s As String For i = 1 To 9 For j = 1 To 9 s = j * i = i * j vbTab Print s; Next j Print Next i End Sub Private Sub Command2_Click() Form1.Cls Form1.Print 上三角的九九乘法表： Dim i, j As Integer Dim s As String For i = 9 To 1 Step -1 For j = 1 To i s = j * i = i * j Print Tab((j - 1) * 9 + 1); s; Next j Next i End Sub Private Sub Command3_Click() Form1.Cls Form1.Print 下三角的九九乘法表： Dim i, j As Integer Dim s As String For i = 1 To 9 For j = 1 To i s = j * i = i * j Print Tab((j - 1) * 9 + 1); s; Next j Next i End Sub 4、所谓“水仙花数”是指一个三位数，其各位数的立方和等于该数。编写程序，输出所有的水仙花数。 代码 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, sum As Integer Print 水仙花数为： For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 sum = a * 100 + b * 10 + c * 1 If sum = a ^ 3 + b ^ 3 + c ^ 3 Then Print sum; End If Next c Next b Next a Print End Sub 5、找出1000以内的所有回文数，并统计1000以内的所有回文数的个数 代码 Private Sub Command1_Click() n = 0 用n来统计回文的个数 For Number = 1 To 1000 length = Len(Number)