VB练习题
VB练习题
Visual Basic练习题1、当文本框的内容发生变化时，必将触发（ C ）事件。
A、LostFocusB、KeyPressC、ChangeD、Click2、在Visual Basic中，下列（ D ）函数的值只为1，0，-1。
A、INT(X)B、ABS(X)C、SQR(X)D、SGN(X)3、下列Visual Basic程序段运行后，变量 a、b、c的值为（）。
a = 1 :b = 1 :c = 1Do While a + b + c < = 10a = a + 1b = b * 2c = b / 2LoopA、2 2 1B、3 4 2C、4 8 4D、4 4 24、当程序在运行过程中因某种原因中断时，VB进入（ C ）模式。
A、设计B、运行C、中断D、工具5、要改变控件的高度，应改变（ A ）属性。
A、HeightB、WidthC、TopD、Left6、下列Visual Basic程序段运行后，变量x的值为（）。
x = 3y = 77Dox = x + 2Loop Until x > Sqr (y)A、7B、8C、9D、107、在Visual Basic中，建立一个文本编辑区域，可采用下列（ C ）。
A、命令按钮B、标签控件C、文本控件D、定时器控件8、下列（ D ）表达式的值不等于4。
A、Int (4.1)B、Int (4.9)C、Abs (int (-3.9))D、Abs (int (-4.5))9、下列Visual Basic程序段运行后，变量m 的值为（）。
a = 2 :b = 1 :c = 5If a < b Then m = a Else m = bIf c < m Then m = cA、2B、1C、5D、三项答案均不是10、窗体模块文件的扩展名是（ A ）。
A、frmB、basC、vbpD、txt11、对象的三个要素是（ A ）。
A、属性、方法、事件B、色彩、高度、宽度C、事件、属性、色彩D、属性、高度、宽度12、下列合法的变量名是（ C ）。
VB练习题(含答案)
VB简答练习题1 简述Timer控件中Interval属性和Enanbeled属性。
2 简要回答创建MDI应用程序的步骤。
3 用Visual Basic 语言编写-一个有两个整数参数m和n2的名为GetRand的Function的函数，功能是获取任意两个正整数间的随机整数(假如0<n:<m) ?4 简述selet.. .case语句执行流程。
5 引用数组元素时的注意事项有哪些?6 Visual Basic中有几种运算符?7 向文本文件中添加数据分为哪几步?8 Visual Basic 6.0中的动态数组与静态数组有何不同?9 如何创建一-个快速显示窗体?10 循环语句有几种语句?11 Shape 控件可以用来显示哪些图形?12 MDI应用程序有哪些特性?13 访问数组的常用方法有哪些?14 运行程序有哪几种方法?15 VB工程由哪几个模块组成?16 叙述VB的基本的设计机制。
17 叙述VB集成开发环境的组成。
18 叙述文件访间的类型。
19 运行程序有几种方法?20 VB 有哪些基本数据类型?21 标识符的命名规则是什么?22 访问数组的常用方法有哪些?23 VB过程参数有哪几种传递方式?有何不同?24 如何创建控件数组?25 简述For循环的语法格式。
26 通用的Sub过程有哪几种方式?27 打开属性窗口有哪几种方法?28 如何设置控件之间的对齐方式?29 简述运算符从高到低的优先顺序。
30 建立通用过程的操作步骤有哪些?31 打开代码窗口有哪几种方法?32 如何创建MDI应用程序?33 请写出随机文件的读写步骤。
34 请写出If语句的块语法格式。
35 工具箱的标准控件有哪些?36 简述创建动态数组的步骤。
37 建立事件过程有哪些方法?38 FSO对象模型包括哪些对象?答案：1．简述Timer控件中Interval属性和Enanbeled属性答：Timer控件中的Enanbeled设置或返回计时器控件的有效性，该属性值为布尔值，如果设置为True，则每经过指定的时间间隔将触发Timer事件，为False，计时器控件成为无效，停止工作。
10.VB过程练习题
VB过程练习题一、选择题1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。
A． Sub swap(By Val m，By Val n) B． Sub swap(m, By Val n) C． Sub swap(m, n) D． Sub swap(By Val m, n)2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。
A．按参数传递 B．按数值传递 C．按地址传递 D．按位置传递3．Sub过程与Function过程最根本的区别是_______。
A． Sub过程可以直接使用过程名调用，而Function过程不可以B． Function过程可以有参数，而Sub过程不可以C．两种过程参数传递方式不同D． Sub过程的过程名不能返回值，而Function过程能通过过程名返回值4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。
A． ByVal B． ByRef C． Value D． reference 5．可以执行“工具”菜单中的_______命令来建立通用过程。
A．添加过程 B．通用过程 C．添加模块 D．添加窗体6．假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是_______。
A，2A． Cir 3,8 B． Call Cir x, yC． Call Cir 2*x, y D． Call Cir (3,8, y)7．在窗体模块的通用声明中声明变量时，不能使用_______关键字。
A． Dim B． Public C． Private D． Static 8. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private x As IntegerPrivate Sub Command1_Click()a = 6:b = 4Call sub1(a, b)Label1.Caption = aLabel2.Caption = bEnd SubPrivate Sub sub1(ByVal x As Integer, ByVal y As Integer)a = x * xb = y * yEnd Sub程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。
VB基础部分(练习题)
语言基础单选1、与传统的程序设计语言相比，Visual Basic 最突出的特点是：A 结构化程序设计B 程序开发环境C事件驱动编程机制 D 程序调试技术2、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口设置窗体的属性，预先应执行的操作是：A 单击窗体上没有控件的地方B 单击任一个控件C 不执行任何操作10D 双击窗体的标题栏3、在Visual Basic工程中，可以+-*作为启动对象的程序是A 任何窗体或标准模块B 任何窗体或过程C Sub Main过程或其他任何模块D Sub Main过程或任何窗体4、以下叙述中错误的是A 一个工程可以包括多种类型的文件B Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C程序运行后，在内存中只能驻留一个窗体D 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样5、以下叙述中错误的是A 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B 保存Visual Basic程序时，应分别保存窗体文件及工程文件C Visual Basic应用程序只能以解释方式执行D 事件可以由用户引发，也可以由系统引发6、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A如果工程中含有Sub Main过程，则程序一定首先执行该过程B 不能把标准模块设置为启动模块C 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D 任何时刻最多只有一个窗体是活动窗体7、下列可以作为Visual Basic的变量名的是：A FileNameB a(A+b)C 23D D print8、以下声明语句中错误的是A Const var1=123B Dim var2 = 'ABC'C public a,b as integerD Static var3 As Integer9、以下运算符中，不是逻辑运算符的是：A OrB XorC ImpD mod10、下列选项中，把r定义为双精度型变量的是：A r%B r!C r#D r$11、用来将数值转换为字符串类型的函数是:A Chr$()B Asc()C Str$()D Val()12、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()X = 12345Print Format$(X, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是A 123.45B 12345.00C 12345D 00123.4513、inputBox函数的返回值类型是：A 数值B 字符串C 变体 D数值或字符串（视输入的数据而定）填空1、在VB中，Len(“共产党”)的值是：_3______________；执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是：__6_____________2、语句print “25+32”的结果是：_25+32__________________3、设a=2,b=3,c=4,d=5，则表达式3>2*b OR a=c AND b<>c OR c>d的值是：_____false_________ ；NOT a<=c OR 4*c=b^2 AND b<>a+c的值是_____________4、以下语句的输出结果是：_3______a%=3.14159Print a%5、在VB中，工程文件的扩展名是.VBP，窗体文件的扩展名是.____ ___________。
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练习题及答案
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程序设计习题练习一一、多项选择题1、下面列出的程序设计语言中（a）是面向问题的语言。
a、机器语言b、汇编语言c、高级语言D，0，1二进制语言解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言2、下面列出的程序设计语言中（c）不是面向对象的语言。
a、cb、c++c、javad、vb3、下列（d）不属于vb6.0的版本。
a、学习版b、专业版C、企业版D、共享版解释：vb6.0共有三个版本：标准版、专业版、企业版。
而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。
二、填空题1.从编程语言的发展过程来看，计算机编程语言分为机器语言、汇编语言和高级语言。
2、 vb6。
0采用面向对象和事件驱动（可视化编程）的编程机制。
3、启动vb6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。
练习2一、选择题1.如果表单对象的名称是forma1，backcolor是表单对象的一个属性，用于设置表单的背景色，那么将表单背景色设置为蓝色的正确语句是（a）a和forma1backcolor=vbblue、backcolor=vbbluec、forma1=vbblued、forma1′sbackcolorisvbblue.2.在以下方法中，无法打开代码编辑器（d）A.单击“视图”菜单上的“代码窗口”命令。
b、在窗体设计器中双击窗体或控件。
c、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。
d、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。
3、保存vb应用程序时，下列方法中正确的是（ａ）a、先保存窗体文件，再保存工程文件。
b、先保存工程文件，再保存窗体文件c、如果直接保存表单文件，系统将自动先保存表单文件，然后依次保存项目文件。
d、如果直接保存表单文件，系统将自动先保存项目文件，然后依次保存表单文件。
2、填空1、vb工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。
VB考试题目
一、单选题（每题1分，共76题）1.想要显示一个输入框，它的标题栏上显示“示例”，提示信息是“请输入一个正整数”，输入框内默认内容为“1”，其语句是A=InputBox(“请输入一个正整数”,”示例”,”1”)</p>B. A=InputBox(”示例”,“请输入一个正整数”,”1”)</p>C. A=InputBox(”1”,”示例”,“请输入一个正整数”)</p>D. A=InputBox(“请输入一个正整数”,”1”,”示例”)</p>2.若要使标签控件显示时不覆盖其背景内容，应设置标签控件的A. BackColor</p>B. BorderStyle</p>>C. ForeColor</p>D. BackStyle</p>3.下面变量名是错误的A. 姓名B. aC. a123D. a.1</p>4.启动窗体在程序运行后，不进行任何操作的情况下会发生A. Initialize和Load</p>B. Show</p>C. Activate</p>D. A和C</p>5.当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的属性为TrueA. AutoSize</p>B. WordWrap</p>C. Enabled</p>D. Visible</p>6.语句Form1.Hide中，Hide是Form1对象的一个（ ）</p>A. 方法</p>B. 参数</p>C. 属性</p>D. 事件</p>7.对象窗口是用来设计（ ）</p>A. 应用程序的代码段</p>B. 应用程序的界面</p>C. 对象的属性</p>D. 对象的事件</p>8.如果变量赋值为str1=”练习”，var1=5，则语句Print ”第”& var1 &”次”& str1 输出的结果为A. 第5次练习</p>B. 第5次str1</p>C. 第var1次练习</p>D. 第var1次str1</p>9.假定一个VB应用程序由一个窗体模块和一个标准模块构成，为了保存该应用程序，以下正确的操作是（ ）</p>A. 只保存窗体模块文件</p>B. 分别保存窗体模块、标准模块和工程文件</p>C. 只保存窗体模块和标准模块文件</p>D. 只保存工程文件</p>>10.下列是窗体对象的方法而不是属性（ ）</p>A. Name </p>B. Move</p>C. Caption</p>D. Enabled</p>11.窗体Form1的Caption属性为frm，它的Load事件过程名为（ ）</p>A. Form_Load</p>B. Form1_Load</p>C. frm_Load</p>D. Me_Load</p>12.在VB程序中，语句的续行符是（ ）</p>A. &</p>B. _</p>C. ;</p>D. :</p>13. 在用户的应用程序执行期间发生，比如单击鼠标或按键盘中的键（ ）A. 方法</p>B. 属性</p>C. 事件</p>D. 工程</p>14.控件中最适合做标题的控件是。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.下列的逻辑表达式中不正确的是（x<y<z）2.已知有数组声明:Dim a(-1 To 3,2 To 5)As integer,如下引用数组中的元素,正确的是(a(-1 to 2))3.执行下面的程序段后,x的值为(21).x=5 For i=1 To 20 Step 2x=x+i\5Next i解答：5+1\5+3\5+5\5+7\5+...19\5=214.欲使标签的内容自动换行,必须设置属性(WordWrap).5.表达式 15 Mod 4 + 13 \ 5 * 2 的值是（4）6.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是(5). 解答：4+5\6*7/8Mod9＝4+5\42/8Mod9说明：先计算6*7＝42＝4+5\（5.25）Mod9说明：再计算42/8＝5.25 ＝4+5\5Mod9说明：下一步计算5\5.25，在计算之前先把小数取成整数，即把5\5.25舍成5\5＝4+1Mod9说明：下一步计算5\5＝1＝4+1说明：下一步计算1Mod9＝1＝5说明：最后一步计算4+1＝5，即最终结果。
7.若要禁止窗体被用户移动,通过设置可达此要求的窗体的属性是(controlbox).8.表达式(-1)*Sgn(-100+Int(Rnd*100))的值是(1).解答：Rnd*100是取0~100的小数Int(Rnd*100)是对0~100的小数去整，结果是0~99的整数(-100+Int(Rnd*100)得数一定是负数Sgn(-100+Int(Rnd*100))得数为-1 'Sgn函数，当参数大于0事返回1，参数小于0时返回-1，参数等于0时返回0（－1）*Sgn(-100+Int(Rnd*100))的值是1 9.假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程,计算机将发出Beep声的次数是（以上都不对）10.设a=10,b=5,c=1,执行语句Print a>b>c 后,窗体上显示的是(false).解答：false .我来补充了。
运算的时候只这样的：先算a>b,即：10>5 结果为true 也就是-1 再算-1>c 即-1>1 结果自然就是false 了11.表达式X+1>X是(关系表达式).12.在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中(立即)窗口是用来显示代码中正在调试的语句所产生的信息,或显示直接在该窗口中键入的命令所请求的信息.13.在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示(Form-load)事件过程模板.14.如果Forml是启动窗体,并且Forml的load 事件过程中有form2.show,则程序启动后(，在所有初始化代码运行后Forml是活动窗体)15.下面关于顺序文件的描述正确的是（数据只能以ASCII码形式存放文件中，所以以通过文本编辑软件显示）16.如下程序：Private Sub Command1_Click()Print p1(3,7)End SubPublic function p1!(x!,n%)If n=0 ThenP1=1ElseIf n Mod 2=1 ThenP1=x*p1(x,n\2)ElsePl=pl(x,n\2)\xEnd IfEnd IfEnd Function运行的结果是（27）解答：开始 7 Mod 2 = 1 所以 p1 = 3 * ①p1(3,7\ 2)①=p1(3,3)3 Mod 2 = 1 所以 p1 = 3 * ②p1(3,3\ 2)②=p1(3,1)1 mod 2=1 所以 p1=3*③p1(3,1\2)③=p1(3,0)n=0 所以 p1=1,循环结束返回③=1返回②=3*1返回①=3*3*1最终值=3*3*3*1圆圈里面的数字就是p1(.)这个函数17.下面过程运行后显示的结果是（）下面过程运行后显示结果是（2 34 ）。
PublicSub F1(n%，ByVal m%)N=n Mod 10m=m\10End subPrivate Sub Command1_Click()Dim x %,y%x=12:y=34call F1(x,y)Print x,yEnd Sub18.设执行以下程序段时依次输入11、33、55,执行结果为(11)Dim a(4) As Integer, b(4) As Integer For K = 0 To 2a(K + 1) = Val(InputBox("请输入数据")) b(3 - K) = a(K + 1)Next KPrint b(K)19.'【程序设计】'题目：对字符串进行加密处理。
' 加密过程:' 将每个字母C减一序数K＝5，即c=chr(Asc(c)-5),' 这时 "Z"→"U"， "z"→"u"，"Y"→"T"…' 当减序数后的字母小于"A"或"a"则c=Chr(Asc(c)-k +26)解答：Dim i As IntegerDim strp As String, strT As String, iA As StringDim nl As Stringi = 1: strp = ""nl = Len(RTrim(strI))Do While (i <= nl)strT = Mid$(strI, i, 1) '取第i个字符If (strT >= "A" And strT <= "Z") TheniA = Asc(strT) + 5If iA > Asc("Z") Then iA = iA - 26strp = strp + Chr$(iA)ElseIf (strT >= "a" And strT <= "z") TheniA = Asc(strT) + 5If iA > Asc("z") Then iA = iA - 26strp = strp + Chr$(iA)Elsestrp = strp + strTEnd Ifi = i + 1LoopEnyStr = strp20.题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。
'要求：①不得添加任何变量；不得删除或添加行；不得更改行的顺序' ②只更改"'**********ERROR**********"标记下的第一行'------------------------------------------------Private Sub Form_Click()Dim N As Integer, Sum As Integer, S1 As String, S2 As StringDim i As Integer, Ch As StringSum = 0N = InputBox("输入整数n")S1 = Str(N)'**********ERROR**********S1 = RTrim(S1)For i = 1 To Len(S1)'**********ERROR**********Ch = Mid(N, i, 1)'**********ERROR**********Sum = Val(Ch)Next iPrint "该整数的各位数之和是："; SumEnd Sub答案Sum = Sum + Val(Ch)Sum =Val(Ch)+Sum21.'题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!，' 当x〉1或x〈-1时，函数值为0。
当n〈=0时，输入数' 据错误。
X、N都是由用户输入。
'要求：①不得添加任何变量；不得删除或添加行；不得更改行的顺序' ②只更改"'**********ERROR**********"标记下的第一行'------------------------------------------------Private Sub Command1_Click()Dim s As SingleDim n As Integer, x As Single, k As Integern = Val(InputBox("Please input a integer value:"))x = Val(InputBox("Please input a single value:"))If n <= 0 Thenk = MsgBox("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入")Exit Subs = Sum(x, n)Print sEnd SubFunction Sum(x As Single, n As Integer)Dim i As Integer, ss As Longss = 1Sum = 0If x > 1 Or x < -1 Then'**********ERROR**********Exit DoElse'**********ERROR**********For i = 2 To nss = ss * i'**********ERROR**********Sum = x ^ (i - 1) / ssNext iEnd Function【学生答案】Sum = x ^ (i - 1) / ss【参考答案】Sum = Sum + x ^ (i - 1) / ss Sum = x ^ (i - 1) / ss+Sum。