D 菜单项的事件只有一个Click事件
20 改变驱动器列表框的( )属性可以激活Change事件。A A ChDrive B Index C List D Drive
563401:
1 以下叙述中错误的是( )。C
A 窗体Load事件中的Print方法是否有效要取决于窗体AutoRedraw属性的设置 B 打开一个工程同时也打开其所含的多个窗体和标准模块文件 C 运行一个工程时,首先显示Form1窗体
D 窗体的Enabled属性用于设置窗体及窗体上的控件是否响应事件
2 下列各数据类型的取值范围按从小到大排列的是( )B。
A 长整型,货币型,单精度,双精度 B 整型,长整型,单精度,双精度 C 整型,长整型,双精度,单精度 D 整型,变体型,单精度,双精度
3 下列运算中,优先级最低的是( )。A
A 逻辑运算 B 字符运算 C 算术运算 D 关系运算
4 设x=\,函数IIf(x < Y, 1, IIf(x > Y, -1, 0))的返回值是( )。A A 0 B 1 C 出错 D -1
5 函数 Format(2345.678, \输出的结果是( )。B
A 字符型 2345.67 B 数字型 2,345.68 C 字符型 2,345.68 D 数字型 2345.68
6下列关于MsgBox函数的叙述,不正确的是( )。A
A 函数调用后返回值为数值型 B 可以设定消息框的指定图标 C 可以指定消息框的默认按钮 D 可以省略任何参数
7 以下叙述中错误的是( )。C A 任何时刻活动窗体最多只有一个
B Hide方法只是隐藏一个窗体,而不是从内存中清除该窗体
C 所有属性既可以在属性窗口中设置,也可以在程序代码中设置 D 时钟只有系统事件,没有用户事件
8下列( )是所有控件的公共属性。D
A Name和Visible B Name和Width C Name和Tag D Name和Enable
9,窗体当前坐标(CurrentX,CurrentY)值为( )。D Line (1000, 1500)-Step(2000, 2500)
A (3000, 2500) B (3000, 4000) C (1000, 2500) D (2000, 2500)
10 下列能使单选按钮Option1被选中、复选框Check1未被选中的语句是( )。C A Option1.Value =0和 Check1.Value=True B Option1.Value =1和 Check1.Value=False
6
C Option1.Value =True和 Check1.Value=0 D Option1.Value =False和 Check1.Value=1
11 执行语句 Command1.Move 500,1000的结果是( )。C A 命令按钮向上移动500、向左移动1000 B 命令按钮向左移动500、向上移动1000
C 命令按钮移动到距屏幕左边界500、上边界1000的位置 D 命令按钮移动到距窗体左边界500、上边界1000的位置 12 设置列表框的MultiSelect为( ),通过单击就能选择列表框中多个项。C A 0 B True C 1 D 2 13 Timer1的Interval属性为500,Enabled属性为True,运行以下程序2秒,窗体显示( )。A
Dim i%
Private Sub Timer1_Timer() i = i + 1
Print String(i, \End Sub
A ********** B * C * ** *** **** **** D
****************************
14 设置控件的( )属性,按Tab键可以改变该控件获得焦点的顺序。A A TabIndex B SetFocus C Index D TabStop
15 :从键盘上输入若干学生的考试分数,当输入负数时结束输入,然后输出其中最高分、最低分和平均分。
Private Sub Form_Click()
Dim x!, mmax!, mmin!,s!,n%
x = val(InputBox(\请输入学生的考试分数\ mmax = x: mmin = x:s=x:n=1 Do while x>=0 If 【1】 Then mmax = x End If
If x < mmin Then mmin = x End If
x = val(InputBox(\请输入学生的考试分数\
7
s=s+x n=【2】 Loop
Print \End Sub
程序的空缺处【1】和【2】应分别填写( )。A
A x > mmax 和 n+1 B mmax >x 和 n+1 C x > mmin 和 n+i D x > mmax 和 n+i
16 1!、2!、??10!的值。 Dim i as Integer 【1】 s = 1
For i = 1 To 10 s = s * i 【2】 Next i
程序的空缺处【1】和【2】应分别填写( )。C
A Dim s As Long 和 Print s B Dim s As Integer 和 Print s;
C Dim s As Long 和 Print s; D Dim s As Integer 和 Print s, 17 ,数组声明语句应为( )。B 1.5 2.1 4.8 7.3 2.8 3.5 2.4 6.8 5.2 7.2 8.1 7.3
A Dim a(3,4) As Single B Dim a(2,3) As Single
C Dim a(12) As Single D Dim a(1 To 3,1 To 4) As Integer 18 :
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 = z End Sub
Sub p1(ByVal a$, ByVal b$, c%) c = a + b End Sub
运行上面的程序,单击命令按钮Command1,则在文本框中显示的内容是( )。C A 0 B 程序出错 C 69 D 15
19 YU,名称为Edt的弹出式菜单,要使在窗体的空白处右击弹出Edt菜单,使用的程序是( )。B
_MouseDown(Button As Integer, Shift As
8
A Integer, X As Single, Y As Single) If Button=1 Then PopupMenu YU End Sub
B _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then PopupMenu Edt End Sub
C _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=1 Then PopupMenu Edt End Sub
D _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then PopupMenu YU End Sub
20 盘根目录有一个名为StuD.dat的顺序文件,如要把数据追加到Stud.dat末尾,应先使用( )语句打开它。A
A Open \B Open \C Open \D Open D:\\StuD.dat For Append As #1
5630402:
1 以下叙述中错误的是( )。D
A 用Hide方法隐藏的窗体还在内存中
B 可用Print方法在窗体或图片框上显示表达式内容 C 用Show方法可显示工程中的各窗体
D 可用Cls方法清除窗体或文本框中的文本
2 以下( )的变量可以被该窗体其它过程引用。B A 在窗体Load事件中用Dim语句定义
B 在窗体“通用 声明”段中用Dim语句定义 C 在窗体某过程中用Public语句定义 D 在窗体某过程中用Static语句定义 3下列运算中,优先级最低的是( )。A
A 字符运算 B 算术运算 C 逻辑运算 D 关系运算 4 以下( )函数 输出的结果为数值型。B A format B ASC C inputBox D String
5 用Dim X,Y% 语句定义X和Y,则( )变量。D A X和Y均为整型
B X为可变类型,Y为整型,且X和Y的初值均为0
9
C X和Y均为可变类型
D X为初值为空的可变类型,Y为初值为0的整型
6 X=MsgBox(\弹出对话框后按Esc键,变量X的内容为( )。D A 字符型1 B 数值型1 C 数值型2 D 字符型2
7 在文本框中输入文字会发生许多事件,这些事件发生的顺序是( )。A A KeyDown,Keypress,Change B Keypress,KeyUp,Change C KeyUp,Keypress,Change D KeyDown,Change,Keypress 8 下列叙述错误的是( )。D
A 键盘KeyDown事件可接收键盘所有键的信息 B 键盘KeyDown事件不区分大小写字母 C 键盘Keypress事件区分大小写字母
D 键盘Keypress事件可接收键盘所有键的信息 9 下列( )语句可绘制扇形。A A Circle (1500, 1500), 500, , -1, -2
B Circle (1500, 1500), 500, 1, ,,2 C Circle (1500, 1500), 500, , 1, 2
D Circle (1500, 1500), 500,-1, -2
10 如果要在单选按钮上显示某个图标,应先将( )。D A Alignment属性设置为1 B Style属性设置为0 C Alignment属性设置为0 D Style属性设置为1
11 通过对命令按钮的( )属性设置以决定按下Esc键是否有效。B A Visible B Cancel C Default D Style
12 要在组合框的文本框中禁止输入内容,Style属性应设置为( )。D A 1 B 0 C True D 2
13 Timer1的Interval属性为500,Enabled属性 为True,运行以下程序2秒,窗体显示( )。A
Dim i%
Private Sub Timer1_Timer() i = i + 1
Print String(i, \End Sub
A ********** B * C **** D * ** ***
****
14 下列叙述中,错误的是( )。A A KeyPress能接收所有键盘信息
B KeyPress接收到的是用户通过键盘输入的ASCII码字符 C KeyUp和KeyDown可以接收所有键盘信息
D 当用户按下并释放一个键后,触发事件的顺序是KeyDown、KeyPress、KeyUp
15 :从键盘上输入一字符串后,在窗体上反向显示其内容,如输入\,显示\。 Private Sub Command1_Click()
10
2009年12月26日省二级VB试卷
5630001:
一选择题20题(50分)
1. 以下叙述中错误的是() A
A运行一个工程时,首先显示FORM1窗体
B窗体的Enabled属性用于设置窗体及窗体上的控件是否响应事件 C打开一个工程同时也打开其所含的多个窗体和标准块文件
D窗体LOAD事件中的Print方法是否有效要取决于窗体AutoRedraw属性的设置 2. 在“通用声明“段中用以下语句定义数组A的元素个数是()D Option base 1
Dim A%(4,-1 to 3,3) A 80 B 36 C 120 D 60
3.VB中能表示X不属于[0,10]的表达式()B A x<0:x>10 B not (x>=0 and x<=10) C x<0 and x>10 D 10 4.设a=”李大纲”,以下()语句输出的结果为“李”。C A mid(a,1,2) B left(a,2) c mid(a,1,1) D mid(a,0,2) 5.函数format(2345.678,”##,##0.00”)输出的结果是()A A字符型2,345.68 B 数字型2,345.68 C数字型2345.68 D 字符型2345.67 6.窗体上有一命令按钮command1,编写如下事件过程: Private sub command1_click() X=val(inputbox(“x=”)) Y=val(inputbox(“y=”)) Print x+y End sub 运行后,单击命令按钮,先后在两个输入对话框中输入123和321,窗体显示的内容是()D A123+321 B 123321 C 出错信息 D 444 7.窗体的()属性设置在程序运行时才起作用。B A caption B top C BorderStyle D Backcolor 8.下列叙述错误的是()A A键盘Keypress事件可接收键盘所有键的信息 B键盘KeyDown事件不区分大小写字母 C键盘KeyPress事件区分大小写字母 D键盘KeyDown事件可接收键盘所有键的信息 9.下列()方法可改变窗体坐标轴的方向、坐标原点的位置和坐标的度量单位。A Ascale B Point C Past Dline 10.下列复选框Check1被选中但无效的语句的()C A check1.value=1 Bcheck1.Value=False C check1.value=2 D check1.Enabled=False 11.通过对命令按钮的()属性设计以决定按下Esc键是否有效。D A visible B style C Default D Cancel 12.使用()语句可将组合框combo1的文本框中的内容添加在第1项前。B A combo1.additem combo1.listindex,0 1 B combo1.additem combo1.text,0 C combo1.additem combo1.listindex,1 D combo1.additem combo1.text,1 13.使用滚动条控件的时候,下面说法不正确的是()B A当滚动条的Value 值发生一次变化就触发一次change事件 B当拖动滚动块时只触发scroll事件 C滚动条的value值属于[min,max]范围 D拖动滚动块时可同时触发scroll和change事件。 14.下列叙述中,正确的是()A A在keyup事件中,主键盘上“1”和小键盘上“1”键被视为不同的键 B所有对象均能接受键盘事件 C在keyDown事件中,可以识别A和a键的输入 Dkeypress事件中可以识别键盘上任意键码 15.如下程序段的功能是:从键盘上输入一字符串后,在窗体上反向显示其内容,如输入“abcd”,显示“dcba”。 Private sub command1_click() Dim i%,n%,s$,c$ C=”” S=inputbox(“请输入字符串:”) [1] For i=1 to n C=[2] Next i Print c End sub 程序的空缺处[1]和[2]应分别填写()。A A n=len(s) 和mid(s,I,1)+c B n=len(s)和c+mid(s,I,1) C n=len(s)和c+mid(s,n,i) D n=left(s)和mid(s,I,1)+c 16.执行下列程序的第K次外循环结束后(即对i=k时,for j=1 to k step 2??next j循环结束后),j的值是()。A Dim i%,j%,s! S=1 For i=1 to 50 For j=1 to I step 2 S=s+j Next j,i Print s A 2*(k\\2)+1 B k+1 C k+2 D 2*((k+1)\\2)+1 17.能使整型数组a(6)元素个数加1,但保留数组中原有元素的语句是()C A redim preserve a(7) as string B static a(7) C redim preserve a(7) D redim a(7) 2 18.阅读如下程序: 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=z End sub Sub p1(byval a$,byval b$,c%) C=a+b End sub 运行上面的程序,单击命令按钮command1,则在文本框中显示的内容是()。D A 程序出错 B 15 C 0 D 69 19.下列叙述中,正确的是()C A调用通用对话框控件的showopen方法,可以直接打开在该通用对话框中指定的文件B运行时,通用对话框控件是可见的 C在同一个程序中,用不同的方法打开的通用对话框具有不同的作用 D不能用通用对话框控件的方法打开“打印机”对话框 20.改变驱动器列表框的()属性可激活change事件。 A drive B list C chdrive D index 5630501 1 下列属于容器的控件是( )。B A ListBox B PictureBox C Image D TextBox 2 以下( )的变量可以被该窗体其它过程引用。C A 在窗体某过程中用Static语句定义 B在窗体Load事件中用Dim语句定义 C在窗体“通用 声明”段中用Dim语句定义 D在窗体某过程中用Public语句定义 3 VB中能表示x不属于[0,10]的表达式是( )。C A x < 0 : x >10 B x < 0 And x > 10 C not (x >= 0 and x < =10) D 10 < x < 0 4 以下( )函数 输出的结果为数值型。C A inputBox B format C ASC D String 5 下列叙述中,错误的是( )。C A 在同一行上书写多条语句应在两两语句中加上:号 B VB程序代码不区分字母的大小写 C 一条语句可以分为多行书写,但要在上行末加上VBCrLf D 可以用Rem或'注释单行语句 6 下列关于MsgBox函数的叙述,不正确的是( )。C A 可以省略任何参数 B 可以指定消息框的默认按钮 C 函数调用后返回值为数值型 3 D可以设定消息框的指定图标 7 程序运行时,不是由系统触发的事件是( )。C A Activate B Initialize C MouseMove D Load 8 下列叙述错误的是( )。A A 文本框ScrollBars属性值为2时,才能使文本框显示多行内容 B 设置文本框的MaxLength属性,可限制其输入文本的最大长度 C 当文本框的内容发生变化时,必将触发Change事件 D 当光标从文本框中移走时,发生LostFocus事件 9( )语句不能清除图片框Picture1中用Print显示的文本和用Circle 绘制的图形。A A Picture1.Clear B Picture1.Cls C Picture1.Picture = LoadPicture() D Picture1.Refresh 10 下列对框架控件的叙述,错误的是( )。A A 在某控件上画框架,就可将控件置于该框架内 B 通过拖动框架以判断一个控件是否置于该框架内 C 在框架内画控件,才能使控件置于该框架内 D 将一组单选按钮置于一个框架内使其只能选中其中之一 11 通过对命令按钮的( )属性设置以决定按下Esc键是否有效。A A Cancel B Default C Style D Visible 12 使用下列( )语句可删除组合框Combo1中选定的项。A A Combo1.RemoveItem Combo1.ListIndex B Combo1.RemoveItem Combo1.List(ListIndex) C Combo1.RemoveItem Combo1.Text D Combo1.RemoveItem Combo1.List(Index) 13 使用滚动条控件的时候,下面说法不正确的是( )。D A 当滚动条的Value值发生一次变化就触发一次Change事件 B 滚动条的Value值属于[Min,Max]范围 C 拖动滚动块时可同时触发Scroll和Change事件 D 当拖动滚动块时只触发Scroll事件 14 在文本框上输入\字符串,变量st的内容是( )。C Dim st As String Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) st = Chr(KeyCode) + st End Sub A ABCD B D C DCBA D abcd 15 :1~100自然数在窗体上显示,且每行显示5个自然数。D Dim i%, n% For i = 1 To 100 【1】 n = n + 1 If 【2】 Then Print Next i 程序的空缺处【1】和【2】应分别填写( )。 A Print i和n \\ 6 = n / 6 B Print i,和n \\ 5 = n / 5 4 C Print i,和 n mod 4 = 0 D Print i和n mod 5 = 0 16 1!、2!、??10!的值。 Dim i as Integer 【1】 s = 1 For i = 1 To 10 s = s * i 【2】 Next i 程序的空缺处【1】和【2】应分别填写( )。D A Dim s As Long 和 Print s B Dim s As Integer 和 Print s; C Dim s As Integer 和 Print s, D Dim s As Long 和 Print s; 17 声明语句应为( )。C 1.5 2.1 4.8 7.3 2.8 3.5 2.4 6.8 5.2 7.2 8.1 7.3 A Dim a(1 To 3,1 To 4) As Integer B Dim a(3,4) As Single C Dim a(2,3) As Single D Dim a(12) As Single 18 Command1,编写如下事件过程:A Sub p1(b() As Integer) Dim n% For i = UBound(b) To LBound(b) Step -1 Print b(i); n = n + 1 If n \\ 3 = n / 3 Then Print Next i End Sub Private Sub Command1_Click() Dim a%(5) For i = 0 To 5 a(i) = (i + 1) ^ 2 End Sub A 1 4 9 16 25 36 B 36 25 16 9 4 1 C 1 4 9 16 25 36 D 36 25 16 9 4 1 19 下列关于菜单叙述,错误的是( )。A A 要把非顶级某菜单项设为分隔线,只要将该菜单项的标题设为\名称可省略 B 菜单项是一个控件,它具有外观和行为的属性 C 将下拉式菜单的顶级菜单项的Visible属性设为False,才可以作为弹出式菜单 5 Dim i%, n%, S$, C$ C = \ S = InputBox(\请输入字符串:\ 【1】 For i = 1 To n C = 【2】 Next i Print C End Sub 程序的空缺处【1】和【2】应分别填写( )。B A n = Len(S) 和 C + Mid(S, i, 1) B n = Left(S) 和 Mid(S, i, 1) + C C n = Len(S) 和 C + Mid(S, n, i) D n = Len(S) 和 Mid(S, i, 1) + C 16 1!、2!、??10!的值。 Dim i as Integer 【1】 s = 1 For i = 1 To 10 s = s * i 【2】 Next i 程序的空缺处【1】和【2】应分别填写( )。C A Dim s As Integer 和 Print s; B Dim s As Long 和 Print s C Dim s As Long 和 Print s; D Dim s As Integer 和 Print s, 17 VB的“声明”段有语句Option Base 1,那么用如下语句声明的数组a包含的元素个数为( )。B Dim a(-1 To 2, 3, 4) A 60 B 48 C 80 D 36 18 : Private Sub Form_Click() Static m%,n% For i = 1 To 2 n = n + i m = m + n ^ 2 Next End Sub 运行时,两次单击窗体,那么第二次单击窗体时m, n的值分别为( )。A A 62,6 B 10,3 C 62,3 D 52,6 19 下列关于菜单叙述,错误的是( )。C A 菜单项的事件只有一个Click事件 B 菜单项是一个控件,它具有外观和行为的属性 11 C 要把非顶级某菜单项设为分隔线,只要将该菜单项的标题设为\名称可省略 D 将下拉式菜单的顶级菜单项的Visible属性设为False,才可以作为弹出式菜单 20 文件列表框中用于设置所选文件路径的属性是( )。B A File B FilePath C Path D FileName 5630408: 1 下列( )语言不属于面向对象的程序设计语言。B A Delphi B C C C++ D VB 2 以下能正确定义数据类型ieBook的是( )。B A TYPE IEbOOK Name As String*8 ie As Integer Type End B TYPE IEbOOK Name As String*8 ie As Integer End Type C Name As String*8 ie As Integer End Type ieBook D Name String*8 ie As Integer End ieBook 3 下列不能判断整型变量x是5的倍数的表达式是( )。B A x/5=x \\5 B 5 Mod x = 0 C int(x/5)=x/5 D X Mod 5 = 0 4 以下( )语句能使窗体Form1的背景为黄色。C A Form1.BackColor=vbGreen B Form1.BackColor=RGB(255,0,255) C Form1.BackColor=vbBlue D Form1.BackColor=RGB(255,255,0) 5 下列叙述中,错误的是( )。B A 在同一行上书写多条语句应在两两语句中加上:号 B 一条语句可以分为多行书写,但要在上行末加上VBCrLf C VB程序代码不区分字母的大小写 D 可以用Rem或'注释单行语句 6 X=MsgBox(\弹出对话框后按Esc键,变量X的内容为(A 字符型2 B 字符型1 C 数值型1 D 数值型2 7 以下叙述中错误的是( )。C A Hide方法只是隐藏一个窗体,而不是从内存中清除该窗体 B 任何时刻活动窗体最多只有一个 C 所有属性既可以在属性窗口中设置,也可以在程序代码中设置 。A 12 )D 时钟只有系统事件,没有用户事件 8 下列( )是文本框所具有的属性。B A Caption B Enabled C AutoSize D Style 9 ( )方法可改变窗体坐标轴的方向、坐标原点的位置和坐标的度量单位。A A Scale B Line C Point D Pset 10 如果要在单选按钮上显示某个图标,应先将( )。B A Style属性设置为0 B Style属性设置为1 C Alignment属性设置为1 D Alignment属性设置为0 11 通过对命令按钮的( )属性设置以决定按下Esc键是否有效。B A Style B Cancel C Default D Visible 12 使用下列( )语句可删除组合框Combo1中选定的项。D A Combo1.RemoveItem Combo1.Text B Combo1.RemoveItem Combo1.List(ListIndex) C Combo1.RemoveItem Combo1.List(Index) D Combo1.RemoveItem Combo1.ListIndex 13 使用滚动条控件的时候,下面说法不正确的是( )。A A 当拖动滚动块时只触发Scroll事件 B 当滚动条的Value值发生一次变化就触发一次Change事件 C 滚动条的Value值属于[Min,Max]范围 D 拖动滚动块时可同时触发Scroll和Change事件 14 下列叙述中,错误的是( )。D A 当用户按下并释放一个键后,触发事件的顺序是KeyDown、KeyPress、KeyUp B KeyPress接收到的是用户通过键盘输入的ASCII码字符 C KeyUp和KeyDown可以接收所有键盘信息 D KeyPress能接收所有键盘信息 15 n是否为素数。A Dim i%, n%, t% n = Val(InputBox(\ For i = 2 To n \\ 2 If n / i = n \\ i Then t = 1 【1】 End If Next i If 【2】 Then Print \不是素数\是素数\程序的空缺处【1】和【2】应分别填写( )。 A Exit For和t = 1 B Exit For和t = 0 C i = i + 1 和t = 1 D i = i + 1 和t = 0 16 1!、2!、??10!的值。D Dim i as Integer 【1】 s = 1 For i = 1 To 10 s = s * i 【2】 Next i 13 程序的空缺处【1】和【2】应分别填写( )。 A Dim s As Long 和 Print s B Dim s As Integer 和 Print s, C Dim s As Integer 和 Print s; D Dim s As Long 和 Print s; 17 能使整型数组a(6)元素个数加1,但保留数组中原有元素的语句是( )。D A Static a(7) B ReDim Preserve a(7) as String C ReDim a(7) D ReDim Preserve a(7) 18 : Private Sub Form_Click() Static m%,n% For i = 1 To 2 n = n + i m = m + n ^ 2 Next End Sub 运行时,两次单击窗体,那么第二次单击窗体时m, n的值分别为( )。D A 62,3 B 10,3 C 52,6 D 62,6 19下列关于多文档界面(MDI)的叙述错误的是( )。A A MDI应用程序允许同时显示多个文档,每个文档显示在它自己的窗口中 B MDI窗体中最多只能有一个是活动窗口 C MDI应用程序中只有两种类型的窗体,即父窗体和子窗体 D MDI子窗口被包含在一个大小可调的MDI父窗口内 20 改变驱动器列表框的( )属性可以激活Change事件。C A Index B List C ChDrive D Drive 14 百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,70教育网,提供经典综合文库2024年12月26日省二级VB试卷及答案)在线全文阅读。
相关推荐: