VB语言程序设计第一章到第四章的测验题

合集下载

计算机专业VB第1单元测试题

《VB程序设计》第一单元测试题一、填空题（每空1分，共10分）1、表达式Ucase(mid(“abcdefgh”,3,4)的值是___________。

2、表达式”1234”< >”1235”&”Abc”的值是 ___________。

3、在属性窗口中，属性的显示方式有两种：按________顺序和按________顺序。

4、一个工程可以包括多种类型的文件，扩展名为.vbp的文件表示__________文件；扩展名为.frm的文件表示__________文件；扩展名为.bas的文件表示__________文件。

5、语句“Print sgn(-2)“的运行结果是_______。

6、卸载对象语句的关键字是___________。

7、如果要改变窗体的标题设置的属性是______________。

二、选择题（每题2分，共40分）1、用于将屏幕上的对象分组的是______。

A. 列表框B. 标签C. 文本框D. 框架2、A=135：B=246C=LEN(str(A)+str(B))PRINT C运行时输出的结果为________。

A.3B. 4C. 6D.83、要将A、B 两个变量的值互换，正确的写法是______。

A. A=B : B=AB. B=A : A=BC. C=A: A=B : B=CD. A=C : C=B: B=A4、下面合法的变量名是_______。

A. VB123B.ABSC.99JID.X\Y5、关于语句行下列说法正确的是________。

A. 长度不能超过255个字符B. 一行只能写一个语句C. 一个语句可以分多行书写D. 每行的首字母必须大写6、计算结果为0的表达式是________。

A．Int（3.4）+Int（-3.8） B. Int（3.4）+fix（-3.8）C．Int（3.4）+fix（-2.8） D. fix（3.4）+Int（-3.8）7、表达式6+10 mod 4*2+1的值是____。

VB1-4章_习题答案(课本习题)

习题一一、选择题1．C 2.C 3.A 4.C 5.C 6.C 7.B二、填空题1.学习版、专业版、企业版2.窗体界面3.Alt+F4三、简答题1．简述Visual Basic语言的特点。

Visual Basic是Windows操作平台下的可视化编程语言，它继承和发展了BASIC语言的基本功能，具有简单易学、功能强大等特点。

Visual Basic提供了可视化设计工具，以图形用户界面（GUI）为PC机用户提供了一个直观的工作环境。

支持面向对象的程序设计（OOP），采用事件驱动方式，提供对象的链接与嵌入（OLE）和访问数据库等功能。

2. Visual Basic 6.0的集成开发环境由哪些部分组成，各部分的主要功能是什么？1. 标题栏：用来显示打开的工程名称和系统的工作状态。

2. 菜单栏：菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。

这是一组下拉式菜单，提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。

3. 工具栏： Visual Basic 6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。

工具栏上形象直观的排列着一些最常用的命令按钮，对应特定的常用操作命令。

4. 控件箱：控件箱提供了一组控件。

设计界面时，用户可以用鼠标双击控件箱中的控件，在窗体中画出该控件，或用鼠标单击控件箱中的控件，然后在窗体中拖动鼠标画出所需的控件。

5. 窗体设计器：窗体设计器是应用程序最终面向用户的窗口。

各种控件、图形、数据以及程序的运行结果都在窗体设计器窗体中显示出来。

6. 工程资源管理器：在工程资源管理器窗口中（图1-2），列出了应用程序的工程以及工程中的窗体和模块。

7. 属性窗口：属性窗口主要用来设置Visual Basic窗体及各控件的属性特征，属性窗口的主体部分分为左右两列，左边是控件的属性名列表，右边是控件的属性值列表。

中职计算机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一至四章节测试题

Visual Basic (第1章——第4章)测试题目一、单项选择题(共60小题，每小题1分答案必须写在试卷最后的答题卡上，写在试卷对应的题目中没有分)(1)如果在程序中要将a定义为静态变量，且为整型数，则应使用的语句是( )。

A)Redim a As Integer B)Static a As IntegerC)Public a As Integer D)Dim a As Integer(2)声明一个变量为局部变量应该用( )。

A)Global B)Private C)Static D)Public(3)下面有关注释语句的格式，错误的是( )。

