高二计算机专业第一次模拟考试试题.doc

高二计算机专业第一次模拟考试试题班级：高二微机 姓名： 一、选择题(每题2分，共100分)1、VB可分为（ ）。A)学习版、专家版和企业版 B)中文版、英文版和学习版C)学习版、专业版和企业版 D)内部版、正式版和测试版2、设置对象的属性值是程序设计的重要步骤，关于属性的说明错误的是（）A)属性是一组可以由用户定义的数据 B)属性名称是由用户定义确定的C)属性用来描述对象的性质 D)同一种类型的对象具有相同的属性3、下列文件的扩展名错误的为（）。A)工程文件 .vbp B)窗体文件.frm C)二进制窗体文件.frm D)标准模块文件.bas4、下列关于事件的叙述中不正确的是( )。 A)事件是系统预先为对象定义的能被对象识别的动作 B)事件可分为用户事件与系统事件两类 C)VB为每个对象设置好各种事件，并定义好事件过程的过程名，但过程代码必须由用户自行编写 D) VB中所有对象的默认事件都是Click5、下面4项中不属于面向对象系统三要素的是( ). A）变量 B）事件 C） 属性 D）方法6、下列选项中，为字符串常量的是（ ）。 A) 6/12/2001 B)“6/12/2001” C) #6,12,2001# D) 6,12,2001#7、下列能正确产生1-30之间的随机整数的表达式是( )A)1+rnd(30) B)1+30*rnd()C)rnd(1+30) D)int(rnd()*30)+18、“X是小于100的非负数”，用VB表达式表示正确的是( ).A) 0=X100 B) 0=X=0 AND X100 D) 0=X OR X1009、 假如A为一boolean型数据，则下列赋值语句正确的是( )。A) A=”true” B) A=.true .C) A=#TURE# D) A=3410、表达式2*32+2*8/4+32的值为( )。A) 64B) 31 C) 49D) 2211、日期数据应该在数据的( )括起来。A) 前后各用一个双引号 B) 前后各用一个单引号C) 前后各用一个圆括号 D) 前后各用一个“#”号12、运算符号“&”是( )运算。A) 逻辑与 B) 字符串连接 C) 关系 D) 算术13、设a=2，b=3，c=4，d=5，下列表达式的值是( )。 Not a=b And b10 B) (ab)Or(b0) C) (a0) D) (-3+5a)And(b0)15、下列( )语句可以将变更A、B的值互换A)A=B:B=A B)A=A+B:B=A-B:A=A-B C)A=C:C=B:B=A D)A=(A+B)/2:B=(A-B)/216、下面4项中合法的单精度型变量是( )A）num! B）sum% C）xinte$ D)mm#17、已知A$=”12345678”则表达式Val(Left$(a$,4)+Mid$(A$,4,2)的值为( )A）123456 B）123445 C）8 D） 618、表达式Datediff（”y”,12301999，l132000）的结果是A）10 B）11 C）14 D）9919、IS表达式Len B（”123程序设计ABC”）的值是 ( )A）10 B）14 C）20 D）1720、下列程序段的执行结果为（ ）。X = Int(Rnd + 4)Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 通过Case Else Print 不通过End SelectA) 优秀 B) 良好 C) 通过 D) 不通过21、当条件为5x10时，则x=x+1 ，则以下语句正确的是（ ）。A) if 5x10 then x=x+1 B) if 5x or x10 then x=x+1C) if 5x and x10 then x=x+1 D) if 5x xor x10 then x=x+122、有如下程序，该段程序将（ ）。For I=1 to 10 step 0 K=k+2Next IA)形成无限循环 B)循环体执行一次后结束循环C) 语法错误 D) 循环体不执行即结束循环23、多分支选择结构的Case语句，下列写法错误的是（ ）。A) Case 1,5,7,9 B) Case 8 to 10C) Case 10 to 2 D) Case Isman24、下列循环语句将执行（ ）次。A=1000DO Print a A=A+1Loop while a= 3 x = x + 2 k = k + 1 LoopA) 2 B) 4 C) 6 D) 828、下列程序段的执行结果为( )。X=6For K=1 To 10 Step 2 X=X+KNext KPrint K; XA) 1 6 B) 1 16 C) 1 6 D) 11 3129、以下是计算10的阶乘的程序，请补充该程序。Dim t%,k%K=0:t=1Do While ( ) K=k+1 T=t*kLoopPrint tA) K10 C) k=10 D) K=1030、设a=6，则执行 x=Iif(a5,-1,0)后，x 的值为( )。A) 5 B) 6 C)0 D) -131、下列语句能正常结束循环的是( )A）i=5 B) i=1Do Doi =i+1 i=i+2loop Until i0 loop Until i=132、语句If x=1 then y=1,下列说法正确的是( )A）X= 1和y= 1均为赋值语句 B）x=l和y=1均为关系表达式C）x=1为关系表达式，y=1为赋值语句 D）X=1为赋值语句，y=1为关系表达式 33、 结构化程序由3种基本结构组成，下面属于3种基本结构之一的是( )A）递归结构 B）选择结构 C）过程结构 D）输入、输出结构34、为了给x,y,z这3个变量赋初值1,下面正确的赋值语句是( )A）x=1:y=1:z=1 B）x=1,y=1,z=1 C）x=y=z=1 D）xyz=135、赋值语句：a=123+MID(“123456”,3,2)执行后，a变量中的值是( )A）”1234” B）123 C）12334 D）15736、下面If语句统计满足性别为男、职称为副教授以上年龄小于40岁条件的人数，不正确的语句是( )A)If sex=”男性 And age0 Then n=n+1B) If sex=”男性 And age0 Then n=n+1C) If sex=”男性 And age40 Right(duty，2)=”教授 “Then n=n+1D) If sex=”男性 And age100 S=S+n N=n+1 Loop Print sA) 5050 B) 2500 C) 3000 D) 400038、下列程序的执行结果是( )。Dim a(5) As StringDim b As IntegerDim I As IntegerFor I = 0 To 5 a(I) = I + 1 Print a(I);Next IA) 123456 B) 6 C) 1 2 3 4 5 6 D) 039、数组Dim D(3,1 To 10,1 To 15)有( )元素A) 100B) 600 C) 30D) 45040、如下数组声明语名，正确的是( )A)Dim a3,4 As Integer B) Dim a(3,4) As IntegerC) Dim a(n,n) As Integer D) Dim a3,n As Integer41、已知有数组声明：Dim a(-1 To 3,2 To 5) As Integer,如下引用数组中的元素，正确的是( )A) a(-1,2) B)a(4) C)a-1,2 D)a(0,6)42、我们定义一个数组A，给它赋值，然后将该数组的最后一个元素的值赋予变量B，则下列程序正确的是( )。A) Dim a(5) as integer B)Dim a(5) as integer For I=0 to 5 For I=0 to 5 A(I)=I+1 A(I)=I+1 Next I Next I B=a5 b=a5C) Dim a(5) as integer D) Dim a(5) as integer For I=0 to 5 For I=0 to 5 A(I)=I+1 A(I)=I+1 Next I Next IB=a(8) B=a(5)43、下列程序段的执行结果为( )。Dim A(10), B(5)For I = 1 To 10 A(I) = INext IFor J = 1 To 5 B(J) = J * 20Next JA(5) = B(2)Print A(5)=; A(5)A) A(5)=5 B) A(5)=10 C) A(5)=20 D) A(5)=4044、在以下事件过程中，Private表示（ ）。 Private Sub lblAbc_Change() End SubA) 此过程可以被任何其它过程调用B) 此过程只可以被本窗体模块中的其它过程调用C) 此过程不可以被任何其它过程调用D) 此过程只可以被本工程中的其它过程调用45、 用( )关键字声明的局部变量在整个程序运行中一直存在。A) Static B) Private C) DimD) Public46、要想从子过程调用后返回两个结果，下面子过程语句说明合法的是( )A)Sub f2(ByVal n%,ByVal m%)B)Sub f1(n%,ByVal m%)C)Sub f1(n%,m%) D)sub f1(ByVal n%,m%)47、假定有以下两个过程：Sub s1(ByVal x As Integer,ByVal y As Integer)Dim t As Integert=xx=yy=tEnd SubSub S2(x As Integer,y As Integer)Dim t As Integert=x：x=y：y=tEnd Sub则以下说法正确的是( )A)用过程S1可以实现交换两个变量的值的操作，S2不能实现B)用过程S2可以实现交换两个变量的值的操作，S1不能实现C)用过程S1和S2都可以实现交换两个变量的值的操作D)用过程S1和S2都不可以实再交换两个变量的值的操作48、函数过程的叙述正确的是( )。A) 函数名只能被赋值一次 B)函数名没有赋值,就没有函数值返回调用过程中C) 函数名可以多次被赋值 D) 定义函数的类型是指定义虚参的类型49、在过程定义中用( )表示形参的传值。A)Var B)ByDef C)ByVal D)Value50、下面过程运行后显示的结果是（ ）。Public Sub F1(n%,ByVal m%)N=n mod 10M=m10End SubPrivate Sub Command1_Click( )Dim x%,y%X=12:y=34Call F1(x,y)Print x,yEnd SubA)2 34 B)12 34 C)2 3 D)12 3二、填空题(每空1分，共41分)1、在程序中使用日期型数据时，必须用符号 将日期型数据括起来。2、在VB对象的三要素中，可以把 看作一个对象的性质，把 看作对象的响应，把 看作对象的动作。3、VB有三种工作模式，它们分别是 模式、 模式和 模式。4、结构化程序设计方法，把程序的结构规定为三种基本结构，它们是： 、 、和 _三种基本结构。5、VB逻辑数据类型只有True与False两个值。当逻辑数据转换成整型数据时，True 转换为 ，False转换为 。6、VB中依据变量的作用范围将VB变量的作用范围分为三类，它们是： 变量、 变量和 变量。7、VB中，对控件（对象）一些属性的设置，即可以通过在 中设置，也可以在 中设置，两种方法来设置。8、在VB中，静态数组声明中的下标只能是 。而动态数组Redim语句中的下标还可以变量。9、产生100200之间（含100和200）的随机整数的表达式是： 。10、表达式4 AND 5 的运算结果是 。11、VB中，用Option Base 1说明后，Dim A（5，5）定义的数组有 个元素。12、表达式“12345”“12345”&“ABC”的值是 。13、A=7，B=3，C=4，则表达式A MOD 3 +B3/C5的值为 。14、在ForNext循环中，循环次数由循环控制变量的初值、终值与步长三个因素决定，其计算公式为 。15、字符串常量由任何ASCII字符组成，在程序中，它必须由 括起来。16、在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用具有 关键字的ReDim语句。17、VB有两种类型的数组：固定大小的 和在程序运行时可以改变的 。18、 与数学表达式cos3（2）相对应的Visual Basic表达式是_。19、 表达式”ABC”Abc”的值为_。20、表达式#200105-01#31的值为_。21、VB是一种面向 的程序设计语言，采用了 编程机制。22、Visual Basi提供的标准数据类型整型类型声明时，其类型关键字是 ；其类型符是 。23、Tiem（”口口ASCII口口”）的结果 ； RTie m(”口口ASCII口口口”)的结果 。LTi em(”口口ASCII口口口”) 的结果 。 注；口 表示空格。24、设a=2，b=3，c=4，d=5，下列表达式的值是 。 Ab and cd or c=a25、执行语句“a=6=5”后，变量a的值为 。26、Mid$（”什么是ASCII码”,4,6）的结果 。三、判断题（每题1分，共10分）1、VB中的算术运算符*(乘)、/(除)、(整除)、Mod(取余数)的运算优先级相同。 2、VB中的事件只能由用户引发3、已知三角形的两边分别为a、b，它们的夹角为60度，在VB中可用公式(a * b * Sin(60) / 4、2)求出该三角形的面积。 5、条件语句在执行过程中会根据逻辑表达式的值选择执行哪部分语句。 6、在一个循环语句的循环体中含有另一个循环语句，就形成了嵌套循环。7、程序循环结构中的循环体语句至少会执行一次。8、在VB的同一个表达式中，不能同时进行数值运算和字符串运算。9、8.5 3 表达式的值是2。10、“.vbp”文件是工程文件，该文件可在非VB环境下执行。四、阅读下列程序，写出运行结果（5题，每题5分，计5X5=25分）1.在Activate事件过程中，写入下面的程序Option Base 1Private Sub Form_Activate() Dim t As Integer, I%, j%, inum% Dim A() As Variant A = Array(2, 4, 6, 8, 10, 1, 3, 5, 7, 9) For I = UBound(A) To 2 Step -1 inum = I For j = 1 To I - 1 If A(j) A(inum) Then inum = j Next j t = A(I): A(I) = A(inum): A(inum) = t Next I For j = 1 To UBound(A) Print A(j); Next jEnd Sub当运行程序后，显示的结果是2.在窗体上设置相应的控件，并在代码窗口编写下列程序Private Sub Form_Click() Dim a As String, b As String a = InputBox(请输入一个字符串) b = Call P(a, b) Print bEnd SubPrivate Sub P(x As String, y As String) Dim k As Integer k = Len(x) For i = 1 To k y = Left(x, i) Print y Next iEnd Sub运行程序，在InputBox框中输入abcd，然后单击输入框的“确定”按钮，则输出结果是 3.在Activate事件过程中，写入下面的程序Private Sub Form_Activate() Dim Arr(1 To 3, 1 To 3) As Integer，s as integer S=0For i = 1 To 3 For j = 1 To 3 Arr(i, j) = 0 If i = j Or i + j = 4 Then Arr(i, j) = 1Next jnext i For i = 1 To 3 For j = 1 To 3 Print Arr(i,j);s=s+Arr(i,j) Next j PrintNext i Print sEnd Sub当运行程序后，显示的结果是4在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer, static n As Integer x = 1 Do While x b Then x = a - b - x Else x = a + b + x End If Loop Print a; b; xEnd Sub 程序运行后，单击命令按钮，依次在输入对话框中输入6、5、4、-1、1、-1，则输出结果：五、完善程序, 根据所给题目要求及程序，填写程序空白部分(4题，每题两空，每空5分，共5X8=40分)1. 对具有10个数的数组，求最大值及其下标、平均值，数组中超过平均值的个数，并显示数组的值和计算的结果。Option Base 1Private Sub Form_click()Dim x, max%, imax%, s%, n%, avg%, kx = Array(1, 10, 3, 8, 5, 6, 7, 4, 9, 2)max = x(1): imax = 1: s = x(1)For i = 1 To 10 Print x(i); s = s + x(i)If x(i) max Then _【1】_ Next iavg = s / 10PrintFor Each k In x If 【2】 Then n = n + 1 Next kPrint max, imax, avg, nEnd Sub2. 将数组的元素赋值，并将数组第一个元素与最后一个元素交换，第二个元素与倒数第二个元素交换，以此类推，然后将数组元素输出。Private Sub Form_Activate() Dim t As Integer Dim a(0 to 10) As Integer For j = 0 To 10 a(j)=a(j)+2*j Next j For i = 0 To 10 2 t = a(i)_ 【1】_ _ 【2】_ Next i For j = 0 To 10 Print a(j); Next j End Sub3找出能同时被7和17整除的最小的五个数。Private Sub Form_Click()Dim n&, CoundN% Do While true n = n + 1 If _ 【1】_ Then Print n; CoundN = CoundN + 1 End If If CoundN = 5 Then _ 【2】_ LoopEnd Sub4. 下列程序为计算3!+4!+5!+6!的阶乘和Function fact(m%) As Single Dim i As Integer total = 1 For i = 1 To m total = total * i Next i _ 【1】_ End FunctionPrivate Sub Form_Click() Dim x As Integer, s As Double For x = 3 To 6 _ 【2】_ Next x Print “阶乘和为”；sEnd Sub六、根据所给程序的功能，找出错误的语句，把正确的语句写到错误语句的后面。(每题两处错误，改对一处3分共3X8=24分)1计算1*3*5*n累积的值，n为任意奇数，并显示此算式(若n值输入为9，则输出界面为下图)。Sub Form_Activate() Dim n%, k%, s# n = Val(InputBox(请输入n值:, n值) k = 1 s = 0 Print k; Do While k 301/x+|8x| x153x-2 30x15 Next i End Sub3. 下列程序为计算如下分段函数 ,并输出结果。Private Sub Form_Click() Dim x As Single Dim y As Single x = Val(InputBox(input x : ) If x = 0 Then If x 30 Then y = x * x + 2 ElseIf 30 = x = 15 Then y = 3 * x - 2 End If Else MsgBox x=0,y值无法计算 End If MsgBox yEnd Sub4. 下面的程序为由键盘输入一个字符，判断该字符为“字母”、“数字”、还是“其它字符”。Private Sub form_Click() Dim x As String * 1 x = InputBox(请输入单个字符) Select Case Case a To z, A To Z Print 所输入字符为字母 Case 0 To 9 Print 所输入字符为数字 Case Print 所输入字符为其它字符 End SelectEnd Sub