VB模拟试题四

vb模拟试题及答案1. 以下哪个选项是Visual Basic（VB）的编程语言？A. C++B. JavaC. PythonD. 答案：D2. 在中，以下哪个关键字用于声明一个类？A. FunctionB. ClassC. SubD. Module答案：B3. 在中，以下哪个属性用于获取或设置一个窗体的标题？A. TextB. TitleC. CaptionD. Label答案：C4. 在中，以下哪个方法用于启动一个新的线程？A. StartB. BeginInvokeC. ThreadD. Run答案：A5. 在中，以下哪个数据类型用于表示布尔值？A. BooleanB. StringC. IntegerD. Double答案：A6. 在中，以下哪个选项用于创建一个数组？A. Dim arr(5) As IntegerB. Dim arr As New Integer(5)C. Dim arr As Integer = 5D. Dim arr As Integer(5)答案：A7. 在中，以下哪个关键字用于实现继承？A. InheritsB. ImplementsC. InheritsFromD. Base答案：A8. 在中，以下哪个关键字用于捕获异常？A. TryB. CatchC. FinallyD. All of the above答案：D9. 在中，以下哪个方法用于将一个字符串转换为小写？A. ToLowerB. ToLowercaseC. LowerD. ConvertToLower答案：A10. 在中，以下哪个方法用于将一个字符串转换为大写？A. ToUpperB. ToUppercaseC. UpperD. ConvertToUpper答案：A。

