月二级VB笔试试题

1、一、选择题135题每题2分，共70分。 下列各题A）、B）、C）、D）四个选项中，只有一个选择是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 1下列不能打开属性窗口的操作是（ ）。 A）执行“视图”菜单中的“属性窗口”命令 B）按F4键 C）按Ctrl+T D）单击工具栏上的“属性窗口”按钮。 2下列可以打开立即窗口的操作是（ ）。 A）Ctrl+D B）Ctrl+E C）Ctrl+F D）Ctrl+G 3InputBox函数返回值的类型为（ ）。 A）数值 B）字符串 C）变体 D）数值或字符串（视输入的数据而定） 4可以同时删除字符串前导和尾部空白的函数是（ ）。 A）L

2、trim B）Rtrim C）Trim D）Mid 5表达式4+5 6 * 7 / 8 Mod 9 的值是（ ）。 A）4 B）5 C）6 D）7 6如果在立即窗口中执行以下操作： a=8 <CR> （<CR>是回车键，下同） b=9 <CR> print a>b <CR> 则输出结果是（ ）。 A）-1 B）0 C）False D）True 7以下语句的输出结果是（ ）。 Print Format $(32548.5,“000,000.00”) A）32548.5 B）32,548.5 C）032,548.50 D）32,548.50 8

3、执行以下程序段后，变量c$的值为（ ）。 a$="Visual Basic Programing" b$="Quick” c$=b$ & UCase(Mid$(a$,7,6) & Right $ (a$,11) A）Visual BASIC Programing B）Quick Basic Programing C）QUICK Basic Programing D）Quick BASIC Programing 9为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ ）。 A）Value B）Defau

4、lt C）Cancel D）Enabled 10为了把焦点移到某个指定的控件，所使用的方法是（ ）。 A）SetFocus B）Visible C）Refresh D）GetFocus 11设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为（ ）。 A）5 B）6 C）0 D）-1 12执行下面的程序段后，x 的值为（ ）。 x=5 For i=1 To 20 Step 2 x=x+i5 Next i A）21 B）22 C）23 D）24 13在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4

5、x=4 For j =1 To 3&nbsp; x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是（ ）。 A）7 B）15 C）157 D）538 14在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a = InputBox(“请输入A的值”) a = Val(a) b = InputBox(“请输入B的值”) b = Val(b) x = InputBox(“请输入x的值”) x =

6、Val(x) a = a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（ ）。 A）2 B）3 C）14 D）15 15在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text=&quo

7、t;" Text2.Text="" End sub 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（ ）。 A）444 B）321123 C）123321 D）132231 16阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i 执行上面的三重循环后，a 的值为（ ）。 A）3 B）9 C）14 D）21 17在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程： P

8、rivate Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是（ ）。 A）在文本框Text1中输出55 B）在文本框Text1中输出0 C）出错 D）在文本框Text1中输出不定值 18在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Whil

9、e x<50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。 A）1和0 B）2和72 C）3和50 D）4和168 19用下面语句定义的数组的元素个数是（ ）。 Dim A (-3 To 5) As Integer A）6 B）7 C）8 D）9 20以下程序的输出结果是（ ）。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5 For i

10、=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End sub A）33 B）28 C）35 D）37 21在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Commandl_Click() Dim a a = Array(1,2,3,4) j = 1 For i = 4 To Step -1 s = s + a(i)*j j =j*10 Next i Print s End Sub 运行上面的程序，单击命

11、令按钮，其输出结果是（ ）。 A）4321 B）12 C）34 D）1234 22在窗体上画一个命令按钮（其Name属性为Commandl），然后编写如下代码： Option Base 1 Private Sub Commandl_Click( ) Dim a(4,4) For i =1 To 4 For j =1 To 4 a(i,j) = (i-1)*3+j Next j Next i For i =3 To 4 For j =3 To 4 Print a(j,i); Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为（ ）。 A）6 9 B）7

12、 10 7&nbsp;10 8 11 C）8 11 D）9 12 9 12 10 13 23假定有如下的Sub过程： Sub S（x As Single,y As Single） t = x x =t/y y =t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click ( ) Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub 程序运行后，单击命令按钮，输出结果为（ ）。 A）5 4 B）1 1 C）1.25 4 D）1.25 1