A)Rem注释内容 B)′注释内容 C)a=3:b=2 ′对a、b赋值D)Private Sub Command1_MouseDown(button As Integer, shift As Integer, _Rem鼠标按下事件的命令调用过程X As Single ,Y As Single)(4)下列语句正确的是( )。

A)If A≠B Then Print "A不等于B" B)If A<>B Then Printf "A不等于B"C)If A<>B Then Print "A不等于B" D)If A≠B Print "A不等于B"(5)不能脱离控件(包括窗体)而独立存在的过程是( )。

A)事件过程B)通用过程C)Sub过程D)函数过程(6)激活菜单栏的快捷键是( )。

A)F10 B)F4 C)F5 D)Ctrl(7)Visual Basic集成的主窗口中不包括( )。

A)属性窗口 B)标题栏 C)菜单栏 D)工具栏(8)下列说法错误的是( )。

A)方法是对象的一部分 B)方法的调用格式和对象属性的使用格式相同C)方法是一种特殊的过程和函数 D)在调用方法时，对象名是不可缺少的(9)建立一个新的标准模块，应该选择哪个菜单下的"添加模块"命令？( )。

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各章习题

第一章Visual Basic程序设计概述一、选择题1.Visual Basic是一种面向对象的可视化程序设计语言，采用了___A___的编程机制。

（A）事件驱动（B）按过程顺序执行（C）从主程序开始执行（D）按模块顺序执行2.在Visual Basic中最基本的对象是___C_____，它是采用程序的基石，是其它程序的容器。

（A）文本框（B）命令按钮（C）窗体（D）标签3.多窗体程序是由多个窗体组成。

在缺省情况下，VB在应用程序执行时，总是把____D____指定为启动窗体。

（A）不包含任何控件的窗体（B）设计时的第一个窗体（C）包含控件最多的（D）命名为Form1的窗体4.有程序代码如下：Text1.Text = ＂Visual Basic＂则：Text1,Text和＂Visual Basic＂分别代表_____C___。

（A）对象，值，属性（B）对象，方法，属性（C）对象，属性，值（D）属性，对象，值5.Visual Basic是一种面向对象的程序设计语言，_____A___不是面向对象系统所包含的三要素。

（A）变量（B）事件（C）属性（D）方法6.Visual Basic的一个应用程序至少包含一个____B____文件，该文件存储窗体上使用的所有控件对象和有关的________、对象相应的________过程和________代码。

（A）模块、方法、事件、程序（B）窗体、属性、事件、程序（C）窗体、程序、属性、事件（D）窗体、属性、事件、模块7.以下不属于Visual Basic的工作模式是_____A___模式。

（A）编译（B）设计（C）运行（D）中断8.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是___C_____。

（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口9.保存新建的工程时，默认的路径是___B_____。

（A）My Documents （B）VB98 （C）\ （D）Windows10.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是________。

VB第一至四章自测题及答案

第1章自测题及其参考答案1．1 程序设计语言与程序设计自测题一．填空题（共50分，每空5分）1．VB是以（）作为运行机制的新一代可视化程序设计语言。

2．程序设计语言（）与（）交流的工具。

3．若从机器执行的角度来对程序设计语言进行分类，则可以分为（）和（）两种。

4．计算机系统中，对高级语言的翻译工具称为（）程序或（）程序。

5．源程序中的错误一般分为（）错误、（）错误和（）等三种错误。

二．单项选择题（共１０分，每题５分）1．下列选项中不属于数据处理功能的是（）。

a) 数据输入输出b) 存储数据c) 描述数据d) 对数据进行维护2．把a和b的乘积写成ab的错误属于（）错误。

a) 编译b) 运行c) 逻辑 d) 编译和运行三．问答题（共4０分）1．低级语言和高级语言的特点是什么？（１0分）2．什么是数据描述和数据处理？（１０分）3．源程序的翻译方式有哪两种，简述它们的工作过程。

（１0分）4．我们编写的程序力求做到什么？（１０分）参考答案一．填空题1. 事件驱动2. 人、计算机3. 低级语言、高级语言4. 编译、解释5. 编译、运行、逻辑二．单项选择题1. c2. a三．问答题1. 答：低级语言包括机器语言和汇编语言。

它们都包含一些指令。

机器语言指令是由０和１构成，它能直接被机器识别和执行。