VB机试模拟试卷4(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．注意：下面出现的“考生文件夹”均为c:\wexam\25160001。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题为“输出”的命令按钮，如图4-1所示。

要求程序运行后，在文本框输入几个字符，单击“输出”按钮，则在窗体上显示文本框中的文字。

注意：在程序中不能使用任何变量。

保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

(2)在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题为“按钮一”和“按钮二”的命令按钮，如图4-2所示。

要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上，使两个按钮重合，如图4-3所示。

注意：在程序中不得使用任何变量(必须通过属性设置来移动控件)。

保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp正确答案：(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。

通过命令按钮的Caption属性来设置其标题，单击命令按钮触发Click事件；文本框显示内容是用Text属性。

文本框中的内容通过其Text属性得到，在命令按钮的Click事件中利用Print方法将文本框中的内容输出，完成题目要求。

解题步骤：第一步：建立界面并设置控件属性。

程序中用到的控件及其属性见表4-1。

第二步：编写程序代码。

参考代码：Private Sub Cmd1_Click( ) Cls Print Text1.Text End Sub 第三步：调试并运行程序。

第四步：按题目要求存盘。

(2)在窗体上建立好控件后，先设置控件的属性，再编写事件过程。

命令按钮的Caption属性用来设置其标题，单击命令按钮触发Click 事件，本题考查的是按钮的摆放位置的设置，涉及到对象的Left和Top属性。

附录1 Visual Basic笔试模拟试题（1~6套）笔试模拟试题 1第一部分软件技术基础（共15分）一、是非判断题（每小题1分，共10分）（判断下列各题是否正确，如正确，在客观答题纸上对应编号选A，否则选B）1．在操作系统中，作业调度和进程调度没有区别。

（）2．数据类型是具有共同属性的一类变量的抽象。

（）3．瀑布模型中需求分析的主要工作是确定要开发的软件做什么。

（）4．软件设计阶段产生的最重要的文档之一是概要设计说明书。

（）5．在进行插入排序时，其数据比较次数和数据的初始排列无关。

（）6．软件测试不是为了证明软件的正确性，而是立足于软件有错误而进行的。

（）7．线性表若采用链式存储表示时所有结点之间的存储单元地址必须连续。

（）8．中断处理通常是按中断优先级响应和进行中断的。

（）9．缓冲池可作为CPU和I/O设备之间信息传输的集散地。

（）10．进程调度是根据一定的调度算法，从等待队列中挑选出合适的进程。

（）二、选择题（每小题1分，共5分）1．把高级语言的源程序翻译成二进制代码的过程称为：（A ）（A）编译（B）连接（C）运行（D）重定位2．把逻辑地址转变为内存的物理地址的过程称作：（D ）（A）地址分配（B）地址连接（C）地址调用（D）地址变换3．白盒法又称为逻辑覆盖法，主要用于：（D ）（A）功能测试（B）系统测试（C）α测试（D）单元测试4．在操作系统中，进程最基本的特征是：（A ）（A）动态性和并发性（B）顺序性和可再现性（C）和程序的对应性（D）执行过程的封闭性5．以下哪一项不是软件危机的表现形式。

（C ）（A）成本高（B）生产率低（C）技术发展快（D）质量得不到保证第二部分Visual Basic语言程序设计（共85分）一、单项选择题（每小题1分，共10分）1. 数学表达式|（2x+3y）sinz|的VB表达式为（ C ）。

（A）| ( (2*x+3*y)*sin(z) )| （B）Abs( (2x+3y)*sin(z) )（C）Abs( (2*x+3*y)*sin(z) ) （D）Abs( (2*x+3*y)*sinz )2. 在下列VB运算符中，运算优先级最低的是（A ）。

一、基础单项选择 (每小题1分,共20分)1、下列哪个符号不能作为VB中的变量名（D）。

(A)wash (B)CET4 (C)fh (D)a[3]2、函数Int( 5 * RND )+1的值是在哪个范围内的整数（C）。

(A) [0,5] (B) [0,6] (C) [1,5] (D) [1,6]3、语句Dim x As Single作用是:将x定义为（A）变量。

(A)单精度型(B)整型 (C) 布尔型(D)字符型4. Int(-6.24)的值是（C）。

(A) -6 (B) -6.14 (C) -7 (D) 6.245．设A=7, 则A MOD 3 的值是（B）。

(A) 7 (B) 1 (C) 3 (D) 56．Len(“Goodbaby”)的值是（C）。

(A) 6 (B) 7 (C)8 (D) 97. Left (“SWUSTNIC”,2)的值是（A）。

(A) SW (B) W (C) IC (D) US8、表达式2*3^2+2*6/3 的值是（B）。

(A) 60 (B) 22 (C) 45 (D) 589、语句Dim arr(-3 TO 4,2 TO 6)AS Integer定义的数组元素有（D）个。

(A)45 (B)35 (C)42 (D)4010、设有语句: a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（A）。

(A) 字符串"20" (B) 字符串"120"(C) 默认值100 (D) 数值12011、要从for-next中退出循环使用的语句是（B）。

(A) exit (B) exit for (C) continue (D) stop loop12、设a=3,b=5,则以下表达式值为真的是（B）。

（A）a>=b And b>10 （B）(a>b) Or (b>0)（C）(a<0) Eqv( b>0) （D）(-3+5>a) And (b>0)13、设a=“Visual□Basic”,下面使b=“Basic”的语句是（D）。

VB期末模拟试题4一、单项选择题（每题2分，共30分）1．定义符号常量所使用的命令为（）。

A．Dim B．Public C．Static D．Const2．在Visual Basic中表达式x=8的类型是（）。

A．错误的表达式B．关系表达式C．算术表达式D．逻辑表达式3．在下列四个表达式中，非法的Visual Basic表达式是（）。

A．x=x+y B．x+y>z C．x=(x=y) D．以上均为合法表达式4．数学式子Sin300写成V isual Basic表达式是（）。

A．Sin30B．Sin(30)C．SIN(300)D．Sin(30*3.14/180)5．用于获得字符串S最右边4个字符函数是（）。

A．Right(S,4) B．Left(S,4)C．RightStr(S) D．RightStr()6．用于获得字符串S从第6个字符开始的4个字符的函数是（）。

A．Mid(S, 6, 4) B．Mid (S, 4, 6)C．MidStr(S, 6, 4) D．MidStr(S, 4, 6)7．用于获得字符串长度的函数是（）。

A．Len() B．Length()C．StrLen() D．StrLength()8．用于获得字符串S最左边4个字符的函数是（）。

A．Left (S,4) B．Left(1,4)C．LeftStr (S) D．LeftStr (S,4)9．表达式4 + 5 \\ 6 * 7 Mod 8 / 9的值是（）。

A．4 B．5C．6 D．710．以下多窗体操作中工程文件的扩展名是（）。

A．.frm B．.vbp C．.bas D．.cls11. 下面选项中，能绘制椭圆的语句是（）A．Circle (1000, 1000),500,RGB(255,0,0),0.5B．Circle (1000, 1000),500,RGB(255,0,0),,0.5C．Circle (1000, 1000),500,RGB(255,0,0),,,0.5D．Circle (1000, 1000),500,RGB(255,0,0),,,,0.512.图像框（Image）和图片框（Picture）在使用时有所不同，以下叙述中正确的是（）A．图片框比图像框占内存少B．图像框内还可包括其它控件C．图片框有Stretch属性而图像框没有D．图像框有Stretch属性而图片框没有13.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（）A．ADOrs.New "Select * From Tabel"B．ADOrs.Open "Select * From Tabel"C．ADOrs.Execute "Select * From Tabel"D．ADOrs. Select "Select * From Tabel"14.要发送数据，通常使用Winsock控件的（）A．SendData方法B．Listen方法C．Accept方法D．GetData方法15. VB程序中通常不会产生错误提示的（）。

计算机等级考试二级VB模拟试题四及答案解析一、选择题(1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private SubCommand1_Click()Move 500,500End Sub程序运行后，单击命令按钮，执行的操作为A)命令按钮移动到距窗体左边界、上边界各500的位置B)窗体移动到距屏幕左边界、上边界各500的位置C)命令按钮向左、上方向各移动500D)窗体向左、上方向各移动500正确答案: B(2)在窗体上有若干控件，其中有一个名称为Text1的文本框。

