1、7、假定X是一个数值型变量,那么由函数组成的表达式INT(X/2)=X/2( A、用于测试X是否偶数 B、返回一个整数 C、返回一个奇数 D、用于测试X是否整数8、要改变新建对象的缺省名称,应使用属性( A、 Font B、ForeColor C、Name D、Height9、如果下面程序执行后输出的结果是132,那么在程序until后面的“条件”应为(i=12:s=1DOs= s * i第11题i = i1LOOP UNTIL “条件”PRINT sENDA、i 11 B、i =11 C、i D、i1110、给出以下一个算法的程序框图(如图所示),该程序框图的功能是(A、求输出a,b,c三数
2、的最大数 B、求输出a,b,c三数的最小数C、将a,b,c按从小到大排列D、 将a,b,c按从大到小排列11、右边的程序框图(如图所示),能判断任意输入的数x的奇偶性:其中判断框内的条件是(A、m=0B、x=0C、x=1D、m=112、要使一个命令按钮显示文字“确定”,正确的设置是把该命令的( A、属性Font设置为“确定” B、属性.ForeColor设置为“确定” C、属性Caption设置为“确定” D、属性BorderStyle设置为“确定”13、表达式Abs(-3.6)*sqr(100)的值是( A、-360 B、360 C、-36D、3614、下面程序运行后的输出结果为(i=1do
3、 WHILE i8i=i+2s=2*i+3loopA、17B、19 C、21 D、2315、下列Visual Basic程序段运行后,变量a,b,c的值为( a=1:b=1:c=1 Do While a+b+cSqr(y) A、7 B、8 C、9 D、1017、下列Visual Basic程序段运行后,变量s的值为(a=2:s=0For I=10 To 6 Step-1 s=s+a c=a+b a=b b=c Next I A、10 B、17 C、6 D、2818、在Visual Basic中程序段是计算( )公式的。 For I=1 To 10 t=1for j=1 to it=t*Inex
4、t js=s+t A、s=1+2+3+4+5+6+7+8+9+10 B、s=1*2*3*4*5*6*7*8*9*10 C、s=1!+2!+3!+4!+5!+6!+7!+8!+9!+10! D、s=1+2*3+3*4+4*5+5*6+6*7+7*8+8*9+9*1019、下列Visual Basic程序段运行后,变量s、t的值为(s=0:t=1 For k=2 To 4 s=s+k t=t*k Next k A、2 2 B、9 24 C、5 6 D、0 120、下列Visual Basic程序段运行后,变量max的值为( a=5:b=10:max=a IF bmax Then max =b A、
5、5 B、10 C、5和10 D、以上都不是二、填空题(每空1.5分,共30分)1、打印出如下图1222 33333 444444455555555566666666666程序如下:Private Sub Command1_Click() For i=1 to _ print tab(20-i)For j=1 to _ Print_ Next j Print Next iEnd Sub2、下列程序的功能是从键盘上任意输入一个数,判断这个数是正数、负数、还是零,并输出判断结果。程序中有三处错误,请更正。 Dim a As Single Dim py As String a=Val(Text1) I
6、f a0 Then py=正数 If a=0 Then py=零 If a=0 Then py=负数 Label3.Caption=a_3、完善程序,使能输出:1-2+3-4+5-6+.+99-100的值。 s=_ For i=1 To _ s=s+(-1)(_)*i Print s4、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c,其中a不等于0。修改程序,求方程的根。要求:如果方程无实数根,则输出“无实数根”,否则输出两个实数根。 Dim a,b,c,d As Single Dim x1,x2 As Single a=Val(Text1.Text) b=Val(Text2
7、.Text) c=Val(Text3.Text) d=b2-4*a*c If d_ Then x1=(-b+Sqr(d)/(2*a) x2=(-b-Sqr(d)/(2*a) Label1.Caption=x1 Label2.Caption=x2 _ Label3.Caption=_ End If5、下面的程序是求7!(7!=1*2*3.*6*7)的值,并在默认窗口输出这个值。 a=0 For i=1 to n a=a*i Print i6、下面的程序是求100以内奇数和s的值(S=1+3+5+7.+99)。 Dim s As Single Dim i As Single s=1 For i=1
8、 to 100 Step 1 s=s*i Print s 7、完善其中的程序,使能输出如下图形。- - * * * * * *- - - - * * * * * *- - - - - - * * * * * *- - - - - - - - * * * * * *- - - - - - - - - - * * * * * *- - - - - - - - - - - - * * * * * *-表示空格 For i=1 To 6 Print Tab(_); For j=1 To_ Print *Next jPrintNext i三、简答题(每题10分,共30分)1、已知一个三角形的三边长分别为
9、a,b,c ,求这个三角形的面积。设计一个算法解决这个问题。(用自然语言描述并写出伪代码)2、设计算法求 的值,要求画出程序框图,用基本语句编写的程序。3、某电信部门规定:拨打市内电话时,如果通话时间不超过3分钟,则收取通话费0.2元,如果通话时间超过3分钟,则超过部分以每分钟0.1元收取通话费(通话不足1分钟时按1分钟计),试设计一个计算通话费用的算法。要求写出算法,画出程序框图,编写程序。算法与程序设计选修模块段考试题(20052006学年度第二学期)答 案 卡234567910121314151617181920二、填空题(每题1.5分,共30分)1、_2、_3、_4、_5、_6、_7、
10、_三、简答题(第一小题6分,第二、三小题各12分,共30分)参 考 答 案BACD1、6i i2、Val(Text1)改为Val(Text1.Text) a =0改为a 0Else无实数根5、a = 0改为a = 1 n改为7Print i改为Print a6、s = 1改为s = 0Step 1改为Step 2s = s * i改为s = s + I7、2*i 1、算法步骤如下:第一步,输入a,b,c的值;第二步,计算 的值;第三步,计算 的值;第四步,输出S的值.伪代码:2、解 这是一个累加求和问题,共99项相加,可设计一个计数变量,一个累加变量,用循环结构实现这一算法.程序框图如右图所示程序:S=0K=1Dos=s+1/k(k+1)k=k+1LOOP UNTIL k99PRINT sINPUT tIF t= 3 THENc=0.2ELSEc=0.2+0.1(t-3)END IFPRINT c3、解 我们用c(单位:元)表示通话费,t(单位:分钟)表示通话时间,则依题意有 算法步骤如下:第一步,输入通话时间t;第二步,如果t3,那么c = 0.2 ;否则令 c = 0.2+0.1 (t3);第三步,输出通话费用c