职高15-16第一-学期中VB试题答案

竖 线 左 侧 不 准 答 题 20102011学年第一学期期中考试试卷高三职高VB试题题号一二三四五总分得分一 、选择题（每小题2分,共40分）1、 下列说法错误的是（ ）A) 标准模块的扩展名是.basB) 标准模块由程序代码组成C) 标准模块只用来定义一些通用的过程D) 标准模块不附属于任何一个窗体2、如果要将窗体中的某个命令按钮设置成无效状态，应动命令按钮的何种属性A) ValueB) VisibleC) DefaultD) Enabled3、 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（ ）A) 设置Enabled的值为TrueB) 设置TabIndex的值为1C) 设置TabIndex的值为0 D) 设置Index的值为04、 下列几项中，属于合法的日期型常量的是（ ）A) 10/10/02B) 10/10/02C) 10/10/02D) #10/10/02#5、 下列程序段的执行结果为（ ）A=2：B=5If A * B 0A) TrueB) FalseC) -1D) 16、假定定时器的Interval属性值为1000,Enabled属性值为True,调用下面的事件过程,程序运行结束后,变量X的值为( )Private Sub Timer1_Timer()Dim x As IntegerFor i = 1 To 10x = x + 1Next iPrint xEnd SubA)1000 B)10000 C)10 D)以下都不对7、 标签控件能够显示文本信息，决定其文本内容的属性是（ ）A) AlignmentB) CaptionC) VisibleD) BorderStyle8、如果要声明一个全局性的符号常量，则应将该声明放在（ ）A、过程中 B、窗体模块的通用声明段中C、标准模块的通用声明段中 D、窗体模块或标准模块的通用声明段中9、在窗体的通用段声明变量时，不能使用的（ ）关键字A、Dim B、Public C、Private D、Static10、以下常量中，不合法的是（ ）A、True B、#1999-12-01# C、1999-12-01 D、False11、设b的值为7，表达式为“x=b=7”,则运算后表达式的值为（ ）A、True B、b=7 C、7 D、b12、能产生30100之间随机数的表达式为（ ）A)Int(71*Rnd)+30 B)Int(100*Rnd)+30 C)Int(70*Rnd) D)Int(100*Rnd)13、 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s =30 Print Number, s End Sub程序运行后，输出的结果是( )A) 2 3B) 2 56C) 5 12D) 10 2014、下列程序段的执行结果为( )x=Int(Rnd() + 9)Select Case xCase 10Print excellentCase 9Print goodCase 8Print passCase ElsePrint failEnd SelectA) excellentB) goodC) passD) fail15、下列程序段的执行结果为( )a=75If a 60 Then Score=1If a 70 Then Score=2If a 80 Then Score=3If a 90 Then Score=4Print Score=; ScoreA) Score=1B) Score=2C) Score=3D) Score=416、下列程序段的执行结果为( )I=1：x=5Do I=I + 1：x=x + 2Loop Until I =7Print I=; IPrint x=; xA) I=4x=5B) I=7 x=15C) I=6x=8D) I=7 x=1717、下面的程序的运行结果是( )a=1:b=1Do a=a2 b=b + 1Loop Until b 5Print k=; a; Spc(4) ; b=; b + aA) k=7b=14B) k=6 b=6C) k=4 b=8D) k=1 b=718、 单击命令按钮，下列程序的执行结果为( )Private Sub Command1_Click() Dim x As Integer, y As Integer x=32: y=42 Call PCS(x, y) Print x; yEnd SubPublic Sub PCS(Byval n As Integer, ByVal m As Integer) n=n Mod 10+1m=m Mod 10+1End SubA) 32 42B) 2 32C) 2 3D) 12 319若要获得列表框中被选中的列表项的内容，可以通过访问（ ）属性来实现。 AName BListIndex CListCount DText20、在代码中定义了一个子过程：Sub P(a,B).End Sub下面_调用该过程的格式是正确的。( )A)Call P B)Call P 10,20 C)Call P(10,20) D)P(10,20)二、判断题(把答案涂在卡上,对的涂A,错的涂B,每题2分,共20分)1、若要使某命令按钮获得控制焦点，可使用GotFocus方法来设置。2、标准模块中的全局变量可以被工程中的其他模块调用，而公共的过程可以被窗体模块的任何事件调用。3、Dim a1,a2 as integer 语句显式声明变量a1和a2都为整型变量。4、函数Len(abc d+space(5)的值是5。5、计时器（Timer）控件的Interval属性的单位是毫秒，即若将此属性值设为 10，则每0.01秒产生一次Timer事件。6、 For k = 1 to 40 Step 2表示该For语句循环执行了20次。7、表达式：36.51 Mod 3 +253的值是12。8、表达式：123+456的值为579。9、表达式：Val（Len（北京欢迎你！）+10的值为：16。10、表达式：Str(Len(-56.66) + Str(Val(66.6e2cd)的值为6 6660。三 、填空题（1-10每小题6分，11-12每10分，共80分）1、该程序的运行结果为 Function total(x As Integer) As Long Dim ss As Long, i As Integer ss = 0 For i = 1 To x ss = ss + i Next i total = ssEnd Function下面是调用它的事件过程。Private Sub Command1_Click()Dim i As Integer, sum As LongFor i = 1 To 5 sum = sum + total(i)Next iPrint 和数为：; sumEnd SubA55 B.15 C.5 D.352、下列程序的执行结果为 Private Sub Command1_Click() Dim s1 As String, s2 As String s1=abcd Call Transfer(s1, s2) Print s2End SubPrivate Sub Transfer (ByVal xstr As String, ystr As String) Dim tempstr As String i=Len(xstr) Do While i =1 tempstr=tempstr + Mid(xstr, i, 1) i=i - 1 Loop ystr=te mpstrEnd Sub3、 单击命令按钮，下列程序的执行结果是( )Private Sub Blck(x As Integer)x=x * 2 + 1If x 6 ThenCall Blck(x)End Ifx=x * 2 + 1Print x;End SubPrivate Sub Command1_Click()Blck 2End Sub4、运行下面的程序后，单击命令按钮，输出结果为 Private Sub Command1_Click()Dim a As Integera=2For i=1 To 3Print Gad (a)Next iEnd SubFunction Gad (a As Integer)b=0Static cb=b + 1c=c + 1Gad=a + b + cEnd Function5、单击窗体时，下列程序的执行结果为 Sub proc1(x As Integer, ByVal y As Integer, z As Integer)x = 3 * zy = 2 * zz = x + yPrint x, y, zEnd SubPrivate Sub Form_Click()Dim x As Integer, y As Integer, z As Integerx = 1: y = 2: z = 3Call proc1(x, x, z)Call proc1(x, y, y)End Sub6、执行下面的程序后，第1行输出 ，第2行输出 Option ExplicitPrivate Sub test(m As Integer, n As Integer)Static sta As Integerm = m + nn = n + m + stasta = sta + mEnd SubPrivate Sub Form_Click()Dim i As Integer, j As Integeri = 1: j = 2Call test(i, j)Print i, jCall test(i, j)Print i, jEnd Sub7、在窗体上画一个命令按钮，然后编写如下程序：(假定变量x是一个窗体级变量)Dim x As IntegerSub inc(a As Integer)x = x + aEnd SubPrivate Sub Command1_Click( )inc 2inc 3inc 4Print x;End Sub 程序执行后，单击Command1命令按钮，输出的结果是 。8、以下程序用业计算1至100之间所有奇数的和，试将程序补充完整Function mult( n as long ) as longDim sum As Integersum = 0Dim i As IntegerFor i = 1 To n If i Mod 2 0 Then sum = sum + iNext i Mult=sum End FunctionPrivate Sub Form_Click()Print mult(100)End Sub 9、下面是用冒泡法将5个整数按升序排列，请将程序补充完整。 Sub GASR()Dim mm=Array(10, 1, 5, 6, 7)For i=0 To 4 For j=i+1 to 4 If m(i) =m(j) Then T=m(i) m(i) =m(j)m(j) =t End IfNext jNext i For i=0 To 4 Print m(i)Next iEnd Sub10、以下程序的运行结果为 Dim x As Integer, y As IntegerPrivate Function f(x As Integer) Dim y As Integer x = x + 2 f = x + yEnd Function Private Sub p(ByVal z As Integer) x = y + z End SubPrivate Sub Command1_Click() x = 1: y = 1 Call p(x) z = f(y) Print x; y; zEnd Sub11、左列表框list1中有100