信息技术学业水平考试样题(程序设计).doc

算法与程序设计机考样题一、 单项选择题1.判断x是否在区间（a, b上，在VB中以下哪个逻辑表达式是正确的？（ ）。 A.ax=b B.aa And xx And xb or b=3的值是（ ）。 A.false B.true C.-1 D.1 3.下列结果为True的逻辑表达式是（ ）。A. Not(38) B.(310) C.(38)And(58)Or(510) 4.表达式abs(int(3.4)*sqr(100)的值是（ ）。 A-340 B-34 C30 D405.在VB语言中，表示“a大于5或b小于0” 的正确表达式是（ ）。A 0 b or a 5 And b 5 Or b 0 And b 56. 在VB语言中，表示“x是奇数” 的正确表达式是（ ）。Aint(x/2)=x/2 Bint(x/2)x/2 (x是整数)Cint(x/2)x/2 Dint(x/2)=x/2 (x是整数)二、多选题1下列表达式的值为6的有哪几项.( )A. 7*7-43 B. ABS(6.6) C. INT(3.9)*2 D. SQR(49)-12. 在VB语言中，表示“x是偶数” 的正确表达式是（ ）。Aint(x/2)=x/2 Bx mod 20Cint(x/2)x/2 Dx mod 2=03.下面是判断变量X是不是能被5整除的偶数的程序，横线上的逻辑表达式应为（ ）Dim x as IntegerX=Val(Text1.text)If_thenLabel1.Caption=这个数是能被5整除的偶数ElseLabel1.Caption=这个数不是能被5整除的偶数End ifA. (x mod 5)=0 and (x mod 2)=0 B. x mod 10=0 C. x mod 5=0 D. x mod 2=0 E. x/2=int(x/2) and x/5 and x/5 F. x/10=int(x/10)三、填空题1、从键盘输入圆的半径R，输出圆的周长L和面积S。Dim R As SingleDim L As Single Dim S As Single _=InputBox(输入半径R ) L=2*3.14*RS=3.14*R*RPrint 圆的周长L= ;LPrint 圆的面积S= ;S2、某航空公司行李托运收费标准是：10公斤及其以下，不收费，超过10公斤则每公斤收费2.5元。Dim X As SingleDim Y As Single X=InputBox(输入行李重量) If x=10 Then Y=0 Else Y=_ End If Print 行李费= ;Y3编写程序计算表达式a=|-3.6|+123sin30的值（圆周率的值取3.14，计算结果用取整函数保留整数部分，每小题3分，共12分）。 |-3.6|写成VB表达式应为：_ sin30写成VB表达式应为：_ 在VB环境下编写程序并运行：Private Sub Command1_Click() Dim a As Single a = Abs(-3.6) + 123 * Sin(30 * 3.14 / 180) a = Int(a) Print aEnd Sub 该程序的运行结果是：_4完善下列程序段，使其能将从键盘上输入的两个不同的数中小的那个选出来。 Dim a As SingleDim b As SingleDim Min As Single a=InputBox(输入a) b= InputBox(输入b) If ab Then _ Else Min=b End If Print Min=;Min5计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。 Dim X As Single Dim Y As Single X=InputBox(输入行李重量) If x=20 Then Y=0 Else Y=_ End IfPrint 行李费= ;Y6有如下VB程序段，写出该程序段的运行结果。Dim a As IntegerDim b As IntegerDim t As Integera=22b=33t=aa=bb=tPrint b运行结果：_7有如下VB程序段，写出该程序段的运行结果。 Dim a As Single, b As Single a=-43.25 b=Int(a) Print b 运行结果：_8.某房租收费标准如下：若住房面积在100平方米及其以下，每平米收费2.6元；若在100平米以上，则其超过部分每平米收费增至3.5元。 Dim X As Single Dim Y As Single X=input(“请输入住房面积x=”;”输入”) If x=0 then X1=(-b+sqr(d)/(2*a) X2=_Else Print ”此方程无实根”Endif13.有一张单据上有一个5位数的号码67 8，其中百位和十位上的数字看不清了，但知道该数能够被78整除，也能被67整除，下面是用穷举法求出该号码的程序段。Dim a as integer,b as integerDim m