影响Text1的Tab顺序的属性是A)TabStopB)EnabledC)VisibleD)TabIndex正确答案: D(3)以下定义数组或给数组元素赋值的语句中，正确的是A)Dim a As Varianta=Array(1,2,3,4,5)B)Dima(10)As Integera=Array(1,2,3,4,5)C)Dim a%(10)a(1)="ABCDE"D)Dim a(3),b(3)As Integera(0)=0a(1)=1a(2)=2b=a正确答案: A(4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A)For i=0 ToList1.ListCount-1……NextB)For i=0 To List1.Count-1……NextC)For i=1 To List.ListCount……NextD)For i=1 ToList1.Count……Next正确答案: A(5)以下Case语句中错误的是A)Case 0 To10B)Case Is>10C)Case Is>10 And Is<50D)Case 3, 5,Is>10正确答案: C(6)以下关于图片框控件的说法中，错误的是A)可以通过Print方法在图片框中输出文本B)清空图片框控件中图形的方法之一是加载一个空图形C)图片框控件可以作为容器使用D)用Stretch属性可以自动调整图片框中图形的大小正确答案: D(7)执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是A)VisualB)BasicC)6D)11正确答案: C(8)以下叙述中错误的是A)下拉式菜单和弹出式菜单都用菜单编辑器建立B)在多窗体程序中，每个窗体都可以建立自己的菜单系统C)除分隔线外，所有菜单项都能接收Click事件D)如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见正确答案: D(9)在窗体上画一个命令按钮，其名称为Command1,然后编写如下事件过程：Private Sub Command1_Click()a=12345Print Format＄(a,"000.00")EndSub程序运行后，单击命令按钮，窗体上显示的是A)123.45B)12345.00C)12345D)00123.45正确答案: B(10)以下叙述中错误的是A)一个工程可以包括多种类型的文件B)Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C)程序运行后，在内存中只能驻留一个窗体D)对于事件驱动型应用程序，每次运行时的执行顺序可以不一样正确答案: C(11)以下关于函数过程的叙述中，正确的是A)函数过程形参的类型与函数返回值的类型没有关系B)在函数过程中，过程的返回值可以有多个C)当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D)如果不指明函数过程参数的类型，则该参数没有数据类型正确答案: A(12)以下关于变量作用域的叙述中，正确的是A)窗体中凡被声明为Private的变量只能在某个指定的过程中使用B)全局变量必须在标准模块中声明C)模块级变量只能用Private关键字声明D)Static类型变量的作用域是它所在的窗体或模块文件正确答案: B(13)确定一个控件在窗体上的位置的属性是A)Width和HeightB)Width或HeightC)Top和LeftD)Top或Left正确答案: C(14)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private SubCommand1_Click()Text1.Text="Visual"Me.Text1="Basic"Text1="Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是A)VisualB)BasicC)ProgramD)出错正确答案: C(15)以下关系表达式中，其值为False的是A)"ABC">"AbC"B)"the"<>"they"C)"VISUAL"=UCase("Visual")D)"Integer">"Int"正确答案: A(16)语句Print5/4*6＼5 Mod 2的输出结果是A)0B)1C)2D)3正确答案: B(17)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程：Private SubCommand1_Click()strText=InputBox("请输入")Text1.Text=strTextEndSubPrivate Sub Text1_Change()Label1.Caption=Right(Trim(Text1.Text),3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef,则在标签中显示的内容是A)空B)abcdefC)abcD)def正确答案: D(18)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=-5If Sgn(x)Theny=Sgn(x∧2)Elsey=Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是A)-5B)25C)1D)-1正确答案: C(19)一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Public X AsInteger,在Model1中有语句Public Y As Integer。

