第三章建立简单的Visual Basic应用程序
教学要求：
掌握Visual Basic语言语句的语法规则，掌握赋值语句、注释、暂停与程序结束语句；通过编写简单的应用程序，了解如何用Visual Basic开发一个应用程序，掌握设计应用程序的方法，学会程序的保存、装入及运行。
知识点：
面向对象的交互式程序设计；使用Visual Basic开发应用程序。
内容导航：
一、语句
（一）语句
语句是执行具体操作的指令，每个语句以回车键结束。
（二）赋值语句
用赋值语句可以把指定的值赋给某个变量或某个带有属性的对象，一般格式为：［Let］目标操作符=源操作符
（三）注释、暂停与程序结束语句
1．注释语句
格式：Rem 注释内容
′注释内容
2．暂停语句（Stop）
格式：Stop
3．结束语句（End）
格式：End
二、编写简单的Visual Basic应用程序
（一）用Visual Basic开发应用程序的一般步骤
在用Visual Basic开发应用程序时，需要以下3步：建立可视用户界面；设置可视界面特性；编写事件驱动代码。
（二）编写Visual Basic应用程序
1．建立用户界面
2．设置属性
3．编写代码
三、程序的保存、装入和运行
（一）保存程序
应用程序可以用4种类型的文件保存。一类是单独的窗体文件，扩展名为.frm；一类是公用的标准模块文件，扩展名为.bas；第三类是类模块文件，扩展名为.cls（本书不涉及类模块文件）；第四类是工程文件，这种文件由若干个窗体和模块组成，扩展名为.vbp。
（二）程序的装入
一个应用程序包括4类文件，即窗体文件、标准模块文件、类模块文件和工程文件，这4类文件都有自己的文件名。但只要装入工程文件，就可以自动把与该工程有关的其他3类文件装入内存。
（三）程序的运行
1．运行模式
Visual Basic应用程序可以在两种模式下运行，一种是解释运行模式，一种是编译运行模式。
2．运行程序
（1）解释运行
（2）生成可执行文件
四、Visual Basic应用程序的结构与工作方式
（一）Visual Basic应用程序的构成
Visual Basic应用程序通常由3类模块组成，即窗体模块、标准模块和类模块。
（二）事件驱动
事件是可以由窗体或控件识别的操作。事件驱动应用程序的典型操作序列为：
1．启动应用程序，加载和显示窗体；
2．窗体或窗体上的控件接收事件。事件可以由用户引发（例如键盘操作），可以由系统引发（例如定时器事件），也可以由代码间接引发（例如，当代码加载窗体时的Load事件）；3．如果相应的事件过程中存在代码，则执行该代码；
4．应用程序等待下一次事件。
训练：
一、选择题
1．关于Visual Basic程序的说法不正确的是________。
A) 一行可以写多条语句，语句之间用“:”隔开
B) 一条语句可以写在多行上，用“空格”加“_”作为续行标志
C) 程序中的大小些字母不区分
D) 变量在使用之前必须先定义类型
2．Visual Basic的一条语句可以写在多行，但要用续行符，续行符应为________。
A) 一个空格加一个下划字符(_) B) 一个下划字符(_)
C) 直接回车D) 一个空格加一个连字符(-)
3．Visual Basic的一行可以写多条语句，语句之间用________隔开。
A) 逗号B) 分号C) 顿号_ D) 冒号
4．下列说法不正确的是________。
A) 注释语句是非执行语句，仅对程序的有关内容其注释作用，它不被解释和编译
B) 注释语句可以作为代码中的一行
C) 注释语句不可以放在其他语句的后面
D) 代码中加入注释语句的目的是提高程序的可读性
5．下列说法不正确的是________。
A) 调试程序时，使用解释运行方式比较方便
B) 解释运行方式比编译运行方式运行应用程序的速度慢
C) 解释运行方式必须在Visual Basic集成环境下使用
D) 解释运行方式和编译运行方式都必须在Visual Basic集成环境下使用
6．一般情况下，用Visual Basic创建应用程序分为4个主要步骤。以下操作顺序正确的是________。
①创建应用程序的界面②编写程序代码，建立时间过程
③设置对象属性④调试运行程序，生成可执行文件
A) ①②③④B)①③②④C) ②①④③D) ②③①④
7．新建工程的快捷键是________ 。
A) Crtl+A B)Crtl+D C) Crtl+N D) Crtl+E
8．工程文件的扩展名是________。
A) frm B) frx C) cls D)vbp
9．假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"Visual Basic Test"的语句为________。
A) Form1＝"Visual Basic Test" B) Caption＝"Visual Basic Test"
C) Form1.Text＝"Visual Basic Test" D) https://www.doczj.com/doc/2c3994776.html,＝"Visual Basic Test"
10. 下列不能打开代码窗口的操作是________ 。
A) 双击窗体上的某个控件B) 双击窗体
C) 按F7键D) 单击窗体或控件
11．为了保存一个Visual Basic应用程序，下列说法正确的是________。
A) 只保存窗体文件(.frm)
B) 只保存工程文件(.vbp)
C) 分别保存工程文件和标准模块文件
D) 分别保存工程文件、窗体文件和标准模块文件
12．为了装入一个Visual Basic应用程序，下列说法正确的是________。
A) 只装入窗体文件(.frm)
B) 只装入工程文件(.vbp)
C) 分别装入工程文件和标准模块文件
D) 分别装入工程文件、窗体文件和标准模块文件
二、填空题
1．要结束程序的运行应________语句。
2．Visual Basic在同一行上可以书写多条语句，语句间用________ 。单行语句可分若干行书写，在本行后加入续行符号________。
3．工程文件的扩展名为________ 。
4．Visual Basic 6.0的两种运行方式是________ 和________。
5．添加或删除控件类，需要在“________”菜单下单击“部件”菜单项，打开“部件”对话框，然后在对话框中进行操作。
6．要想采用编译运行方式运行应用程序，生成可执行文件，应单击“________”菜单下的“生成工程名.EXE”菜单项。
7．在用Visual Basic开发应用程序时，一般需要________、________、________和________4部。
8．在保存Visual Basic应用程序时，窗体文件和工程文件的扩展名分别为________和________。
9．为了把一个Visual Basic应用程序装入内存，只要装入________ 文件即可。10．Visual Basic应用程序通常由3类模块组成，即________、________和________。三、简答题
1．简述建立一个完整的应用程序的基本过程。
2．Visual Basic应用程序有几种运行方式？如何执行？
3．Visual Basic应用程序通常由几类模块组成？在存盘时各使用什么扩展名？
4．可以通过那几种方式打开代码窗口？
四、编程题
1．在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“显示”和
“清除”。程序运行后，在文本框中输入一行文字，如果单击一个命令按钮，则把文本框的内容显示为窗体标题；如果单击第二个命令按钮，则清楚文本框中的内容。
2．在窗体上画一个标签和两个命令按钮，标签内容为“空间移动示例”，两个命令按钮的标题为“向上移动”和“向下移动”，当单击命令按钮时，标签每次向上或向下移动50单位的距离。
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/2c3994776.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0
关于VB语言和怎样学习VB VB6.0全称为VisualBasic 6.0，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧)，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。 也许你会问，我以前没学过任何一种语言，我能快速上手吗？别担心，没问题VB的语法的和QBASIB语言是基本相同的，也就是说它的语法是最容易被初学者所接受的。另外VB提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且VB提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以VB学起来简单，用起来方便。 接着看看VB语言的前景，在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了，在我写这篇文章的同时，微软已经透露了VB7.0将完全面向对象的消息，可以肯定下一代VB的功能一定会强大很多，我们这些所谓的 VB 程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数最多的优秀的开发工具。 好了，侃了这么多关于VB的台前幕后，总之是为想学编程的你树立信心，编程一点都不难，只要你决定了开始，就让我们一起踏上愉快的编程之旅吧。 接下来谈谈怎样学习VB，先说说“看实例学VB6.0”系列教程，它是面向编程初学者的VB入门教程，这个教程的特点是抛开晦涩难懂的概念和语法，不做内容上的堆积和罗列，而是采用了每节一个生动有趣的小例子的形式，每个小例子中会涉及到一个或几个VB编程的知识点(可能是控件，也许会是某个函数或编程小技巧)，使你快速入门。希望你学完此教程后能达到下述的效果： 从对编程一窍不通或从未接触过编程的状态，通过学习能够对VB6.0的编程环境比较熟悉，掌握VB开发界面的使用方法；对VB语言的基本语法大致了解，知道常见的语句的意义；学习VB常用控件的使用方法，并能将它们灵活运用到应用程序中；能开发简单的VB程序。到那时你已经能够继续深入的学习VB编程，嘻嘻，目标就是这样啦。 然后谈谈学习编程的方法，万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。 另外，编程涉及到很多的知识，象操作系统的、软件工程的、硬件系统的以及编程思想等各个方面，这就需要我们多看看这方面的资料，扩充自己的知识面。 教程分为三个大的部分，它们是由浅入深的一个系列，分别是：
程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152)
用VB编写一个简单的图书管理系统 Srl2011009（学号）石二辽（姓名）指导教师徐哲鑫 【摘要】笔者采用Visual Basic 为开发工具，设计一款具备友好的图形用户界面、简便操作的图书管理系统。充分利用计算机功能实现读者管理、书籍管理、借还书籍管理等信息的自动化控制，将使图书管理员从繁杂、重复的劳作中解放出来。 【关键词】图书；面向对象；软件工程 1概述 开发背景 用计算机管理图书馆里一切信息是一种计算机应用技术的创新,在计算机还未普及之前图书管理都是由图书管理人员手工记帐的方式来操作的.现在一般的图书馆都是采用计算机作为工具，使用实用的图书管理程序来帮助图书馆管理员进行更有效的图书管理。 图书管理系统产生的背景 图书管理系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于台数据库的建立和维护要求建立起数据一致性和完整性强、数据安全性好的库。而对于前端应用程序则要求应用程序具备功能完备、友好的图形用户界面、便捷使用等特点[1]。 系统功能要求的分析 开发本系统的总体任务是实现图书管理系统的系统化和自动化，帮助图书管理员更好更高效地完成图书管理工作，本系统要完成的功能主要有: 书籍管理部分:图书类别管理和图书信息管理。其中，书籍类别管理包括添加书籍类别、修改书籍类别、删除书籍类别等；书籍信息管理包括书籍信息的添加、修改、查询、删除等。 读者管理部分:读者类别管理和读者信息管理，读者类别管理包括读者类别添加、修改、删除等；读者信息包括读者添加读者信息、修改读者信息、查询读者信息、删除读者信息等。 借阅管理部分:借书信息管理和还书信息管理，借书信息管理、还书信息管理均包括其信息的添加、修改、查询等。 系统管理部分:添加管理员,修改密码,退出系统。 2开发环境及实现技术介绍
一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
一、基本操作题 (1)在名称为Forml，标题为“输入”、最大化按钮不可用的窗体上画1个名称为Framel的框架控件，其标题为“选择性别”;再向框架内画两个名称分别为Optionl和Option2的单选按钮，其标题分别为“男”和“女”，并将单选按钮Option2设置为选中状态。请设置相应属性使得程序执行时，窗体界面如图所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjtl.frm，工程文件名为sjtl.vbp。 (2)在名称为Forml的窗体上画1个名称为Labell的标签，其标题为“计算机等级考试”，且能根据标题内容自动调整大小，有边框(如图所示);再在窗体上画1个名称为HScrolll的水平滚动条，并将滚动条所能表示的最小值设置为10、最大值设置为20。 要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条两端的箭头时，能将标签中的文字大小设置为滚动框当前位置值，程序运行后的界面如图所示。 注意：程序中不得使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 二、简单应用题 (1)考生文件夹中有工程文件sjt3.vbv。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文
Vb简单应用题练习题 第一题： 打开指定文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上已经添加一个名为lblClock 的标签控件和一个名称为timeClock的计时器控件；请将标签控件lblClock的Caption属性设为空串，BorderStyle属性设为1，再设置timeClock的适当属性，并编写适当的事件过程，使得在运行时，每隔一秒种在标签中显示的数字从1开始自动加1。如图所示是程序开始运行时的界面。 请将程序中注释语句修改为正确代码，并删除注释符号；不能修改已有的程序内容，特别是不能改变程序中已有的变量名称。 注意：1.不能修改除注释语句以外的其他代码行和已经设置好的控件属性，并将修改的结果以原文件名原位置存盘。 2.若涉及给对象属性赋值，必须指定属性名，不可使用对象的默认属性。 Option Explicit Private nCount As Long Private Sub Form_Load() nCount = 1 End Sub Private Sub timeClock_Timer() lblClock = nCount nCount = nCount + 1 End Sub 第二题： 打开指定文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上已经添加一个名称为txtInput的文本框；两个标题分别为“对齐方式”、“字体”，名称分别为fraAlign、fraFont的框架控件；在fraAlign框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为optLeft、optCenter、optRight；在fraFont框架中画两个单选按钮，标题分别为“宋体”、“黑体”，名称分别为optSt、optHt。 要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作效果，如图所示。
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).
A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile
【HNCE网上考试系统 v9.6】? 本套软件使用权属于：郑州大学 考试课程:VB-程序设计-练习? 考试时间:90分钟? 考场:第一考场? 考试日期: 剩余时间：88:09 保存交卷退出帮助本卷共有2道大题: 一、单项选择题（50道小题，共50分） 1、与传统的程序设计语言相比较，Visual?Basic最突出的特点是______。（1分） A、结构化的程序设计 B、数据处理 C、面向对象的可视化编程 D、中文支持 2、任何控件都具有的属性是______。（1分） A、Picture B、Caption C、Name D、AutoSize 3、保存一个Visual?Basic应用程序，正确的是______。（1分） A、只保存工程文件(.vbp) B、只保存窗体文件（.frm） C、只保存标准模块文件（.bas） D、分别保存窗体文件和工程文件 4、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是______。（1分）
A、Load B、Click C、DblClick D、MouseDown 5、启动Visual?Basic后，VB为用户建立的第一个窗体是______。（1分） A、Form B、Form1 C、窗体1 D、窗体 6、程序如下：i?=?0:?s?=?0:?Do:?i?=?i?+?2:?s?=?i?+?s:?Loop?Until?i?>?4，执行后s的值是______（1分） A、10 B、11 C、12 D、15 7、表示年龄(age)在20岁和30岁之间的表达式是______。（1分） A、age>=20?And?age<=30 B、age>=20?0r?age<=30 C、age<=20?And?age>=30 D、age<=20?0r?age>=30 8、文本框中的ScrollBars属性已设置为?3-Both，但却没有水平和垂直滚动条的效果，原因可能是______。（1分） A、文本框中没有内容 B、文本框的MultiLine属性为False
《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。
VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。
用VB编写一个密码解锁界面 我也是刚开始学VB语言，VB语言很强大，有别于其它语言，操作性很强，是很富有创造性的电脑语言。 下面是我看了两天书后编写的一个小程序： 功能是能建立两个窗口，一个密码窗口，一个为修改密码窗口。当密码输入正确后才能打开或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改的密码为解锁密码。中间有错误提示和误操作提示。 ①先建立一个小窗口，如下图： 帐号一的“textbox”编号为“text1”，后面一次类推，command指令为1。 ②程序的编写 Text1： 初始帐号为“07823”，如果可以的话可以给加入更多的功能，比如记忆多个账户和多对密码之类的等等。
2、text2 3、command1 初始密码为“1234”，open函数可以打开文件，自己可以设置文件路径。 4、command2 跳往第二个界面，隐藏第一界面。 5、初始指令 6、全局变量 全局变量本界面可以修改、其它界面可以调用的变量。
②建立第二个窗口 Text的序号从上到下依次顺序排列，command的命令一次从左到右排列 ③第二个窗口的程序编写 1、Text1： Private Sub Text1_LostFocus() Dim b As Integer Dim pw_1 As String, pw_2 As String pw_2 = Form1.m pw_1 = Text1.Text If pw_1 <> pw_2 Then b = MsgBox("密码错误", 5 + vbExclamation, "错误提示") End If End Sub 2、text2： Private Sub Text2_LostFocus() If Text2.Text = "" Then MsgBox "新密码不能为空" End If End Sub 3、text3： Private Sub Text3_LostFocus() If Text2.Text <> Text3.Text Then MsgBox "两次输入密码不一样" Text2.Text = "" Text3.Text = "" Text2.SetFocus End If End Sub
V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……
| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设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",
计算机二级考试《VB》模拟试题及答案 2016计算机二级考试《VB》模拟试题及答案 一、基本操作题 (1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl.vbp，窗体文件名为sjtl.frm。 (2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。再画两个标题分别为“椭圆”和“圆”的命令按钮。如下图所示。 要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjr2.vbp，窗体文件名为sjr2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。 ①在考生文件夹下的in.3.dat文件中存有100个正整数。单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。 ②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。
“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗 体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件 名存盘。 (2)考生文件夹下有一个工程文件sit4.vbp。在窗体Forml上有 两个名称为Commandl和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。 单击“重输”按钮，则清空Textl中的`内容，等待用户输入由 空格隔开的若干个英文单词;单击“查找”按钮，则找出Textl中最 长的单词，并将其显示在Text2中。某一次的运行效果如图所示。 请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确 内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 考生文件夹下有一个工程文件sjt.s.vbp。在窗体Forml上有两 个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标 题为“原始数据”和“排列数据”的标签。程序功能如下。 ①单击“产生数据”按钮，则随机产生20个一位整数，存人数 组a中，并同时显示在Textl中。 ②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序;最 后将排列结果显示在Text2中。某一次运行结果如图所示。 请将“重新排列”按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。