VB程序设计期末试卷及答案
vb期末考试和答案
vb期末考试和答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a 123答案：C2. VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 ThenPrint "Positive"End IfC. If x > 0 ThenPrint "Positive"End IfD. If x > 0 ThenPrint "Positive"ElsePrint "Negative"End If答案：D3. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iEnd ForC. For i = 1 To 10Print iLoopD. For i = 1 To 10Print iEnd Loop答案：A4. VB中，以下哪个是正确的数组声明方式？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr As Integer(10)D. Dim arr(10) Integer答案：B5. 在VB中，以下哪个是正确的函数声明方式？A. Function Add(x As Integer, y As Integer) As IntegerB. Function Add(x, y) As IntegerC. Function Add(x As Integer, y As Integer)D. Function Add(x, y)答案：A6. VB中，以下哪个是正确的事件处理程序？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Me.ClickC. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.ClickD. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs)答案：B7. 在VB中，以下哪个是正确的窗体属性？A. Me.Width = 800B. Me.Height = 600C. Me.Caption = "My Form"D. All of the above答案：D8. VB中，以下哪个是正确的控件属性？A. Label1.Text = "Hello"B. Label1.Caption = "Hello"C. Label1.Value = "Hello"D. = "Hello"答案：A9. 在VB中，以下哪个是正确的文件操作语句？A. Open "C:\test.txt" For Input As #1B. Open "C:\test.txt" For Output As #1C. Open "C:\test.txt" For Append As #1D. All of the above答案：D10. VB中，以下哪个是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. On Error GoTo -1D. All of the above答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是______。
Visual Basic程序设计期末复习试题(A)含答案
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
vb期末考试题库及答案
vb期末考试题库及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. Both A and BD. None of the above答案：C2. VB中，用于声明变量的关键字是？A. DimB. DeclareC. VarD. Let答案：A3. 在VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. +D. Concatenate答案：C4. 如果要声明一个整型变量并初始化为5，正确的语句是？A. Integer x = 5B. Dim x As Integer = 5C. Dim x = 5D. x = 5答案：B5. VB中，哪个控件用于显示文本，并且用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B6. 在VB中，以下哪个选项是正确的循环结构？A. For EachB. WhileC. Both A and BD. None of the above答案：C7. VB中，以下哪个语句用于结束当前程序的执行？A. EndB. ExitC. StopD. All of the above答案：D8. 在VB中，以下哪个选项是正确的条件判断语句？A. If...Then...ElseB. Switch...CaseC. Both A and BD. None of the above答案：C9. VB中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TodayD. Time答案：C10. 在VB中，以下哪个属性用于设置窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个字符型变量可以使用关键字________。
答案：Dim2. VB中，数组的声明格式为________。
VB期末考试考卷及答案
VB期末考试考卷及答案一、选择题（每题1分，共5分）1. 在VB中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()A. DimB. IntegerC. IntD. Var3. 在VB中，下列哪个语句用于退出当前循环？A. Exit ForB. BreakC. Exit DoD. ContinueA. OpenB. LoadC. CreateD. Read5. 在VB中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. FormOpen二、判断题（每题1分，共5分）1. VB中的变量必须先声明后使用。
（）2. 在VB中，Sub过程可以返回值。
（）3. VB中的数组下标从1开始。
（）4. 在VB中，可以使用Select Case语句进行多条件判断。
（）5. VB中的字符串可以用单引号(')表示。
（）三、填空题（每题1分，共5分）1. 在VB中，用于声明常量的关键字是______。
2. VB中的逻辑运算符包括______、______和______。
3. 在VB中，要实现两个变量的值交换，可以使用______变量作为中间变量。
4. 在VB中，______方法用于设置文本框的字体。
5. VB中的______事件在用户单击按钮时发生。
四、简答题（每题2分，共10分）1. 简述VB中事件的执行过程。
2. 请列举三种VB中的数据类型。
3. 简述如何使用Select Case语句进行多条件判断。
4. 请说明如何使用VB中的循环结构实现1到100的累加。
5. 简述如何使用VB中的文件操作函数读取文件内容。
五、应用题（每题2分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
2. 编写一个VB程序，实现用户输入一个字符串，程序将其逆序输出。
3. 编写一个VB程序，使用循环结构输出九九乘法表。
vb期末考试试题及详细答案
vb期末考试试题及详细答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是合法的变量名？A. MyVariable123B. 123MyVariableC. VariableNameD. Variable_Name2. 下列哪个语句可以正确地将字符串"Hello"赋值给变量str？A. str = "Hello"B. Dim str As String = "Hello"C. str = 'HelloD. str = "Hello"3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10 ElseD. If x > 10 End If4. 下列哪个是Visual Basic中的数组声明？A. Dim myArray(1 To 10) As IntegerB. Dim myArray(10) As IntegerC. Dim myArray As Integer(1 To 10)D. Dim myArray As Integer = New Integer(10)5. 在Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 10 To 1 Step -1C. For i = 10 To 1D. All of the above6. 在Visual Basic中，以下哪个是正确的函数调用？A. Call PrintName("John")B. PrintName("John")C. Function PrintName("John")D. PrintName Call "John"7. 在Visual Basic中，以下哪个是正确的事件处理程序的声明？A. Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)B. Sub Button1_Click()C. Function Button1_Click()D. Sub Button1_Click(sender, e)8. 在Visual Basic中，以下哪个是正确的类定义？A. Class MyClassPrivate x As IntegerEnd ClassB. Class MyClassDim x As IntegerEnd ClassC. Class MyClassPublic x As IntegerEnd ClassD. All of the above9. 在Visual Basic中，以下哪个是正确的继承声明？A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass MyBase()D. Inherits MyBaseClass MyBase10. 在Visual Basic中，以下哪个是正确的异常处理结构？A. TryCatch ex As ExceptionEnd TryB. TryCatch ex As ExceptionFinallyEnd TryC. TryCatch ex As ExceptionD. All of the above二、简答题（每题5分，共10分）1. 解释Visual Basic中的事件和委托的区别。
VB期末试题（含答案）
VB期末试题（含答案）一、单选题（每题1.5分，共30分）1.在VB中，假定有以下程序段, 则执行结束后k的值是：（ A ）For i =1 To 3k = i+2Next iA． 5 B．4 C． 3 D．62. 以下控件中可以作为容器控件的是（ B ）A．Image图像框控件 B．PictureBox图片框控件C．TextBox文本框控件 D．ListBox列表框控件3.关于Image控件和PictureBox控件的说明，其中错误的是（ B ）A．Image控件和PictureBox控件都有Picture属性B．Image控件和PictureBox控件都支持Print方法C．Image控件和PietureBox控件都可以用LoadPicture函数把图形文件装入控件中D．Image控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运行期间装入图形文件4.为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为( D )A．5 B．500 C．10 D．5000 5.能显示窗体的方法是（ B ）。
A．Visible B．Show C．New D．Open6.MsgBox函数中有4个参数，其中必须写明的参数是（ C ）A．指定显示按钮的个数 B．对话框的标题 C. 提示信息 D. 所有参数都是可选的7.你若在代码窗口中编写：msgbox(“AAAA”,vbokonly,”BBBB”)语句后，所产生的信息框的标题是（ C ）A．AAAA B．空 C．BBBB D．出错，不能产生信息8.要使文本框获得输入焦点，则应采用文本框控件的（D ）方法。
A．GotFocus B．LostFocus C．KeyPress D．SetFocus9.为了把焦点移到某个指定的控件，所使用的方法是（ A ）A．SetFoeus B．Visible C．Refresh D．GetFocus10.语句if 3*4>=10 thena=1elsea=2end if执行后，a的值为（ D ）。
vb期末考试编程试题及答案
vb期末考试编程试题及答案VB期末考试编程试题一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Dim x = 10D. 以上都是答案：B2. VB中，用于循环遍历数组的关键字是：A. ForB. WhileC. DoD. Repeat答案：A3. 下列哪个是VB中的条件语句？A. If...Then...ElseB. Switch...CaseC. Both A and BD. None of the above答案：C4. 在VB中，以下哪个不是内置数据类型？A. IntegerB. StringC. ObjectD. Array答案：D5. VB中，以下哪个是正确的函数调用方式？A. Call MyFunction()B. MyFunction()C. Both A and BD. None of the above答案：C二、简答题（每题10分，共30分）1. 解释VB中的类和对象的区别。
答案：类是对象的蓝图，它定义了对象的结构和行为。
对象是类的实例，是类的具体实现。
一个类可以创建多个对象，每个对象具有自己的状态和行为。
2. 描述如何使用VB中的事件。
答案：在VB中，事件是一种由对象引发的通知，用于通知其他对象发生了某些事情。
事件通常与事件处理器（也称为事件处理程序）一起使用。
事件处理器是响应事件的代码块。
要使用事件，首先需要定义一个事件，然后在对象上引发该事件，并编写事件处理器来处理该事件。
3. 解释VB中的继承和多态性。
答案：继承允许一个类（子类）继承另一个类（父类）的属性和方法。
这使得代码重用成为可能。
多态性是指允许不同类的对象对同一消息做出响应，但具体的行为会根据对象的实际类型而有所不同。
在VB中，多态性可以通过重载（方法名相同，参数不同）和重写（子类重写父类的方法）来实现。
三、编程题（每题25分，共50分）1. 编写一个VB程序，该程序可以接收用户输入的三个整数，并计算它们的平均值，然后输出结果。
《Visual BASIC程序设计》期末考试编程题复习及答案
第2章1.新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1，界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。
“改变颜色”按钮代码：Label1.ForeColor = vbRedLabel1.Caption = "颜色已经改变"2）单击“改变字体”按钮，标签上的字体改为“黑体”。
“改变字体”按钮代码：Label1.FontName = "黑体"图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:\EX文件夹下。
2.设计一个留言薄。
新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。
要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。
单击“清除”按钮则清除两个文本框中的内容。
“提交”按钮代码：Text2.Text = Text1.Text“清除”按钮代码：Text1.Text = ""Text2.Text = ""图2-6 程序界面最后将工程文件、窗体文件分别以lx2-4.vbp、lx2-4.frm为文件名保存在D:\EX文件夹下。
3.设计一个程序，程序界面如图2-7所示。
当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
“显示”按钮代码：Text1.Text = "欢迎使用VB!"“清除”按钮代码：Text1.Text = ""“退出”按钮代码：End图2-7 程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:\EX文件夹下。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
选择题1. Visual Basic中的窗体文件的扩展名是A、.regB、.frmC、.basD、.vbp2. Visual Basic中的模块文件的扩展名是A、.regB、.frmC、.basD、.vbp3. Visual Basic中的工程文件的扩展名是A、.regB、.frmC、.basD、.vbp4. 一个对象可以执行的动作和可被对象识别的动作分别称为A、事件、方法B、方法、事件C、属性、方法D、过程、事件5要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，要对下列属性进行设置。
A．MaxButton B．Width C．MinButtonD．BorderStyle6 在用菜单编辑器设计菜单时，必需输入的项有＿＿＿＿。
A．快捷键B．索引C．标题D．名称8 文件号最大可取的值为A 255 B511 C512 D2569 以下能判断是否到达文件尾的函数是＿＿＿＿A BOFB LOC C LOFD EOF10 Visual basic 常见的颜色设置中，表示红色的是A vbblueB vbredC vbblackD vbcyan11当使用line方法画直线后，当前坐标在A （0,0）B 直线起点C 直线终点D容器的中心12语句circle（500,500），300,8，-6，-3将绘制A圆 B 椭圆 C 圆弧D扇形13坐标度量单位可以通过来改变A DrawstyleB DrawwidthC ScaleD Scalemode14对象的边框类型由设置A DrawstyleB DrawwidthC BorderstyleD Scalemode 15以下的属性和方法中可重新定义坐标系A DrawstyleB DrawwidthC ScaleD Scalemode16执行语句line（1200,1200）——step(1000,500),B后，CurrentX=A 2200B 1200C 1000D 170017 在下列通用对话框的叙述中，错误的是A Commondialogl.showfont显示字体对话框B 在打开或另存为对话框中，用户选择的文件名可以通过Filetitle 属性返回C在打开或另存为对话框中，用户选择的文件名及其路径可以经Filetitle属性返回D 通过对话框可以用来制作和显示帮助对话框填空题1如果要将某个菜单项设计为分隔线，则该菜单的标题应设置为-(减号)。
2欲定义一个定长为10的字符串变量Mystr，可写成：Dim Mystr As String*103把条件为1≤ x ≤ 5 写成VB表达式为：1<=x And x<=54 在菜单编辑器中菜单项前面4个小点的含义是该菜单项为下一级的菜单项程序运行题1.Private Sub Form_Click()Dim y As IntegerDoy = InputBox("y=")If (y Mod 10) + Int(y / 10) = 10 Then Print yLoop Until y = 0End Sub运行时，单击窗体后依次输入10、37、50、55、56、64、20、28、19、-19、0，写出运行结果。
37 55 64 28 19程序运行题2.Private Sub Command1_Click()Dim i As Integer, n As IntegerDim x As String, c As Stringx = InputBox("x=")n = Len(x)If n Mod 2 = 1 Then c = Mid(x, n \ 2 + 1, 1)For i = 1 To Len(x) \ 2c = Mid(x, Len(x) + 1 - i, 1) + c + Mid(x, i, 1)Next ix = cPrint xEnd Sub运行时，第一次单击Command1后输入“abc”，写出运行结果。
第二次单击Command1后输入“abcd”，写出运行结果。
cba cdab程序运行题3Private Sub Command1_Click()Dim m As Integer, n As IntegerDim a(3, 3) As IntegerFor m = 1 To 3For n = 1 To 3a(m, n) = (m - 1) * 3 + nNext nNext mFor m = 2 To 3For n = 1 To 2Print a(n, m);Next nNext mEnd Sub写出程序运行后，单击命令按钮，窗体上显示的结果。
2 53 6程序运行题4Private sub form_click()Dim a(2,3) as integerFor i =1 to 2For j=1to 3a(i,j)=2*i-jnext j,ifor h=1to 3for k=1to 2form1.print a(k,h),next kprintnext hend sub写出程序运行后，单击窗体，form1 上的输出结果1 30 2-1 1程序运行题5Public Function f(m as integer , n as integer)as integer Do while m<>nDo while m>n : m=m-n : loopDo while n>m : n=n-m : loopLoopf=mEnd functionPrivate Sub Command1_Click( )Print f(24,18)End Sub写出程序运行时单击Command1后，Form1上的输出结果。
6程序运行题6Dim a as integer, b as integer c as integerPublic sub p1(x as integer,y as integer)Dim c as integerX=2*x y= y+2 c=x+yEnd subPublic sub p2(x as integer, byval y as integer)Dim c as integerX=2*x y= y+2 c=x+yEnd subPrivate sub command1_click()a =2 :b=4:c=6call p1(a,b)print “a=”; a; “b=”; bcall p2(a,b)print “a=”; a; “b=”; bend sub写出程序运行后，单击command1 按钮，form1 上的输出结果a=4 b=4 c=8a=4 b=4 c=4程序运行题7请写出在文本框中输入“321”（3个字符）并按回车键后标签控件上的显示结果。
Private Sub Text1_KeyPress(KeyAscii As Integer)Dim a As String * 1, b As String, n As Byte, i As IntegerIf KeyAscii = 13 Thenb = Text1.Text: n = Len(b)For i = 1 To n \ 2a = Left(b, 1)b = Right(b, n - 1) + aLabel1.Caption = Label1.Caption + b +vbCrLfNext iEnd IfEnd Sub213程序运行题8请写出在文本框中输入“ABCD”（4个字符）并按下回车键后，窗体上显示的结果。
Private Sub Text1_Change()Print Text1.TextEnd SubAABABCABCD程序填空题1Option Base 1Private Sub Form_Click()Dim a(5, 5) As IntegerDim i As Integer, j As Integer, p As Integer Print "排序前5*5矩阵"RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 100)Print Tab(6 * j); a(i, j);Next jPrintNext iFor i = 1 To 4p = iFor j = i + 1 To 5If a(p, p) > a(j, j) Thenp = jEnd IfNext jk = a(i, i)a(i, i) = a(p, p)a(p, p) = kNext iPrintPrint "排序前5*5矩阵"For i = 1 To 5For j = 1 To 5Print Tab(6 * j); a(i, j);Next jPrintNext iEnd Sub程序填空题2本程序求3-100之间的所有素数（质数）并统计个数；素数的个数显示在窗体Form1上。
Private Sub Command1_Click()Dim count As Integer, flag As BooleanDim t1 As Integer, t2 As Integercount = 0For t1 = 3 To 100flag = TrueFor t2 = 2 To Int(Sqr(t1))If t1 mod t2=0 Then flag = FalseNext t2If flag thencount = count + 1End IfNext t1Form1.print countEnd Sub程序填空题3如果一个整数的所有因子之和与自身相等，则称该数为完数。
例如：6=1+2+3，所以6是一个完数。
以下程序输出1000之内的完数。
Function IsWs(m as integer) As BooleanDim i as integer , t as integerFor i = 1 To m-1If m Mod i = 0 Then t = t + iNext iIf t=m ThenIsWs = TrueElseIsWs = FalseEnd FunctionPrivate Sub Form_Click()Dim i%For i = 1 To 1000If isws(i)Then Print iNext iEnd Sub程序填空题4下面程序是在用户按了Enter后将一个组合框(Cbo)中没有的项目添加到组合框中。
Sub Cbo_Keypress(Keyascii As Integer)Dim flag as BooleanIf Keyascii=13 thenFlag=FalseFor i=0 to Cbo.ListCount-1If Cbo.list(i)=cbo.text ThenFlag=TrueExit ForEnd IfIf not flag （2） ThenCbo.additem cbo.text （3） ElseMsgbox (“ 组合框中已有该项目”)End ifEnd ifEnd sub程序设计题 11. 用输入对话框输入x ，根据下式计算对应的y ，并在窗体上输出y 的值。