VB判断习题库(排版问题第六页才有内容)

合集下载

vb基础知识试题及答案

vb基础知识试题及答案一、选择题（每题2分，共10分）1. VB中，哪个关键字用于声明变量？A. DimB. ConstC. LetD. Option Explicit答案：A2. 在VB中，哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Trim答案：A3. VB中，哪个循环结构用于重复执行代码块直到满足特定条件？A. Do LoopB. For EachC. While WendD. For Next答案：A4. 在VB中，如何表示逻辑“与”操作？A. AndB. OrC. NotD. Xor答案：A5. VB中，哪个关键字用于定义函数？A. FunctionB. SubC. PropertyD. Const答案：A二、填空题（每题2分，共10分）1. 在VB中，使用________关键字可以声明一个数组。

答案：Dim2. VB中的________函数用于计算两个日期之间的天数差。

答案：DateDiff3. VB中，________关键字用于声明一个过程，该过程不返回值。

答案：Sub4. 使用________函数可以将数字转换为字符串。

答案：Str5. 在VB中，________关键字用于声明一个类模块。

答案：Class三、简答题（每题5分，共15分）1. 描述VB中的事件驱动编程。

答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发。

在VB中，开发者可以为控件编写事件处理程序，当特定的事件发生时，如按钮点击，相应的事件处理程序会被调用执行。

2. 解释VB中的类和对象的概念。

答案：在VB中，类是一种模板，定义了一组属性、方法和事件，这些可以被实例化为对象。

对象是类的实例，每个对象拥有自己的状态和行为。

通过类，可以创建具有相同属性和方法的多个对象。

3. 什么是VB中的封装？答案：封装是面向对象编程中的一个核心概念，它指的是将数据（属性）和操作这些数据的方法（过程）捆绑在一起，形成一个对象。

VB判断习题库

题号1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515254 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243题目描述当Text1.SelStart和Text1.SelLength都设为1时，Text1的第一个字符被选中。

vb考试题库及答案2020

vb考试题库及答案2020一、选择题1. 在VB中，哪个关键字用于声明一个变量？A. DimB. VarC. DeclareD. Let答案：A2. 下列哪个是VB中的条件语句？A. If...ThenB. For...NextC. While...WendD. Select...Case答案：A3. 在VB中，下列哪个是循环语句？A. For Each...NextB. Do While...LoopC. Both A and BD. None of the above答案：C4. VB中的数组声明使用哪个关键字？A. ArrayB. ListC. DimD. Collection答案：C5. 在VB中，哪个函数用于获取当前日期？A. NowB. DateC. TodayD. GetDate答案：C二、填空题6. 在VB中，使用________来定义一个类。

答案：Class7. VB中的________属性用于获取或设置一个控件的文本。

答案：Text8. 在VB中，________方法用于在列表框中添加一个项目。

答案：AddItem9. 使用________函数可以在VB中将字符串转换为数值。

答案：Val10. VB中的________事件用于响应控件的点击操作。

答案：Click三、简答题11. 简述VB中的事件驱动编程的概念。

答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发。

在VB中，事件通常与控件关联，如按钮的点击事件，当用户点击按钮时，会触发相应的事件处理程序。

12. 解释VB中的公共类和模块的区别。

答案：公共类用于定义具有属性、方法和事件的对象，可以被多个实例化。

而模块是一组过程的集合，通常用于存储全局变量和过程，不能被实例化。

四、编程题13. 编写一个VB程序，实现用户输入两个整数，然后计算并显示它们的和。

