VB模拟试题4及答案

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属性。

vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。

答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。

一、单项选择题（每小题1分，共10分）（1）在Visual Basic中，工程文件的扩展名为（）A）exe B）bas C）frm D）vbp（2）以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是（）A）= “VisualBasic窗体”B）Form1.Title= “VisualBasic窗体”C）Form1.Caption= “VisualBasic窗体”D）Form1.Text= “VisualBasic窗体”（3）设a=5，b=4，c=3，d=2，下列表达式的值是（）3>2*b Or a=c And b<>c Or c>dA）1 B）True C）False D）2（4）要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句（）A）Option Base 0 B）Option ExplicitC）Option Base 1 D）Option Compare（5）设a=” Visual Basic”，下面使b=”Basic”的语句是（）A）b=Left(a,8,12) B）b=Mid(a,8,5)C）b=Right(a,5,5) D）b=Left(a,8,5)（6）如果X是一个正实数，对X的小数点后二位数进行四舍五入的表达式是（）A）0.01*Int(x+0.05) B）0.01*Int(100*(x+0.05))C）0.01*Int(100*(x+0.005)) D）0.01*Int(x+0.5)（7）设有语句Open “Test.Dat” For input As #1以下叙述中，正确的是（）A）以读方式打开顺序文件Test.DatB）以写方式打开顺序文件Test.DatC）以读方式打开随机文件Test.DatD）以写方式打开随机文件Test.Dat（8）然后编写如下事件过程：Private Sub Command1_Click()a$ = "等级考试"b$ = "+-*/"For j = 1 To 4c$ = c$ + Mid$(a$, j, 1) + Right$(b$, 1)Next jPrint c$End Sub程序运行后，单击命令按钮，则显示的内容是（）A）等-级-考-试B）等*级*考*试C）等/级/考/试D）出错（9）要使一个文本框具有垂直滚动条，则应（）A）将其MultiLine设置为True，同时将ScrollBars属性设置为1B）将其MultiLine设置为True，同时将ScrollBars属性设置为2C）将其MultiLine设置为True，同时将ScrollBars属性设置为3D）将其MultiLine设置为True，同时将ScrollBars属性设置为0（10）以下关于变量作用域的叙述中，正确的是（）A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B) 全局变量必须在标准模块中声明C) 模块级变量只能用Private关键字声明D) Static类型变量的作用域是它所在的窗体或模块文件二、阅读分析程序（每个选择3分，共45分）1.阅读下面程序，如有以下程序代码：Private Sub Command1_Click()Dim n As Integer, s As Longn = Val(Text1.Text)s = 0For i = 1 To ns = s + fac(n)NextLabel1.Caption = Str(s)End SubFunction fac(ByVal n As Integer) As LongDim f As Long, i As Integerf = 1For i = 1 To nf = f * iNextfac = fEnd Function（11）运行程序后，在Text1里输入5，并单击“Command1”按扭，则输出的内容为（）A）1 B）4 C）18 D)96（12）在窗体上定义了（）控件A）2 B）3 C）4 D）5（13）上述程序的功能是（）A）计算S=1+2+3+……+10B）计算S=1！+2！+3！+ (10)C）计算S=1！+(2！+2！)+(3！+3！+3！)+……+(10！+…+10！)D）计算S=10！+10！+ (10)2.阅读下面程序，如有以下程序代码：Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = 1: y = 2: z = 3L1：Call god(x, x, z)Print x; x; zL2：Call god(x, y, y)Print x; y; yEnd SubL3：Private Sub god(x As Integer, y As Integer, z As Integer)y = 2 * zz = x + yEnd Sub（14）运行程序时，第一次单击命令按扭产生的结果是（）A）6 6 12 B）6 6 37 11 11 7 7 4C）9 6 12 D）8 10 109 10 15 5 9 10（15）如果将L2语句改为Call god(x, （y）, y)，则程序运行程序时第一次单击窗体产生的结果是（）A）6 6 12 B）6 6 37 11 11 7 7 4C）9 6 12 D）8 10 109 10 15 5 9 10（16）如果在原程序基础上只将L3语句z As Integer改为ByVal z As Integer，则程序运行程序时第一次单击窗体产生的结果是（）A）6 6 12 B）6 6 37 11 11 7 7 4C）9 6 12 D）8 10 109 10 15 5 9 103.阅读下面程序，如有以下程序代码：Option Base 1Dim a()Private Sub c1_Click()ReDim Preserve a(UBound(a) + 1)n = Val(InputBox("请输入一个数"))For j = UBound(a) - 1 To 1 Step -1If n > a(j) Then Exit Fora(j + 1) = a(j)Next jLLL：a(j + 1) = np1.Printp1.Print "输入的数为："; np1.Print "修改后的数组数据排列是："For i = 1 To UBound(a)p1.Print a(i);Next iEnd SubPrivate Sub Form_Load()a = Array(8, 9, 12, 13, 56, 67, 69, 78, 123, 178)p1.Print "原数组数据排列是："For i = 1 To UBound(a)Next iEnd Sub（17）该程序的功能是（）A）向指定位置插入数组元素B）删除指定位置数组元素C）插入一个数组元素并按顺序排列D）删除一个数组元素并按顺序排列（18）如果去掉LLL处的语句，再从键盘输入一个数字6，则程序运行结果为（）A）6,8, 9, 12, 13, 56, 67, 69, 78, 123, 178B）8,8, 9, 12, 13, 56, 67, 69, 78, 123, 178C）8, 9, 12, 13, 56, 67, 69, 78, 123, 178,6D）8, 9, 12, 13, 56, 67, 69, 78, 123, 178,178（19）该程序在窗体上至少设置了几个控件？（）A）一个B）二个C）三个D）四个4.阅读下面程序，如有以下程序代码Private Sub Text1_KeyPress(KeyAscii As Integer)Static s As IntegerDim c As StringSelect Case KeyAsciiCase Asc("0") To Asc("9")s = s + (KeyAscii - Asc("0"))Case 13Print sText1.Locked = TrueEnd SelectEnd Sub（20）若焦点位于文本框Text1中，则能够触发KeyPress事件的操作是（）A）单击鼠标B）双击文本框C）鼠标滑过文本框D）按下键盘上的某个键（21）若焦点位于文本框Text1中，输入“3st4d28f”并按下回车键，则窗体上输出结果为（）A）0 B）4 C）8 D）17（22）若焦点位于文本框Text1中，输入“3st4d28f”并按下回车键，则以下说法正确的是（）A）文本框Text1消失B）文本框Text1变灰C）文本框Text1内容改变D）文本框Text1不能被编辑5.阅读下面程序，如有以下程序代码Dim s As StringPrivate Sub Command1_Click()Open "word.txt " For Input As #1Line Input #1, sText1.Text = sClose #1Text2.Text = wordcount(s)End SubFunction wordcount(s As String) As IntegerDim cnt As IntegerDim c As StringDim inword As Booleancnt = 0LL1：inword = FalseFor n = 1 To Len(s)LL2：c = Mid(s, n, 1)If Not inword And c <> " " Thencnt = cnt + 1inword = TrueElseIf inword And c = " " Theninword = FalseEnd Ifwordcount = cntNextEnd Function（23）程序中的“word.txt”文件打开是按（）方式打开的A）顺序文件读B）顺序文件写C）随机文件D）二进制文件（24）Text2中显示的结果是（）A） 6 B）34 C） 39 D）40（25）如果将语句LL1的位置移动到LL2处，Text2中显示的结果是（）A） 6 B）34 C） 39 D）40二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡【1】～【10】序号的横线上，答在试卷上不得分。

