VB经典试题6

二、选择题1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。

A、GotFocus B、Load C、Click D、KeyDown2、滚动条控件(如下图)的Max属性所设置的是 A 。

A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句Select * Form student 中的*表示 B 。

A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是 C 。

A、EnabledB、CaptionC、Default D、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。

A、CaptionB、NameC、Text D、Label6、设置一个单项选择按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。

A、CaptionB、NameC、Text D、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。

A、在标题项中输入&，然后打勾B、在索引项中打勾C、在有效项中打勾D、在复选项中打勾8、当执行以下过程时，在窗体上将显示 A 。

Private Sub Command1_Click( )Print "VB";Print "Hello! ";Print "VB"End SubA、VBHello!VBB、VBHello!VBC、VBD、VBHello! VBHello!VB9、语句Print "The answer is:";20/4-2的结果为 B 。

A、The answer is 20/4-2B、The answer is 3C、The answer is "20/4-2"D、非法语句10、以下哪个控件是容器控件 B 。

vb试题及答案期末一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. SubD. Function答案：A2. VB中，哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Mid答案：A3. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. BooleanD. All of the above答案：D4. VB中，哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Module答案：B5. VB中，哪个函数用于将字符串转换为小写？A. LCaseB. UCaseC. StrConvD. Trim答案：A6. 在VB中，以下哪个选项是正确的循环结构？A. For EachB. Do WhileC. For NextD. All of the above答案：D7. VB中，哪个关键字用于创建一个数组？A. DimB. ReDimC. EraseD. Option Base答案：A8. VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Timer答案：B9. 在VB中，以下哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For RandomD. All of the above答案：D10. VB中，哪个关键字用于退出一个循环？A. ExitB. BreakC. ContinueD. Return答案：A二、填空题（每题3分，共30分）1. VB中，声明一个整型变量并赋值为100的语句是________。

答案：Dim myVar As Integer = 1002. 要将一个变量的值增加10，可以使用________运算符。

答案：+=3. 在VB中，________函数用于输出信息到即时窗口。

vb期末试题及答案一、选择题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. SetC. CallD. Sub答案：A2. 下列哪个选项不是VB中的控件？A. TextBoxB. LabelC. ButtonD. Excel答案：D3. VB中，用于执行循环操作的关键字是：A. ForB. IfC. ElseD. While答案：A4. VB中，用于打开文件的函数是：A. OpenB. CloseC. PrintD. Write答案：A5. VB中，用于定义过程的关键字是：A. FunctionB. SubC. DimD. Const答案：B6. VB中，用于定义函数的关键字是：A. FunctionB. SubC. DimD. Const答案：A7. VB中，用于定义常量的关键字是：A. DimB. ConstC. FunctionD. Sub答案：B8. VB中，用于定义数组的关键字是：A. DimB. FunctionC. ConstD. Sub答案：A9. VB中，用于判断条件的关键字是：A. IfB. ForC. WhileD. Dim答案：A10. VB中，用于退出循环的关键字是：A. ExitB. EndC. StopD. Loop答案：A二、填空题（每题2分，共20分）1. VB中，声明一个整型变量a，可以使用关键字________。

答案：Dim2. VB中，声明一个字符串变量str，可以使用关键字________。

答案：Dim3. VB中，声明一个布尔型变量flag，可以使用关键字________。

答案：Dim4. VB中，声明一个数组变量arr，可以使用关键字________。

答案：Dim5. VB中，声明一个常量PI，可以使用关键字________。

答案：Const6. VB中，声明一个函数sum，可以使用关键字________。

答案：Function7. VB中，声明一个过程printData，可以使用关键字________。

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。

《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题:是非题(共10分,每项1分)1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。

13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。

4A.对B.错√第二题、单选题(共45分,每项1.5分)1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。

15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。

2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题:是非题(共10分,每项1分)1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。

15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。

9A.对B.错√3. 每一个控件实质上都是一个微型程序。

2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。

A.对√B.错第二题、单选题(共45分,每项1.5分)1. 文本框没有_____属性。

21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。

9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。

3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False,则___。

