vb总复习综合编程题.docVIP

总复习综合编程题 1.用VB编写百钱买百鸡,公鸡5块钱一只,母鸡三块.小鸡一块3只,While gj = 20 gj = gj + 1 mj = 0 While mj = 33 mj = mj + 1 xj = 100 - gj - mj If gj * 5 + mj * 3 + xj / 3 = 100 Then Print 公鸡 母鸡 小鸡 Print gj; mj; 100 - gj - mj End If Wend Print Wend // 方法2 Private Sub Command1_Click() Do While gj = 20 gj = gj + 1 mj = 0 Do While mj = 33 mj = mj + 1 xj = 100 - gj - mj If gj * 5 + mj * 3 + xj / 3 = 100 Then Print 公鸡 母鸡 小鸡 Print gj; mj; 100 - gj - mj End If Loop Print Loop End Sub // 方法3 Dim i, j, k, n As Integer For i = 1 To 20 For j = 1 To 33 k = 100 - i - j If i * 5 + j * 3 + k * 1 / 3 = 100 Then n = n + 1 Print 公鸡： i 母鸡： j 小鸡： k End If Next j Next i Print 共有组合： n 2. P159 (4)编一程序，显示100 – 999之间的所有百十个位的水仙花数。所谓水仙花数，是指一个3位正整数，其各位数字的立方和等于该数字本身。例如：371是水仙花数，因为371 ＝ 33 + 73 + 13。 方法1 Dim a As Integer, b As Integer, c As Integer Dim n As Integer, m As Integer Dim s As String m = 0 For n = 100 To 999 a = n \ 100 b = (n \ 10) Mod 10 c = n Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = n Then m = m + 1 s = 第 Str(m) 个水仙花数为： Print s; n; Print 百十个位：:; a; b; c End If Next n // 方法2 Dim i As Integer, j As Integer, k As Integer Dim n As Integer, m As Integer Dim s As String m = 0 For n = 100 To 999 i = n \ 100 j = n \ 10 - i * 10 k = n Mod 10 If i ^ 3 + j ^ 3 + k ^ 3 = n Then m = m + 1 s = 第 Str(m) 个水仙花数为： Print s; n End If Next n 3、在文本框Text1中输入一个n值，单击“求阶乘的和”的命令按钮Command1，则在文本框Text2中输出1！+ 2！+ 3！+ … + n!之和。请编写按钮的单击事件。 Private Sub command1_Click() 方法1 Private Sub Command1_Click() Dim I As Integer, f As Double, n As Integer n = Val(InputBox(n!=)) f = 1 For I = 1 To n Step 1 f = f * I Next I Print n; !=; Str(f) End Sub Private Sub Command2_Click() End End Sub // 方法2 Dim n As