13、24阅读程序： Function F(a As Integer) b = 0 Static c b = b+1 c = c+1 F = a+b+c End Function Private Sub Commandl_Click () Dim a As Integer a =2 For i =1 To 3 Print F(a) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为（ ）。 A）4 B）4 C）4 D）4 4 5 6 7 4 6 8 9 25阅读程序： Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i E

14、nd Sub Private Sub Commandl_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a () For i =1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为（ ）。 A）2 B）5 C）10 D）出错 4 6 12 6 7 14 8 8 16 26下列不能打开菜单编辑器的操作是（ ）。 A）按Ctrl+E B）单击工具栏中的“菜单编辑器”按钮 C）执行“工具”菜单中的“菜单编辑器”命令 D）按Shift + Alt + M 27

15、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（ ）。 A）MenuItem. Enabled=False B）MenuItem. Enabled=True C）MenuItem. Visible=True D）MenuItem. Visible=False 28在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（ ）。 A）Move B）Change C）Scroll D）GetFocus 29假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为（ ）。 A）Label1. BackStyle=0 L

16、abel1.Borderstyle=0 B）Label1.BackStyle=1 Label1.Borderstyle=1 C）Label1.BackStyle=True Label1.BorderStyle=True D）Label1.BackStyle=False Label1.Borderstyle=False 30在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load () List1.AddItem"357" List1.AddItem"246" List1.AddItem"123&q

17、uot; Listl.AddItem"456" Text1.Text="" End Sub Private Sub List1_ DblClick ( ) a =List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”（见图附录-1），然后双击列表框中的“456”，则输出结果为（ ）。 图附录-1 A）1245 B）456789 C）789456 D）0 31为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（ ）。 A）Visible B）Timer C）Enabled D）I

18、nterval 32为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（ ）。 A）Get文件号，记录号，变量名 B）Get文件号，变量名，记录号 C）Put文件号，变量名，记录号 D）Put文件号，记录号，变量名 33对窗体编写如下事件过程： Private Sub Form _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button =2 Then Print "AAAAA" End If End Sub Private Sub Form _ M

19、ouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print "BBBBB" End Sub 程序运行后，如果右击鼠标，则输出结果为（ ）。 A）AAAAA B）BBBBB BBBBB C）AAAAA D）BBBBB AAAAA 34为了在运行时能显示窗体左上角的控制框（系统菜单），必须（ ）。 A）把窗体的Contro1Box属性设置为False，其他属性任意 B）把窗体的ControlBox属性设置为True，并且把Boder Style属性设置为1-5 C）把窗体的Control

20、Box属性设置为False，同时把BoderStyle属性调协为非0值 D）把窗体的ControlBox属性设置为True，同时把BoderStyle属性设置为0值 35对窗体编写如下代码： Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) m1 = a(1) m2 = 1 If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(i) m2 =i End If Next i End If Print

21、m1 Print m2 End Sub 程序运行后，按回车键，输出结果为（ ）。 A）48 B）237 4 1 C）498 D）498 5 4 二、填空题（每空分，共30分） 请将每空的正确答案写在答题卡115序号的横线上，答在试卷上不得分。 1设有如下的Visual Basic表达式： 5 * x2 3 * x 2 * Sin(a)/3 它相当于代数式 1 。 2执行下面的程序段后，s的值为 2 。 s = 5 For i = 2.6 To 4.9 Step 0.6 s = s+1 Next i 3表达式Fix(-32.68)+Int(-23.02)的值为 3 。 4为了在运行时把图形文件p

22、icfile. jpg装入图片框Picture1，所使用的语句为 4 。 5在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox("请输入一个整数") b = InputBox("请输入一个整数") Print a + b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 5 。 6执行下面的程序段后，b的值为 6 。 a=300 b=20 a=a+b b=a-b a=a-b 7以下程序段的输出结果是 7 。 num=0 &nb

23、sp; While num<=2 num=num+1 Print num Wend 8在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是 8 。 9下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在 9 、 10 、 11 处将程序补充完整。 Option