答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Val(InputBox("请输入第一个整数:"))num2 = Val(InputBox("请输入第二个整数:"))sum = num1 + num2MsgBox("两个数的和是: " & sum)```14. 创建一个VB程序，使用For循环打印出1到10的数字。

大学vb考试题库及答案

大学vb考试题库及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是合法的变量名？A. 2variableB. Variable2C. variable_2D. Variable!答案：B2. Visual Basic中，以下哪个是正确的整型常量？A. 123.45B. 0x1AC. 1.2E3D. 0.1答案：B3. 以下哪个是Visual Basic中的保留关键字？A. MyVarB. DimC. VarD. MyFunction答案：B4. 在Visual Basic中，以下哪个是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Sub MySub(x As Integer)D. Function MySub(x As Integer) As Integer答案：C5. Visual Basic中，以下哪个是正确的数组声明？A. Dim MyArray(10)B. Dim MyArray(0 To 10) As IntegerC. Dim MyArray() As Integer = New Integer(10)D. Dim MyArray(10) As Integer答案：B6. 在Visual Basic中，以下哪个是正确的条件语句？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"End If7. Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iLoopC. While i < 10Print ii = i + 1End WhileD. Do While i < 10Print ii = i + 1Loop8. 在Visual Basic中，以下哪个是正确的函数调用？A. Call MyFunction(5)B. MyFunction 5C. MyFunction(5)D. MyFunction Call 5答案：C9. Visual Basic中，以下哪个是正确的事件处理程序？A. Sub Form_Click()End SubB. Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)End SubC. Sub Form_Click(ByVal sender As Object)End SubD. Sub Form_Click(ByVal e As EventArgs)End Sub答案：B10. 在Visual Basic中，以下哪个是正确的窗体属性？A. Me.Caption = "My Form"B. Me.Text = "My Form"C. = "My Form"D. Me.Title = "My Form"答案：A二、填空题（每题2分，共20分）1. 在Visual Basic中，声明一个整型变量的正确语法是：Dim ________ As Integer。

VB试题库及答案

VB试题库及答案最新VB题库及答案⼀、选择题第1部分1、在窗体（名称为Form1）上画⼀个名称为Text1的⽂本框和⼀个名称为Command1的命令按钮，然后编写⼀个事件过程。

程序运⾏后，如果在⽂本框中输⼊⼀个字符，则把命令按钮的标题设置为“计算机等级考试”。

以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End Sub2、在⼀⾏内写多条语句时，每个语句之间⽤（）符号分隔。

A、 ,B、：C、.D、；3、下⾯（）是合法的变量名。

A、X_YZB、123ABCC、INTEGERD、X-Y4、下⾯（）是合法的字符常量。

A、 ABC$B、“ABC”C、‘ABC’D、 ABC5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。

A、14B、 4C、20D、26、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)7、设a="a"，b="b"，c="c"，d="d"，执⾏语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为A、"a"B、"b"C、"B"D、"A"8、在窗体上画⼀个⽂本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输⼊⼀个整数")Print x + Text1.TextEnd Sub程序运⾏时，在⽂本框中输⼊456，然后单击窗体，在输⼊对话框中输⼊123，单击“确定”按钮后，在窗体上显⽰的内容为A、123B、456C、579D、1234569、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从⾼到低的顺序是（）。

VB选择判断题题库答案

第一章1．工程资源管理器窗口中包含的文件类型有（D）种A、2B、3C、4D、52．VB 集成的主窗口中不包括（A）A．属性窗口 B ．标题栏 C ．菜单栏D．工具栏３．与传统的程序设计语言相比，VB 最突出的特点是（ D ）A．结构化程序设计Ｂ．程序开发环境C．程序调试技术D．事件驱动编程机制４．启动VB 进入编程环境后，下列叙述中错误的是（ A ）A．工具箱中只有内部控件B．窗口中会自动建立名为FORM1 的窗体C．属性窗口一定会同时打开D．只要存盘就会生成一个工程文件５．下列关于属性设置的叙述错误的是（ A ）A．控件具有什么属性是VB 预先设计好的，用户不能改变B．控件具有什么属性是VB 预先设计好的，用户可以改变C．控件的属性既可以在属性窗口中设置，也可以用程序代码设置D．控件的属性在属性窗口中设置后，还可以用程序代码为其设置新值６．应用程序设计完成后，应将程序文件保存，保存的文件是（ A ）A．只保存窗体文件即可B．只保存工程文件即可，C．先保存工程文件，之后再保存窗体文件Ｄ．先保存窗体文件（和标准模块文件），之后再保存工程文件。

７．启动VB 后，就意味着要建立一个新的（ C ）A．窗体 B ．程序 C ．工程 D ．文件８．下面不能打开属性窗口的操作是（ C ）A．执行“视图”菜单中的“属性窗口”命令B．单击工具栏上的“属性窗口”按钮C．按ctrl+T 快捷键D．按F4 键。

９．在正确安装VB6.0 后，可以通过多种方式启动VB, 以下（D ）方式不能启动VB A．通过“开始”菜单中的“程序”命令B．通过“我的电脑”找到VB6.EXE,双击该文件名C．通过“开始”菜单中的“运行”命令D．进入DOS 方式，执行VB6.EXE 文件10．VB 集成环境的大部分窗口都可以从主菜单项（B ）的下拉菜单找到相应的打开命令A．编辑B．视图 C ．格式 D ．调试11．下列（C ）方法不是VB6.0 中打开工程的方法A．按CTRL+O 组合键B．执行“文件”菜单中的“打开工程”命令C．按ALT+O 组合键D．单击标准工具栏上的“打开工程”按钮12．下列叙述中正确的是（ B ）A．VB 与BASIC 没有什么不同 B ．VB 与BASIC 的编程机制不同C．VB 是过程设计语言 D ．VB 与BASIC 之间没有什么联系。

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习题(含答案)】lass=txt>1、vb程序中，通常不会产生错误提示的是( )。

（1分）a、编译错误b、逻辑错误c、运行时错误d、实时错误2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。

（1分）a、工程资源管理器窗口b、代码窗口c、工具箱窗口d、属性窗口3、下列说法中，正确的说法是( )。

（1分）a、窗体名称和该窗体文件名必须一致b、窗体名称和该窗体文件名可以不相同c、窗体名称和该窗体文件名不能使用汉字d、窗体名称不能使用汉字、但该窗体文件名能使用汉字4、visual basic有完备的help联机帮助功能，可以通过按下功能键( )得到帮助。

（1分）a、f9b、f8c、f1d、f55、以下( )控件可作为容器使用。

（1分）a、labelb、pictureboxc、textboxd、image6、将窗体的boderstyle属性设置为( )可使窗口不显示标题栏。

（1分）a、0b、1c、2d、57、文本框没有( )属性（1分）a、textb、namec、captiond、borderstyle23、下列( )是不合法的常量。

（1分）a、100b、10e02c、100.0d、10e0.524、下列对变量的定义中，定义x为变体型变量的是( )。

（1分）a、dim x as doubleb、dim xc、dim x!d、x%=2325、设有如下变量声明：dim testdate as date，为变量testdate 正确赋值的表达方式是( )。

（1分）a、textdate=#1/1/2002#b、testdate=#1/1/2002#c、textdate=date(1/1/2002)d、testdate=format(m/d/yy,1/1/2002)26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b对其输出结果的描述中，正确的是( )。

vb专业试题及答案

vb专业试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D2. 下列哪个不是Visual Basic的控件事件？A. ClickB. LoadC. ChangeD. Open答案：D3. Visual Basic中，以下哪个关键字用于定义类？A. ClassB. TypeC. StructureD. Interface答案：A4. 在Visual Basic中，以下哪个不是布尔运算符？A. AndB. OrC. NotD. Xor答案：D5. Visual Basic中，以下哪个是数组声明的正确方式？A. Dim myArray() As IntegerB. Dim myArray(5) As IntegerC. Dim myArray As Integer(5)D. Dim myArray(1 To 5) As Integer答案：D6. 在Visual Basic中，以下哪个是正确的循环结构？A. For EachB. WhileC. Do WhileD. All of the above答案：D7. Visual Basic中，以下哪个是正确的函数定义？A. Function myFunction()B. Sub myFunction()C. Procedure myFunction()D. Method myFunction()答案：A8. 在Visual Basic中，以下哪个是正确的错误处理结构？A. Try...Catch...FinallyB. If...Then...ElseC. Select...CaseD. For...Next答案：A9. Visual Basic中，以下哪个是正确的文件访问模式？A. OpenB. AppendC. BinaryD. Random答案：C10. 在Visual Basic中，以下哪个是正确的数据库连接字符串的组成部分？A. ProviderB. Data SourceC. Initial CatalogD. All of the above答案：D二、判断题（每题1分，共10分）1. Visual Basic是面向对象的编程语言。

vb考试试题及答案

vb考试试题及答案VB考试试题及答案VB（Visual Basic）是一种面向对象的编程语言，广泛应用于Windows平台的应用程序开发中。

对于学习VB的人来说，参加考试是一种检验自己掌握程度的方式。

下面将为大家提供一些VB考试试题及答案，希望对大家的学习有所帮助。

一、选择题1. VB是以下哪种类型的编程语言？A. 面向过程编程语言B. 面向对象编程语言C. 函数式编程语言D. 混合编程语言答案：B. 面向对象编程语言2. VB中的变量声明关键字是？A. DimB. VarC. IntD. Public答案：A. Dim3. VB中的循环结构中，以下哪个关键字用于跳出当前循环？A. ExitB. BreakC. ContinueD. End答案：A. Exit4. VB中的条件语句中，以下哪个关键字用于多个条件的判断？A. IfB. ElseC. ElseIfD. Switch答案：C. ElseIf5. VB中的函数定义关键字是？A. SubB. FunctionC. MethodD. Procedure答案：B. Function二、填空题1. VB中的注释符是（）。

答案：'2. VB中的数组下标是从（）开始的。

答案：03. VB中的字符串连接符是（）。

答案：&4. VB中的逻辑与运算符是（）。

答案：And5. VB中的模块化编程可以通过（）来实现。

答案：函数和子程序三、简答题1. VB中的控件是什么？请举例说明。

答：VB中的控件是用于与用户进行交互的可视化组件。

例如，按钮（Button）、文本框（TextBox）、标签（Label）等都是VB中常见的控件。

通过控件，我们可以实现用户输入、数据展示、按钮点击等功能。

2. VB中的事件是什么？请举例说明。

答：VB中的事件是指在特定条件下发生的操作或响应。

例如，按钮的点击事件（Click Event）是指当用户点击按钮时触发的事件，我们可以在该事件中编写相应的代码来实现按钮的功能。

VB试题库解析

VB试题类型与分值1、判断题：10题，每题1分，共10分；2、填空题：5空，每空2分，共10分；3、选择题：40题，每题1分，共40分；4、程序阅读题：5题，每题4分，共20分；5、程序填空：2题，每题5分，共10分；6、程序设计题：2题，每题5分，共10分。

VB试题库一、判断题1、VB是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。

2、属性是对象的性质。

3、同一窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。

4、在VB中，有一些通用的过程和函数作为方法供用户直接调用。

5、控件的属性值不可以在程序运行时动态地修改。

6、许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。

7、所谓保存工程，是指保存正在编辑的工程的窗体。

8、在面向对象的程序设计中，对象是指可以访问的实体。

9、决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。

10、保存VB文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。

11、xxx.vbp文件是用来管理构成应用程序xxx的所有文件和对象的清单。

12、事件是由VB预先定义的对象能够识别的动作。

13、事件过程可以由某个用户事件触发执行，它不能被其它过程调用。

14、窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。

15、可以从“运行”对话框或MS-DOS窗口中启动VB。

16、由Visaul Basic语言编写的应用程序有解释和编译两种执行方式。

17、在使用“格式”菜单前，不能选中窗体中的多个控件。

18、“视图”菜单可用于打开各种窗口（包括与浏览或显示有关的命令及属性页和工具箱的显示）。

19、“方法”是用来完成特定操作的特殊子程序。

20、“事件过程”是用来完成事件发生后所要执行的操作。

21、用DIM定义数值变量时，该数值变量自动赋初值为0。

22、整型数值常量有整数、长整数两种。

VB练习题(含答案),推荐文档

考试题型一、单项选择题（每题1分，共35分）二、判断题（每题1分，共15分；正确的打"，错误的打x。

）三、填空题（每空1分，共10分）四、读程序写出结果（每题5分，共20分）五、程序填空（每空2分，共10分）六、编程题（每小题10分，共10分）2006年4月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计11. 以下关于Visual Basic特点的叙述中，错误的是A）Visual Basic是采用事件驱动编程机制的语言B）Visual Basic程序既可以编译运行，也可以解释运行C）构成Visual Basic程序的多个过程没有固定的执行顺序D）Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构12. 以下叙述中，错误的是A）一个Visual Basic应用程序可以含有多个标准模块文件B）一个Visual Basic工程可以含有多个窗体文件D）标准模块文件的扩展名是.bas13. 以下叙述中，错误的是A）在Visual Basic中，对象所能响应的事件是由系统定义的C）Visual Basic中允许不同对象使用相同名称的方法D）Visual Basic中的对象具有自己的属性和方法14. 设有如下语句：Dim a,b As In tegerC= "VisualBasic ”D=#7/20/2005#以下关于这段代码的叙述中，错误的是A）a被定义为Integer类型变量B） b被定义为Integer类型变量C） c中的数据是字符串D）d中的数据是日期类型15. 以下能从字符串"VisualBasic "中直接取出子字符串"Basic"的函数是A）Left |B） Mid | C） Stri ng D） In str16. 设a=4,b=3,c=2,d=1下列表达式的值是a>b+1 Or c<d And b Mod cA) True B) 1 C) -1 D) 017.以下可以作为Visual Basic变量名的是A) A#A B)counstA C) 3A D) ?AA18.设x-4,y-6,则以下不能在窗体上显示出A=10 的语句是C） Print “ A= ” +Str（x+y）D） Print “ A= ” & x+y19. 假定有如下的命令按钮（名称为Comma ndl）事件过程：Private Sub Comma nd1_Click（）X=lnputBox（输入：：“'输入整数”）MsgBox ”输入的数据是：”，，”输入数据：”+XEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是A）x的值是数值10B）输入对话框的标题是“输入整数“C）信息框的标题是“输入数据：10 “D）信息框中显示的是“输入的数据是：“20. 在窗体上画1个命令按钮（名称为Command1 ）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Comma nd1_Click()X=Val(Text1.Text)Select Case xCase 1,3Y=x*xCase Is>=10,Is<=-10Y=xCase -10 To 10Y=-xEnd SelectEnd Sub程序运行后，在文本框中输入3,然后单击命令按钮，则以下叙述中正确的是A) 执行Y=x*x B)执行Y=-xC)先执行Y=x*x，再执行Y=-x D)程序出错21. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(30) As In tegerFor i=1 to 30a(i)=I nt(R nd*100)NextFor Each arritem In aIf arrItem Mod 7=0 Then Print arrItem;If arrItem >90 Then Exit ForNextEnd Sub对于该事件过程，以下程序中错误的是B) 语句For Each arrltem In a 有语法错误C) ........................................... If arrltem Mod 7=0 语句的功能是输出数组中能够被........................... 7整除的数D) ................................ If arrItem >90 语句的作用是当数组元素的值大于....................... 90时退出For循环22. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(3,3) As In tegerFor i=1 to 3For j=1 to 3a(i,j)=i*j+iNext jNext iSum=0For i=1 to 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是A) 20 B) 7 | C) 16 ~| D) 1723. 在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Comma nd1_Click()a=0For i=1 to 2For j=1 to 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是A)0 B) 2 C) 3 | D)424. 窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1,程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。

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判断题及答案

套号题号题目选项A 选项B 答案01 01 01 01 01 01 01 01 0102030405060708每当一个窗体成为活动窗口时将触发Show事件。

对对对对对对对错错错错错错错BBBABAA Integer、Long、Single、Double是数值类型数据，但Byte不是。

在翻开某窗体时，初始化窗体中的各控件，应选用Load事件。

假设行If语句中逻辑表达式值为True，那么关键字Then后的假设干语句都要执行。

函数过程及Sub过程必须用关键字Private或Public声明。

标签控件可以响应Click事件。

屏幕〔Screen〕对象可作为窗体的容器，但它只能提供缺省的坐标系统，即坐标刻度不能改变用通用对话框控件显示“字体〞对话框前，必须先设置Flags属性，否那么将发生“不存在字体〞的错误。

运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。

对对对错错错ABA01 01 0910 将组合框的Style属性设置为0时，组合框称为“下拉式组合框〞，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。

窗体启动位置可在“窗体布局窗口〞中直接设置。

02 02 02 02 02 02 02 02 0102030405060708对对对对对对对错错错错错错错AABBAAB 在所有的数据类型中，Byte型占用的内存空间最小，只要用一个字节。

表达式5>4>3的计算结果是True。

在行If语句中，关键字End If是必不可少的。

用Function过程在过程中必须被赋值。

单击组合框中的任一表项，该表项的文本就会替换这一组合框控件的Text属性值。

QBcolor函数的参数是一个介于0~255的整数。

用通用对话框控件显示“字体〞对话框前，必须先设置Flags属性，否那么将发生“不存在字体〞的错误。

运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。

VB课后习题答案汇总

课后习题参考答案第1章Visual Basic 6.0一、判断题1－－5：√×√×√ 6――10：××√×√ 11――13：√××二、选择题1――5：ADBBB 6――10：.CACDB三、填空题1、图片框和框架2、对象3、控件屏幕4、Load5、Load Activate四、程序设计题1、Private Sub Command1_Click()Print Text1.TextEnd SubPrivate Sub Command2_Click()EndEnd Sub2、Private Sub Command1_Click()Form1.FontSize = Form1.FontSize + 3Print "青春无悔"End SubPrivate Sub Command2_Click()FontSize = FontSize - 3Print "青春无悔"End SubPrivate Sub Command3_Click()Form1.FontBold = TruePrint "青春无悔"End SubPrivate Sub Command4_Click()FontBold = FalsePrint "青春无悔"End Sub3、Private Sub Command1_Click()Text1.Visible = FalseEnd SubPrivate Sub Command2_Click()Text1.Visible = TrueText1.FontName = "楷体_gb2312"Text1.FontSize = 15Text1.Text = "我学会了创建一个应用程序了！"End Sub第二章判断题：1~5错错错错错第3章顺序结构程序设计一、思考题略二、程序阅读题1．A=2 B=1 C=22．123．BABCBACBC4． 1 2 False5．1-12-123-1234-三、选择题1.B2.D3.B4.B5.D6.C四、程序设计题１．Private sub form_click()Dim r!,s!R=val(inputbox(“r=”))S=3.14159*r*rPrint “s=”;sEnd sub2．Private sub form_click()Dim x as singleX=val(inputbox(“x=”))Print fix(x*x*1000)/1000,fix(sqr(x)*1000)/1000End sub第4章选择结构程序设计一、判断题1.错2.错3.错4.错5.对二、选择题1．A 2. D 3.A 4.B 5.A 6.A三、程序阅读题1．X=3 y=72.w=4w=13w=135w=313.X_`a12 Uvw&4.12 9四、程序填空题1．(1) chr(keyascii) (2) chr(keyascii)=”)”(3)count1=count1-1 (4)count1=0 (5)count1>02．(1) max (2)min (3)c>max (4)c<min3.(1)x mod 3=2 and x mod 5=3 and x mod 7=4 then(2)text1.setfocus (3) text1.selstrat=0 (4)text1.sellength=len(text1.text)五、1.Private Sub Command1_Click()Dim y As Integery = Val(InputBox("y="))If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Print "是闰年"ElsePrint "不是闰年"End IfEnd SubPrivate Sub Command1_Click()Dim y As Integer,y1 as stringy = Val(InputBox("y="))If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Y1= "是闰年"ElseY1= "不是闰年"End If? y,y1End SubPrivate Sub Command1_Click()Dim y As Integer,y1 as stringy = Val(InputBox("y="))Y1= "不是闰年"If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Y1= "是闰年"End If? y,y1End Sub2.Private Sub Command1_Click()Dim a%, b%, c%, x!,s!a = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c="))If a + b > c And a + c > b And b + c > a Thenx = (a + b + c) / 2s = Sqr(x * (x - a) * (x - b) * (x - c))Print "s="; sElsePrint "不是三角形,重输a,b,c"End IfEnd SubPrivate Sub Command1_Click()Dim a%, b%, c%, x!,s!,t%a = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c=")) ‘a,b,c=3,4,5t=0If a + b > c And a + c > b And b + c > a Thenx = (a + b + c) / 2s = Sqr(x * (x - a) * (x - b) * (x - c))t=1End IfIf t=0 then? “不是“endifEnd Sub3.Private Sub Command1_Click()Dim x!, y!x = Val(InputBox("x="))y = x * x - x – xIf x < 0 And x <> -3 Theny = x * x + x - 6ElseIf 0 <= x And x < 10 And x <> 2 And x <> 3 Then y = x * x - 5 * x + 6End IfPrint "x="; x, "y="; yEnd SubPrivate Sub Command1_Click()Dim x!, y!x = Val(InputBox("x="))If x < 0 And x <> -3 Theny = x * x + x – 6elseIf 0 <= x And x < 10 And x <> 2 And x <> 3 Theny = x * x - 5 * x + 6elsey=x^2-x-1End IfPrint "x="; x, "y="; yEnd SubPrivate sub form_click()Dim y%,z%,dj%,p!,t!Y=val(inputbox(“月”))Z= val(inputbox(“订票数”))Dj= val(inputbox(“票价”))Select case ycase 7,8,9If z>=20 then p=0.15 else p=0.05case 1 to 5,10,11If z>20 then p=0.3 else p=0.2Case elseP=0.2End selectT=z*dj*p? tend sub5.private sub form_click()dim m1%,m2%,m3%,dj$m1=val(inputbox(“m1=”)): m2=val(inputbox(“m2=”)): m3=val(inputbox(“m3=”))if (m1+m2+m3)/3>=95 or ( a=100 and b=100 and c>=80) or ( a=100 and c=100 and b>=80) or ( c=100and b=100 and a>=80) thendj=”一等”elseif (m1+m2+m3)/3>=90 or ( a=100 and b>=75 and c>=75) or ( b=100 and a>=75 and c>=75) or ( c=100 and b>=75 and a>=75) thendj=”二等”elseif a>=75 and b>=75 and c>=75 thendj=”三等”elsedj=”没有”endif? “dj=”;djend sub第5章循环结构程序设计1．判断题×√√√××√×2．选择题BBBBCC3.填空题（1）7（2）Do/Loop For/Next While/Wend（3）-364.程序阅读题（1）（2）（3）4 （4）5．程序填空题（1）①sign=1 ②For i=2 to 19（2）①Len(str1) ②length-1 ③Mid(str1,i,2) ④Sum=0（3）①I mod 7=5 and i Mod 5 = 3 And i Mod 3=2 ②i<1000（4）①last_one = last_two ②last_two = this_one ③i=i+1 ④i-2（5）①I>int(sqr(m)) ②Int(Sqr(n-m))6．编程题（1）Private Sub Form_Click()Dim i As Integer, j As IntegerDim s As Double, Sum As Doubles = 188 68861 2 3 4 Sum=10# # # # # ## # # # ## # # ## # ## ##For i = 1 To 11 Step 2For j = 1 To is = s * jNext jSum = Sum + sNext iPrint SumEnd Sub（2）Private Sub Form_Click()Dim m%, n%, mn%, r%, t%m = Val(InputBox("m="))n = Val(InputBox("n="))If n <= 0 Or m <= 0 ThenMsgBox "数据有误"EndEnd Ifmn = m * nIf m < n Thent = m: m = n: n = tEnd IfDo While (n <> 0)r = m Mod n: m = n: n = rLoopForm1.Print "最大公约数="; mForm1.Print "最小公倍数="; mn / m End Sub（3）Private Sub Form_Click()Dim i%, j%For i = 1 To 5Print Spc(20 - i);For j = 1 To 2 * i - 1Print Trim(Str(i));Next jPrintNext iFor i = 4 To 1 Step -1Print Spc(20 - i);For j = 1 To 2 * i - 1Print Trim(Str(10 - i));PrintNext iEnd Sub（4）Private Sub Form_Click()Dim x As IntegerDim y As IntegerDim z As IntegerFor x = 0 To 100For y = 0 To 100 - xz = 100 - x - yIf 5 * x + 3 * y + z / 3 = 100 Then Print x, y, zNext yNext xEnd Sub（5）Private Sub Form_Click()Dim x As Single, y As Single, a As Single, i As Integerx = Val(InputBox("输入x:"))a = 1: y = a: i = 0While a >= 0.00001i = i + 1: a = a * x / i: y = y + aWendPrint "y="; yEnd Sub第六章答案一、判断题1．错2．错3．错4．错（可以为小数，不过仍然是当作整数来处理）5．错6．错二、选择题1．C2．C3．A4．D三、程序填空1．（1）N-1 （2）T = A(J): A(J) = A(J + 1): A(J + 1) = T（3）Print A(I)2．（1）a(i, j) = 1 （2）Print四、程序阅读1．52．1 2 3 41 2 3 41 2 3 41 2 3 41 1 1 12 2 2 23 3 3 34 4 4 43．（前面空4个空格）1 12 11 102 13 16 93 14 15 84 5 6 7第7章过程判断题：1、对2、错3、错4、错5、对6、对7、错选择题：1．B 2、D 3、D 4、C 5、A程序阅读题：1、y=5 a=52、n=1 z=4y=15 a=10 n=2 z=7y=30 a=15 n=3 z=103、32 644、2 2 216 648 644 645、A1=10 B1=20A2=20 B2=10程序填空题：1、（1）hwstring(str) （2）"" （3）As Boolean（4）n=len(strtxt) (5) True （6）False2．（1）Xsch(Nman,Nkcen) （2）n（3）sum=sum+x(i,j) （4）tt/n （5）x(i,m+1)<1.2*ver and x(i,m+1)>=1.1*ver 3．（1）number（i）（2）Byval n as Integer （3）number= number+7*10^ (i-1)4．（1）temp=1 （2）temp （3）nFactor( i ) （4）sum 程序设计题：1、具体程序为：Function Maxnum(ByRef a() As Integer, ByVal n As Integer) As IntegerDim i As IntegerMaxnum = a(1)For i = 2 To nIf a(i) > Maxnum Then Maxnum = a(i)Next iEnd FunctionFunction Avenu(ByRef a() As Integer, ByVal n As Integer) As SingleDim i As Integer, sum As IntegerFor i = 1 To nsum = sum + a(i)Next iAvenu = sum / nEnd FunctionSub Sortrnum(ByRef a() As Integer, ByVal n As Integer)Dim i As Integer, j As Integer, k As IntegerDim temp As IntegerFor i = 1 To nk = iFor j = i + 1 To nIf a(k) > a(j) Then k = jNext jIf i <> k Thentemp = a(i)a(i) = a(k)a(k) = tempEnd IfNext iEnd SubPrivate Sub Form_Click()Dim b(10) As Integer, i As IntegerFor i = 1 To 10b(i) = InputBox("请输入整数", "输入")Next iCall Sortrnum(b(), 10)Print "从小到大排序为："For i = 1 To 10Print b(i);NextPrintPrint "最大数为："; Maxnum(b(), 10)Print "平均数为："; Avenu(b(), 10)End Sub2、具体程序为：Function fe(n%, x!) As SingleDim temp As Single, i As Integerfe = 1temp = 1For i = 1 To ntemp = temp * x / ife = fe + tempNext iEnd FunctionPrivate Sub Form_Click()Dim n As Integer, x As Singlen = Val(InputBox("请输入n", "输入"))x = Val(InputBox("请输入x", "输入"))Print "e的值为："; fe(n, x)End Sub3、具体程序为：Sub sort(a() As Single, n As Integer)Dim i As Integer, j As Integer, k As Integer Dim temp As SingleFor i = 1 To nk = iFor j = i + 1 To nIf a(k) < a(j) Then k = jNext jIf i <> k Thentemp = a(i)a(i) = a(k)a(k) = tempEnd IfNext iEnd SubPrivate Sub Form_Click()Dim a(10) As Single, i As IntegerFor i = 1 To 10a(i) = Val(InputBox("请输入数据", "输入")) Next iCall sort(a(), 10)Print "从大到小为："For i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext iEnd Sub第8章常用控件参考答案：一、判断题1、×2、×3、√4、√5、×6、×7、×8、×9、× 10、×11、× 12、√ 13、× 14、√ 15、√二、单选题1、A2、B3、A4、C5、B6、D7、A8、B9、C 10、C11、A 12、A 13、C 14、B 15、A三、填空题1、Autosize WordWrap2、Enabled Visible3、文本框和列表框4、拖动滚动框5、Change6、Command1.Setfocus7、Timer8、MaxLength 9、AddItem 10、定时器屏蔽123 45.五、程序填空题1、(1) Label1.left (2) –Label1.Width2、(1) List1.ListIndex<0 （或者List1.ListIndex = -1） (2) List1.RemoveItem List1.ListIndex(3) Text1.Text=”” (4) List1.AddItem Text1.Text3、(1) 1 to 2*I-1 (2) Command2.Enabled=True(3) Command2.Enabled=False4、(1) ndec<>0 (2) ndec mod 16 (3) ai=ndec(4) end (5) ai & shex (6)shex5、(1) Timer1.Enabled=True (2) x \ 3600 (3) (x-h*3600)\60(4) x=x+16、(1) m<len(str1)/2 (2) mid (str1,m+1,1) (3)mid (str1,len(str1)-m,1)六、程序设计题1、 Private Sub Command1_Click()If Text1.Text = "" ThenMsgBox "请先输入添加项"ElseList1.AddItem Text1.TextEnd IfEnd SubPrivate Sub Command2_Click()If List1.ListIndex < 0 Then ‘或者if list1.listindex=-1 then MsgBox "请选择一删除项"ElseList1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command3_Click()If List1.ListIndex < 0 ThenMsgBox "请选择一修改项"ElseText1.Text = List1.TextEnd IfCommand4.Enabled = TrueEnd SubPrivate Sub Command4_Click()Dim a As IntegerIf List1.Text = Text1.Text ThenMsgBox "请先修改此项"Elsea = List1.ListIndexList1.RemoveItem List1.ListIndexList1.AddItem Text1.Text, aEnd IfEnd SubPrivate Sub Form_Load()Command4.Enabled = FalseEnd Sub2、 Dim a As IntegerPrivate Sub Command1_Click()a = Int(Rnd * 100) + 1End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static i As IntegerIf KeyAscii = 13 ThenIf Val(Text1.Text) > a ThenLabel1.Caption = "太大了，请重输"i = i + 1ElseIf Val(Text1.Text) = a ThenLabel1.Caption = "恭喜你，你答对了！"i = 0Command1_ClickElseLabel1.Caption = "太小了，请重输！"i = i + 1End IfIf i > 10 ThenMsgBox "你失败了！"EndEnd IfEnd IfEnd Sub3、Private Sub Command1_Click()Dim n As Integer: n = Len(Text1.Text)Dim s(1 To 1000) As String, i As Integer, j As Integer, t As String,a As StringFor i = 1 To ns(i) = Mid(Trim(Text1.Text), i, 1)Next iFor i = 1 To n - 1For j = i + 1 To nIf s(i) > s(j) Thent = s(i): s(i) = s(j): s(j) = tEnd IfNext j, iFor i = 1 To n: a = a + s(i): Next iPrint aCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click(): End: End SubPrivate Sub Form_Load()Text1.MaxLength = 200Command2.Enabled = False: Command1.Enabled = TrueEnd Sub4、Dim a(1 To 1000) As String, b(1 To 1000) As String, c(1 To 1000) As Double, d(1 To 1000) As DoublePrivate Sub Combo1_click()Text1.Text = a(Combo1.ListIndex + 1)Text2.Text = b(Combo1.ListIndex + 1)Text3.Text = c(Combo1.ListIndex + 1)Text4.Text = d(Combo1.ListIndex + 1)End SubPrivate Sub Command1_Click()Combo1.AddItem Text1.Texta(Combo1.ListCount) = Text1.Textb(Combo1.ListCount) = Text2.Textc(Combo1.ListCount) = Val(Text3.Text)d(Combo1.ListCount) = Val(Text4.Text)End SubPrivate Sub Command2_Click()For i = Combo1.ListIndex + 1 To Combo1.ListCount - 1a(i) = a(i + 1)b(i) = b(i + 1)c(i) = c(i + 1)d(i) = d(i + 1)Next ia(i) = ""b(i) = ""c(i) = 0d(i) = 0Combo1.RemoveItem Combo1.ListIndexText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Form_Load()Dim i As IntegerCombo1.AddItem "张三"Combo1.AddItem "李四"Combo1.AddItem "王五"a(1) = "张三": a(2) = "李四": a(3) = "王五"b(1) = "浙江林学院": b(2) = "浙江工业大学": b(3) = "浙江大学"c(1) = : c(2) = : c(3) =d(1) = : d(2) = : d(3) =End Sub5、Private Sub Check1_Click()If Check1.Value = 1 ThenLabel1.FontBold = TrueElseLabel1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check1.Value = 1 ThenLabel1.FontItalic = TrueElseLabel1.FontItalic = FalseEnd IfEnd SubPrivate Sub Option1_Click()Label1.FontName = "宋体"End SubPrivate Sub Option2_Click()Label1.FontName = "楷体_gb2312"End Sub6、Private Sub Command1_Click()Dim a As String, i As Integer, n As IntegerDim s As Integer, q As Integer, l As Integern = Len(Text1.Text)For i = 1 To na = Mid(Text1.Text, i, 1)If a >= "a" And a <= "z" Thens = s + 1 '大写个数ElseIf a >= "A" And a <= "Z" Thenq = q + 1 '小写个数ElseIf a >= "0" And a <= "9" Thenl = l + 1End IfNext iText2.Text = sText3.Text = qText4.Text = lEnd SubPrivate Sub Form_Load()Text1.SetFocusEnd Sub7、Private Sub Form_Click()Dim i As Integer, j As Integer, t As IntegerFor i = 0 To List1.ListCount - 1List3.AddItem List1.List(i)Next iList1.ClearDo While List2.ListCountList3.AddItem List2.List(0)List2.RemoveItem 0LoopFor i = 0 To List3.ListCount - 2For j = i + 1 To List3.ListCount - 1If List3.List(i) > List3.List(j) Thent = List3.List(i): List3.List(i) = List3.List(j): List3.List(j) = tEnd IfNext j, iEnd SubPrivate Sub Form_Load()Dim i As Integer, n As Integern = InputBox("")For i = 1 To nList1.AddItem Int(Rnd * 90) + 10List2.AddItem Int(Rnd * 90) + 10Next iEnd Sub第9章对话框和菜单1．判断题：×√√(题中应把flag改为flags)√√××√√×××√××2．选择题：DDCCD BDCCB3．填空题1.－2.一级子菜单3.将顶级菜单设置为不可见4.popupmenu pmenu,0,x,y5.showfont6.工程、部件7.click8.代码窗口，click9.下拉式，弹出式打开/另存为、颜色，字体、打印、帮助4. 程序阅读题打开对话框2、*.txt3、allfiles*.exe*.txt*.doc4、Checking，No File Selectd，重试（R），取消5. 程序填空题“c:\winnt”commondialog1.showopen,loadpicture(commondialog1.filename)6. 程序设计题1、界面如图：代码如下：Private Sub Command1_Click()CommonDialog1.FileName = ""CommonDialog1.Flags = 4096CommonDialog1.Action = 1If CommonDialog1.FileName = "" ThenMsgBox "No File Selectd", 5 + vbExclamation, "Checking"ElseList1.AddItem CommonDialog1.FileNameEnd IfEnd Sub2、代码如下：Private Sub a_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub b_Click()CommonDialog1.Flags = 1CommonDialog1.ShowFontText1.FontSize = CommonDialog1.FontSizeEnd SubPrivate Sub c_Click()CommonDialog1.Flags = 1CommonDialog1.ShowFontText1.FontName = CommonDialog1.FontNameEnd SubPrivate Sub d_Click()EndEnd Sub第10章图形操作和图形控件一、判断题×√×××√×√××二、选择题BAADACAA三、填空题(1)pic1.Circle (pic1.ScaleLeft + pic1.ScaleWidth / 2, pic1.ScaleTop + pic1.ScaleHeight / 2), 700(2)在图片框picture1中，以(800,1000)为圆心画一个半径为500的圆(3)Form1.Scale (-200, 250)-(300, -100)(4)Autosize stretch四、程序阅读题1、窗体宽和高的1/4为起点，画一个边长为1000的正方形，并画出其正向对角线2、在图片框中交替画出实心和空心的矩形，空心矩形是黄色边框。

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模块选择判断题

