VB编程题
专升本vb程序设计试题及答案
专升本vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的方法？A. FunctionB. SubC. PropertyD. Class答案：B2. VB中的单精度浮点数类型是什么？A. IntegerB. SingleC. DoubleD. Long答案：B3. 如果想要在VB中实现多态，可以使用哪种机制？A. 继承B. 接口C. 重载D. 封装答案：B4. 在VB中，以下哪个控件可以用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B5. VB中的“Option Explicit”语句的作用是什么？A. 声明变量类型B. 强制变量声明C. 定义常量D. 创建对象实例答案：B6. 在VB中，如何实现一个事件处理程序？A. 使用Sub过程B. 使用Function过程C. 使用Property过程D. 使用Handles关键字答案：D7. 如果要使一个变量在多个窗体之间共享，应该使用哪种变量作用域？A. PublicB. PrivateC. FriendD. Protected答案：A8. 在VB中，以下哪个不是标准的控件属性？A. NameB. TextC. VisibleD. Color答案：D9. VB中的“With”语句用于什么目的？A. 初始化对象B. 创建对象实例C. 链式调用同一对象的多个属性或方法D. 定义对象的生命周期答案：C10. 在VB中，以下哪个不是Visual Basic Power Packs控件？A. LineB. OvalC. ShapeD. DataGrid答案：D二、填空题（每空2分，共20分）11. VB中的“_____”关键字用于定义一个类。
答案：Class12. 当需要在VB中捕获并处理异常时，可以使用“_____”语句。
答案：Try...Catch13. 在VB中，一个窗体的标题可以通过“_____”属性来设置。
vb练习题及答案
vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。
练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。
解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩，然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。
vb编程题及答案
v b编程题及答案1. 在代码中引用一个控件时，应使用控件的(b)属性。
A.C ap t ionB.Na meC. TextD. Index2. 设变量X= 4, y =—1, a= 7, b =—8, 下面表达式(a)的值为“假＂。
A x+a <= b—yB x > 0 A N D y < 0C.a = b O R x>yD. x+y > a+b AN D NOT (y < b)3. 表达式I nt(Rnd71)+10产生的随机整数范围是(C)。
A. (10, 80)B. (10, 81)C. [10, 80]D. [10, 81]4. 函数Sgn(3. 1416)的返回值是(C)。
A. —1B. 0C. 1D. 以上都不对5.67890属于(d)类型数据。
A. 整型B.单精度浮点数C.货币型D.长整型6. 下列变量名中正确的是(d)。
A. 3SB.PrintC. Sel ect M y NameD.Sel ect—l7. 下列赋值语旬(a)是有效的。
A. u m= u m—u mB.x+2 = x + 2C.x + y = u mD. l as t= y / 08. 以下的控件或方法具有输入和输出双重功能的为(b)。
A.PrintB. Text b oxC.O t ionb u ttonD.C h eck b o x9. 若要获得列表框中被选中的列表项的内容，可以通过访问(d)属性来实现。
()。
A.Na me B.Li t lndex C.Li t C ou nt D. Text10. 下列代码的运行结果为(b)。
Priv a t e S u b m a nd l—cl ick()D i m m(lO)For k=1 T o10m(k) = 11—kN ext kX = 5Print m(2 + m(x))End S u bA. 2B. 3C.4D. 5标准控件不包括（）控件。
vb考试试卷
vb考试试卷VB考试试卷一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim aB. Dim a = 5C. Dim a As IntegerD. Dim a As String = "Hello"2. 下列哪个是VB中的循环结构？A. IfB. ForC. SubD. Function3. VB中的数组声明方式是：A. Dim numbers(1 To 10)B. Dim numbers As Integer(1 To 10)C. Dim numbers(10)D. Dim numbers As Array = New Integer(10)4. 在VB中，以下哪个是正确的条件语句？A. If x > 0 ThenB. If x > 0C. If x > 0 ElseD. If x > 0 End If5. VB中，以下哪个是正确的函数定义方式？A. Function Add(x, y) As IntegerB. Function Add(x, y) = x + yC. Function Add(x, y) = Return x + yD. Function Add(x, y) = x + y End Function...（此处省略其他选择题）二、填空题（每空2分，共20分）1. 在VB中，使用________关键字来声明常量。
2. VB中的________结构用于执行一系列动作，直到满足某个条件。
3. 要声明一个包含10个整数的数组，可以使用________。
4. 当需要在VB中调用另一个窗体时，可以使用________方法。
5. VB中的________属性用于设置控件的可见性。
...（此处省略其他填空题）三、简答题（每题10分，共20分）1. 简述VB中的事件驱动编程的概念及其重要性。
2. 解释VB中类和对象的区别，并给出一个使用类和对象的简单示例。
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练习题及答案
vb练习题及答案VB练习题及答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. Both A and BD. None of the above答案：C2. VB中，哪个关键字用于声明变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. RepeatD. All of the above答案：D4. VB中，以下哪个是正确的条件语句？A. IfB. SwitchC. CaseD. A and B only答案：A5. 在VB中，以下哪个是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案：A二、填空题1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，使用________方法可以为控件添加事件处理程序。
答案：AddHandler3. 在VB中，________方法用于结束程序的执行。
答案：End4. VB中，________属性用于获取或设置一个控件的文本。
答案：Text5. 在VB中，________方法用于打开一个文件。
答案：Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案：在VB中，事件是用户或程序触发的特定动作，如按钮点击或键盘敲击。
事件处理程序是一个过程，当特定的事件发生时，会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案：在VB中，For循环用于重复执行一段代码直到满足特定条件。
基本语法是：```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承，并给出一个简单的示例。
vb考试题及答案
vb考试题及答案一、选择题（每题2分，共20分）1. VB中的“Dim”关键字用于声明什么？A. 变量B. 常量C. 类型D. 过程答案：A2. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable-nameC. variable$nameD. variable name答案：B3. VB中的“Sub”过程可以返回值吗？A. 是B. 否答案：B4. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Date答案：C5. VB程序中，以下哪个语句用于结束程序？A. Exit SubB. End SubC. Exit ForD. End答案：D6. VB中，以下哪个是正确的条件语句？A. If (x > 10)B. If x > 10C. If x = 10 ThenD. If x = 10答案：C7. 在VB中，以下哪个是正确的循环结构？A. DoB. WhileC. ForD. All of the above答案：D8. VB中的“With”语句用于什么？A. 条件判断B. 循环控制C. 简化代码D. 错误处理答案：C9. 在VB中，以下哪个不是数组的声明方式？A. Dim arr(0 To 10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer = New Integer(10)D. Dim arr(1) As Integer答案：D10. VB中，以下哪个是正确的事件处理程序声明？A. Sub Button1_Click()B. Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Sub Button1_Click(ByVal e As EventArgs)D. Sub Button1_Click(ByVal sender As Object)答案：B二、填空题（每空2分，共20分）1. 在VB中，使用________关键字可以定义一个类。
VB试题(选择、填空)
一，选择题1、如果VB环境中缺少某个窗口，一般应从主菜单__C____的下拉菜单中找到相应的激活命令。
（1分）A、编辑B、文件C、视图D、调试2、启动Visual Basic后，VB为用户建立的第一个窗体是__B____。
（1分）A、FormB、Form1C、窗体1D、窗体3、不属于一个工程文件（*.vbp）里的文件是____A__。
（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件4、与传统的程序设计语言相比较，Visual Basic最突出的特点是__C____。
（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持5、文本框中的ScrollBars属性已设置为3-Both，但却没有水平和垂直滚动条的效果，原因可能是___B___。
（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True6、能够盛放其他控件，而且是最基本的对象是___A___。
（1分）A、窗体B、图像C、标签D、文本7、任何控件都具有的属性是____C__。
（1分）A、PictureB、CaptionC、NameD、AutoSize8、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。
在Command1_Click()中能完成这个功能的命令为___D___。
（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 1009、要把一个Image控件对象设置成隐藏，应设置的属性是___A___。
（1分）A、VisibleB、EnabledC、DefaultD、Cancel10、以下___B___是正确的For …Next结构。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB编程题1、题目：(事件)单击窗体。
' (响应)求100~200之间能被5和7整除的数之和。
并将结果输出在窗体上。
Dim s%, i%s = 0For i = 100 To 200if i mod 5 = 0 and i mod 7 = 0 thens = s + iendifNext i2、题目：(事件)单击窗体。
' (响应)编写函数，输出Fibonacci数列前20项中的奇数之和。
' 已知前两项的值分别为1,1。
从第三项开始后一项是前两项这和。
' （和值为14328）'-------------------------------------------------Private Function fac(a() As Long, n As Long)'**********Begin**************Dim s As Long, i As IntegerFor i = 3 To 20a(i) = a(i - 1) + a(i - 2)Next iFor i = 1 To 20If a(i) Mod 2 <> 0 Thens = s + a(i)End IfNext ifac = s'***********End***************End FunctionPrivate Sub Form_Click()Dim a(20) As Longa(1) = 1a(2) = 1Print fac(a, 20)End Sub3、'题目：(事件)单击窗体。
' (响应)求如图所示的公式的值：直到最后一项的绝对值小于0.00001为止。
' 将结果输出到窗体上。
'-------------------------------------------------Private Sub Form_Click()'******* Begin ************Dim s!, t!, i!, f!s = 0t = 1 / 3f = 1i = 3Do While Abs(t) >= 0.00001s = s + tf = -fi = i + 3t = 1 / iLoop'******* End ************Print "s=", sEnd Sub4、'题目：(事件)单击窗体。
' (响应)从键盘输入若干个正整数，计算输入数据中奇数的和。
' 输入小于或等于0时结束。
'-------------------------------------------------Option ExplicitFunction fun(x As Integer) As Integer'******* Begin ************If x Mod 2 = 0 Thenfun = 1Elsefun = 0End If'******* End ************End FunctionPrivate Sub Form_Click()Dim m As Integer, sum As Integersum = 0m = Val(InputBox("请输入m的值:"))Print m;Do Until m <= 0If fun(m) = 0 Thensum = sum + mEnd Ifm = Val(InputBox("下一个m的值:"))Print m;LoopPrintPrint "sum=" & sumEnd Sub5、题目：(事件)单击窗体。
' (响应)求三角形面积，并将结果输出在窗体上。
' 公式1'-------------------------------------------------Option ExplicitPrivate Sub triarea(area As Double, x As Double, y As Double, z As Double) Dim s As Double'******* Begin ************s = (x + y + z) / 2area = Sqr((s - x) * (s - y) * (s - z) * s)'******* End ************End SubPrivate Sub Form_Click()Dim a As Double, b As Double, c As Double, s As DoubleDim intYesorNo As Integera = Val(InputBox("输入三角形的第一条边"))b = Val(InputBox("输入三角形的第二条边"))c = Val(InputBox("输入三角形的第三条边"))If a + b > c And b + c > a And c + a > b ThenCall triarea(s, a, b, c)Print " 三角形面积 ="; sElsesuberr intYesorNoEnd IfEnd SubPrivate Sub suberr(intyrn As Integer)intyrn = MsgBox("请检查您的数据", vbYesNo + vbInformation, "数据错误") End Sub6、题目：(事件)单击窗体。
' (响应)计算下列分段函数的程序。
图1'-------------------------------------------------Private Sub fun(x As Integer)Dim y As Double'******* Begin ************If x < 0 Theny = x + 5ElseIf x < 10 And x >= 0 Theny = x * x - x + 3ElseIf x >= 10 Theny = 4 * x - 7End If'******* End ************Print "y="; yEnd SubPrivate Sub Form_Click()Dim x As Integerx = Val(InputBox("输入X的值："))Call fun(x)End Sub'-------------------------------------------------'【程序设计】'-------------------------------------------------7、'题目：(事件)单击窗体。
' (响应)编写过程，任意输出n项Fibonacci数列，一行输出4项。
' 已知前两项的值分别为1,1。
从第三项开始后一项是前两项这和。
'例如，n值为20，运行结果界面如图所示。
'-------------------------------------------------Private Sub fac(a() As Double, n As Integer)Dim i As Integer'**********Begin**************For i = 3 To na(i) = a(i - 1) + a(i - 2)Next iFor i = 1 To nPrint a(i),If i Mod 4 = 0 ThenPrintEnd IfNext i'***********End***************End SubPrivate Sub Form_Click()Dim a() As Double, n As Integern = Val(InputBox("输入需要显示的Fibonacci数列的项数："))ReDim a(n)a(1) = 1a(2) = 1ClsCall fac(a, n)End Sub8、随机产生10个1~10之间的整数，求出这10个整数中的最大值以及它出现的次数。
Private Sub command1_Click()Dim i As Integer, max As Integer, n As Integern = 0If b ThenPrint "原始数组："For i = 1 To 10a(i) = Int(Rnd * 10) + 1Print a(i);Next iPrintEnd If'******* Begin ************max = a(1)For i = 2 To 10If max < a(i) Then max = a(i)Next iFor i = 1 To 10If max = a(i) Then n = n + 1Next i'******* End ************Print "max="; max; "n="; nOutResult Str(max) & " " & Str(n)End SubPrivate Sub OutResult(i As String)Dim OUT As IntegerOUT = FreeFileOpen App.Path & "\85.out" For Output As #OUTPrint #OUT, iClose #OUTEnd SubPrivate Sub RndArray()a(1) = 12: a(2) = 456: a(3) = 772: a(4) = 7: a(5) = 90: a(6) = 45: a(7) = 22: a(8) = 99: a(9) = 25: a(10) = 33End SubPrivate Sub Form_Load()b = TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer)b = FalseRndArraycommand1_ClickEnd Sub9、'题目：(事件)单击窗体。