汇编语言是由一些特定的助记符代表指令，用汇编语言编写的程序只需要经过简单的翻译就可以被机器执行。

低级语言的特点是程序执行的速度快，运行效率高，但难学、难记、难阅读，程序设计难度大，非专业人员难以涉足。

而高级语言是由人们易于接受的、接近于人类自然语言的指令构成。

它易学，便于记忆，程序设计的速度快。

2. 答：数据描述是指把需要处理的信息描述成计算机可以接受的数据形式。

例如，把信息描述为数值、文字、图形和声音等。

数据处理是指对数据进行输入输出，对输入到计算机内的数据进行某种处理或计算，对输入的数据或计算处理结果进行存储和维护等。

VB程序设计习题及答案第4章选择结构程序设计

第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。

【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。

【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。

(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。

【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。

【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。

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语言程序设计》习题答案

《VB语言程序设计》习题参考答案第1章习题一、单选题1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B二、多选题1．ACDE 2．BCDE 3．CD 4. CE三、填空题1．事件驱动 2．解释，编译 3．设计，运行，中断4. 属性，方法，事件5. Command2_Click6. 中央，代码7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计"编程及上机调试1. 按要求设置窗体属性2．在窗体上建立一个标签Label1。

程序代码如下：Private Sub Form_Click()Label1.Caption = "你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption = "你双击了窗体"End Sub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。

两个文本框的Text属性均为空。

Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)Text2.Text = 15 * xEnd Sub第2章习题一、单选题1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B二、多选题1．BD 2．CD 3．AC 4. AD三、填空题1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)(3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))2．Int(50+6*Rnd)3．(1)138 (2)3 (3)214 (4) "inchina" (5)70 (6) "45"(7)04. "系统管理数据库"编程及上机调试1～3题：按要求完成操作练习。

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、字节。

《VB程序设计》综合复习资料习题

《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向___对象_______的可视化程序设计语言，采取了____事件驱动______的编程机制。

2、在VB中工程文件的扩展名是___vbp_________，窗体文件的扩展名是_____frm_______，标准模块文件的扩展名是_____bas_______。

3、执行“工程”菜单下的____部件______命令，可选择并添加ActiveX控件。

控件。

4、Visual Basic 6.0用于开发___windows______环境下的应用程序。

环境下的应用程序。

二、选择题1、下面不是VB工作模式的是（C ）A．设计模式．汇编模式 D．中断模式．中断模式．运行模式 C．汇编模式．设计模式 B．运行模式2、可视化编程的最大优点是（C ）A．具有标准工具箱．具有标准工具箱B．一个工程文件由若干个窗体文件组成．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象．不需要编写大量代码来描述图形对象D．所见即所得．所见即所得3、下列不能打开属性窗口的操作是（C ）A．执行“视图”菜单中的“属性窗口”命令．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（D ）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（D ）A．可视化．面向图形 D．事件驱动．事件驱动．面向对象 C．面向图形．可视化 B．面向对象三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用___tabstop___________属性。

VB程序设计(专)练习一至四答案

第一阶段练习题(参考答案) 一、单项选择题二、填空题1．视图2．工具箱3．工具4．选项5．编辑器6．对象的性质，来描述和反映对象特征的参数7．对象的动作、行为8．Form窗体9．Font10．Multilint11．在运行时设计是无效的12．Style13．Style 14．Locked 15．TabIndex 16．017．VB9818．219．定义对象属性20．赋值三、程序填空题1．①Load ②False ③Change ④Text2 + Text12．①(Form1.ScaleHeight - Text1.Height) ②+ vbCrLf +四、编程题1．⑴操作步骤：①启动VB6.0②选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。

③单击工具箱的“标签”标准控件，在窗体上建立一个标签。

同样操作在窗体上建立三个标签、一个文本框和一个命令按钮。

⑵窗体属性的设置如表1所示。

⑶控件属性的设置如表2所示。

控件设置后的界面如图1所示表2控件属性列表图1设计界面⑷代码设计：双击Command1控件，或在“视图”菜单中选择“代码窗口”命令，出现代码窗口，选择Command1控件的Click项，然后Command1_Click( )过程代码如下：Private Sub Command1_Click()Label3 = "欢迎" + Text1 + "同学参加VB学习！"End Sub⑸运行测试：在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态，在文本框内输入自己的姓名后，单击命令按钮，出现图2所示的运行界面。

