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 循环，以下说法错误的是( )。