VB模块选择判断题VB模块选择判断题一、选择题1.在VB中，下列选项中可以当做变量名的是（）A. 3M B. a+b C. x2 D. we$2.在VB工作环境中，如果没有"工具箱"窗口，可以通过下列那个菜单让它显示出来（）A. 文件B. 视图C. 编辑D. 工具3.下列不属于计算机高级语言的是（）A. C语言B. 汇编语言C. Pascal语言D. VB语言4.在VB中，工程文件的扩展名为（） A. doc B. vbp C. bmp D. frm5.VB中，默认状态下文本框控件的名称可能是（）A. Command1B. Text1C. Pictuer1D. Label16.VB中，默认状态下标签控件的名称可能是（）A. Command1B. Label1C. Text1D. Pictuer17.编写VB代码"a=a+3"时，"="表示（）A. 赋值号，将"="号左边值赋给右边B. 等于号，但是个的错误代码C. 等于号，"="号左边与右边相等D. 赋值号，将"="号右边的值赋给左边8.为了让标签控件中的文字恰好与标签大小搭配，下列哪种方法最好（）A. 将标签控件的AutoSize属性由"False"改为"True"B. 通过鼠标调整标签的宽度C. 通过鼠标调整标签的宽度D. 通过鼠标调整标签的宽度和高度9.下列哪个属性是标签控件不具备的（）A. captionB. TextC. AutoSizeD. Left10.下列哪个属性是标签控件有，而文本框控件不具备的（）A. WidthB. TextC. LeftD. AutoSize11.在VB中，下列关于给数值型变量x赋值的方法不恰当的是（）A. x=val(T ext1.text)B.x=Text1.textC.x=5D. x=val(InputBox("请输入变量x的值")12.在名称为Form1的窗体中，存在一个名称command1的按钮控件，在程序的代码窗口，以下过程是（）事件。

vb程序设计题库及答案详解

vb程序设计题库及答案详解在编写VB程序设计题库及答案详解时，我们通常会按照以下结构进行排版：1. 题目编号：为每个题目分配一个唯一的编号，方便索引和查找。

2. 题目描述：清晰地描述题目要求，包括输入、输出、功能等。

3. 解题思路：简要说明解题的步骤和方法。

4. 代码实现：提供完整的VB代码实现，包括必要的注释。

5. 运行结果：展示程序运行后的结果，可以是截图或文本描述。

6. 注意事项：列出在编写程序时应注意的问题或常见的错误。

7. 拓展思考：提供一些拓展问题或变体，引导读者进一步思考。

以下是一篇符合标题的正文内容示例：题目编号：001题目描述：编写一个VB程序，实现用户输入两个整数，程序输出这两个整数的和。

解题思路：1. 使用InputBox函数获取用户输入的两个整数。

2. 将输入的字符串转换为整数类型。

3. 计算两个整数的和。

4. 使用MsgBox函数显示结果。

代码实现：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Val(InputBox("请输入第一个整数："))num2 = Val(InputBox("请输入第二个整数："))sum = num1 + num2MsgBox "两个整数的和是：" & sum```运行结果：程序将弹出两个输入框，用户输入两个整数后，将显示一个消息框，展示这两个整数的和。

注意事项：- 确保输入的是整数，否则Val函数可能会失败。

- 输入框中不要包含非法字符。

拓展思考：- 如果用户输入的不是数字，程序应如何处理？- 能否修改程序，使其能够计算两个数的平均值而不是和？请注意，这只是一个示例，实际的题库及答案详解会根据具体题目的不同而有所变化。