⑹保存窗体文件和工程文件。

图2运行界面2．（1）操作步骤：①启动VB6.0②选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。

VB习题

第一章 VB基础知识一、单选题1.若属性窗口没有出现在Visual Basic6.0集成开发环境中，可使用（）菜单中的相应命令将其打开。

A. 工程B. 视图C. 调试D. 工具2.英文的“Visual”的含义是（）A. 集成B. 标准C. 可视化D. 调试3.不能打开属性窗口的操作是（）。

A. 单击工具栏的“属性窗口”按钮B. 选取“视图”菜单中的“属性窗口”子菜单项C. 在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”D. 选取“工程”菜单中的“属性窗口”子菜单项4.不能打开代码窗口的操作是（）。

A. 右键单击窗体窗口，在弹出的快捷菜单中选择“查看代码”B. 选择“视图”下拉菜单中的“代码窗口”C. 双击窗体窗口的任何地方D. 按下F4键16. VB应用程序中，扩展名为.vbp的文件是（）。

A. 标准模块文件B. 工程模块文件C. 窗体模块文件D. 类模块文件17. 以下不能在“工程资源管理器”窗口中列出的文件类型是（）。

A. .basB. .vbpC. .frmD. .ocx18. 窗体文件的扩展名是（）。

A．.frm B．.vbp C. .bas D. .frx20. 关于Visual Basic事件的说法中，不正确的为（）。

A．事件是由Visual Basic预先定义好的，能够被对象识别的动作B．DblClick(双击)是Visual Basic中一个事件C．一个对象可以识别一个或多个事件D．一个对象可以识别哪些事件，需要由程序员自己决定21. 在VB6.0中的每一个对象都有自己的属性、方法和（）。

A．控件B．函数C. 事件D.公用过程22. 以下说法错误的是（）。

A. 事件是由Visual Basic预先设置好的、能够被对象识别的动作B. 当对象响应某个事件后，对象所执行的操作将通过一段程序代码来实现，这段程序代码称为事件过程C. 一个对象对应一个事件，一个时间对应一个事件过程D. 事件过程的一般格式为：Private Sub 对象名称_事件名称（）事件响应程序代码End Sub23. 以下说法错误的是（）。

vb各章练习题

第一章选择题1. VB是一种面向对象的可视化程序设计语言,采取了（A ）的编程机制。

（A）事件驱动(B) 按过程顺序执行（C）从主程序开始执行(D) 按模块顺序执行2. 以下不属于VB的工作模式的是（c ）模式。

(A) 运行(B)设计(C) 编译(D)中断3. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（ C ）。

（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口4. 保存新建工程时，默认的路径是（B ）。

（A）My Documents （B）VB98 （C）\ （D）Windows5. 将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是（A ）。

（A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对6. VB6.0集成开发环境可以（D ）。

（A）编辑、调试、运行程序，但不能生成可执行程序（B）编辑、调试、生成可执行程序，但不能运行程序（C）编辑、生成可执行程序、运行程序，但不能调试（D）编辑、调试、运行程序，也能生成可执行程序7. VB6.0集成环境的主窗口中不包含（B ）。

（A）菜单栏（B）状态栏（C）标题栏（D）工具栏8. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C ）。

（A）工程资源管理器窗口（B）工具箱窗口（C）代码窗口（D）属性窗口9. 下面四个选项中，不是VB6.0工具箱的标准控件的是（C ）。

（A）滚动条（B）定时器（C）多媒体（D）框架10. VB6.0的（C ）版本，可供专业编程人员开发功能强大的组内分布式应用程序。

（A）初级版（B）学习版（C）企业版（D）专业版11. 英文缩写“OOP”的含义是（A ）。

（A）面向对象程序设计（B）结构化程序设计语言（C）事件驱动的编程机制（D）可视化程序设计12. 不能打开代码窗口的操作是（B ）。

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）事件中判断。

VB程序设计测试(一)

VB程序设计测试㈠姓名：班级：成绩：一、填空题（每空1分，共30分）1、VB是一种面向对象编程语言，这里所说的对象是指具有属性和方法的实体。

