计算机导论综合练习.docVIP

计算机导论综合练习 一、程序分析 Private Sub Form_Click() x = 1 : n = 0 Do while x15 x = x * 2 n = n + 2 Loop Print “x =”; x; “n =”; n End Sub x=16 n=8 Private Sub Command1_Click() Dim m As Integer, n As Integer m = 9 : n = 30 If m n then t = m : m = n : n = t End If Do While n 0 r = m Mod n m = n n = r Loop print “m = “; m; “n = ”; n End Sub m=3 n=0 Private Sub Command1_Click() Dim I As integer, n As Integer n = 1 For I = 0 To 50 I = I + 3 n = n + 1 If I 20 Then Exit For Next I Print “n=”, n End Sub n=8 Private Sub Command1_Click() n = 10 : m Print m = 1 : k = 1 Do while k = n M = m * 2 k = k + 1 Loop End Sub m=1 k=1 Private Sub Command1_Click( ) For i = 1 To 4 x = 4 For j = 1 To 3 x = x + 6 Next j Next i Print x End Sub Private Sub Form_Click() a = 1 For j = 1 To 15 a = a + j Mod 4 Next j Print “a =”; a End Sub  Private sub form1-click() Dim x, y as integer x=0 y=0 do while x=10 x=x+1 if x mod 2 =0 then y=y+1 endif loop print y=,y end sub Private Sub Command1_Click ( ) x = 0 Do While x -1 a = InputBox(“请输入A的值”) a = Val(a) b = InputBox(“请输入B的值”) b = Val(b) x = InputBox(“请输入X的值”) x = Val(x) a = a + b + x Loop Print “a = ”; a End Sub 设在输入对话框中依次输入5、4、3、2、1、-1，则输出结果是什么？ 二、程序设计 1、设命令按钮的程序功能是： 根据卡车运输重量计算运输费用。计算方法如下： 100元基数 1吨 费用= 每吨加收25元 1吨~5吨 每吨加收30元 5吨 同时为了做好客户营销，每次收费最多不超过300元。 2、分别统计1~100中，满足3的倍数、7的倍数的数各为多少个？ 3、求100以内的素数（只能被本身和1整除）之和 4、设命令按钮的程序功能是： 根据运行阶段从文本框输入的年号和月份，判断该年是否闰年，并依据输入的月份采用多分支选择结构Select Case来判断是什么季节，将判断结果在Label3中输出。提示：闰年的条件是年号能被4整除但不能被100整除，或者能被400整除；每年3～5月为春季。 5、统计2~50中，满足5的倍数的数之和？ 6、求100以内的素数的最大值。 7、程序功能是计算： N = 1 +（1 + 3）+（1 + 3 + 5） + …… +（1 + 3 + 5 + …… + 39） 并将最终结果在屏幕上输出显示。要求结果存放于变量sum中 8、计算1 + 3 + 32 + 33 + …… + 310 的值 9、程序功能是计算1*2*……*3000，当积大于3000时停止计算，并将循环次数和最终结果在屏幕上输出显示。要求结果存放于变量sum中 10、程序的功能是求正整数n的各个位上的数字之和s 11、求1！+2！+3！+。。。。。。+n！的和