VB-第一章-练习题
VB测试题1-2章讲解
VB第一章测试题(1)1、激活主菜单的按键是（）A．F1或Ctrl键 B．Ctrl键或Atl键C．F10或Ctrl键 D．F10或Atl键2．如果设计时在属性窗口将命令按钮的（）属性设置为False，则运行时按钮从窗体上消失．A．Visible B．EnabledC．DisabledPicture D．Default3．退出Visual Basic的快捷键是（）A．Ctrl +Q B．Shift +QC．Alt+Q D．Ctrl+Alt+Q4．除了系统默认的工具箱布局外，在Visual Basic中还可以通过（）方法来定义选项卡组织安排控件．A．在工具箱单击鼠标右键，执行快捷菜单中的“添加选项卡”命令B．执行“文件”菜单中的“添加工程”命令C．执行“工程”菜单中的“添加窗体”命令D．执行“工程”菜单中的“部件”命令5．窗体设计器是用来设计（）A．应用程序的代码段 B．应用程序的界面C．对象的属性 D．对象的事件6．启动Visual Basic后，系统为用户新建的工程起一个名为（）的临时名称．A．工程1 B．窗体1C．工程 D．窗体7．工程资源管理器窗口中包含的文件类型有（）种．A．2 B．3C．4 D．58．Visual Basic的编程机制是（）A．可视化 B．面向对象C．面向图形 D．事件驱动9．Visual Basic集成环境的大部分窗口都可以从主菜单项（）的下拉菜单中找到相应的打开命令．A．编辑 B．视图C．格式 D．调试10．要在窗体上显示图片，需设置窗体的（）属性．A．Caption B．IconC．Picture D．ControlBox11．每个窗体对应一个窗体文件，窗体文件的扩展名是（）A．.bas B．.clsC．.frm D．.vbp12．双击窗体的任何地方，可以打开的窗口是（）A．代码窗口 B．属性窗口 C．工程管理窗口 D．以上3个选项都不对13．工具栏中的“启动”按钮的作用是（）A．运行一个应用程序 B．运行一个窗体C．工程管理窗口 D．打开被选中对象的代码窗口14．运行时，单击窗体将窗体的前景色设置为红色的事件过程是（）A． Private Sub Form_Click( ) B．Private Sub Form_Click( )BackColor=vbRed Form1.ForeColor=vbRedEnd Sub End SubC．Private Sub Form_Click( ) D．Private Sub Form_Click( )Form1.BackColor=vbRed ForeColor=vbRedEnd Sub End Sub15．如果要在命令按钮上显示图形文件，应设置命令按钮的（）A．Style属性和Graphics属性 B．Style属性和Picture属性C．Picture属性D．Graphics属性16．英文缩写OLE的含义是（）A．面向对象程序设计 B．对象链接C．对象嵌入 D．对象链接与嵌入17．在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示（）事件过程模板．A．Form_Click B．Form_Load C．Form1_Click D．Form1_Load18．每建立一个窗体，工程管理器窗口中就会增加一个（）A．工程文件 B．窗体文件C．程序模块文件 D．类模块文件19．激活属性窗口使用的键是（）A．F2 B．F3 C．F4 D．F520．Visual Basic是一种（）程序设计语言．A．过程式 B．非过程式C．机器 D．低级21．不能在运行期间设置窗体的（）属性．A．BorderStyle B．Caption C．Icon D．MaxButton22．设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）A．cmdc B．cmdb C．cmdA D．Command1二、填空题1. 如果要在单击钮时执行一段代码，则应将这段代码写在_______________事件过程中．2. 一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示___________文件；扩展名为.frm的文件表示_____________文件；扩展名为.bas的文件表示_____________文件；包含ActiveX控件的文件扩展名为__________．3. Visual Basic 6.0用于开发__________环境下的应用程序．如果要使用命令按钮表面显示文字“退出（X）”（在字符X之下加下划线），则其Caption 属性设置为___________，其括号中的X表示在运行时按下____________键与单击该按钮效果相同．打开“工程窗口”的方法之一是按下______________组合键．Visual Basic的控件通常分为3种类型，即___________、___________、____________．其中，____________不能从工具箱中被删除，_____________单独保存在.OCX文件中，在必要进可以加入到工具箱中．VB第一章测试题(2)一、选择题1. 标准模块文件的扩展名为_________。
中职计算机VB语言程序设计基础 第一章VB概述测试题及答案
第一章 Visual Basic概述一、选择题1.在 Visual Basic的工程中,工程文件的扩展名是( ) 。
A. .frmB. .vbgC. .vbpD. .bas2. Visual Basic程序中分隔一行中各语句的字符是( ) 。
A.’B.:C.\D.-空格-3.下列不属于对象的基本特征是( ) 。
A.属性B.方法C.事件D.函数4.以下叙述中错误的是( ) 。
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含窗体及控件的属性D.一个工程中可以含有多个标准模块文件5.启动 Visual Basic后,系统为用户新建的工程起一个名为( ) 的临时名称。
A.工程1B.窗体1C.工程D.窗体6.用标准工具栏中的工具按钮不能执行的操作是( ) 。
A.添加工程B.打印源程序C.运行程序D.打开工程7.要添加一个标准模块,可使用( ) 菜单中的“添加模块”命令。
A.文件B.视图C.工程D.工具8.工具栏中的“启动”按钮的作用是( ) 。
A.运行一个应用程序B.运行一个窗体C.工程管理窗口D.打开被选中对象的代码窗口9.下列关于 Visual Basic6.0工具栏的说法不正确的是( ) 。
A.工具栏的位置可以任意改变B.工具栏一定在菜单栏的下方C.工具栏可以显示或隐藏D. Visual Basic有多个工具栏10.在设计模式双击窗体将显示的窗口是( ) 。
A.工程窗口B.工具箱C.代码窗口D.属性窗口11.以下关于保存工程的说法正确的是( ) 。
A.保存工程时只保存窗体文件即可B.保存工程时只保存工程文件即可C.先保存窗体文件,再保存工程文件D.先保存工程文件,再保存窗体文件12.在面向对象的程序设计中,最基本的元素是( ) 。
A.窗体文件B.工程文件C.属性D.对象13. Visual Basic的编程机制是( ) 。
VB第1章习题与答案
第1章习题与答案一、选择题1. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是:（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口2. 保存新建的工程时，默认的路径是:（A）My Documents （B）VB98 （C）\ （D）Windows3. 将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件转到其他机器上不能运行的主要原因是:（A）运行的机器上无VB系统所需的动态连接库（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对4.当需要上下文帮助时，选择要帮助的“难题”，希望出现MSDN窗口及显示所需“难题”的帮助信息。
应按的键的（A）Help （B）F10 （C）Esc （D）F15.Visual Basic中提供的On Error Resume Next错误陷阱语句的功能是:（A）当发生错误时，使程序跳转到语句标号为0的程序块（B）当发生错误时，不使用错误处理程序块（C）当发生错误时，忽略错误行，继续执行下一语句（D）当发生错误时，终止本过程程序执行，继续执行下一过程6.在VB环境中，工程文件的扩展名是:（A）.frm （B）.bas （C）.vbp （D）.frx7.将一个VB程序保存在磁盘上，至少会产生的文件是:（A）.doc、.txt （B）aaa、.exe （C）.vbp、.frm （D）.bat、.sys8.下面关于对象的描述中，错误的是:（A）对象就是自定义结构变量（B）对象代表正在创建的系统中的一个实体（C）对象是一个状态和操作（或方法）的封装体（D）对象之间的信息传递是通过消息进行的9.下面4项中不属于面向对象系统三要素的是(A)变量（B）事件（C）属性（D）方法10.下面各种高级语言中，不是面向对象程序设计语言的是（A）Visual Basic （B）C++ （C）Pascal （D）Java二、填空题1．当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择【1】菜单的【2】选项，使“工具箱”窗口显示。
VB第一至四章自测题及答案
1．2 Visual Basic 浏览 1．3 建立一个简单的应用程序 1．4 界面、对象与事件驱动程序 自测题
一．填空题（共60分，每空4分） 1．VB集成开发环境是提供（ 设计 ）、（ 运行 ）和（ 测试 ） 应用程序所需各种工具的一个工作环境。 2．集成开发环境的主窗口的顶部包含有（ 标题栏 ）、（ 主菜单 ）和（ 快捷方式栏 ）。下部主要有（ 工具箱 ）、（ 窗体窗口 ）、（ 工程管理窗口 ）和（ 属性窗口 ）。 3． VB的每个菜单项都有一个下拉菜单，含有若干个（ 菜单 ）命 令。用鼠标单击某个 菜单项就执行相应的菜单命令。 4． VB把一个应用程序称为一个（ 工程 ）。一个工程可以包含各 种（ 文件 ）。 5．使用VB设计应用程序主要完成（ 界面设计 ）和（ 编写事件驱动 ）两项工作。 二．单项选择题（共20分，每小题5分） 1．用户在什么时候都可以按（ B ）键来查看与当前进行的工作相关
第2章 自测题及其参考答案 2．1 VB的基本字符和词汇集 自测题
一．填空题（共50分，每空5分） 1．单词一般包括（ 运算符 ）、（ 界符 ）、（ 关键字 ）、（ 标志符 ）和（ 各类型常数 ）等。 2．具有固定含义的字符串称为（ 关键字 ），它们通常用来表示系统 提供的标准过程、函数、运算符、常量等。 3． （ 标志符 ）用于标记用户自定义的常量、类型、变量、控 件、过程、函数等名字。 4． 一个VB程序是由一条条（ 语句 ）构成，而语句是由（ 表达 式 ）和（ 单词 ）构成。 二．选择题（共2０分，每题10分） 1． 下面选项中（ c ）是算术运算符。
第1章 自测题及其参考答案 1．1 程序设计语言与程序设计 自测题
一．填空题（共50分，每空5分） 1．VB是以（ 事件驱动 ）作为运行机制的新一代可视化程序设 计语言。 2．程序设计语言（ 人 ）与（ 计算机 ）交流的工具。 3．若从机器执行的角度来对程序设计语言进行分类，则可以分为（ 低 级语言 ）和（ 高级语言 ）两种。 4．计算机系统中，对高级语言的翻译工具称为（ 编译 ）程序或 （ 解释 ）程序。 5．源程序中的错误一般分为（ 编译 ）错误、（ 运行 ）错误 和（ 逻辑 ）等三种错误。 二．单项选择题（共１０分，每题５分） 1．下列选项中不属于数据处理功能的是（ c ）。 a) 数据输入输出 b) 存储数据 c) 描述数据 d) 对数据进行维护 2．把a和b的乘积写成ab的错误属于（ a ）错误。 a) 编译 b) 运行 c) 逻辑 d) 编译和运行 3． 问答题（共4０分） 1．低级语言和高级语言的特点是什么？（１0分） 2．什么是数据描述和数据处理？（１０分） 3．源程序的翻译方式有哪两种，简述它们的工作过程。（１0分） 4．我们编写的程序力求做到什么？（１０分）
VB第一章练习题
第一章 环境和程序设计初步一.选择题1.在Visual 的集成开发的环境中，下面不属于该环境编程语言的是（C）。
A.VBB.C++C. PascalD. J#2.在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（D）。
A.工具箱窗口B.属性窗口C.立即窗口D.窗体窗口3.在中，在窗体上显示控件的文本，用（ A ）属性设置。
A. TextB. NameC. CaptionD. Image4.不论何种控件，共同具有的是什么属性( D )。
A. TextB. Name C．ForeColor D．Text5．对于窗体，可改变窗体的边框性质的属性是（B）。
A.MaxButtonB. FormBorderStyleC. NameD. Left6.若要使标签控件显示时不要覆盖窗体的背景图案，要对（A）属性进行设置。
A．BackColor B. BorderStyle C．ForeColor D.BackStyle7．若要使命令按钮不可操作，要对（A）属性进行设置。
A. EnabledB.VisibleC. BackColorD. Text8.要使文本框中的文字不能被修改，应对（D）属性进行设置。
A. LockedB. VisibleC. EnabledD. ReadOnly9.要使当前Form1 窗体的标题栏显示“欢迎使用”，以下（B）语句是正确的。
A.Form1.Text=“欢迎使用V”B.Me. Text=“欢迎使用”=“欢迎使用”D.Me. Name=“欢迎使用”10.当运行程序时，系统自动执行启动窗体的（A）事件过程。
A. LoadB. ClickC. UnLoadD. GotFocus11.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（B）。
A.文本框没有容B.文本框的MulitLine属性为FalseC.文本框的MulitLine属性为TrueD.文本框的Locked属性True12．要判断在文本框中是否按了Enter键，应在文本框的（D）事件中判断。
第1章vb概述 习题及答案.doc
一、判断题1.属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。
2.控件的属性值不可以在程序运行时动态地修改。
3.许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。
4.所谓保存工程，是指保存正在编辑的工程的窗体。
5 .面向对象的程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。
6.为了使一个控件在运行时不可见，应该将该控件的Enabled属性设置为False07.保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。
8.事件是由Visual Basic预先定义的对象能够识别的动作。
9.方法是Visual Basic对象可以相应的用户操作。
10.窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。
11.山Visual Basic语言编写的应用程序有解释和编译两种执行方式。
12.在打开一个Visual Basic工程进行修改后，要另存为一个版本，只需单击“工程另存为...”就行，因为系统将同时保存其他文件。
13.当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件.二、选择题1.要使某个控件不可操作，要对属性进行设置。
A、EnabledB、VisibaleC、CaptionD、Name2.下列不属于对象的基本特征的是oA、属性B、方法C、事件D、函数3.当运行程序时，系统自动执行启动窗体的事件过程。
A、ClickB、LoadC、DblClickD、Unload4.Visual Basic中“程序运行”允许使用的快捷键是。
A、F2B、F5C、Alt+F3D、F85.改变控件在窗体中的左右位置应修改该控件的属性。
A> Top B、Left C、Width D、Right6.工程文件的扩展名为oA、.exeB、.basC、.frxD、.frm7.在Visual Basic中，称对象的数据为=A、属性B、方法C、事件D、封装8.下列选项中不属于属性的是=A、NameB、CaptionC、ShowD、Text9.将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件。
vb练习题(有答案)(打印)
《大学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习题答案(1-9章)最全的
第一章VB程序设计概述二、选择题CADAB ACDAB CBDBB第二章VB可视化编程基础二、选择题ABDCA CACBC DADAD BDBBB三、填空题1.可视2.LEFT TOP WIDTH HEIGHT3.按字母序4.查看代码5.工具、选项6.Form1 Font7.Multiline8.只读属性9.工程属性通用Form1.show10.tabindex 0第三章VB语言基础二、选择题BCADB ADBBC DBCBA DAABB三、填空题1.整型、长整型、单精度、双精度2.sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)3.160 今天是：3-224.False5.-4 3 -3 3 -4 46.“CDEF”7.(x mod 10)*10+x\108.(35\20)*20=20 ( 35 \ 20 ) * 20 = 209.x mod 3=0 or x mod 5=010.27.6 8.2 8 1 100 397 true false第四章VB程序控制结构二、选择题DBCAD ABCAB D25BAC CBACB DABBC三、填空题1.字符型整型2. 1 2 33.x>74.x<amin5.10246.117.128.6 I “*”;9.0 100 i+1 10.2*I 6 “*”;三、编程题1.Private Sub Form_Click()Dim n As Integer, i As Integer, s As Longs = 1n = Val(InputBox("请输入一个整数:"))For i = 1 To ns = s * iNext iMsgBox n & "！=" & sEnd Sub2．Private Sub Form_Click()Dim i%, k%For j = 3 To 100k = Int(Sqr(j))For i = 2 To kIf j Mod i = 0 Then Exit ForNext iIf i > k Theny$ = y$ & " " & jEnd IfNext jMsgBox y, , "显示质数"End Sub3．Private Sub Form_Click()Dim i%, s%For i = 1 To 100s = s + iNext iMsgBox "1+2+3+……+100=" & sEnd Sub4．Private Sub Form_Click()Dim x%, y%For x = 1 To 50For y = 1 To 33z = 100 - x - yIf 2 * x + 3 * y + 0.5 * z = 100 ThenPrint "小鸡、公鸡、母鸡分别为："; x; y; z End IfNext yNext xEnd Sub5.Private Sub Command1_Click()Dim a%, b%, c%, p!, s!doa = Val(InputBox("请输入三角形的第一条边"))if a=-1 then exit dob = Val(InputBox("请输入三角形的第二条边"))c = Val(InputBox("请输入三角形的第三条边"))If a + b > c And a + c > b And b + c > a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print sElseMsgBox "你输入的三边不能构成三角形，请重新输入"End IfloopEnd Sub6. Private Sub Form_Click()Dim i As Integer, j As Integer,k as integerFor i = 1 To 8For k=1 to 8-iPrint spc(3);Next kFor j = 1 To 2 * i - 1Print i;Next jPrintNext iEnd Sub7. Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 30For j = 1 To 30For k = 1 To 30If i ^ 2 + j ^ 2 = k ^ 2 ThenPrint i & " ^ 2 + " & j & "^ 2 =" & k & "^ 2"End IfNext kNext jNext iEnd Sub8．Private Sub Form_Click()Dim x As Integer, a As Integer, b As Integer, c As Integer, ss As String ss = ""For x = 100 To 999a = Int(x / 100)b = Int((x - 100 * a) / 10)c = x - 100 * a - 10 * bIf a ^ 3 + b ^ 3 + c ^ 3 = x Thenss = ss & " " & xEnd IfNext xPrint ssEnd Sub9．Dim sr As Long, r As Singlesr = Val(InputBox("请输入收入："))Select Case srCase Is < 200r = 0Case 200 To 400r = (sr - 200) * 0.04Case 400 To 5000r = sr * 0.04Case Is >= 5000r = sr * 0.05End SelectPrint "收入为" & sr & "时所缴纳的税为：" & rEnd Sub10.Private Sub Form_Click()Dim t As Single, wf As Singlet = Val(InputBox("请输入上网时间:"))Select Case tCase Is < 10wf = 50Case 10 To 60wf = t * 6Case Is >= 60wf = t * 4End SelectIf wf >= 200 Thenwf = 200End IfPrint "上网时间为" & t & "小时上网的费用为：" & wf End Sub11. Private Sub Form_Click()Dim yf As Integeryf = Val(InputBox("请输入月份"))Select Case yfCase 12, 1, 2MsgBox yf & "月份是冬季"Case 3, 4, 5MsgBox yf & "月份是冬季"Case 6, 7, 8MsgBox yf & "月份是冬季"Case 9, 10, 11MsgBox yf & "月份是冬季"Case ElseMsgBox "输入错误，请重新输入"End SelectEnd Sub12.if的方法Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))If x < 0 Thenf = 2 * x - 1ElseIf x = 0 Thenf = 4 * xElseIf x > 0 Thenf = 7 * x - 5End IfPrint "f(" & x & ")=" & fEnd SubSelect case语句：Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))Select Case xCase Is < 0f = 2 * x - 1Case 0f = 4 * xCase Is > 0f = 7 * x - 5End SelectPrint "f(" & x & ")=" & fEnd Sub第五章数组一、选择题DCACD DBCDC BADAD二、填空题1.名称Index2.preserve3.变体4.235.1 2 3 1 4 16.1 2 3 2 4 67. max max=arr1(i)三、编程题1.Option Base 1Private Sub Form_Click()Dim a(10) As Integer, i%, temp%For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个整数")) Next iPrint "原来各元素的值为："For i = 1 To 10Print a(i);Next iFor i = 1 To 5temp = a(11 - i)a(11 - i) = a(i)a(i) = tempNext iPrintPrint "交换后各元素的值为："For i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a As Variant, b As Variant, c As Variant, i%a = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)ReDim c(8)For i = 1 To UBound(a)c(i) = a(i) + b(i)Next iFor i = 1 To UBound(c)Print c(i);Next iEnd Sub3.Option Base 1Private Sub Form_Click()Dim a() As Variant, i%, j%, n%, m%, max%, hh%, lh%n = Val(InputBox("请输入一个整数:"))m = Val(InputBox("请输入一个整数:"))ReDim a(n, m)For i = 1 To n - 1For j = 1 To m - 1a(i, j) = Int(Rnd * 101 + 50)If max < a(i, j) Then max = a(i, j): hh = i: lh = jNext jNext iPrint "最大值为:"; max; "所在的行号为："; hh; "所在的列号为:"; lh End Sub4.Option Base 1Private Sub Form_click()Dim a(50) As Integer, b(9) As Integer, i%, j% For i = 1 To 50a(i) = Int(Rnd * 90 + 10)j = Int(a(i) / 10)b(j) = b(j) + 1Next iFor j = 1 To 9Print b(j);Next jEnd Sub5.Option Base 1Private Sub Command1_Click(Index As Integer) Select Case IndexCase 0Text3 = Val(Text1) + Val(Text2)Case 1Text3 = Val(Text1) - Val(Text2)Case 2Text3 = Val(Text1) * Val(Text2)Case 3Text3 = Val(Text1) / Val(Text2)End SelectEnd Sub6.Private Sub Form_click()Dim s!, i&, j&i = 3s = 1j = 0Doj = j + 1s = s + (-1) ^ j / ii = i + 2Loop While 1 / i > 10 ^ (-6)Print 4 * sEnd Sub7.Option Base 1Private Sub Form_click()Dim a(40) As Long, i As Integera(1) = 1a(2) = 1For i = 3 To 39a(i) = a(i - 1) + a(i - 2)Next iFor i = 1 To 40Print a(i);Next iEnd Sub8.冒泡法：Option Base 1Private Sub Form_click()Dim a(10) As Single, ok As Boolean, i%, j%, x!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 10 To 2 Step -1ok = TrueFor j = 1 To i - 1If a(j) > a(j + 1) Thenx = a(j)a(j) = a(j + 1)a(j + 1) = xok = FalseEnd IfNext jIf ok Then Exit ForNext iPrintPrint "冒泡排序的结果为："For i = 1 To 10Print a(i);Next iEnd Sub选择法：Option Base 1Private Sub Form_click()Dim a(10) As Single, p!, i%, j%, min!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 1 To 9p = iFor j = i + 1 To 10If a(j) < a(p) Then p = jNext jIf p <> i Thenmin = a(i)a(i) = a(p)a(p) = minEnd IfNext iPrintPrint "排序后的结果为："For i = 1 To 10Print a(i);Next iEnd Sub第六章过程一、选择题CDBAB DBCCC ABCBD CDB二、填空题1.sub function2.形式实际3.内存的同一地址4.myf(a%,b() as integer ) as Boolean5.值传递地址传递6.lbound ubound7.局部8.通用任何过程9.2 5 9 10.2411.2 12.30 7013.-1三、编程题1. Option Base 1Private Sub Form_Click()Dim m1%, m2%, b() As IntegerFor i = 3 To 7 Step 2ReDim b(i)For j = 1 To ib(j) = Int(Rnd * 90 + 10)Print b(j);Next jm1 = b(1)m2 = b(1)Call mm(m1, m2, b())PrintPrint "最大值为:"; m1Print "最小值为:"; m2Next iEnd SubPublic Sub mm(max%, min%, a() As Integer) Dim i%For i = LBound(a) To UBound(a)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iEnd Sub2.sub过程：Public Sub jc(n%, s&)Dim i%s = 1For i = 1 To ns = s * iNext iEnd SubPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:")) Call jc(a, s1)s = s1 + sCall jc(b, s1)s = s1 + sCall jc(c, s1)s = s1 + sPrint a & "!+" & b & "!+" & c & "!=" & s End SubFunction过程：Public Function jc(n%) As LongDim i%, s%s = 1For i = 1 To ns = s * iNext ijc = sEnd FunctionPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:"))s1 = jc(a) + jc(b) + jc(c)Print a & "!+" & b & "!+" & c & "!=" & s1 End Sub3.Public Sub jo(n As Integer)If n Mod 2 = 0 ThenPrint "false"ElsePrint "true"End IfEnd Sub4.Private Sub Form_click()Dim b(1 To 100) As Integer, i%For i = 1 To 100b(i) = Int(Rnd * 100 + 1)Next iCall sort(b())For i = 1 To 100If i Mod 10 = 0 Then PrintPrint b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, ok As Boolean, k As Integern = UBound(a)For i = 1 To n - 1ok = TrueFor j = 1 To n - iIf a(j) > a(j + 1) Thenk = a(j): a(j) = a(j + 1): a(j + 1) = k: ok = False End IfNext jIf ok Then Exit ForNext iEnd Sub5.Private Sub Form_click()Dim b(1 To 10) As Integer, i%For i = 1 To 10b(i) = Val(InputBox("请输入第" & i & "个整数")) Next iCall sort(b())Print "排序后的结果"For i = 1 To 10Print b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, p%, k As Integern = UBound(a)For i = 1 To n - 1p = iFor j = i + 1 To nIf a(j) < a(p) Then p = jNext jIf p <> i ThenMin = a(i)a(i) = a(p)a(p) = MinEnd IfNext iEnd Sub6.Public Sub gys(m%, n%)Dim r%, t%If m <> 0 And n <> 0 ThenIf m < n Thent = m: m = n: n = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopEnd IfEnd Sub7.Public Sub ws(n%, s%)Dim k%, i%For i = 1 To n - 1If n Mod i = 0 Then s = s + iNext iEnd SubPrivate Sub Form_click()Dim m%, sum%, c$For m = 1 To 999sum = 0Call ws(m, sum)If sum = m Then c = c & sum & " " Next mMsgBox cEnd Sub8.Public Function ef(a(), k%, wz%) As Integer Dim i%, low%, mid%, top%low = LBound(a)top = UBound(a)Do While low <= topmid = (low + top) / 2If k > a(mid) Thenlow = mid + 1ElseIf k = a(mid) Thenwz = midExit FunctionElsetop = mid - 1End IfLoopwz = -1End Function9.Function MaxGY(x As Integer, y As Integer) Dim Temp As IntegerTemp = x Mod yIf Temp = 0 ThenMaxGY = yElseMaxGY = MaxGY(y, Temp)End IfEnd FunctionPrivate Sub Form_click()Dim m%, n%m = Val(InputBox("请输入第一个整数："))n = Val(InputBox("请输入第二个整数：")) Print "最大公约数是:"; MaxGY(m, n)End Sub10. Function Ss(n%)If n = 1 ThenSs = 10ElseSs = Ss(n - 1) + 2End IfEnd FunctionPrivate Sub Form_click()Dim r%, x%r = 5x = Ss(5)Print "第5个小孩的岁数为:"; xEnd Sub第七章应用程序界面设计一、选择题BCDCA CDBBD CADAA CADBD DAAAB CAA二、填空题1.form1.show unload form12.form2.show form1.hide3.属性方法事件4、工程属性工程属性5．子窗体主窗体6、keypress list(i) additem7.0 list1.listindex list1.listcount-18、1000 true time() 9、AA10、下拉式组合框、简单组合框和下拉式列表框第八章VB图形操作一、选择题DCCDA CDAAA BABBC CAAA二、填空题1、不会也不会 2.、Scaleheight Scalewidth3、(300,-150)4、右上5、twip6、0~157、B 8、-2π~09、逆10、drawwidth11、右上12、move13、cls 14、坐标原点、坐标度量单位、坐标轴的长度与方向15、VB程序设计vbprogramming三、编程题1、Private Sub Command1_Click()Const pi = 3.14159P1.Circle (Val(Text1), Val(Text2)), Val(Text3)End SubPrivate Sub Command2_Click()P1.ClsText1 = ""Text2 = ""Text3 = ""End Sub2、Private Sub Form_Load()Pic1.Picture = LoadPicture("F:\VB程序设计\上课课件\tea.jpg")End SubPrivate Sub Pic1_Click()Pic2.Picture = Pic1.PicturePic1.Picture = LoadPicture("")End Sub3、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) a1 = Xb1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (a1, b1), Sqr((a1 - X) ^ 2 + (b1 - Y) ^ 2)End Sub4、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Thena1 = Xb1 = YEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenLine (a1, b1)-(X, Y), vbGreen, BFEnd IfEnd Sub5、Private Sub Form_Click()Scale (-200, 200)-(200, -200)Dim i!For i = 0 To 140 Step 20Line (-i - 10, i + 10)-(i + 10, -i - 10), , BNext iEnd Sub第9章vb文件操作一、选择题BDDCC BBAAB二、填空题1、驱动器列表框、目录列表框和文件列表框2、change 3\file1.path=dir1.path4、name “D:\old.doc” as “c:\new.doc”5、dir1.path=drive1.drive file1.path=dir1.path6、filecopy “d:\text.doc”,”e:\text.doc”7、eof 8、input not eof(1)9、for inputFor outputnot eof(1)str1Close #110、pattern 11、空12、字节。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第一章环境和程序设计初步一.选择题1.在Visual 的集成开发的环境中，下面不属于该环境编程语言的是（C）。
A.VBB.C++C. PascalD. J#2.在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（D）。
A.工具箱窗口B.属性窗口C.立即窗口D.窗体窗口3.在中，在窗体上显示控件的文本，用（ A ）属性设置。
A. TextB. NameC. CaptionD. Image4.不论何种控件，共同具有的是什么属性( D )。
A. TextB. Name C．ForeColor D．Text5．对于窗体，可改变窗体的边框性质的属性是（B）。
A.MaxButtonB. FormBorderStyleC. NameD. Left6.若要使标签控件显示时不要覆盖窗体的背景图案，要对（A）属性进行设置。
A．BackColor B. BorderStyle C．ForeColor D.BackStyle7．若要使命令按钮不可操作，要对（A）属性进行设置。
A. EnabledB.VisibleC. BackColorD. Text8.要使文本框中的文字不能被修改，应对（D）属性进行设置。
A. LockedB. VisibleC. EnabledD. ReadOnly9.要使当前Form1 窗体的标题栏显示“欢迎使用”，以下（B）语句是正确的。
A.Form1.Text=“欢迎使用V”B.Me. Text=“欢迎使用”=“欢迎使用”D.Me. Name=“欢迎使用”10.当运行程序时，系统自动执行启动窗体的（A）事件过程。
A. LoadB. ClickC. UnLoadD. GotFocus11.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（B）。
A.文本框没有内容B.文本框的MulitLine属性为FalseC.文本框的MulitLine属性为TrueD.文本框的Locked属性True12．要判断在文本框中是否按了Enter键，应在文本框的（D）事件中判断。
A. ChangeB. KeyDownC. ClickD. KeyPress13.在VB.NE集成环境中创建应用程序时，除了工具箱窗口、窗体窗口和属性窗口外，必不可少的窗口是（C）。
A．窗体布局窗口B．立即窗口C．代码窗口D．监视窗口14．当创建一个项目名为“引例”的项目时，该项目的所有代码文件将保存在（C）文件夹下。
A．My Documents B． C．\引例 D．Windows15．将调试通过后生成的.exe 可执行文件放到其他机器上不能运行的主要原因是（A）。
A .运行的机器上面无系统B .缺少. frm 窗体文件C. 该可执行文件有病毒D. 以上原因都不对16.对初学者而言,调试程序方便,有效的手段是 ( A)。
A. 在可疑的代码处设置断点，逐语句跟踪B. 查看资料C. 通过”立即”窗口显示变量的值D. 找老师问原因17. 当需要上下文帮助时,选择要帮助的“难题”,然后按住( D )键,就可出现MSDN 窗口及显示所需“难题”的帮助信息。
A .HelpB .F10C .Esc D. F118. 在代码窗口,代码下方有蓝色波浪线表示( B) 。
A .对代码设置了格式B. 编译错误C. 逻辑错误D. 运行时错误二.填空题 是完全面向对象的程序设计语言，其最大的特点是____________。
引入了.net框架2.____________技术能让编程人员不必编写代码就可以创建GUI（图形用户界面）。
可视化编程技术3.__________________ 是由一个或几个项目组成程序。
解决方案4.当___________特性设置后，浮动窗口将自动隐藏。
自动隐藏5.当进入集成环境，发现没有显示“工具箱”窗口，应选择____________菜单的____________选项，使“工具箱”窗口显示，并最好将其窗口的属性设置为___________。
视图、工具箱、可停靠6.新建项目时，要改变默认Option设置，应对__________菜单的__________的___________文件夹进行相应选项的选择。
7．对象属性是指_________。
对象的性质来描述和反应对象特征的参数8．对象的方法是指_______________。
对象的动作行为。
9．在刚建立项目时，使窗体上的所有控件具有相同的字体格式，应对_______的_________属性进行设置。
Form font10．属性窗口的属性可以按照___________和__________顺序排列。
分类顺序、字母顺序11．当对命令按钮的Image属性装入.bmp图形文件后，按钮上并没有显示所需的图形，原因是对__________属性设置为_________。
FlatStyle 、system12．若已建立了Form1，Form2两个窗体，默认启动窗体为Form1。
通过_______菜单的_________的________选项卡，可将启动对象设置为Form2。
项目菜单、属性、常规13．在文本框中，通过__________属性能获得当前插入点所在的位置。
SelectionStart14．要对文本框中已有的内容进行编辑，按下键盘上的按钮，就是不起作用，原因是设置了________的属性为True。
readlony15．在窗体上已建立多个控件，如TextBox1，Label1，Button1，若要使程序一运行焦点就定位在Button1控件上，应对Button1控件设置____tabindex_____属性的值为____0______。
16．要同时保存解决方案中的每个文件，最方便的方法是单击工具栏的____全部保存_____按钮。
第二章 语言基础和顺序结构一.选择题1．在一个语句内写多条语句时，每个语句之间用（B）符号分隔。
A．， B. ： C.、 D. ;2. 一语句要在下一行继续写，用（C）符号作为续行符。
A . +B . - C. _ D . …3. 下面属于合法的变量名的是（ A ）。
A .X_yz B. 123abc C .Integer D.X-Y4.下面属于不合法的整常数的是( D ).A .100 B. &O100 C. &H100 D. %1005.下面属于合法的字符常数的是( B ) 。
Ａ.ABC$ B. “ABC” C. ‘ABC’ D.ABC6. 下面属于合法的单精度型变量的是（A）。
A. mun！B. sum% D. xinte$ D. mm#7.下面属于不合法的双精度常数的是（D）。
Ａ.100# B.100.0 C.1E+2 D.100.0D+28. 表达式16/4-2＾5 * 8/4 Mod 5\2 的值为(B)。
Ａ.１４Ｂ.４Ｃ.２０Ｄ.２９.数学关系表达式３≤x＜10表示成正确的表达式为(B )。
A．3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D.3<=x AND <1010.\、/、Mod、* 四个算术运算符中，优先级别最低的是（C）。
A.\B. /C. ModD.*11.与数学表达式ab/(3cd)对应，的不正确表达式是（）。
~~~~~~~~~~~~~~~A. a*b/(3*c*d)B.a/3*b/c/dC. a*b/3/c/dD. a*b/3*c*d12.Rnd函数不可能为下列（B）值。
A. 0B.1C.0.1234D. 0.000513.Int(198.555*100+0.5)/100的值是（C）。
A. 198B.199.6C.198.56D.20014.已知A$=“12345678”，则表达式Val(Mid(A,1,4)+Mid(A,4,2))的值为（B）。
A.123456B.123445C.8D.615.MsgBox(DateAdd(“m”,2，#1/28/2005#))语句显示结果是（A）。
A. 2005-3-28B.2005-1-30C. 2007-1-28D. 2003-1-2816.表达式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的结果是（C）。
A. 1B. 11C.14D.9917.表达式Len（“123程序设计ABC”）的值是（A）。
A．10 B.14 C.20 D.1718．下面正确的赋值语句是（C）。
A．x+y=30 B .y=∏*r*r; C. y=x+30 D. 3y=x19. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是（A）。
A.x=1:y=1:z=1B.x=1,y=1,z=1C. x=y=z=1D.xyz=120.赋值语句“a=123+MID(“123456”,3,2)”执行后，a变量中的值是（D）。
A. “12334”B.123C.12334D.15721．赋值语句“a=123 & MID(“123456”,3,2)”执行后，a变量中的值是（A）。
A. “12334”B.123C.12334D.15722.已知a=12，b=20，复合赋值语句“a*=b+10”执行后，a变量中的值是（D）。
A.50B.250C.30D.360二.填空题1．在中，1234，123456&，1.2346E+1.2346D四个常数分别表示_________，_______，________，__________类型。
2．整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现表达式是_________。
3．表示x是5的倍数或是9的倍数的逻辑表达式为_________。
4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式a>=0 AND a+c>b+3 OR NOT d的值是_______。
5．Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(3.5)的值分别是____、____、___、___、___、___。
6．表达式UCase（Mid（“abcdefgh”，3，4））的值是_________。
7．在直角坐标系中，x、y是坐标系中任意点的位置，用x和y表示在第一象限或第三象限的表达是__________。
10. 要显示当前机器内日期，函数为_________。
11. 计算离你毕业（假定2008年6月30日毕业）还有多少个星期的函数表达式是__________。
12. 表示s字符变量是字母字符（大小写字母不区分）的逻辑表达式为___________。
13.下面程序随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。