2、在VB中，要设置一个命令按钮为不可用，应该将该命令按钮的Enabled 属性值设置为False。

3、VB的基本数据类型有11种，其中类型符%表示整型，！表示单精度型，$表示字符型。

4、在VB中，函数Int(-3.8)= -4；Fix(-3.8)= -3;Round(-3.8，0)= -4。

5、在VB中，产生一个在区间[31，50]内的随机整数的表达式是Int(20*Rnd)+31。

6、在VB中，字符型数据用“括起来，日期型数据用#括起来。

7、在VB中，语句：Print X;Y,Z 的意思是打印3个表达式的值，其中的“;”表示紧凑打印，“,”表示分区打印。

8、在VB中，表达式19/5的值是 3.8，表达式19\5的值是 3 ，表达式19 Mod 5的值是 4 。

9、在VB中，程序的控制结构有顺序结构、分支结构和循环结构三种。

11、在VB中，执行语句：A=InputBox(“请输入一个数：”) 会产生一个输入对话框，对话框中有两个命令按钮，这两个命令按钮的Caption的值分别是确定和取消。

12、在VB中，执行语句：X=MsgBox(“是否继续？（Y/N）”，4，”提问”)后弹出一个消息对话框，这个对话框有两个命令按钮，命令中的“4”代表系统内部常数VbYesNo，当X的值为6时表示用户选择了对话框中的是（Y）按钮。

13、清除语句的命令字是Cls，隐藏窗体的方法是Hide。

二、判断题（每题1分，共5分）（√）1、在VB中，任何控件都具有Name属性。

（√）2、文本框控件没有Caption属性。

（√）3、在一个窗体中最多只能有一个“默认”按钮，最多只有一个“取消”按钮。

（×）4、129！、129%、129$都表示数学上的整数129。

（×）5、语句Dim a,b,c As Interger的功能是定义了三个整型变量a，b，c。

!VB1-4章习题参考答案.docx

《Visual Basic程序设计基础》教材习题参考答亲第1章VisuaI Basic 6.0程序设计概述判断题1.J2.J3. X4. V5. X6.V7.X8. J9・J10. X11.J 12.J13. X14.15. X16.J17.V18. J19.V20. V选择题l.C 2. B 3.D 4.C 5.B 6. A7.D 8. A 9. B 10. A 11. C 12. D三、填空题1.对象、事水牛2.属性、方法、事件3.控件、屏幕（Screen）4.对象5. Left、Top6.属性、v对象名＞.＜属性名＞=v表达式〉7.网格8. Forml9.Load或Initialize或Resize或Activate （自动执行的先后顺序也按此排列）10.Activate、Deactivate四、程序设计题程序1.界面设计参看图10-1＞ 10・2以及表10-1 o表10-1实例2各控件的主要属性设置控件属性（属性值）属性（属性值）标签控件1Name(Labell)Caption（"我的第一个VB程序”）标签控件2Name(Label2)Caption（”请输入你的姓名”）FontUnderLine(True)Fontltalic(True)命令按钮1Namc(Command 1)CaptionC'确定(&O)”)命令按钮2Name(Command2)Caption(”结束(&X)”)过程设计如下：Private sub Form_Click()Command2.Enabled = FalseEen SubPrivate Sub Commandl_Click()Label2.Visible = FalseLmb ell. Caption = Text 1. Text + n :欢迎使用” + Lab ell. Caption Text1.Visible = FalseCommandl.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()End End Sub程序3.界面设计略，过程设计如下(窗体Height 值的计量包括标题、边框，而ScaleHeight 值仅与窗体有效绘图区域的高度有关)：Private Sub Form_Load()Textl.Text = "Visual Basic 程序设计” End SubPrivate Sub Form_Resize() Textl.Top = 0: Textl-Left = 0Textl.Width = Forml. ScaleWidth/2 '用 Forml .ScaleWidth 效果优于用Forml ・ Width Textl ・ Height = Forml ・ ScaleHeight/2 1 用 Forml. ScaleHeight 优于用 Forml ・ Height Commandl•Top = Forml•ScaleHeight 一 Commandl•HeightCommandl.Left = Forml.Scalewidth 一 Commandl.Width End Sub程序2.界面设计略，过程设计如卞： PrivateSub Commandl_Click()Forml.FontSize = Forml.FontSize Forml .Cis: Print ”欢迎使用 VB” End SubPrivate Sub Command2_Click() Forml.FontSize = Forml.FontSize Forml .Cis : Print ”欢迎使用 VB” End SubPrivate Sub Command3_Click() Forml.FontBold = TrueForml .Cis: Print ”欢迎使用 VB“ End SubPrivate Sub Command4_Click() Forml.FontBold = FalseForml .Cis: Print ”欢迎彳吏用 VB” End Sub 运行时，不得连续、适时错误。

