《VB》对口高考模拟试题(共5页).doc

《《VB》对口高考模拟试题(共5页).doc》由会员分享，可在线阅读，更多相关《《VB》对口高考模拟试题(共5页).doc（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上VB对口高考模拟试题1一、 选择题。（每个1分，共30分）1、某一VB工程含F1、F2两个窗体，执行“F1Show: F2Hide”语句后，F1、F2窗体显示的结果为（ ）。A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示F2窗体2、删除列表框中指定的项目所使用的方法为（ ）A move B remove C clear D removeitem3、Integer类型的变量可存放的最大整数是（ ）。A、255 B、256 C、32768 D、327674、下列符号不能作为VB中变量名的是（ ）。 A 、 abcd B、 p1234 C、 89edf D、xyz

2、5、将焦点主动设置到指定的控件或窗体上，应采用的方法是（ ）。A、SetDate B、SetFocus C、SetText D、GetGate6、若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ ）。A、Text属性值为* B、Caption属性值为*C、Password属性值为空 D、Passwordchar属性值为*7、表达式10+10Mod3*3的值为（ ）。 A、11 B、2 C、13 D、68、数学式子Sin25写成VB表达式是（ ）。A、Sin25 B、Sin（25） C、SIN（25） D、Sin（25*3.14/180） 9Sub过程与 Fun

3、ction过程最根本的区别是（ ）。A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。B、Function过程可以有参数，Sub过程不可以。C、两种过程参数的传递方式不同。D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。10、多窗体程序由多个窗体组体组成，在缺省的情况下，VB在执行应用程序时，总是将（ ）指定为启动窗口。A、不包含任何控件的窗口 B、包含控件最多的窗口C、命名为Form1的窗体 D、设计时的第一个窗体11、要退出DoLoop循环，可使用的语句是（ ）。 A、Exit B、Exit For C、End Do D、E

4、xit Do12、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。Private Function Sum( a,b,c) a=a+1:b=b+1:c=c+1Sum=a+b+cEnd FunctionPrivate Sub Command1_Click( )a=1:b=2:c=3Call Sum(a,b,c) Print a;b;cEnd SubA、1 2 3 B、2 3 4 C、 3 4 5 D、4 5 613、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。Private Functio

5、n Sum( ByVal a, ByVal b,ByVal c) a=a+1:b=b+1:c=c+1Sum=a+b+cEnd FunctionPrivate Sub Command1_Click( )a=1:b=2:c=3Call Sum(a,b,c) Print a;b;cEnd SubA、1 2 3 B、2 3 4 C、1 3 4 D、1 2 414、以下叙述中错误的是：( )A）双击鼠标可以触发DblClick事件B）窗体或控件事件的名称都可以由编程人员设定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定15、 InputBox函数返回值的类型为 （ ）。 A

6、) 数值 B) 字符串 C) 变体 D) 数值或字符串（视输入的数据而定）16、如果有声明Dim a(15) as integer ,则该数组共有（ ）个元素。A 15 B 16 C 13 D 不确定17、如果在上题语句前加入option base 1,则该数组共有（ ）个元素。A 15 B 16 C 13 D 不确定18、在窗体上添加一个列表框，然后编写如下两个事件过程：Private sub Form_click( )List1.removeitem 3List1.removeitem 0List1.removeitem 1End sub Private sub Form_load( )L

7、ist1.additem “上海”List1.additem “天津”List1.additem “北京”List1.additem “深州”End sub 运行上面的程序，然后单击窗体，列表框中所显示的内容为（ ）A 上海 B 北京 C 深州 D 天津19、下列逻辑表达式中，能正确表示条件“x、y都是奇数”的是（ ）A x mod 2=1 or y mod 2=1 B x mod 2=0 or y mod 2=0C x mod 2=1 and y mod 2=1 D x mod 2=0 and y mod 2=020、函数string(5，66)的值为（ ）A “BBBBB” B “bbbb

8、b” C “55555” D “AAAAA”21、表达式 Ucase(“Basic”)+Lcase(“Basic”)的值为（ ）A “BASICbasic” B “basicBASIC”C “BASICBASIC” D “basicbasic”22、一只黑色的台球被打进袋内，则“黑色”、“台球”、和“打”依次是下面的哪一项（ ）A 对象 属性 事件 B 属性 对象 事件C 对象 属性 方法 D属性 对象 方法23、若要取消窗体的最大化功能，则可设置（ ）属性为false来实现。A controlbox B minbutton C maxbutton D enabled 24、在窗体上有一个文本

