下载文档原格式
Vb编程题1.求自然数1～100之间奇数之和。
Private Sub Form_Click()Dim i%, sum%For i = 1 To 99 Step 2sum = sum + iNext iPrint "sum="; sumEnd Sub2.求自然数1～100之间偶数之和。
Private Sub Form_Click()Dim i%, sum%For i = 1 To 100If i mod 2=0 thensum = sum + iend ifNext iPrint "sum="; sumEnd Sub3.编写程序，在窗体上随机输出一个10--99之间的两位整数。
Sub command1_click()Dim a%Randomizea=int(rnd*90+10)print aend sub4.编程计算从200到1000之间的所有4的倍数之和。
Private Sub Form_Click()Dim sum As Longsum = 0For i = 200 To 1000If i Mod 4 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub5.编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2Dim s As Singles = 0For i = 5 To 1 Step -1s = s + i / (i + 1)NextPrint “5/6+4/5+3/4+2/3+1/2=”;s6.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。
Private Sub Command2_Click()Clsa = Val(InputBox("接收三个数:"))Print a;Max = aFor i = 1 To 2a = Val(InputBox("接收三个数:"))Print a;If a > Max Then Max = aNextPrintPrint "三数中最大者是:"; MaxEnd Sub7.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。
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中，声明一个整型变量的关键字是______。
VB简介1、在以下有关对象属性的叙述中，不正确的是___________。
A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使文本框内显示的内容为：5+7=12。
A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。
A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。
2005年4月一、选择题(1)D 【解析】数据的逻辑结构在计算机存储空间中的存放形式称为数据的存储结构(也称数据的物理结构)。
(2)B 【解析】栈(stack)是限定只在一端进行插入与删除的线性表，这一端称为栈顶(top)，另一端称为栈底(bottom)。
栈是按照"先进后出"或"后进先出"的原则组织数据的。
栈具有记忆作用。
(3)D【解析】在最坏的情况下，冒泡排序和快速排序需要比较的次数为n(n－1)/2。
(4)C 【解析】对于长度为n的有序线性表，在最坏情况下，二分查找只需要比较log2n次，而顺序查找需要比较n次。
(5)A 【解析】在链式存储结构中，存储数据结构的存储空间可以不连续，各数据结点的存储顺序与数据元素之间的逻辑关系可以不一致，而数据元素之间的逻辑关系是由指针域来确定的。
(6)C 【解析】软件测试是为了发现程序中的错误。
(7)B 【解析】耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。
在程序结构中，各模块的内聚性越强，则耦合性越弱。
一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，这样有利于提高模块的独立性。
(8)D 【解析】软件指的是计算机系统中与硬件相互依存的另一部分，包括程序、数据和相关文档的完整集合。
程序是软件开发人员根据用户需求开发的、用程序设计语言描述的、适合计算机执行的指令序列。
数据是使程序能正常操纵信息的数据结构。
文档是与程序的开发、维护和使用有关的图文资料。
(9)D 【解析】数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。
数据的独立性一般分为物理独立性与逻辑独立性两级。
(10)C 【解析】层次模型是最早发展起来的数据库模型。
层次模型的基本结构是树形结构。
(11)A 【解析】当在文本框内输入了一个文字，触发了Text1_Change()事件，改变按钮的标题用的按钮的Caption属性，所以这里只需在Text1_Change()事件里写上Command1.Caption＝"计算机等级考试"即可。
vb考试试题和答案**VB考试试题和答案**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above**答案：D**2. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs**答案：A**3. 下列哪个选项是VB中的保留字？A. MyB. MeC. DimD. All of the above**答案：D**4. 在VB中，下列哪个选项用于声明一个变量？A. ConstB. DimC. FunctionD. Sub**答案：B**5. VB中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox**答案：B**6. 在VB中，下列哪个选项用于循环遍历数组中的每个元素？A. For EachB. ForC. WhileD. Do**答案：A**7. VB中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim**答案：B**8. 在VB中，哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp**答案：A**9. VB中，哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor**答案：A**10. 在VB中，下列哪个选项用于声明一个过程？A. FunctionB. SubC. ClassD. Module**答案：B**二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是________。
**答案：Integer**2. VB中，用于定义一个函数的关键字是________。
**答案：Function**3. VB中，用于定义一个子程序的关键字是________。
V B经典例题13道(附答案)1.一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, q, w, rs = TextBox1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1ElseIf c >= "0" And c <= "9" Thenw = w + 1Elser = r + 1End IfNextLabel1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, z, x, c, is = TextBox1.Texta = Mid(s, 1, 1)i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Thenz = z + 1ElseIf a >= "0" And a <= "9" Thenx = x + 1Elsec = c + 1End Ifi = i + 1a = Mid(s, i, 1)LoopLabel1.Text = z & x & cEnd Sub3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicks = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabel1.Text = "是" & Len(c) & "位数"ElseLabel1.Text = "是" & Len(c) - 1 & "位数"End IfElseIf c >= 0 ThenFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "ElseFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j - 1 & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "End IfEnd IfEnd Sub4.求圆周率公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pia = 1n = 1While Math.Abs(1 / n) > 0.0001pi = pi + a * (1 / n)n = n + 2a = -aLabel1.Text = 4 * piEnd Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+…+1/n!+….Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, ln = 1e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1e1 = e1 + 1 / lEnd WhileLabel1.Text = e1End Sub6.右直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To ns = ""Label1.Text &= Space(n - i)For j = 1 To is &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub7．等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To nLabel1.Text &= Space(n - i)For j = 1 To 2 * i - 1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub8．倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub9．右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = i To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10．菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = ""For i = 1 To 6s = ""Label1.Text &= Space(i - 1)For j = 1 To 12s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub11.水仙花数字三位数字的个位数字的立方和等于该数字本身（1）.判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cs = Val(TextBox1.Text)Label1.Text = ""a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & "是水仙花数"ElseLabel1.Text &= s & "不是水仙花数"End IfEnd Sub（2）.找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cLabel1.Text = "水仙花数是" & vbCrLfFor s = 100 To 999a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & vbCrLfNextEnd Sub12.完全数正整数的因数之和等于这个数（1）.判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, j, l, a(100)s = Val(TextBox1.Text)j = 1For i = 1 To s - 1If s Mod i = 0 Thena(j) = ij = j + 1End IfNextFor i = 1 To jl = l + a(i)NextIf l = s ThenLabel1.Text = s & "是完全数"ElseLabel1.Text = s & "不是完全数"End IfEnd Sub（2）.找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, jn = Val(TextBox1.Text)Label1.Text = ""For p = 2 To nj = 0For i = 1 To p - 1If p Mod i = 0 Thenj = j + iEnd IfNextIf j = p ThenLabel1.Text &= p & " "End IfNextEnd Sub13.显示1，1，2，3，5，8，13，21…… F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f(30)f(1) = 1f(2) = 1For i = 3 To 30f(i) = f(i - 1) + f(i - 2)NextLabel1.Text = ""For i = 1 To 30Label1.Text &= f(i) & ","If i Mod 6 = 0 Then Label1.Text &= vbCrLfNextEnd Sub。
VB填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。
其中，最完整的是______。
答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。
答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。
答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。
答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。
答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。
答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。
答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。
答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。
vb考试题及答案一、单选题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. VB中的“Mid”函数用于什么？A. 计算字符串长度B. 计算字符串的ASCII值C. 从字符串中提取子字符串D. 将字符串转换为大写答案：C3. 以下哪个是VB中的流程控制语句？A. IfB. ForC. NextD. All of the above答案：D4. 在VB中，如何声明一个整型变量？A. Dim x As IntegerB. Integer xC. x = IntegerD. x Integer答案：A5. VB中的“Print”方法用于做什么？A. 打印文档B. 在窗体上显示文本C. 打印窗体D. 显示错误信息答案：B6. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. DateD. Object答案：D7. VB中的“Select Case”语句用于什么？A. 循环控制B. 条件分支C. 数据类型转换D. 异常处理答案：B8. 在VB中，如何将一个变量的值赋给另一个变量？A. x = yB. x := yC. x = y = zD. x = (y)答案：A9. VB中的“Do While”循环在什么条件下执行？A. 条件为真时B. 条件为假时C. 条件未知时D. 从不执行答案：A10. 在VB中，以下哪个不是集合（Collection）的方法？A. AddB. RemoveC. CountD. Find答案：D二、多选题（每题3分，共15分）1. VB中，哪些是合法的变量名？A. _nameB. 2nameC. name$D. name答案：A, D2. 在VB中，哪些是合法的常量声明？A. Const pi = 3.14B. Const pi = "3.14"C. Const pi = 3.14DD. Const pi = 3.14F答案：A, C, D3. VB中，哪些是合法的数组声明？A. Dim arr(5) As IntegerB. Dim arr(5 To 10) As IntegerC. Dim arr() As Integer = New Integer(10) {}D. Dim arr(,) As Integer = New Integer(,) {{1, 2}, {3, 4}} 答案：A, C, D4. 在VB中，哪些是合法的函数调用？A. MsgBox("Hello World")B. Int(123.456)C. UCase("Hello World")D. LCase("HELLO WORLD")答案：A, B, C, D5. VB中，哪些是合法的循环控制语句？A. For i = 1 To 10B. While TrueC. Do Until FalseD. For Each item In collection答案：A, B, C, D三、判断题（每题1分，共10分）1. 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中，用于声明变量的关键字是：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考试题及答案解析一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. FunctionC. SubD. Class答案：A2. 下列哪个选项是Visual Basic中的保留字？A. MainB. IfC. ElseD. My答案：B3. 在Visual Basic中，以下哪个函数用于将字符串转换为数字？A. StrB. ValC. ChrD. Asc答案：B4. 以下哪个控件用于在Visual Basic中显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox5. 在Visual Basic中，如何表示“或”逻辑运算？A. AndB. OrC. NotD. Xor答案：B6. Visual Basic中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Text答案：A7. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. KeyPress答案：A8. Visual Basic中，以下哪个关键字用于循环结构？A. ForB. WhileC. DoD. All of the above答案：D9. 在Visual Basic中，以下哪个函数用于获取当前系统时间？B. DateC. TimeD. Timer答案：A10. 以下哪个选项是Visual Basic中的错误处理语句？A. TryB. CatchC. FinallyD. All of the above答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。
答案：Dim2. 如果需要在Visual Basic中创建一个自定义函数，应该使用________关键字。
vb考试题及答案解析一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. ConstC. SubD. Function答案：A2. 如果一个变量被声明为Static，那么它的生命周期是？A. 仅在过程调用期间B. 直到程序结束C. 直到应用程序结束D. 直到模块结束答案：B3. 在Visual Basic中，以下哪个函数用于计算一个数的平方根？A. SqrB. PowC. AbsD. Round答案：A4. Visual Basic中的哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B5. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. KeyDown答案：A6. Visual Basic中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案：A7. 在Visual Basic中，以下哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Stop答案：A8. Visual Basic中，以下哪个控件用于显示下拉列表？A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案：B9. 在Visual Basic中，以下哪个函数用于将字符串转换为数字？A. ValB. StrC. ChrD. Asc答案：A10. Visual Basic中，以下哪个属性用于设置窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A二、判断题（每题1分，共10分）1. Visual Basic是一种面向对象的编程语言。
（正确）2. 在Visual Basic中，所有变量都必须在使用前声明。
vb试题及答案VB(Visual Basic)是一种常用的编程语言，被广泛应用于Windows 平台的软件开发中。
本文将提供一些关于VB的试题以及对应的答案，供读者学习和参考。
一、选择题1. VB是以下哪种类型的编程语言？a) 面向对象编程语言b) 过程式编程语言c) 自然语言d) 并发编程语言答案：b) 过程式编程语言2. VB最初是由哪家公司开发的？a) 微软b) Applec) IBMd) Sun Microsystems答案：a) 微软3. 下列哪个是VB的集成开发环境（IDE）？a) Visual Studiob) Eclipsec) Xcoded) NetBeans答案：a) Visual Studio4. VB中的变量声明关键字是？a) varb) dimc) intd) string答案：b) dim5. VB中用于循环执行一段代码的控制结构是？a) for loopb) while loopc) do-while loopd) switch-case答案：c) do-while loop二、填空题1. 编写一个VB代码片段，实现将两个数相加并输出结果的功能。
答案：```Dim num1 As Integer = 5Dim num2 As Integer = 3Dim result As Integerresult = num1 + num2Console.WriteLine("相加结果为：" & result)```2. VB中的条件分支语句是________。
答案：if-then语句3. VB中的数组索引是从______开始的。
答案：04. VB中的函数返回值可以使用关键字______指定。
答案：Return5. VB中用于定义一个子过程的关键字是______。
答案：Sub三、简答题1. 请解释VB中的“Option Explicit”语句的作用。
vb等级考试题及答案一、单项选择题（每题2分，共40分）1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above答案：D2. VB中，以下哪个是正确的字符串连接运算符？A. +B. &C. *D. /答案：B3. 在VB中，以下哪个是正确的布尔逻辑运算符？A. AndB. OrC. NotD. All of the above答案：D4. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D5. VB中，以下哪个是正确的数组声明方式？A. Dim arr(5) As IntegerB. Dim arr() As Integer = New Integer(5)C. Dim arr As Integer = {1, 2, 3}D. All of the above答案：D6. 在VB中，以下哪个是正确的函数定义？A. Function myFunction() As IntegerB. Sub myFunction() As IntegerC. Function myFunction() As StringD. Sub myFunction() As String答案：A7. VB中，以下哪个是正确的条件语句？A. IfB. ThenC. ElseD. All of the above答案：D8. 在VB中，以下哪个是正确的事件处理程序？A. Private Sub Form_Load()B. Public Sub Form_Load()C. Private Function Form_Load()D. Public Function Form_Load()答案：A9. VB中，以下哪个是正确的窗体属性？A. NameB. CaptionC. TextD. All of the above答案：D10. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D11. VB中，以下哪个是正确的控件？A. LabelB. TextBoxC. ButtonD. All of the above答案：D12. 在VB中，以下哪个是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. On Error GoTo LineD. All of the above答案：D13. VB中，以下哪个是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For AppendD. All of the above答案：D14. 在VB中，以下哪个是正确的数据库连接对象？A. ConnectionB. RecordsetC. CommandD. All of the above答案：D15. VB中，以下哪个是正确的数据库操作？A. SelectB. InsertC. UpdateD. All of the above答案：D16. 在VB中，以下哪个是正确的Web服务调用方法？A. WebService1.GetData()B. WebService1.GetData(ByVal parameter As String)C. WebService1.GetData(1, 2, 3)D. All of the above答案：B17. VB中，以下哪个是正确的XML文档对象？A. XmlDocumentB. XmlTextWriterC. XmlReaderD. All of the above答案：D18. 在VB中，以下哪个是正确的正则表达式类？A. RegexB. MatchC. GroupD. All of the above答案：D19. VB中，以下哪个是正确的异常处理类？A. ExceptionB. ApplicationExceptionC. SystemExceptionD. All of the above答案：A20. 在VB中，以下哪个是正确的线程类？A. ThreadB. ThreadStartC. ParameterizedThreadStartD. All of the above答案：A二、填空题（每题2分，共20分）21. 在VB中，声明一个整型变量的关键字是________。
vb精选试题及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. VB中数组的默认下标是从哪个数字开始的？A. 0B. 1C. -1D. 2答案：B3. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Sqr答案：A4. VB中，哪个属性用于获取或设置一个窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A5. 在VB中，以下哪个事件用于响应鼠标单击窗体？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、填空题（每题3分，共15分）1. 在VB中，声明一个整型变量的正确语法是________。
答案：Dim myVar As Integer2. VB中，用于定义一个过程的关键字是________。
答案：Sub 或 Function3. VB中，用于读取用户输入的函数是________。
答案：InputBox4. VB中，用于打开文件的语句是________。
答案：Open5. VB中，用于关闭文件的语句是________。
答案：Close三、简答题（每题5分，共10分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、信号等）触发。
在VB中，用户可以通过编写事件处理程序来响应这些事件。
2. VB中如何实现循环结构？答案：在VB中，可以使用For...Next循环、Do...Loop循环、While...Wend循环等结构来实现循环。
四、编程题（每题10分，共20分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
答案：请参考以下代码：```vbDim sum As IntegerDim i As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和是：" & sum```2. 编写一个VB程序，判断一个给定的年份是否为闰年。
vb考试题及答案.docvb 考试题及答案【篇一：vb 考试真题一含答案】一、单项选择题（40 道小题，共40 分）1、在visual basic 中应用的是( c ) 。
（1 分）a、面向过程的程序设计方法b、面向数据的程序设计方法c、面向对象的程序设计方法d、面向用户的程序设计方法2、如果想让代码窗口中代码的字体大些，可以使用( a ) 命令设置。
（1 分）a、“工具”菜单的“选项”b、“视图”菜单的“缩放”c、“编辑”菜单的“替换”d、“视图”菜单的“定义”3、开发一个标准exe 程序时，工程资源管理器窗口应包含( b ) 文件。
（1 分）a、.bas b 、.frmc、.res d 、.cls4、在设计模式下，双击窗体上的一个控件，则会打开( c ) 。
（1 分）a、属性窗口b、工程资源窗口c、代码窗口d、窗体布局窗口5、下列属性中，能表示窗体执行时以正常窗口状态显示的属性是( d ) 。
（1 分）a、tabindex b 、controlboxc、borderstyle d 、windowsstate6、text1 是个文本框，语句text1=* 和下面( d ) 的作用相同。
（ 1分）a、text1.caption=* b 、text1.password=*c、text1.maxlength=* d 、text1.text=*7、command1 是一个按钮控件，它的pictrue 属性已经被成功设置为一个可显示图形，但运行时该图形未被显示，其原因可能是( d ) 。
（1 分）a、该图形太大b、forecolor 被设置为黑色c、backcolor 被设置为黑色d、style 属性值被设置为08、为了使标签覆盖背景，应把backstyle 属性设置为( b ) 。
（1分）a、0 b 、1c、ture d 、false9、要使时钟控件的timer 事件每隔3 秒发生一次，应该把它的interval 属性设置为( d ) 。
实验4：编写一个程序。
要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。
在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。
1）8*3*6\22）7/6*3.2/2.15*(5.5+3.5)3）34\4+4.0^5/124）65\3 mod 3.4*fix(3.8)5）“abg”+”34” & “erert”6）true or not (8+3>=23)7）7>2 or 4<9实验目的：学习VB运算符的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5：编写一个程序。
设a=2，b=3，c=4，d=5，S="ABCDEFGHI]K"，求下列表达式的值：(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的：学习VB中函数的使用。
vb试题及答案一、单选题（每题2分，共10分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim aB. Dim a As IntegerC. Dim a = 5D. Dim a As Integer = 5答案：B2. VB中的哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 以下哪个是VB的事件？A. ClickB. PrintC. DrawD. Open答案：A4. 在VB中，以下哪个语句用于结束程序？A. EndB. ExitC. StopD. Quit答案：A5. VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Text答案：A二、多选题（每题3分，共15分）1. VB中，以下哪些是合法的变量名称？A. 2variableB. variable2C. _variableD. variable$答案：B, C2. VB中，以下哪些是合法的常量声明方式？A. Const pi = 3.14B. Dim pi As Double = 3.14C. Const pi = "3.14"D. Dim pi = 3.14答案：A, D3. 在VB中，以下哪些是控件的属性？A. NameB. CaptionC. TextD. Value答案：A, B, C4. VB中，以下哪些是控制流程语句？A. If...Then...ElseB. For...NextC. While...WendD. Select...Case答案：A, B, C, D5. VB中，以下哪些是数组的声明方式？A. Dim arr(5)B. Dim arr(0 To 5) As IntegerC. Dim arr As Integer = New Integer(5)D. Dim arr(5) As Integer答案：A, B, D三、判断题（每题1分，共5分）1. VB是一种面向对象的编程语言。
vb考试题及答案详解一、选择题（每题2分，共40分）1. 在Visual Basic中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 以下哪个关键字用于声明一个过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C3. 如果变量x的值是5，那么表达式x > 3 And x < 10的结果是？A. TrueB. FalseC. 5D. 3答案：A4. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给变量str？A. str = TextBox.TextB. str = TextBoxC. str = TextD. str = Text.Text答案：A5. 下列哪个控件用于在窗体上显示图像？A. PictureBoxB. ImageBoxC. LabelD. Button答案：A6. Visual Basic中的哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Exp答案：A7. 如何在Visual Basic中声明一个整型变量？A. Dim intVar As IntegerB. Declare intVar IntegerC. Var intVar IntegerD. Integer intVar答案：A8. 在Visual Basic中，哪个事件用于响应鼠标单击？A. ClickB. MouseDownC. MouseUpD. DoubleClick答案：A9. 下列哪个不是Visual Basic的内置控件？A. TextBoxB. ComboBoxC. ListBoxD. DataGrid答案：D10. 在Visual Basic中，如何使用If语句进行条件判断？A. If condition ThenstatementsEnd IfB. If condition ElsestatementsEnd IfC. Both A and BD. None of the above答案：C11. Visual Basic中哪个函数用于获取当前日期？A. NowB. DateC. TodayD. Time答案：C12. 如何在Visual Basic中声明一个数组？A. Dim arrayName() As TypeB. Declare arrayName() As TypeC. Var arrayName() As TypeD. Array arrayName() As Type答案：A13. 在Visual Basic中，哪个属性用于设置文本框的只读状态？A. ReadOnlyB. ReadOnlyC. CanReadD. CanWrite答案：A14. 如何在Visual Basic中声明一个类？A. Class classNamedeclarationsEnd ClassB. Declare classNamedeclarationsEnd DeclareC. Var classNamedeclarationsEnd VarD. Type classNamedeclarationsEnd Type答案：A15. 在Visual Basic中，哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Stop答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
（一）算法与程序结构一个算法应包含有限个操作步骤，每一步的完成时间无限制。
（F）22.执行如图所示的程序流程，输出的T是（C）。
A．10 B．20 C．30 D．4041.下列关于算法的说法中，不正确的是（ A）。
A．用自然语言表示算法通俗易懂，描述包含分支和循环的算法方便B．流程图是用一些图框表示各种操作，用图形表示算法，直观形象，易于理解C．伪代码是介于自然语言和计算机语言之间的文字和符号来描述算法D．用计算机语言表示算法必须严格按所用语言的语法规则50.一般算法的三种基本控制结构是（A）。
A．顺序结构、选择结构、循环结构B．顺序结构、循环结构、模块结构C．顺序结构、模块结构、选择结构D．模块结构、选择结构、循环结构（二）vb程序构成模块(Module)是相对独立的程序单元。
TVisual Basic是一种面向对象的可视化程序语言，采用了事件驱动的编程机制。
TVB编程中使用过程可使大程序分解成多个小程序模块，使程序编写与调试变得容易。
T 在VB中，要在一行中写多条语句时，逗号(",")可作为语句间的分隔符。
F11、以下叙述错误的是（ A ）。
A. 一个窗体模块通常包括声明部分、通用过程部分、自定义过程部分B. 全局变量通常在标准模块中定义C. 一个工程中可以包含多个窗体文件D. 窗体和窗体模块是一一对应的31.当一个工程含有多个窗体时，其中的启动窗体是（ D ）。
A. 启动VB时建立的窗体B. 第一个添加的窗体C. 最后一个添加的窗体D. 在“工程属性”对话框中指定的窗体73.以下叙述中错误的是（ A ）。
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.一个工程中可以含有多个标准模块文件（三）常量与变量静态变量不能在过程中定义而只能在通用声明处中定义。
FPublic可以用于在某过程中定义变量。
1、算法描述:求得1~100之间所有偶数得与'注:请不要更改原程序结构,删除(1)、(2)、(3),并在对应位置填写正确得代码'Function func()(1) i As Integer dimfunc = (2)0For i = 2 To 100 Step (3)2func = func + iNext iEnd Function2、操作要求: 顺序查找单词“name” :输入10个不同得单词给数组,查找单词“name”就是否在数组中;如果在,输出单词在数组中得位置,否则,输出“不在数组中”。
Sub main()Dim i As IntegerDim buzai As Boolean'定义数组d,下界为1,上界为10,数据类型为string,在dim后完善语句Dim (1) d(1 To 10) As String'输入10个单词,在for语句后完善i得初始值与终值For i =(2) 1 to 10'输入每个单词给数组元素,在赋值号左侧添加变量(3) = InputBox("Please input word " & i) d(i)Next ibuzai = Truei = 0While buzai = True And i < 10'顺序查找单词,数组下标增1,在赋值号右侧添加表达式i =(4) i+1'判断数组元素就是否为单词"name",在if语句后添加判断条件If (5) Then d(i) = "name"buzai = FalseEnd IfWendIf buzai = False ThenMsgBox "在数组中得位置为:" + Str(i)ElseMsgBox "不在数组中"End IfEnd Sub3、小王今年26岁,资助了一名贫困大学生,'她想从明年开始每年比上一年多资助一名贫困大学生。
'编程求解小王到多少岁,就能资助到n名甚至更多大学生？Function func(n)stu = 1age = 26'请完善下面两条语句Do While stu < Val(n)age = age + (1) 1stu = (2) + age – 25 stuLoopfunc = ageEnd FunctionSub Main()If mand = "assess" ThenOpen "in、txt" For Input As #1Line Input #1, nClose #1Open "out、txt" For Output As #1Print #1, func(n)Close #1Else'请完善大学生数n得输入语句(3) = InputBox("请输入大学生数 n:", "Input") nMsgBox func(n)End IfEnd Sub4、操作要求:设计一个VB学习指导程序得窗口运行界面,界面设计如下图。
要求(1)打开“C:\MyExam\工程1、vbp”,设置窗体Form1属性值:将该窗体标题命名为“VB学习指导”;(2)添加一个标签控件Label1,并设置如下属性值:该控件填充内容“VB学习指导”;字体为隶书,字形为粗体,字号为三号,字体颜色为调色板中第5行第7列,并居中对齐; (3)对标签控件Label2(请输入口令:),设置如下属性值:根据字体大小自动调整;(4)添加一个文本框控件Text1,并设置如下属性值:文本框高度为650,宽度为2215;文本框内容为空;(5)添加一个命令按钮Option2,并设置如下属性值:将该按钮标题命名为“退出”;字体为黑体,字号为四号;按钮宽度1575,高度735;(5)保存并提交。
5、操作要求:打开"C:\MyExam\工程1、vbp”,补充完成程序。
实现当从键盘上输入x得值后,求函数y得值(当x<0时,y=|3x+1|;当x>=0时,y=4x+1)。
如:输入-2后,输出结果:5、Function func(x)If x < 0 Thenfunc = (1) abs(3*x+1)Elsefunc = (2) 4*x+1End IfEnd Function6、操作要求: 打开“C:\MyExam\工程1、vbp”补充完成程序并保存！该程序得功能就是:从键盘上输入两个数a与b,比较a与b得大小,并输出较小得数。
Function func(a, b)If (1) Then a<bfunc = aElseIf (2) Then a>bfunc = bElsefunc = "两数相等"End IfEnd IfEnd Function7、操作要求: 输入a、b、c得值,判断一元二次方程 ax^2+bx+c=0就是否有解,如果无解则输出“无解” ,如果两个解相同则输出“两解相同”,否则输出“两解不同”。
Function f(a, b, c)'请完成其它得判断语句If b * b - 4 * a * c < 0 Then f = "无解"If b * b - 4 * a * c = 0 Then (1) f="两解相同"(2) If b * b - 4 * a * c > 0 Then f = "两解不同" End FunctionSub Main()If mand = "assess" ThenOpen "in、txt" For Input As #1Line Input #1, aLine Input #1, bLine Input #1, cClose #1Open "out、txt" For Output As #1Print #1, f(a, b, c)Close #1Elsea = InputBox("请输入 a", "Input")b = InputBox("请输入 b", "Input")'请完成变量c得输入语句(3) c = InputBox("请输入 c", "Input")MsgBox f(a, b, c)End IfEnd Sub8、操作要求: 打开“C:\MyExam\工程1、vbp”补充完成程序并保存！该程序得功能就是: 求实数x得绝对值。
Function func(x)If x >= 0 (1) thenfunc = xElsefunc = (2) -x(3) end ifEnd Function9、操作要求: 打开“C:\MyExam\工程1、vbp”进行以下操作后并保存！填空完成程序,计算N!得值并在窗体上打印出结果,如输入:3,则输出:6。
(注:N!=1×2×…×N) Function func(n)Dim i As Integer(1) func=1For i = 1 To (2) nfunc = func * i '计算N!Next iEnd Function10、操作题:“提示信息”界面设计,如下图所示,要求(1)打开“C:\MyExam\工程1、Vbp”,对窗体Form1设置如下属性值:窗体标题为“提示信息”;背景色为调色板第1行第7列。
(2)添加一个标签控件Label,并设置如下属性值:标签标题为“要继续吗？”(注:“？”为中文标点符号);标签高度为495,宽度为1935;字体为楷体_GB2312,字形为常规,字号为三号,字体颜色为调色板第5行第8列,背景类型为0。
(3)添加一个按钮控件mandButton,并设置如下属性值:按钮标题为“否”;字号为小四。
(4)保存并提交。
11、操作要求:输入10位同学得英语成绩存放在数组score中,利用选择排序算法按照从大到小得顺序进行排序。
' 算法描述:'输入10位同学得英语成绩存放在数组score中'利用选择排序算法按照从大到小得顺序进行排序'定义数组score,下界为1,上界为10,数据类型为SingleDim (1) score(1 To 10) As SingleFunction f()'i为排序得次数,应该排序9次,为i添加初值与终值For i =(2) 1 To 9Min = score(i): m = i'j为每次排序得数得范围,应从i+1开始直到第10个数,为j添加初值与终值For j =(3) i + 1 To 10If score(j) > Min Then Min = score(j): m = jNext j'以k为中间变量,编写交换score(i)与score(m)得语句k = score(i)score(i) = score(m)(4) score(m) = kNext ist = "排序后得数列为:"For i = 1 To 10st = st + Str(score(i)) + " "Next if = stEnd FunctionSub Main()Dim i As Integer, m As Integer, k As Integer, j As IntegerDim st As StringIf mand = "assess" ThenOpen "in、txt" For Input As #1Dim x As StringFor i = 1 To 10Line Input #1, xscore(i) = Val(x)Next iClose #1Open "out、txt" For Output As #1Print #1, f()Close #1ElseFor i = 1 To 10'输入10位同学得英语成绩,在赋值号左侧添加变量(5) = InputBox("请输入第" & i & "个数据") score(i)Next iMsgBox f()End IfEnd Sub12、购物问题:购物满1000元,打7折,800到1000元,打8折,500到800元,打9折。
