VB-BB进阶选择题答案.doc

问题 11.89 分 保存 C在Form2中引用Form1中的全局变量x，写作 。A.Form1_Public.xB.xC.Form1.xD.Form2.x 问题 21.89 分 保存 A 函数Format(2345.678, “#,#0.00”)输出的结果是 。A.数字型2,345.68B.字符型2,345.67C.字符型2,345.68D.数字型2,345.68 问题 31.89 分 保存 B以下叙述中错误的是 。A.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B.事件过程可以像通用过程一样由用户定义过程名C.Sub过程中不能嵌套定义Sub过程D.Sub过程中可以嵌套调用Sub过程 问题 41.89 分 保存 CVB中用来完成一定的操作或实现一定功能的特殊函数称为 。A.属性B.过程C.方法D.事件 问题 51.89 分 保存 A下面的子过程语句说明合法的是 。A.Function fl(ByVal n%)B.Sub f1(ByVal n%()%C.Function f1%(f1%)D.Sub f1(n%) As Integer 问题 61.89 分 保存 B运行下列程序，输出的结果是 。Public Function f(ByVal n%, ByVal x%) If n 0 Then f=f(nx,x) Print n Mod x; End IfEnd FunctionPrivate Sub Command1_Click() Print f(20,8) End SubA.1 2 4B.2 4C.4 4D.1 4 4 问题 71.89 分 保存 B以下程序段执行的结果是 。Private Sub command1_Click() Dim a Dim i As Integer, j As Integer a=Array(1,3,5,7,9,11) For i=1 To a(4) j=j+1 Next i Print j End SubA.5B.9C.11D.7 问题 81.89 分 保存 D以下程序执行后，在文本框中输入“abcd”字符串，变量st的内容是 。Dim st As StringPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) st=chr(KeyCode) + st End SubA.DB.ABCDC.abcdD.DCBA 问题 91.89 分 保存 B下面子过程语句说明合法的是 。A.Sub f1（n() As Integer）As IntegerB.Finction f1（ByVal n As Integer）C.Function f1（f1 As Integer） As IntegerD.Sub f1（ByVal n() As Integer） 问题 101.89 分 保存 C若某过程声明为Sub aa(n As Integer)，则调用 实参与形参是按地址传递。A.Call aa(5)B.Call aa(n + 1)C.Call aa(n)D.Call aa(i - 1) 问题 111.89 分 保存 C阅读下列程序：Private Sub Form_Click() Static m%, n% For i= 1 To 2 n=n+i m=m+n2 NextEnd Sub运行时，2次单击窗体，则第2次单击窗体时m，n的值分别为 。A.52，6B.10，3C.62，6D.62，3 问题 121.89 分 保存 B下列表达式的运算结果中，值最小的是 。A.5/6B.56C.5 Mod 6D.6 Mod 5 问题 131.89 分 保存 D在窗体上画一文本框Text1，要求文本框只能接收大写字母的输入，以下能实现该操作的事件过程是 。A.Private Sub Text1_Change() If Asc(Text1.Text)64 And Asc(Text1.Text) 91 Then MsgBox 请输入大写字母 KeyCode0 End If End SubB.Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode65 Or KeyCode 90 Then MsgBox 请输入大写字母 KeyCode0 End If End SubC.Private Sub Text1_MouseDown(Buttom As Integer, Shift As Integer, X As Single, Y As Single)If Asc(Text1.Text)65 Or Asc(Text1.Text)90 Then MsgBox 请输入大写字母 End If End SubD.Private Sub Text1_Keypress(KeyAscii As Integer) If KeyAscii65 Or KeyAscii90 Then MsgBox 请输入大写字母 KeyAscii0 End If End Sub 问题 141.89 分 保存 C通过对命令按钮的 属性设置以决定按下Esc键是否有效。A.DefaultB.VisibleC.CancelD.Style 问题 151.89 分 保存 B单击Cmd1命令按钮，由Text1文本框获得x的值，根据以下条件计算y的值：当x0时，y的值为x的自然对数；当x=0时，y的值为x的绝对值，并将y的值显示在Label1中。以下能正确计算y值的程序是 。A.x=Val(Text1.Text)If x=0 Then y=Abs(x)Else y= Log(x) End If Label1.Caption=yB.x=Val(Text1.Text) y=Abs(x) If x0 Then y=Log(x) Label1.Caption=yC.x=Val(Text1.Text) If x=0 Then y= Log(x) Else y= Abs(x) End If Label1.Caption=yD.x=Val(Text1.Text)y=Log(x)If x=0 Then y= Abs(x) Label1.Caption=y 问题 161.89 分 保存 B多分支选择结构的Case语句，写法错误的是 。A.case 8 To 12B.case 5 To 2C.case 1,3,5D.case Is ”man” 问题 171.89 分 保存 Dx是Integer类型变量，无论x取何值，字符串表达式 的长度为10。A.Space(10-Len(Str(x) + xB.Space(10-Len(Trim(Str(x) + xC.Space(10-Len(x) xD.Space(10-Len(Trim(Str(x) x 问题 181.89 分 保存 C运行下列程序，单击Command1，则在文本框中显示的内容是 。Private Sub Command1_Click() Dim x, y%, z as Integer x=6 : y=9 : z=0 Text1.text=” Call p1(x,y,z) Text1.text=zEnd SubSub p1(ByVal a$, ByVal b$, c%) c=a+b End SubA.程序错误B.0C.69D.15 问题 191.89 分 保存 D下列程序段是判断输入的正整数n是否为素数。Dim i%, n%, t%n=Val(InputBox(“n=”)For i=2 To n2 If n/i = ni Then t=1 EndIfNext i If Then Print “不是素数” Else “是素数”以上程序段空缺处应分别填写 。A.i=i+1和t=0B.Exit For和 t=0C.i=i+1和t=1D.Exit For 和t=1 问题 201.89 分 保存 D下列叙述错误的是 。A.键盘KeyDown事件不区分大小写字母B.键盘KeyDown事件可接收键盘所有按键的信息C.键盘KeyPress事件可区分大小写字母D.键盘KeyPress事件可接收键盘所有按键的信息 问题 211.89 分 保存 A下面程序段运行后，x的值是 。Dim x As Integer, y As Integery=-2 x=y=-1A.0B.FalseC.不确定D.-1 问题 221.89 分 保存 D执行语句MsgBox 除数不能为0！，48，数据出错，在弹出的对话框中显示的是 。A.停止图标B.消息图标C.问号图标D.感叹号图标 问题 231.89 分 保存 C窗体上有一个命令按钮C1，两次单击C1后程序运行的结果为 。Dim Z As IntegerSub S() Dim Z Z=Z+2 Print Z;End SubPrivate Sub C1_Click() Z=Z+2 Call S Print Z End SubA.第一次为2 4 第二次为4 6B.第一次为4 4 第二次为8 8C.第一次为2 2 第二次为2 4D.第一次为2 2 第二次为4 4 问题 241.89 分 保存 D以下程序段用于从键盘上输入一个字符串，在窗体上反向显示其内容（如输入“abcd”，显示“dcba”）。Private Sub Command1_click() Dim i%, n%, s$, c$ c=” s=InputBox(“请读入一个字符串：”) For i=1 to n c= Next i Print c End Sub以上程序段空缺处应分别填写 。A.n=Len(s) 和 c+Mid(s,i,1)B.n=Left(s) 和 Mid(s,i,1)+cC.n=Len(s) 和 c+Mid(s,n,i)D.n=Len(s) 和 Mid(s,i,1)+c 问题 251.89 分 保存 D窗体上有一个命令按钮Command1，编写如下事件过程：Function fun (x As Integer) Static z y=y+1: z=z+1 fun=x+y+zEnd FunctionPrivate Sub Command1_Click() Dim x As Integer x=1 For i=1 To 2 Print fun(x); Next i End Sub运行时，单击命令按钮，窗体上将显示 。A.1 1B.4 4C.3 3D.3 4 问题 261.89 分 保存 A下列关于MsgBox函数的叙述中，不正确的是 。A.可以省略任何参数B.可以设定消息框的指定图标C.可以指定消息框的默认按钮D.函数调用后返回值为数值型 问题 271.89 分 保存 D函数 InStr(windowse, Mid(winnt,2,2) 的返回值是 。A.1B.0C.3D.2 问题 281.89 分 保存 B对文本框Text1编写如下的事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer) Dim x As String x=Chr(KeyAscii) KeyAscii=Asc(Ucase(x) Print String(4, KeyAscii) End Sub程序运行后，将焦点置于文本框，如果在键盘上输入字母“a”，则窗体上显示的内容是 。A.AB.AAAAC.BD.aaaa 问题 291.89 分 保存 D下列程序段的功能是计算s=1+(1+1/2)+(1+1/2+1/3+1/n)的值。Dim i%, j%, n% s=0n=Val(InputBox(“n=”)for i=1 to n for j=1 to i s= Next j, i Print “s=”, s以上程序的空缺处应分别填写 。A.Dim s%和s+1/jB.Dim s!和s+(1/i+1/j)C.Dim s%和s+(1/i+1/j)D.Dim s!和s+1/j 问题 301.89 分 保存 A运行下列程序段，总共执行的循环次数是 。Dim m%, n%For m= 1 to 10 For n=1 to m Step 2 Print n Next n Print m+n Next mA.30B.55C.27D.28 问题 311.89 分 保存 D表达式 可以计算整型变量 x 的位数。A.Len(Abs(x)B.Len(Trim(Int(x)C.Len(Abs(x)-1D.Len(Trim(Str(Abs(x) 问题 321.89 分 保存 C运行以下程序，x和y的值为 。Public Sub F1(m%, ByVal n%) Dim k% If mn Then k=m : m=n : n=kEnd SubPrivate Sub Command1_Click() Dim x%, y% x=30 : y=20 Call f1(x, y) Print x, yEnd SubA.30 30B.20 30C.20 20D.30 20 问题 331.89 分 保存 D在文本框中输入文字会发生许多事件，这些事件发生的顺序为 。A.KeyUp, KeyPress, ChangeB.KeyPress, KeyUp, ChangeC.KeyDown, Change, KeyPressD.KeyDown, KeyPress, Change 问题 341.89 分 保存 A阅读下列程序:Sub Yu(x%,ByVal y%) x=5*x : y=x+yEnd SubPrivate Sub Form_Click() Dim a%,b% a=5 : b=10Yu a,b Print a,b End Sub程序运行后，单击窗体，输出结果为 。A.25 10B.5 10C.25 25D.5 20 问题 351.89 分 保存 A在VB的“声明”段有语句Option Base 1，那么用如下语句声明的数组a包含的元素个数为 。Dim a(-1 To 2, 3, 4)A.48B.80C.36D.60 问题 361.89 分 保存 D下列程序段的输出结果是 。a=10: b=10000x=Log(b)/Log(a) Print lg(10000)=;xA.lg(10000)=5B.4C.5D.lg(10000)=4 问题 371.89 分 保存 C若某过程声明为Sub aa(n As Integer)，则以下调用正确的是 。A.Call aa()B.aa(y)C.aa yD.z=aa(y) 问题 381.89 分 保存 B如下程序段的功能是：利用公式e=1+1/1!+1/2！+1/n! 求自然对数的底e的近似值，要求累加到最后一项小于0.000001为止。Dim e#, t#, n%e=0 : t=1 : n=1do While 1/t 0.000001 e=e+1/t t= n=n+1 LoopPrint “自然对数的底e的近似值为”，e以上程序的空缺处应分别填写 。A. 和 t*nB. 和t*nC. 和 t+nD. 和t+n 问题 391.89 分 保存 B窗体上有一命令按钮Command1，编写下列事件过程：Private Sub Command1_Click() MsgBox CStr(123+123) End Sub程序运行时，单击按钮，消息对话框显示的内容是 。A.123123B.246C.123123D.显示出错信息 问题 401.89 分 保存 B下列程序段的执行结果是 。n=1j=1Do While j=4 n=n*j Print n; j=j+1 LoopA.1 2 3 4B.1 2 6 24C.2 4 6 8D.1 4 7 11 问题 411.89 分 保存 A如下程序段的功能是计算s=1-1/2+1/3-+(-1)(n-1)/n的值。Dim i%, t%, n% n=Val(InputBox(“n=”)t=1For i=1 To n s=s+t/i Next i Print “s=”, s程序的空缺处应分别填写 。A.Dim s!和t=-tB.Dim s%和t=-tC.Dim s！和t=-1D.Dim s%和t=-1 问题 421.89 分 保存 A窗体上有命令按钮Command1，编写Command1事件过程：Sub p1(b() as Integer) Dim n% For i=UBound(b) to Lbound(b) Step -1 Print b(i); n=n+1 if n3=n/3 then print Next iEnd SubPrivate Sub Command1_Click()Dim a%(5)For i=0 to 5 a(i)=(i+1)2Next iP1 a() End Sub运行后，单击命令按钮，输出的结果为 。A.36 25 169 4 1B.36 25 16 9 4 1C.1 4 9 16 25 36D.1 4 916 25 36 问题 431.89 分 保存 B下面程序运行后的结果是 。m=0For i = 1 To 10 m = m + i i = i + 1Next i Print m, iA.死循环B.25 11C.25 10D.16 11 问题 441.89 分 保存 B运行以下程序，x和y的值为 。Public Sub F1(m%, ByVal n%) Dim k% If mn Then k=m : m=n : n=kEnd SubPrivate Sub Command1_Click() Dim x%, y% x=30 : y=20 Call f1(x, y) Print x, y End SubA.30 30B.20 20C.20 30D.30 20 问题 451.89 分 保存 B用Static关键字定义过程是指 。A.声明过程的返回值是静态的B.声明过程中的局部变量是静态的C.声明形参是静态的D.声明过程名是静态的 问题 461.89 分 保存 A函数Val(H100) 的返回值为 。A.256B.100C.0D.64 问题 471.89 分 保存 C以下定义数组或给数组元素赋