6A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容第三题、简单程序(共15分,每项1.5分)1. 以下程序的输出结果是______。

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的特点：面向对象、可视化、事件驱动对象具有属性、事件和方法三要素.属性是用来描述和反映对象特征的参数,不同的对象具有各自不同的属性,对象的所有属性都可以在属性窗口中设置.N所有控件都具有的共同属性是【1】属性.name写出清除标签Label1的显示信息的语句为【1】. Label1.caption=""（清除文本框的内容、在标签上显示信息、在文本框中显示信息）窗体的Enabled属性值为False时,该窗体上的按钮、文本框等控件就不会响应用户的操作。

Y 当运行程序时,系统自动启动窗体的事件过程是().A (Enabled是否失效，Visible是否可见) A:Load B:Click C:UnLoad（关闭窗体时启动） D:GotFocus控件是对象,而窗体不是对象,它只是控件对象的窗口.N一个程序只能有一个窗体。

Nvb程序运行时窗体上对象的名称可以随时修改。

N如果要使命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】。

退出(&X)设置控件背景颜色的属性名称是【1】. Backcolor（前景色（字体颜色）：Forecolor）要在垂直位置上移动控件,应利用控件的()属性. CA:Left（左右移动时，利用该属性） B:Width C:Top D:Height确定一个窗体或控件大小的属性是().AA:Width 和Height B:Width 和TopC:Top 和right D:Top 和 LeftVisual Basic中的文本框中要使该框不允许多行输入,应设置【1】属性为false.MultiLine能够获得一个文本框中被选取文本的内容的属性是Seltext。

Y若要使标签控件显示时不覆盖其背景内容,要对()属性进行设置. DA:BackColor B:BorderStyle C:ForeColor D:BackStyleVisual_basic是合法的变量名.（标识符以字母开头，后可跟字母、数字或下划线）答案：Y在VB代码中，将多个语句合并写在一行上的语句分隔符是【1】冒号基本数据类型：Integer(%)、Long(&)、Single(!)、Double(#)、String($)下面()是日期型常量. CA:"12/19/99" B:12/19/99 C:#12/19/99# D:{12/19/99}变量未赋值时,数值型变量的值为().A (字符串变量的值为空串)A:0 B:空 C:1 D:无任何值Dim i, j as integer 表明i和j都是整型变量.N要强制声明变量,可在窗体模块或标准模块的声明段中加入语句().A:Option Base 0 B:Option ExplicitC:Option Base 1 D:Option Compare答案：B为了给三个变量赋初值1，赋值语句是：x=y=z=1。

一，选择题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. 计算机网络最突出的优点是_B_____。

A、运算速度快B、共享资源C、容量大D、精度高2.下列选项中，不属于显示器主要技术指标的是__A____。

A、重量B、像素的点距C、显示器的尺寸D、分辨率3.在计算机内部用来传送、存储、加工处理的数据或指令都是以__B____形式进行的。

A、八进制码B、二进制码C、十进制码D、十六进制码4.计算机软件分系统软件和应用软件两大类，其中____B__是系统软件的核心。

A、数据库管理系统B、操作系统C、程序语言系统D、财务管理系统5.计算机存储器中，一个字节由__B___位二进制位组成。

A、32B、8C、4D、16母a的十进制码值是__dWord__d__。

A、91B、95C、96D、977.应用程序窗口中的各种工具栏可以通过(D )进行增减.A、"文件"菜单的"页面设置"命令B、"工具"菜单的"选项"命令C、"文件"菜单的"属性"命令D、"视图"菜单的"工具栏"命令8. 在EXCEL 中单元格的条件格式在(D )菜单中.A、文件B、编辑C、视图D、格式9.在Windows中,文件名MM.txt和mm.txt(C ).A、是两个文件B、不是同一个文件C、是同一个文件D、有时候是同一个文件10. 为网络提供公享资源进行管理的计算机称谓(B )A、网卡B、服务器C、网桥D、工作站11. 符号%是声明__A____类型变量的类型定义符。

B、StringC、SingleD、Integer12. 在窗体上画一个命令按钮（名称为Command1），并编写如下代码：Function Fun1(ByVal a As Integer,b As Integer) As Integer Dim t As Integert=a-bb=t+aFun1=t+bEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx=10Print Fun1(Fun1(x,(Fun1 BA、11B、0C、21D、1013. 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是___C___。