2010VB复习材料4 5 编程 写运行结果题.docVIP

四、编程题（20分，每题10分） 1．求1！+ 2！+ 3！+ …… + N！不大于100000的最大值。 Private Sub Command1_Click() s = 0 n = 1 t = 1 Do While (1) t = t * n s = s + t If s 100000 Then Exit Do n = n + 1 Loop Print s=; s, n=, n End Sub 2.编写程序，打印如下图形。 Private Sub Command1_Click() For i = 1 To 5 For j = 1 To i Print ; Next j Print Next i End Sub 3. 编写程序，当用户单击命令按钮Command1时，能弹出一个输入对话框，如果用户输入的是一个能同时被3和7整除的整数就打印该数，否则打印“AAAAA”。 Private Sub Command1_Click() x = InputBox(请输入, 输入, 1) If x Mod 3 = 0 And x Mod 7 = 0 Then Print x Else Print AAAAA End Sub 5. 打印水仙花数(所谓水仙花数是一个三位数，每的三个位上的立方的和是该数本身。) 6. 产生10个10——100之间的数据（整型），从小到大排序。 Private Sub Command1_Click() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd * 91) Next i For i = 1 To 9 k = i For j = i + 1 To 10 If a(k) a(j) Then k = j Next j If i k Then t = a(i): a(i) = a(k): a(k) = t Next i For i = 1 To 10 Print a(i); Next i End Sub 6. 野鸡和兔子共43只，且共有100条腿。编程求各有多少只。 7. 输出以下图形： 8. 产生10个10——100之间的数据（整型），从小到大排序. 9.从键盘输入一个正整数n，计算sum=12-22+32-42+…+(n-1)2-n2。 Private Sub Command1_Click() n = Val(InputBox(请输入n, 输入, 100)) S = 0 T = -1 For I = 1 To n T = T * (-1) S = S + T * I * I Next I Print s=; S End Sub 9.编程求解“百钱买百鸡” 问题：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问翁、母、雏各几何？ Private Sub Command1_Click() For x = 1 To 100 For y = 1 To 100 For z = 1 To 100 If x + y + z = 100 And 5 * x + 3 * y + z * 1 / 3 = 100 Then Print x; y; z Next z, y, x End Sub 10.求斐波那契级数的前20项。斐波那契级数的第一项、第二项值为1，从第三项开始，每一项的值是前两项值之和，级数形式是：1，1，3，5，8，……。 五、写运行结果 Private Sub Form_Click() x = Int(Rnd) + 3 If x ^ 2 8 Then y = x ^ 2 + 1 If x ^ 2 = 9 Then y = x ^ 2 - 2 If x ^ 2 8 Then y = x ^ 3 Print y End Sub 程序运行结果为：7 Private Sub Form_Click() Dim k As Integer, n As Integer, m As Integer k = 1: m = 1234: n = 5 Do While k = n m = m \ 2 k = k + 1 Loop Print m End Sub 程序运行结果为：38 Private Sub Form_Click() Dim x(3, 5) As Integer, i As Integer For i = 1 To 3 For j = 1 To 5 x(i, j) = x(i - 1, j - 1) + i + j