《vb-bb进阶选择题标准答案》由会员分享，可在线阅读，更多相关《vb-bb进阶选择题标准答案（14页珍藏版）》请在金锄头文库上搜索。
1、 问题 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过程
2、中可以嵌套调用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 I
3、fEnd 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”字符
4、串，变量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
5、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下列表
6、达式的运算结果中，值最小的是 。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 KeyCode9
7、0 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)90 Then MsgBox 请输入大写字母 End If End SubD.Private Sub Text1_Keypress(KeyAscii As Integer) If KeyAscii90 Then MsgBox 请输入大写字母 KeyAscii0 End If End Sub
8、 问题 141.89 分 保存 C通过对命令按钮的 属性设置以决定按下Esc键是否有效。A.DefaultB.VisibleC.CancelD.Style 问题 151.89 分 保存 B单击Cmd1命令按钮，由Text1文本框获得x的值，根据以下条件计算y的值：当x0时，y的值为x的自然对数；当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
9、 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(
10、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.
11、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事件可接收