一、概念填空题（每空0.5分，共10分）1．如果希望时钟控件每0.6秒钟产生一个计时事件，应将（）属性值应设置为（）。

2．为了防止用户编辑文本框内的内容，应将控件的（）属性设置为（）。

3．VB中，列表框对象常使用的方法有（）、（）和（）。

4．结构化程序设计方法，把程序的结构规定为三种基本结构，它们是：（）、（）和（）三种基本结构。

5．VB中，工程文件、窗体文件的文件后缀名分别是（）、（）。

6．VB中，用Option Base 1说明后，Dim A（4，6）定义的数组有（）个元素。

7．x,y 都小于z的VB表达式为（）。

8．设A=2,B=-2,则表达式A/2+1＞B+5 Or B*(-2)=6的值是（）。

9．将一般窗体转换为MDI窗体的子窗体时要把（）属性的值设置为（）。

10．在多窗体工程中，可用（）方法显示一个窗体，用（）方法将一个窗体隐藏起来。

11．用随机数函数Rnd产生100～200之间（含100和200）的随机整数的表达式是：（）。

二、是非题(答案填入表中，正确的打钩，错误的打叉，每题1分，共20分)1．在Visaul Basic中，当一个工程含有多个窗体时，其中的启动窗体是第一个添加的窗体。

2．在Visaul Basic中，Redim语句可以改变数组的类型。

3．在Visaul Basic中，文本框的Autosize属性是根据文本内容自动调整文本框的大小。

4．在Visaul Basic中，工具箱中包含了所有的VB控件。

5．在Visaul Basic中，列表框包含了组合框的功能。

6．在Visaul Basic中，在同一个模块不同过程中的变量可以同名。

7．在Visaul Basic中，要删除组合框中的某一个项目，可以使用Clear方法。

8．在Visaul Basic中,若在程序中使用日期型数据时，必须用符号{}将日期型数据括起来。

9．在Visaul Basic中，使焦点移动到某一个控件上的方法是Lostfocus。

全国计算机等级考试二级VB笔试模拟试题(4)总分：100分及格：60分考试时间：90分每小题2分，共70分(1)执行下列程序后，鼠标单击窗体，输出结果为。

Private Sub Form_Click（）Print "Click"; End Sub Private Sub Form_MouseDown（Button As Integer, Shift _ As Integer, X As Single, Y As Single）Print "Donw" End Sub Private Sub Form_MouseUp（Button As Integer, Shift _ As Integer, X As Single, Y As Single）Print " Up" End Sub（）。

A. DownUpClickB. ClickDownUpC. DownClickUpD. UpDownClick(2)在属性窗口中设置何属性，可以把指定的图形放入当前对象中?（）。

A. CurrentYB. PictureC. CurrentXD. Stretch(3)Visual Basic 6.0分为3种版本，不属于这3种版本的是（）。

A. 学习版B. 专业版C. 企业版D. 业余版(4)当组合框的Style属性设置为何值时，组合框称为下拉式列表框（）。

A. 0B. 1C. 2D. 3(5)在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。

当改变当前驱动器时，目录列表框应该与之同步改变。

设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。

A. Drive1_ChangeB. Drive1_ClickC. Dir1_ClickD. Dir1_Change(6)有如下事件过程，单击命令按钮扣，输出结果为Private Sub Command1_Click（）Dim b%（1 To 4）, j%, t# For j=1 To 4 b（j）=j Next j t=Tax（b（））Print "t="; t, End Sub Function Tax （a（）As Integer）Dim t#, i% t=1 For i=2 To UBound（A．t=t * a（i）Next i Tax=t End Function（）。