9、框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ () TxtTime.text=Time End Sub 在下划线后面应填入的内容是 ( )A) Enabled B) Visible C) Interval D) Timer 25、假定窗体上有一个标签，名为 Label1，为了使该标签透明，则正确的属性设置为（ ）A Label1.backstyle=0 B Label1.backstyle=1 C Label1.backstyle=2 D Label1.backstyle=326、设

10、a=6，则执行xIIf(a5,-1,0)后，x的值为（ ）。A、 5 B、 6 C、 0 D、 -127、以下有关VB颜色的表示中，（ ）是错误的。A、 vbRed B、 QbColor(4) C、 RGB(255,0,0) D、 RGB(-255,0,0)28、以下程序段的输出结果是（ ）。A=0For j=1 TO 15 a=a+(j MOD 3)Next jPrint aA、 0 B、15 C、90 D、12029、以下是Command1的单击事件，单击Command1后，在当前目录下创建了一个名为a.txt的文件，该文件内容为（ ）。Private Sub Command1_Click

11、()Open a.txt For Output As #1Print #1, 计算机；等级考试Close #1 End SubA、等级考试B、计算机等级考试 C、计算机 D、计算机；等级考试30、已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为（ ）。Private Function Sum( a,b,c) Sum=a+b+cEnd FunctionA: 1 B: 2 C: 3 D: 6二、填空题。（每个1分，共20分）1、创建一个VB应用程序的三个主要步骤是 、 和

12、 。2、在Visual Basic的转换函数中，将字符串转换为数值的函数是 。3、要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK！时，应当编写的语句是。4、语句 Print Visual Basic;Tab(7) Hello 表示第二个输出项在第 列输出 。5、在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用 循环；若要求先判断循环进行的条件，可使用 循环或 循环。 6、表达式937Mod22的值是 。7、已知a=3,b=4,c=5,表达式ab and Not ca Or cb And c15 And 85 then k=k+4

13、：exit for K=k+1 Next j Print i，k If i8 then exit forNext iEnd sub3、以下程序是一个评分程序，有10名评委，去掉一个最高分和一个最低分，计算平均分（设满分为100分）。试填空。 Private sub command1_click() Max=0：Min=100For i=1 to 10 n=val(inputbox(“请输入分数：”) if then Max=n if then Min=n s=s+n next is= p=s/8print “最高分：”；Max,，“最低分：”；Minprint “最后得分：”；pend sub

14、4、窗体上有一个命令按钮（command1 ）和两个文本框（text1与text2）。在Text1中输入任意一个字符串，单击命令按钮后该字符串以反序的形式出现在Text2中。试完成程序。 Private sub command1_click()Dim n as string, c as string, d as stringn=text1.textm= for i=m to 1 step -1 c= d=d& next itext2.text=d end sub5、在下面的程序中，要求循环体执行4次，试填空。 Private sub command1_click() X=1 Do while

15、X=X+2 LoopEnd sub6、以下命令按钮的事件过程用于计算10！。Private sub command1_click() X=1 Result = While x=10 Result = X=X+1 Wend Print ResultEnd sub7、执行下面的程序后，第2行输出 ，第3行输出 Private sub form_click() Dim ch as string, I as integer Ch=”ABC”For i=1 to 3 Ch=Mid(ch,2*i-1,1)+left(ch,len(ch) Print chNext iEnd sub五、程序分析题。给出下面程

16、序的运行结果。（每个5分，共10分）1、Function F(a As Integer) b = 0 Static c b = b + 1 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 2 For i = 1 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。2、Sub Change(ByVal x As Integer, y As Integer) Dim t As Integer t = x x = y y =

17、t Print x, yEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20Change a, b Print a, bEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。姓名_ 班级_ 考号_ 装订线内不可答题 VB答案专页一、选择题。 123456789101112 131415161718192021222324252627282930 二、填空题。 1、 2、 3、 4、 5、 6、 7、 8、 9、 10、 11、 12、 13、 三、判断题。12345678910四、程序填空题。1、 2、 3、 4、 5、 6、 7、 五、程序分析题。1、2、 专心-专注-专业