vb试题及答案基础一、选择题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. SetD. Const答案：A2. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D3. VB中，用于实现条件判断的语句是：A. If...Then...ElseB. For...NextC. Do...LoopD. While...Wend答案：A4. 下列哪个选项是VB中的过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C5. VB中，用于实现循环的语句是：A. For...NextB. Do...LoopC. While...WendD. All of the above答案：D6. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(10)B. Dim arr(10) As IntegerC. Both A and BD. None of the above答案：C7. VB中，用于创建用户界面的控件是：A. LabelB. TextBoxC. ButtonD. All of the above答案：D8. 在VB中，下列哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For AppendD. All of the above答案：D9. VB中，用于实现错误处理的语句是：A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. All of the above答案：D10. 在VB中，下列哪个选项是正确的事件处理？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. VB中，声明全局变量的关键字是________。

第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。

【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。

【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。

(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。

【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。

【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。

vb测试题及答案一、单项选择题（每题2分，共10分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 下列哪个函数用于计算两个数的和？A. SumB. AvgC. CountD. Max答案：A3. 在VB中，以下哪个关键字用于声明一个变量？A. DimB. ConstC. FunctionD. Sub答案：A4. 在VB中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D5. 在VB中，以下哪个选项是正确的条件语句？A. IfB. SelectC. CaseD. All of the above答案：D二、填空题（每题2分，共10分）1. 在VB中，声明一个整型变量并赋值为10，可以使用语句：Dim myVar As Integer; myVar = _______。

答案：102. VB中，用于输出信息到立即窗口的函数是 _______。

答案：Debug.Print3. 在VB中，要创建一个名为“myForm”的新窗体，可以使用语句：Form1. _______ "myForm"。

答案：Load4. VB中，要结束当前程序的执行，可以使用语句：_______。

答案：End5. 在VB中，要声明一个数组，可以使用语句：Dim myArray(10) As _______。

答案：Integer三、简答题（每题5分，共20分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由事件（如用户操作、系统消息等）触发，而不是由程序代码顺序执行。

2. 描述VB中如何使用If...Then...Else语句进行条件判断。

答案：在VB中，可以使用If...Then...Else语句进行条件判断，如果条件为真，则执行Then后面的代码块，如果条件为假，则执行Else 后面的代码块。

vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。

以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。

- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。

- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。

- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。

答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。

方法是一种过程，可以包含代码来执行特定的任务或计算。

事件通常与控件相关联，并可以触发方法的执行。

2. 解释VB中“类”的概念。

全国计算机等级考试二级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（）。

本卷共有4道大题:一、单项选择题（20道小题，共20分）1、假定焦点已经位于TextBox1中，则能够触发KeyPress事件的操作是（）。

（1分）A、单击鼠标B、双击文本框C、鼠标滑过文本框D、按下键盘上的某个键2、在中每个对象都有三个基本要素，它们是 ( )。

（1分）A、对象的名称，值和所属类。

B、对象的属性，事件和方法。

C、对象的大小，存储方式和内容。

D、对象的访问方法、存储方式和名称。

3、表达式 Int(Rnd*55)+15 产生的随机数范围是( )。

（1分）A、[15，55]B、[15，69]C、(15，55)D、(15，69)4、以下表达式的结果( )不是字符串类型。

（1分）A、"45" + "123"B、"45" & "123"C、45 + "123"D、全部5、在窗体上有一文本框，名称为Textbox1，程序运行后，要求该文本框不能接收键盘输入，但能输出信息，以下设置正确的是( )。

（1分）A、TextBox1.MaxLength=0B、TextBox1.Enabled=FalseC、TextBox1.Visible=FalseD、TextBox1.Size.Width=06、设有 x，y 两个数值型变量，今欲将其以坐标的样式“(x，y)”显示在标签(Label1)上(注：x,y显示具体的数值），下面语句中正确的是( )。

（1分）A、Label1.text="(" & x & "," & y & ")"B、Label1.text="(x,y)"C、Label1.text=("x","y")D、Label1.text=(x,y)7、关于For...Next 循环，以下说法错误的是( )。

第一章数组一、选择题1．在窗体上画一个命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click(Index As Integer)Dim Arr1(12) As Integer, Arr2(3) As IntegerDim Sum As IntegerSum = 2For i = 1 To 12Arr1(i) = iNext iFor i = 1 To 3Arr2(i) = Arr1(i * i)Next iFor i = 1 To 3Sum = Sum + Arr2(i)Next iPrint SumEnd Sub程序运行后，单击命令按钮，在窗体上的输出结果是A．16B．24 C．32 D．36 2．在窗体上画一个文本框，然后编写如下代码：Option Base 1Private Sub Form_Click()Dim arrDim Start As Integer, Finish As IntegerDim Sum As Integerarr = Array(12, 4, 8, 16)Start = LBound(arr)Finish = UBound(arr)Sum = 0For i = Start To FinishSum = Sum + arr(i)Next ic = Sum / FinishText1.Text = cEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是A．40 B．10C．12 D．16 3．阅读程序：Option Base 1Private Sub Form_Click()Dim Arr(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4Arr(i, j) = (i - 1) * 2 + jNext jNext iFor i = 3 To 4For j = 3 To 4Print Arr(j, i);Next jPrintNext iEnd Sub程序运行后，单击窗体，输出结果是A．5 7 B．6 8 C．7 9D．8 106 87 98 108 11 4．用下面的语句所定义的数组的元素个数是Dim A(-3 To 5) As IntegerA．6 B．7 C．8 D．9 5．用下面的语句所定义的数组的元素个数是Dim arr(3 To 5, -2 To 2)A．20 B．12 C．15D．246．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim Arr1(10), Arr2(10) As Integern = 3For i = 1 To 5Arr1(i) = iArr2(n) = 2 * n + iNext iPrint Arr2(n); Arr1(n)End Sub程序运行后，单击命令按钮，输出结果是A．11 3B．3 11 C．13 3 D．3 13 7．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) * 2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是A．35 B．28 C．33D．378．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是A．4321 B．12 C．34 D．12349．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim Arr(3) As IntegerFor i = 1 To 3For j = 1 To 3Arr(j) = Arr(i) + 1Next jNext iPrint Arr(3)End Sub程序运行后，单击命令按钮，输出结果是A．7 B．6 C．5D．4 10．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。

VB程序设计及参考答案一、单选题（共20分，每小题1分）1、要改变控件的宽度，应修改该控件的（）属性。

（A）TOP （B）width （C）Left （D）Height2、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。

（A）Visible （B）Value （C）Caption （D）Enabled3、（）对象具有clear方法。

（A）图片框（B）窗体（C）复选框（D）列表框4、启动VB后，就意味着要建立一个新（）。

（A）窗体（B）文件（C）工程（D）程序5、下列（）对象不具有Clear方法。

（A）列表框（B）组合框（C）剪贴框（D）图片框6、组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style 属性值应为（）（A）0 （B）1 （C）2 （D）37、下列可调整图片框的大小以适合图片的属性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode 8、要想清除文本框中的内容则可利用（）进行。

（A）Caption （B）Text （C）Clear （D）Cls9、在文本框控件中将Text的内容全部显示为所定义的字符的属性是（）。

（A）Password （B）PasswordChar（C）需要编程来实现（D）以上都不是10、Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（）。

（A）从主程序开始执行（B）按过程顺序执行（C）事件驱动（D）按模块顺序执行11、下列四项中合法的变量名是（）。

（A）a-bc （B）a_bc （C）4abc （D）integer12、无论何种控件，共同具有的属性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代码如下：Text1.Text = "Visual Basic程序设计"则Text1、Text ，和"Visual Basic程序设计"分别代表（）。

vb考试试题及答案一、选择题1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Option答案：A2. 在VB中，下列哪个选项不是合法的变量名？A. _myVarB. var2C. 123variableD. my$Var答案：C3. VB中，下列哪个选项是正确的条件语句？A. If condition ThenB. If condition Then ElseC. If condition Then Else IfD. If condition Then Else Else答案：A4. VB中，下列哪个函数用于计算字符串的长度？A. Len()B. Length()C. StrLen()D. Size()答案：A5. 在VB中，下列哪个选项是正确的循环结构？A. For i = 1 To 10B. Do While i < 10C. For Each i In arrD. All of the above答案：D二、填空题1. 在VB中，声明一个整型变量并赋值为100的语句是：________。

答案：Dim myVar As Integer = 1002. VB中，用于输出信息到立即窗口的函数是：________。

答案：Debug.Print3. VB中，用于暂停程序执行的函数是：________。

答案：Sleep4. VB中，用于获取当前日期的函数是：________。

答案：Date5. VB中，用于将字符串转换为整型的函数是：________。

答案：CInt三、简答题1. 简述VB中事件驱动编程的概念。

答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发，而不是由程序内部的逻辑顺序决定。

2. 描述VB中如何实现多线程编程。

答案：在VB中，可以使用Thread类或BackgroundWorker组件来实现多线程编程。

vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。

- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。

- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。

- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。

- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。

4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。

- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。

（） - 答案：错误。

应该使用“==”符号进行比较。

- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。

（）- 答案：正确。

6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。

”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。

一、单选题1.在中，一组具有相同名字、不同下标的变量称为____________。

A.数组B.变量C.同类数据D.同类变量2.一维数组的大小为______________。

A.上界+下界+1B.上界+下界-1C.上界-下界+1D.上界-下界-13.数组的存放是按____________存放的。

A.数据大小B.数据类型C.列D.行4.数组具有相同的_____________。

A.下标B.类型C.数值D.存放地址5.重定义数组大小的语句是______________。

A.Dim语句B.ReDim语句C.Static语句D.Public语句6.使用Dim A(100) As Integer 语句声明了数组A，其下标的取值范围为____________。

A.0~100B.1~100C.0~99D.1~997.若使用Dim A(100) As Integer 语句声明了数组A，下列引用错误的是___________。

A.A(0)=2B.A(1)= -28C.A(56)= A(-56)D.A(100)=A(0)+A(55)8.如果要对已经声明的数组重新定义大小，并保留原有数据，可使用语句___________。

A.DimB.ReDimC.Dim PreserveD.ReDim Preserve9.对于Integer 类型的静态数组，如果没有赋值，则所有元素的值为____________。

A.空B.0C.1D.最大数10.执行重定义数组大小语句ReDim A(UBound(B))后，A数组的上界为______________。

A.B数组的上界B.B数组的上界+1C.B数组的上界- 1D.不确定11.下列数组声明语句中正确的是______________。

A.Dim A(9) As Single ={1,2,3,4,5,6,7,8,9,10}B.Dim A() As Single ={1,2,3,4,5,6,7,8,9,10}C.DimA() As Single ={1,”abc”,”ccc”,4,5,6,7,8,9,10}D.Dim A( , ) As Single ={1,2,3,4,5,6,7,8,9,10}12.若有声明Dim a(2 ,3) as Integer，则数组a共有元素个。

国家二级VB机试（数据文件）模拟试卷4(总分：50.00，做题时间：90分钟)一、选择题(总题数：25，分数：50.00)1.下列有关文件的叙述中，正确的是（分数：2.00）A.以Output方式打开一个不存在的文件时，系统将显示出错信息B.以Append方式打开的文件，既可以进行读操作，也可以进行写操作C.在随机文件中，每个记录的长度是固定的√D.无论是顺序文件还是随机文件，其打开的语句和打开方式都是完全相同的解析：解析：根据数据的存取方式和结构不同，文件可分为顺序文件和随机文件。

顺序文件中的记录是一个接一个地顺序存放，各个记录的长度可以不相同。

随机文件又称直接存取文件，文件中的记录长度是固定的。

打开文件的基本格式为：opell FileName For Mode AS#FileNumber。

打开方式主要有Output、Append、Inplut、Random等几种。

以Append方式打开文件时，文件指针被定位于文件尾，用于数据的追加写入；以Random方式打开的随机文件可用于随机文件的读与写操作；以Output方式打开文件时，若文件不存在，则建立一个新文件。

2.下列关于顺序文件的描述中，正确的是（分数：2.00）A.文件的组织与数据写入的顺序无关B.主要的优点是占空间少，且容易实现记录的增减操作C.每条记录的长度是固定的D.不能像随机文件一样灵活地存取数据√解析：解析：顺序文件结构比较简单，文件中的记录一条接一条按写入顺序存放。

在该类文件中，只知道第一条记录的存放位置，当要查找某个数据时，只能从文件头开始，逐步按顺序读取，直至找到要查找的记录为止。

顺序文件的缺点是不能灵活地存取和维护数据，为了修改文件中的某个记录，必须把整个文件读入内存，适用于有一定规律且不经常修改的数据：优点是结构简单，占空间少。

3.下面关于文件叙述中错误的是（分数：2.00）A.VB数据文件需要先打开，再进行处理B.随机文件每个记录的长度是固定的C.不论是顺序文件还是随机文件，都是数据文件D.顺序文件的记录是顺序存放的，可以按记录号直接访问某个记录√解析：解析：VB数据文件需要先打开，再进行处理，文件分为两类：顺序文件和随机文件。

高三计算机专业VB试题（四）高三年级计算机专业VB试题（四）一、填空题：1、引用数组元素的方法是________。

2、在引用数组元素时，________、________、和________必须与声明数组时一致。

3、在Visual Basic中，过程分为________过程和________过程。

4、使用________声明在所有模块中都可以使用的过程；使用________声明只能在包含该声明的模块中使用的过程。

5、在使用Static关键字声明过程时表示在调用Sub过程之间________。

6、________语句可以使程序在一定条件下从一个Sub过程中退出，并且在Sub过程的任何位置都可以使用。

7、若要建立通用过程，打开代码编辑器窗口，从________列表框中选择________选项。

8、事件过程分为________过程和________过程；两者都使用________进行声明。

9、建立事件过程主要有三种方法：________、________、________。

10、若要提前退出Function过程，可在Function过程内适当位置加入________语句。

11、若要从Function过程返回一个值，可将这个值赋给________。

12、声明过程时参数列表格式为：，[Optional][Byval][ByRef][ParamArray]变量名[()][As 数据类型名称]。

其中Optional表示参数是可选的，ByVal表示________，ByRef表示________，ParamArray表示________，“（）”表示________，As子句用来________，多个参数时，参数之间用________进行分隔。

13、在Visual Basic中，调用Sub过程有两种方式________和________。

14、Visual Basic程序中的错误可分为________、________和________。

第1套您已经通过该套作业,请参看正确答案1、与传统的程序设计语言相比，Visual Basic语言最突出的特点是（）。

A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术参考答案：C您的答案：C2、Visual Basic集成环境的主窗口中不包括（）。

A．标题栏B．菜单栏C．状态栏D．工具栏参考答案：C您的答案：C3、Visual Basic窗体设计器的主要功能是（）。

A．建立用户界面B．编写源程序代码C．画图D．显示文字参考答案：A您的答案：A4、下列叙述中正确的是（）。

A．只有窗体才是VB中的对象B．只有控件才是VB中的对象C．控件和窗体都是VB中的对象D．控件和窗体都不是VB中的对象参考答案：C您的答案：C5、为了把窗体上的某个控件变为活动的，应执行的操作是（）。

A．单击窗体的边框B．单击该控件的内部C．双击该控件D．双击窗体参考答案：B您的答案：B6、确定一个控件在窗体上的位置的属性是（）。

A．Width或HeightB．Width和HeightC．Top或LeftD．Top和Left参考答案：D您的答案：D7、在窗体上面画一个名称为Text1的文本框，然后编写如下的事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)......End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是（）。

A．单击鼠标B．双击文本框C．鼠标滑过文本框D．按下键盘上的某个键参考答案：D您的答案：D8、为了装入一个VB应用程序，应当（）。

A．只装入窗体文件(.frm)B．只装入工程文件(.vbp)C．分别装入工程文件和标准模块文件(.bas) D．分别装入工程文件、窗体文件和标准模块文件9、当窗体最小化时缩小为一个图标，设置这个图标的属性是（）。

A．MouseIconB．IconC．PictureD．MousePoint参考答案：B您的答案：B10、为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（）。