VB模拟试题4及答案
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程序设计试题及答案
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的函数，返回值为整数，应该使用语句________。
VB自我练习4
一、单项选择题（每小题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试题及答案基础
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中，声明全局变量的关键字是________。
VB程序设计 习题及答案第4章 选择结构程序设计
第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测试题及答案
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考试试题题库及答案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)-中大网校
全国计算机等级考试二级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题库(含参考答案)4-2
本卷共有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 循环，以下说法错误的是( )。
vb4
25. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do U4;)
a=Val(a)
b=InputBox("请输入B的值")
Private Sub Command1_Click()
Dim x As Integer, n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+l
Loop
Textl．Text=Str(x)
Text2．Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是：
13. 123321
14. 321456
15. Change
16. BBBB
17. Picturel．Picture=LoadPicture("c:\moon.jpg")或Picturel=LoadPicture("c:\moon.jpg")
18. MousePointer
TIMER
I
4. ITALIC
Bold
End
99. 五编程题1. SUM=0
S=1
FOR I=1 TO 100
SUM=SUM+S/I
S=-S
NEXT I
PRINT “SUM=“；SUM
2. Private Sub Form_Load()
Text1.PasswordChar = "*"
VB 第四章 数组习题
第一章数组一、选择题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程序设计试题 及 参考答案
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考试试题及答案
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套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 & "岁。
VB项目4数组习题答案
一、单选题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
国家二级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试题（四）高三年级计算机专业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程序中的错误可分为________、________和________。
VB语言程序设计-4套作业参考答案
第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，这个属性是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、单选题（30分，每题1分）1．计算机中采用二进制，是因为__(1)____。
(A)可降低硬件成本 (B)两个状态的系统具有稳定性(C)二进制的运算法则简单(D)上述三个原因2．我们通常说的U盘属于计算机部件中的___(2)___。
(A) 输出设备 (B) 输入设备(C) 存储设备 (D) 打印设备3.下列表示存储容量的数据中，____(3)____是最小的。
(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte4. 一个完整计算机系统应包括___(4)____。
(A) 主机和显示器 (B)硬件系统和软件系统(C)系统软件和应用软件 (D) 内存和外存5.下列执行速度最快的程序语言是___(5)____。
(A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言6.一只白色的足球被踢进球门，则白色、足球、踢、进球门是___(6) ___。
(A)属性、对象、方法、事件 (B) 属性、对象、事件、方法(C) 对象、属性、方法、事件 (D) 对象、属性、事件、方法7. 以下叙述中正确的是____(7)____。
(A)窗体的Name属性指定窗体的名称，用来标识一个窗体(B)窗体的Name属性的值是显示在窗体标题栏中的文本(C)可以在运行期间改变对象的Name属性的值(D)对象的Name属性值可以为空8. 在VB中，保存一个工程至少应保存两个文件，这两个文件分别是___(8)____。
(A)文本文件和工程文件 (B)窗体文件和工程文件(C)窗体文件和标准模块文件 (D)类模块文件和工程文件9. 在下列说法中，正确的是___(9)___(A)通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上(B)在列表框中不能进行多项选择(C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列(D)复选框的Value属性值为布尔型10.当一个复选框被选中时，它的Value属性的值是___(10)___(A) 3 ( B) 2 (C) 1 (D) 011.计算结果为0的表达式是___(11)____(A)Int(2.4)+Int(-2.8) (B)Cint(2.4)+Cint(-2.8)(C)Fix(2.4)+Int(-2.8) (D)Fix(2.4)+Fix(-2.8)12.可以惟一标识控件数组中的每一个控件属性的是___(12)____(A)Name (B)Caption (C)Index (D)Enabled13. 下列变量名中，合法的变量名是___(13)____。
(A)m24 (B)mn-k (C)24m (D)m+n14. 若有语句”Dim Flag As Boolean”，则下面赋值语句正确的是___(14)_____。
(A) Flag ="True" (B) Flag='True' (C)Flag=Ture (D)Flag=True15. 下列叙述不正确的是___(15)_____。
(A)InputBox函数返回值为字符型 (B)MsgBox函数返回值为所单击按钮的键值(C) MsgBox语句没有返回值 (D) MsgBox语句返回值为所单击按钮的键值16. 若要在Text1的光标(焦点)移动到其它控件时进行合法性判断，则可使用__(16) __事件来实现。
(A) Refresh (B) SetFocus (C) LostFocus (D) GotFocus17.一般情况下，控件的大小是由___(17)___属性确定的(A) Width和Height (B) Top和Left (C) Width和Left (D) Top和Width 18．以下能判断是否到达文件尾的函数是__(18)____(A)BOF (B) LOC (C)LOF (D)EOF19．下列过程语句说明合法的是____(19)____。
(A)Sub f1(ByVal n() As Integer) (B)Sub f1(n() As Integer)As Integer(C)Function f1(f1 As Integer) As Integer (D)Finction f1(ByVal n As Integer)20.要在文本框Text1中显示列表框List1中最后一个项目的正确语句是__(20)____。
(A)Text1.Text=List1.List(ListCount-1) (B)Text1.Text=List1.List(0)(C)Text1.Text=List1.List(List1.ListCount-1) (D)Text1.Text=List1.ListIndex 21．设组合框Combo1中有5个项目，则以下能删除最后一项的语句是__(21)______。
(A)Combo1.RemoveItem Text (B)Combo1.RemoveItem 5(C)Combo1.RemoveItem 4 (D)Combo1.RemoveItem Combo1.Listcount 22．在通用声明代码中有以下语句：Option Base 1Dim a (4,-3 to 3) As String则该数组有_(22)___个元素。
(A) 28 (B) 24 (C) 35(D) 3023.要使菜单项能通过按键盘上的Alt键及K键打开，应在菜单编辑器中设置__(23)__。
(A) 在“名称”栏中“K”字符前加上“&”(B) 在“标题”栏中“K”字符前加上“&”(C) 在“名称”栏中“K”字符后加上“&”(D) 在“标题”栏中“K”字符后加上“&”24. 以下Case语句中错误的是__(24)__。
(A) Case 0 To 10 (B) Case Is>10(C) Case Is>10 And Is<50 (D) Case 3,5,Is>1025．假定有以下两个过程,则以下说法中不正确的是__(25)______。
Private Sub PPP (a As Single, b As Single)a = a + bb = a + bPrint a, bEnd SubPrivate Sub Form_Activate( )x=18Call PPP (x,(x))Print xEnd Sub(A)形参是 a 和b ，两个实参x和(x)允许重名(B)形参是 a 和b ，实参(x)表示是传值调用(C)形参是 a 和b ，实参x表示是传址调用(D)Print a, b 输出的值分别为36，3626．若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton），可使用__(26)_____ 控件将它们分隔开。
① TextBox ② PictureBox ③ Image ④ Frame(A) ①或②(B) ②或③(C) ②或④(D) ③或④27.在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。
然后编写如下事件过程：Private Sub Command1_Click()CommonDialog1.FileName =""CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1End Sub对于这个程序，以下叙述中错误的是___(27)___(A)该对话框被设置为“打开”对话框 (B) 在该对话框中指定的默认文件名为空(C)该对话框的标题为VBTest (D)在该对话框中指定的默认文件类型为文本文件(*.Txt)28.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是___(28)___。
(A) 4 (B) 5 (C) 6 (D) 729．在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程,该事件过程的功能是__(29)__Private Sub Command1_Click()n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub(A)输出n以内的奇数 (B) 输出n以内的偶数(C) 输出n以内的素数 (D) 输出n以内能被j整除的数30．设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0: n = 0For i = 1 To 5x = n / i: n = n + 1: sum = sum + xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是___(30)____(A)1+1/2+ 2/3+3/4+4/5 (B)1+1/2+2/3+3/4(C)1/2+2/3+3/4+4/5 (D)1+1/2+1/3+1/4+1/5二、填空题（50分，每空2分）1、设a=6，则执行x=Iif(a>5,-1,0)后，x的值为-1。
2、Visual Basic提供了三种对数据文件的访问方式，它们是顺序访问方式、随机访问方式和二进制访问方式。
3、赋值语句：a=123 & MID("123456",3,2)执行后，a变量中的值12334。
4、如果有以下程序代码，则输出结果是_FALSE。
x = 10y = 5Print x ^ 2 >= y ^ 35、运行下面的程序，单击窗体后在窗体上显示的内容是10 220；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是10 120。
Private Sub Form_Click()Dim a As Integer,b As Integera=0: b=0Do While a<=8a=a+2 ' A语句b=b+a*a ' B语句LoopPrint a,bEnd Sub6、运行下面这段程序，在文本框Text1和Text2中分别输入一串字符，单击命令按钮时，在Text1中删除掉Text2中的内容。