VB第1-4章练习题及答案

3. Visual Basic的窗体设计器主要是用来___________。
（A）建立用户界面（B）添加图形、图像、数据等控件
（C）编写程序源代码（D）设计窗体的布局
参考答案为A。
4. Visual Basic是一种结构化高级程序设计语言，它采用的是_________驱动方式。
（A）键盘（B）鼠标（C）事件（D）函数
参考答案为B。
7.表达式3^2*2+3 MOD 10\4的值是_________。
（A）18（B）1（C）19（D）0
参考答案为C。
8.下面的变量名合法的是_________。
（A）k_name（B）k ame（C）name（D）k-name
参考答案为A。
9.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是_________。
8.窗体布局窗口：窗体布局窗口用于观察应用程序中各窗体在屏幕上的位置。可以在窗体布局窗口用鼠标拖动窗体小图像的方法来改变窗体布局。
3.什么是对象的属性、事件和方法。
参考答案：
属性是一个对象的数据，用来表示对象的状态。属性具有属性值，改变对象的属性值就可以改变对象的状态。对象常见的属性有标题（Caption）、名称（Name）、颜色（Color）、字体大小（Fontsize）、是否可见（Visible）等。
参考答案为C。
5. Visual Basic程序设计语言属于_________。
（A）面向过程的语言（B）机器语言
（C）面向对象的语言（D）汇编语言
参考答案为C。
6. Visual Basic一共有设计、运行和中断三种模式，要使用调试工具应该_________。
（A）进入设计模式（B）进入运行模式

延边大学 VB 1-4 章练习题

1、下面所列中，合法的变量名是【】A、x_yzB、integerC、X+YD、123abc2、下面所列符号中，【】不是数据类型说明符。

A、!B、%C、?D、#3、按变量名的定义规则，下面所列中，【】是错误定义的变量名。

A、StudentB、Mark 2C、IntegerD、Max4、下面所列中【】是合法的字符常数。

A、ABCB、’ABC’C、”ABC”D、ABC$5、下面所列中，【】是不合法的单精度常数。

A、100!B、100C、1 E+2D、100. OD+26、下列所列符号中【】是VB中的合法变量名。

A、7ABB、AB7C、IFD、A[B]7了、在VB中，对于已经声明但没有赋值的布尔型变量，系统的默认值是【】。

A、1B、0C、FalseD、True8、下列所列中，【】是合法的变量名。

A、x%yB、orC、2xD、xy%9、下面所列的4个VB逻辑表达式中.语法正确的是【】A、x > y And < >B、x > y ~ zC、x >y And y > zD、x > y .And. x<>z10、下列所列中，【】是日期型常量。

A、#2/1/02#B、1C、2/1/02D、”2/1/02”11、表达式Len ("VB程序设计ABC")的值是【】A、14B、20C、10D、912、判断整型变量x是奇数的表达式是【】A、x Mod 2!=0B、x Mod 2 =0C、x Mod 3=0D、x Mod 2<>013、下列逻辑表达式中，值为丁rue的是【】A、”a”>”AT”B、”A”<”9”C、”A”>”a”D、”AT”<”AND”14, a+b小于10且a-b大于1的逻辑表达式是【】。

A、(a-b> l)To (a+b<10)B、a+b<10_And_ a-b>1C、a+b<10 And a-b>1D、a+b<10 Or a-b>115、表达式10\8 Mod 9的值是【】A、2B、1C、9D、016、表达式I nt (8*sqr (36) *10^(-2) *10+0. 5) /10的值是【】A、0.48B、0.048C、0.05D、0.517.数学表达式3<=X<10在VB中的逻辑表达式为【】。