VB复习题一一、判断题：(每小题1分，共20分。

请将答案涂在答题卡上，正确的涂A，错误的涂B）1.Visual Basic 6.0工作模式有3种：它们是设计、运行和调试。

（）2.标签支持Dblclick事件。

（2 ）3.窗体中控件的位置由Height和Top属性确定。

（3 ）4.滚动条的SmallChange属性设置为5时，表示单击滚动条两端的箭头时变化为5. （4 ）5.当把定时器控件的Visible属性设置为True时，运行时定时器在窗体上就可见了。

（5 ）6.Vbred是Visual Basic 6.0允许的常量。

（6 ）7.#25/6/2018#是Visual Basic 6.0合法的日期型常量书写。

（7 ）8.逻辑运算符Not的优先级比Or高。

（8 ）9.Visual Basic 6.0中可以用print做变量名。

（9 ）10.表达式5 mod 4与5\4的结果相同。

（10 ）11.语句if x>=60 and x<70 then print ”及格”是正确的。

（11 ）12.有select case 语句必须有End select语句与之相匹配。

（12 ）13.Exit for是Do循环的一个出口。

（13 ）14.选择结构与循环结构可以相互嵌套，并且允许交叉嵌套。

（14 ）15.Visual Basic 6.0中，Dim a(-5 to 5) as single 是正确的数组定义。

（15 ）16.可以用Ubound()函数返回数组下标的下界。

（16 ）17.过程体内可以再定义另外一个过程。

（17 ）18.实参是变量，且过程定义时与其对应的形参用Byval关键字加以限制是地址（引用）传递。

（18 ）19.用Output模式打开文件，如果指定的路径不存在，则会自动先创建指定的路径，然后再创建文件。

（19 ）20.Visual Basic 6.0中，文件号最大可取的值是511。

2011年全国计算机等级考试二级VB模拟试卷（四）参考答案2011年全国计算机等级考试二级VB模拟试卷(四)参考答案一、选择题：35题，2分/题，共70分下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

1.执行以下程序段后,变量c的值为( )a = " Visual Basic Programing"b = "Quick"c =b & UCase (Mid(a,7,6) & Right(a,11)A)Visual BASIC ProgramingB)Quick Basic ProgramingC)QUICK Basic ProgramingD)Quick BASIC Programing分析:2.不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是（）A)A*B=0 and A+B<>0B)(A=0 or B=0)and (A<>0 OrB<>0)C)not(A=0 And B=0) and (A=0 or B=0)D)A*B=0 and (A=0 or B=0)分析:3. 下面子过程语句说明合法的是（）A)Function fl(ByVal n%)B)Sub fl (n%)As IntegerC)Function fl%(fl%)D)Sub fl(ByVal n%())分析:4.对窗体编写如下代码：Option Base 1Private Sub Form _KeyPress(KeyAscii As Integer) a=Array (237,126,587,48,498)ml=a(1)m2=1If KeyAscii=13ThenFor i=2 To 5If a (i)>ml Thenml=a (i)m2=iEnd IfNext iEnd IfPrint ml;print m2End Sub程序运行后，按回车键，输出结果为（）A)48 4B)237 1C)587 3D)498 4分析:5.Visual Basic 中没有提供下列（）事件A)MouseDownB)MouseUpC)MouseMoveD)MouseExit分析:6.执行下面对面的程序后，X的值为（）x=50Fox i=1 To 20 Step 2Next iA)66B)67C)68D)69分析:7.为了防止用户随意将光标置于控件之上，需做的工作是（）A)将控件的Enabled属性设置为FalseB)将控件的TabStop属性设置为FalseC)将控件的TabStop属性设置为TrueD)将控件的TabIndex属性设置为0分析:8.表达式String(2,"Shanghai")的值是（）A) ShB) ShanghaiC) ShanghaiShanghaiD) SS分析:9.为了在按回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（）A) valueB) DefaulC) CancelD) Enabed分析:10.visual Basic 提供的缺省窗体包含（）A) 标题栏B)菜单栏C)工具条分析:11.假定有一个菜单项，名为MenuItem,为了在运行时该菜单项失效（变灰），应使用的语句为（）A)MenuItem.Enabled=FalseB)MenuItem.Enabled=TrueC)MenuItem.Visible=TrueD)MenuItem.Visible=False分析:12.下列不能打开菜单编辑器的操作是（）A)按Ctrl+EB)单击工具栏中的“菜单编辑器”按钮C)执行“工具”菜单中的“菜单编辑器”命令D)按Shift+Alt+M分析:13.列表框（如图2-6所示）经过下列操作后，剩余的项目是（）Listl.RemoveItem lListl.RemoveItem 2Listl.RemoveItem lA)aaB)bbC)ccD)dd分析:14.要暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是（）A)VisibleB)TimerC)EnabledD)Interval分析:15.InputBox函数返回值的类型为（）A)数值B)字符串C)变体D)数值或字符串（视输入的数据而定）分析:16.当窗体的AutoRedraw属性采用默认值时，若在窗体装入时使用绘图方法绘制图形，则应将程序放在（）A)Paint事件B)Load事件C)Initilize事件D)Click事件分析:17.下列可以打开立即窗口的操作是（）A)Ctrl+DB)Ctrl+EC)Ctrl+FD)Ctrl+G分析:18.如是要向工具箱中加入控件和部件，可以利用“工程”的菜单中的（）命令A)引用B)部件C)工程属性D)添加窗体分析:19.若要清除列表框的所有内容，可用来实现的方法是（）A)RemoveitemB)ClsC)ClearD)以上均不可以分析:20.假定有下面的过程：Function Func(a As Integer,b As Integer)As IntegerStatic m As Integer, i As Integerm = 0i = 2i = i + m +1m = i + a + bFunc = mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim k As Integer, m As IntegerDim p As Integerk=4m=1p=Func(k,m)Print p;p=Func(k,m)Print pEnd Sub程序运行后，单击命令按钮，输出结果为（）。

