VB对口高考模拟试题1

VB对口高考模拟试题1

‎《VB》对口高考模拟试题1‎ 一、 选择题。（每个1分，共30分）‎ ‎1、某一VB工程含F1、F2两个窗体，执行“F1．Show: F2．Hide”语句后，F1、F2窗体显示的结果为（ ）。‎ A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示F2窗体 ‎2、删除列表框中指定的项目所使用的方法为（ ）‎ A move B remove C clear D removeitem ‎3、Integer类型的变量可存放的最大整数是（ ）。 A、255 B、‎256 C、32768 D、32767 4、下列符号不能作为VB中变量名的是（ ）。 A 、 abcd B、 p‎1234 C、 89edf D、xyz 5、将焦点主动设置到指定的控件或窗体上，应采用的方法是（ ）。 A、SetDate B、SetFocus C、SetText D、GetGate 6、若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ ）。 A、Text属性值为* B、Caption属性值为* C、Password属性值为空 D、Passwordchar属性值为* 7、表达式10+10Mod3*3的值为（ ）。 A、11 B、‎2 C、13 D、6‎ ‎8、数学式子Sin25°写成VB表达式是（ ）。‎ A、Sin25 B、Sin（25） C、SIN（25°） D、Sin（25*3.14/180） ‎ ‎9．Sub过程与 Function过程最根本的区别是（ ）。‎ A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。‎ B、Function过程可以有参数，Sub过程不可以。‎ C、两种过程参数的传递方式不同。‎ D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。‎ ‎10、多窗体程序由多个窗体组体组成，在缺省的情况下，VB在执行应用程序时，总是将（ ）指定为启动窗口。‎ A、不包含任何控件的窗口 B、包含控件最多的窗口 C、命名为Form1的窗体 D、设计时的第一个窗体 ‎11、要退出Do…Loop循环，可使用的语句是（ ）。‎ ‎ A、Exit B、Exit For C、End Do D、Exit Do ‎12、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。‎ Private Function Sum( a,b,c)‎ ‎ a=a+1:b=b+1:c=c+1‎ Sum=a+b+c End Function Private Sub Command1_Click( )‎ ‎ a=1:b=2:c=3‎ Call Sum(a,b,c)‎ ‎ Print a;b;c End Sub A、1 2 3 B、2 3 ‎4 C、 3 4 5 D、4 5 6‎ ‎13、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。‎ Private Function Sum( ByVal a, ByVal b,ByVal c)‎ ‎ a=a+1:b=b+1:c=c+1‎ Sum=a+b+c End Function Private Sub Command1_Click( )‎ a=1:b=2:c=3‎ Call Sum(a,b,c)‎ ‎ Print a;b;c End Sub A、1 2 3 B、2 3 ‎4 ‎‎ C、1 3 4 D、1 2 4‎ ‎14、以下叙述中错误的是：( )‎ A）双击鼠标可以触发DblClick事件 B）窗体或控件事件的名称都可以由编程人员设定 C）移动鼠标时，会触发MouseMove事件 D）控件的名称可以由编程人员设定 ‎15、 InputBox函数返回值的类型为 （ ）。 A) 数值 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 3‎ List1.removeitem 0‎ List1.removeitem 1‎ End sub ‎ Private sub Form_load( )‎ List1.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=0‎ C x mod 2=1 and y mod 2=1 D x mod 2=0 and y mod 2=0‎ ‎20、函数string(5，66)的值为（ ）‎ A “BBBBB” B “bbbbb” 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、在窗体上有一个文本框控件，名称为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=3‎ ‎26、设a=6，则执行x＝IIf(a>5,-1,0)后，x的值为（ ）。‎ A、 5 B、 ‎6 ‎‎ C、 0 D、 -1‎ ‎27、以下有关VB颜色的表示中，（ ）是错误的。‎ A、 vbRed B、 QbColor(4) C、 RGB(255,0,0) D、 RGB(-255,0,0)‎ ‎28、以下程序段的输出结果是（ ）。‎ A=0‎ For j=1 TO 15‎ ‎ a=a+(j MOD 3)‎ Next j Print a A、 0 B、‎15 ‎‎ C、90 D、120‎ ‎29、以下是Command1的单击事件，单击Command1后，在当前目录下创建了一个名为a.txt的文件，该文件内容为（ ）。‎ Private Sub Command1_Click()‎ Open "a.txt" For Output As #1‎ Print #1, "计算机"；"等级考试"‎ Close #1 ‎ End Sub A、等级考试 B、计算机等级考试 C、计算机 D、计算机；等级考试 ‎30、已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为（ ）。‎ Private Function Sum( a,b,c)‎ ‎ Sum=a+b+c End Function A: 1 B: ‎2 ‎‎ C: 3 D: 6‎ 二、填空题。（每个1分，共20分）‎ ‎1、创建一个VB应用程序的三个主要步骤是 、 和 ‎ ‎ 。‎ ‎2、在Visual Basic的转换函数中，将字符串转换为数值的函数是 。‎ ‎3、要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK！时，应当编写的语句是　　　　　　　　　　。‎ ‎4、语句 Print "Visual Basic";Tab(7) "Hello" 表示第二个输出项在第 ‎ 列输出 。‎ ‎5、在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用 循环；若要求先判断循环进行的条件，可使用 循环或 循环。 ‎ ‎6、表达式937Mod2^2的值是 。 7、已知a=3,b=4,c=5,表达式a>b and Not c>a Or c>b And c15 And 8< 5+2的输出结果为 。‎ ‎9、表达式Instr(2,"VisualBasic","Basic")的值为 。 10、设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从2到6，则相应的数组声明语句为 。‎ ‎11、某一事件过程如下： Private Sub cmd1_Click() Form1.Caption=”VB示例” End Sub 则响应该过程的对象名是 ，事件名是 。‎ ‎12、PictureBox控件可通过设置其 属性为True使之可自动调整大小；而Image控件可通过设置其 属性为True，使其加载的图片能自动调整大小以适应Image。 13、计时器控件在 是可见的，在 是不可见的。它在后台每隔一定时间间隔触发相应事件。‎ 三、判断题。（每个1分，共10分）‎ ‎1．可以在窗体的通用部分声明静态变量。‎ ‎2．使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串“""”，定长字符串用空格填充，Variant变量被初始化为 Enpty，布尔型的变量被初始化为False。‎ ‎3．决定对象是否可见的属性Visible属性，决定对象可用性的属性是Enabled属性。‎ ‎4．赋值语句的功能是计算表达式值并转换相同类型数据后为变量或控件属性赋值。‎ ‎5．当图像框Image控件的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。‎ ‎6．在标准模块中用Public声明全局变量，使变量在整个应用程序中有效。‎ ‎7．列表框和文本框一样均没有Caption属性，但都具有Text属性。‎ ‎8．随机文件以记录为单位读写，二进制文件以字节为单位读写。‎ ‎9．当使用Call语法时，参数表必须在括号内，Call关键字也可省略。‎ ‎10．Msgbox函数的返回值为字符串型。‎ 四、程序填空题。（每个2分，共30分）‎ ‎1、若命令按钮的名称为Cmdopen，程序要求单击以上命令按钮时，打开一个窗口form1，请对以下事件过程填空。‎ Private Sub Cmdopen_ 　　　 　‎ ‎　　 　　‎ End Sub ‎ 2、下面程序运行后，第1行输出 ，第2行输出 ‎ ‎ Private sub command_click()‎ Dim i as integer,j as integer, k as integer ‎ K=0‎ ‎ For i=0 to 10 step 3‎ ‎ For j=1 to 10‎ ‎ If j>5 then k=k+4：exit for ‎ K=k+1‎ ‎ Next j ‎ Print i，k ‎ If i>8 then exit for Next i End sub ‎3、以下程序是一个评分程序，有10名评委，去掉一个最高分和一个最低分，计算平均分 ‎（设满分为100分）。试填空。‎ ‎ Private sub command1_click()‎ ‎ Max=0：Min=100‎ For i=1 to 10‎ ‎ n=val(inputbox(“请输入分数：”))‎ ‎ if then Max=n ‎ if then Min=n ‎ s=s+n ‎ next i s= ‎ p=s/8‎ print “最高分：”；Max,，“最低分：”；Min print “最后得分：”；p end sub ‎4、窗体上有一个命令按钮（command1 ）和两个文本框（text1与text2）。在Text1中输入任意一个字符串，单击命令按钮后该字符串以反序的形式出现在Text2中。试完成程序。‎ ‎ Private sub command1_click()‎ Dim n as string, c as string, d as string n=text1.text m= ‎ for i=m to 1 step -1‎ ‎ c= ‎ ‎ d=d& ‎ next i text2.text=d ‎ end sub ‎5、在下面的程序中，要求循环体执行4次，试填空。‎ ‎ Private sub command1_click()‎ ‎ X=1 ‎ ‎ Do while ‎ ‎ X=X+2‎ ‎ ‎Loop End sub ‎6、以下命令按钮的事件过程用于计算10！。‎ Private sub command1_click()‎ ‎ X=1 ‎ Result = ‎ While x<=10‎ ‎ Result = ‎ ‎ X=X+1‎ ‎ Wend ‎ Print Result End sub ‎7、执行下面的程序后，第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 ch Next i End sub 五、程序分析题。给出下面程序的运行结果。（每个5分，共10分）‎ ‎1、Function F(a As Integer)‎ ‎ b = 0‎ ‎ Static c ‎ b = b + 1‎ ‎ c = c + 2‎ ‎ F = a + b + c End Function Private Sub Command1_Click()‎ ‎ Dim a As Integer ‎ a = 2‎ ‎ For i = 1 To 3‎ ‎ Print F(a)‎ ‎ Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。‎ ‎2、Sub Change(ByVal x As Integer, y As Integer)‎ ‎ Dim t As Integer ‎ t = x ‎ x = y ‎ y = t ‎ Print x, y End Sub Private Sub Form_Click()‎ ‎ Dim a As Integer, b As Integer ‎ a = 10: b = 20‎ Change a, b ‎ Print a, b End Sub 写出程序运行时单击窗体后，Form1上的输出结果。‎ 姓名_________ 班级_______ 考号______ ‎ ‎————————————————装订线内不可答题——————————————————————————————‎ ‎ 《VB》答案专页 一、选择题。 ‎ ‎1‎ ‎2‎ ‎3‎ ‎4‎ ‎5‎ ‎6‎ ‎7‎ ‎8‎ ‎9‎ ‎10‎ ‎11‎ ‎12 ‎ ‎13‎ ‎14‎ ‎15‎ ‎16‎ ‎17‎ ‎18‎ ‎19‎ ‎20‎ ‎21‎ ‎22‎ ‎23‎ ‎24‎ ‎25‎ ‎26‎ ‎27‎ ‎28‎ ‎29‎ ‎30 ‎ ‎ ‎ ‎ 二、填空题。 ‎ ‎1、 2、 ‎ ‎3、 4、 5、 ‎ ‎ 6、 ‎ ‎7、 8、 ‎ ‎9、 10、 ‎ ‎11、 ‎ ‎12、 ‎ ‎13、 ‎ 三、判断题。‎ ‎1‎ ‎2‎ ‎3‎ ‎4‎ ‎5‎ ‎6‎ ‎7‎ ‎8‎ ‎9‎ ‎10‎ 四、程序填空题。‎ ‎1、 ‎ ‎2、 ‎ ‎3、 ‎ ‎4、 ‎ ‎ ‎ ‎5、 ‎ ‎6、 ‎ ‎7、 ‎ 五、程序分析题。‎ ‎1、‎ ‎2、‎ ‎ ‎