可视化程序设计（VB）模拟试题第一篇：可视化程序设计(VB)模拟试题可视化程序设计（VB）一、填空题（32分，共 8 题，每小题 4 分）1.要使用通用对话框控件，必须首先在“部件”对话框中选择______，将其添加到工具箱中。

2.运行时，要使工具栏Toolbarl中索引值为4的按钮无效（变成灰色），应使用语句： ______。

3.运行时，要使工具栏控件T oolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： ______。

4.在用手工方式设计工具栏时，可以设置工具按钮的______ 属性为其添加功能提示。

5.用户自定义类型中的元素类型可以是字符串，但该字符串必须是 ______。

6.设a=sqr（2）*sqr（3），下列语句的输出结果分别是。

print format$（a，“000.00”）print format$（a，“###.#00”）print format$（a，“00.00E+00”）print format$（a，“－#.####”）7.如果需要将窗体载入内存却不显示，需要将该窗体的______ 属性设置为False，再用 ______ 语句装载。

8.随机产生一个范围是(100，300）的整数，表达式为 ______。

二、程序阅读题（24分，共 3 题，每小题 8 分）1.写出下列事件过程的执行结果。

Private Sub Command1_Click()s3(1)s3(1)End SubPrivate Sub s3(ByVal a As Integer)Dim x As Integer Static y As Integerx=x+ay=y+aPrint “x=”;x, “y=”;yEnd Sub2.下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。

标准模块：Type txr num As Integer name As String * 10 tel As String * 8 addr As String * 20End Type窗体模块：Private Sub Command1_Click()D im n%, zgr As txr Open “d:txrf1.dat”For Random As #1Len = Len(zgr)zgr.num = InputBox(“输入新职工编号：”) = InputBox(“输入新职工姓名：”)zgr.tel = InputBox(“输入新职工电话号码：”)zgr.addr = InputBox(“输入新职工住址：”)n =(1)(2)Close #1End Sub3.本程序有一个标准模块和一个窗体模块。

vb对口升学模拟试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的变量声明方式？A. Dim aB. Dim b = 10C. Dim c = "Hello"D. 所有选项都是正确的答案：D2. 下列哪个是Visual Basic中的数组声明？A. Dim arr(10)B. Dim arr() As IntegerC. Dim arr(0 To 9) As IntegerD. 所有选项都是正确的答案：D3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10 Then EndC. If x > 10 Then End IfD. If x > 10 Then Else答案：A4. 下列哪个是Visual Basic中的循环结构？A. For EachB. WhileC. Do WhileD. 所有选项都是正确的答案：D5. 在Visual Basic中，以下哪个是调用函数的正确方式？A. Call functionName()B. functionName()C. Both A and BD. None of the above答案：C6. 下列哪个是Visual Basic中的事件处理程序？A. Sub eventName()B. Function eventName()C. Property eventName()D. Sub eventName(ByVal sender As Object, ByVal e As EventArgs)答案：D7. 在Visual Basic中，以下哪个是正确的类声明？A. Class MyClassB. Dim MyClassC. Function MyClassD. None of the above答案：A8. 下列哪个是Visual Basic中的继承关键字？A. InheritsB. InheritsFromC. ExtendsD. None of the above答案：A9. 在Visual Basic中，以下哪个是正确的属性声明？A. Property MyProperty As IntegerB. Dim MyProperty As IntegerC. Function MyProperty As IntegerD. Both A and B答案：A10. 下列哪个是Visual Basic中的接口声明？A. Interface MyInterfaceB. Dim MyInterfaceC. Function MyInterfaceD. None of the above答案：A二、填空题（每空2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个类。

VB模拟试卷4第一部分Visual Basic基础知识（【1】—【35】选项）一．变量声明采用的类型说明符中，数据类型为单精度的类型说明符是【1】【1】(A) % (B) & (C) ! (D) #二．如果用流程图（程序框图）来描述算法，根据框内的条件成立与否决定程序流向的判断框是【2】【2】(A) (B) (C) (D)【3】(A) Pascal语言(B) Visual Basic语言(C) 机器语言(D) 汇编语言四．逻辑表达式的值的类型为【4】【4】(A) 整型(B) 单精度型(C) 字符串型(D) 逻辑型五．在VB中使用变量前，一般应该先声明变量，一条Dim语句可以定义多个变量，两个变量间应用【5】分隔【5】(A) 逗号(B) 冒号(C) 分号(D) 空隔符六．VB的工程文件的扩展名为【6】【6】(A) .frm (B) .vbp (C) .exe (D) .doc七．下图列出了VB工具箱中常用的控件，其中箭头所指的是【7】控件【7】(A) Label (B) TextBox (C) CommandButton (D) PictureBox 八．在Timer控件中，若要设置相邻两次的触发时间为0.1秒，则Interval属性的值应为【８】【８】(A) 0.1 (B) 1 (C) 10 (D) 100九．VB允许一行书写多个语句，每两句之间的分隔符为【9】【9】(A) 逗号(B) 冒号(C) 分号(D) 空隔符十．运行VB程序时，若要在名为Tx1的Label控件中显示字样“请输入n的值”，则下列代码中正确的是【10】【10】(A) Label.Caption="请输入n的值" (B) Label.Text="请输入n的值"(C) Tx1.Caption="请输入n的值" (D) Tx1.Text="请输入n的值"十一．下列选项中，【11】是窗体载入事件过程的过程名【11】(A) Command1_Click() (B) Form_Load()(C) Text1_Click() (D) Timer1_Timer()十二．利用Timer控件实现Label1在窗体上显示的内容从上往下不断移动，则下列代码中正确的是【12】【12】(A) Label1.Left= Label1.Left+50 (B) Label1.Left= Label1.Left-50(C) Label1.Top= Label1.Top+50 (D) Label1.Top= Label1.Top-50十三．若要把文本框Text1中的字体改为楷体，则必须修改属性【13】的设置【13】(A) Enabled (B) Font (C) Locked (D) Text十四．下列各赋值语句，不正确的是【14】【14】(A) x+y=5 (B) iNumber=15(C) Label1.caption=time (D) sLength=x+y十五．下列选项中，不属于文本框Text 的事件的选项是【15】【15】(A) Change (B) Gotfocus (C) Click (D) Timer十六．下列各属性选项中，不是对象Label的属性的是【16】【16】(A) Caption (B) Font (C) PasswordChar (D) Backcolor十七．执行语句x=Int (10* Rnd ()) 后整数x的取值范围是【17】【17】(A)0≤x≤10 (B) 0<x≤10 (C) 0≤x<10 (D) 0<x<10十八．下列关于变量声明中，【18】不能把x , y 都声明为字符串类型【18】(A) Dim x , y As String (B) Dim x As String , y As String(C) Dim x $ , y$ (D) Dim x $ , y As String十九．VB提供了丰富的数据类型，其中单精度型要占用【19】个字节的存储空间【19】(A) 2 (B) 4 (C) 8 (D) 16二十．下列关于VB不同类型的运算符之间的优先次序的描述中，正确的是【20】【20】(A) 字符串运算符>逻辑运算符>关系运算符(B) 逻辑运算符>关系运算符>算术运算符(C) 关系运算符>算术运算符>字符串运算符(D) 算术运算符>关系运算符>逻辑运算符二十一．下列各选项中，属于合法的VB的变量名的是【21】【21】(A) For (B) 3D (C) Num1_2 (D) Name+3二十二．用逻辑表达式表示“x不大于15且x不小于10”，正确的是【22】【22】(A) 10 <= x <= 15 (B) 10≤x and x≤15(C) (x≥10) and (x≤15) (D) x>=10 and x<=15二十三．下列各个函数中，函数值不可能为单精度型的是【23】【23】(A) Abs () (B) Sqr () (C) Int () (D) Rnd ()二十四．下列逻辑表达式中，值为True的是【24】【24】(A) "abc" > "bc" (B) Int ( Rnd () * 3 ) > 2(C) ( 1+2 <= 3 ) and ( 4+5 > 7 ) (D) 10 Mod 3 = 2二十五．控件Label的BackColor属性用于设置该对象的【25】【25】(A) 高度(B) 宽度(C) 背景色(D) 前景色二十六．如果要改变窗体的标题,需要设置窗体对象的【26】属性。

VB程序设计(专升本)阶段性作业1总分: 100分考试时间:分钟单选题1. 运算符“\”两边的操作数若类型不同，则先_________再运算。

(5分)(A) 取整为Byte类型(B) 取整为Integer类型(C) 四舍五入为整型(D) 四舍五入为Byte类型参考答案：C2. 将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件_________。

(5分)(A) doc与.txt(B) com与.exe(C) bat与.frm(D) vbp与.frm参考答案：D3. Print语句的一个输出表达式为_________，则输出包括日期．时间信息。

(5分)(A) Date(B) Month(C) Time(D) Now参考答案：D4. 在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是_________。

(5分)(A) 项目（工程）窗口(B) 工具箱(C) 代码窗口(D) 属性窗口参考答案：C5. 语句Print "5*5" 的显示结果是__________。

(5分)(A) 25(B) "5*5"(C) 5*5(D) 出现错误提示参考答案：C6. 语句“Form1.Print Tab(10);"#"”的作用是在窗体当前输出行_________。

(5分)(A) 第10列输出字符“#”(B) 第9列输出字符“#”(C) 第11列输出字符“#”(D) 输出10个字符“#”参考答案：A判断题7. 在Visual Basic中，有一些通用的过程和函数作为方法供用户直接调用。

(5分)正确错误参考答案：正确解题思路：8. 在面向对象的程序设计中，对象是指可以访问的实体。

(5分)正确错误参考答案：正确解题思路：9. 事件是由Visual Basic预先定义的对象能够识别的动作。

(5分)正确错误参考答案：正确解题思路：10. 由Visual Basic语言编写的应用程序有解释和编译两种执行方式。

样卷1一、判断题（正确打“√”，错误打“×”）1.窗体的Enabled属性值为False时，该窗体上的按钮、文本框等控件就不会对用户的操作做出响应。

2.当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条添加到它的列表框中。

3.如果一个菜单项的Visible属性为False，则它的子菜单也不会显示。

4.VB中的函数和过程，都可以返回一个值。

5.在一个子程序中，可以用Public声明变量，使它在整个应用程序中全程有效。

6.单选按钮（OptionButton）控件和复选框（CheckBox）控件都具有Value属性，他们得作用完全相同。

7.Do … Loop while语句实现循环时，不管条件真假，至少执行一次循环体语句。

二、选择题1.由For k=35 to 0 Step 3 : Next k 循环语句控制的循环次数是。

A. 0B. 12C. –11D. –102.使命令按钮控件无效，不响应动作，则需把它的属性设置为FalseA. VisibleB. EnabledC. NameD. Checked3.语句a=a+1 的正确含义是。

A. 将变量a加1 以后得到的值放到变量a中B. 能得到一个布尔值FalseC. 变量a的值等于变量a+1的值D. 变量a的值等于无穷大4.已知a＝2，b＝3，c＝4，d＝5在一下逻辑表达式中，的值为TrueA. a>b and c<=d or 2*a>cB. 3>2*b or a=c and b<>c or c>dC. not a<=c or 4*c=b^2 and b<>a+cD. a<=c or a^2<b and b>a+c5.设窗体上有一个列表框控件List1，且其中含有若干列表项。

则以下能表示当前被选中的列表项内容的是A. List1.ListB. List1.ListIndexC. List1.IndexD. List1. Text6.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是A. MouseDownB. MouseUpC. LoadD. Click7.设有以下循环结构Do循环体Loop While <条件>则以下叙述中错误．．的是A. 若"条件"是一个为0的常数，则一次也不执行循环体B. "条件"可以是关系表达式、逻辑表达式或常数C. 循环体中可以使用Exit Do语句D. 如果"条件"总是为True，则不停地执行循环体8.结束当前程序运行，可使用语句。