vb第三章书上课后练习答案
VB课后练习答案.doc
VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章（P39）选择题答案：填空题答案：1.Cmdl, Click2.Text 1.Text二"Hello"P64第三章课后练习答案一、选择题二、填空题1.(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.a<>0 And b*2-4*a*c>=0 3.X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意：返回的均是字符型。
第四章课后答案：P79一、选择题答案为：$$41.50010二、填空题三、程序设计题（提示）1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h （兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。
2、 利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。
3、 厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式：. a + b + cn 二 ---------2 S 三角形面积=Jh （h - - b ）（h - c ）P97第五章课后练习答案:第9题| D一、选择题答案D 改为:30二、填空题第］题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题笫3题笫4题Private Sub Command l_Click()X=Val(Textl.Text)Select Case XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件：假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。
vb课后思考题答案
第三章思考题答案及相关内容 1．Visual Basic 提供了哪些标准数据类型?声明类型时，其类型关键字分别是什么?其类型符又是什么? 表 1.3.1 Visual Basic 的数据类型 数据类型 字节型 逻辑型 整型 长整型 单精度型 关键字 Byte Boolean Integer Long Single 类型符 无 无 ％ & ! 前缀 byt bin int lng sng 占字节数 1 2 2 4 4 0～255 True 与 False -32768 到 32767 -2，147，483，648～2，147，483，647 负数：-3.402823E38～-1.401298E-45 正数： 1.401298E-45～3.402823E38 双精度型 Double # dbl 8 负数：-1.79769313486232D308～ -4.94065645841247D-324 正数：4.94065645841247D-324～ 1.79769313486232D308 货币型 Currency @ cur 8 -922，337，203，685，477.5808～922，337， 203，685，477.5807 日期型 字符型 对象型 变体型 Date(time) String Object Variant 无 $ 无 无 dtm str obj vnt 8 字符串长有关 4 根据需要分配 01，01,100～12，31，9999 0～65535 个字符 任何对象引用 范 围2．哪种数据类型需要的内存容量最少，且可存储诸如 3.2345 这样的值? 答：单精度数据类型。
3．在 Form1 窗体通用声明部分声明的变量，可否在 Form2 窗体中的过程被访问? 4．为了使某变量在所有的窗体中都能使用，应在何处声明该变量? 5．在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量?有没有联系? 表 1.3.22 作用范围 不同作用范围的 2 种过程定义及调用规则 模 窗体 过程名前加 Private 例：Private Sub Mysubl(形参表) 能 能 块 级 标准模块 窗体 过程名前加 Public 或缺省 例：[Public] Sub My2(形参表) 能 能，但必须在过程 不能 不能 Call 窗 体 能 能，但过程名必须唯一， 例 :Call 标 准 模 块 全 局 级 标准模块定义方式 能否被本模块 其他过程调用 能否被本应用 程序其他模块 调用名前加窗体名， 例： 否 则 要 加 标 准 模 块 名 ， 名.My2(实参表) 名.My2(实参表)局部变量：指在过程内用 dim 语句声明的变量(或不加声明直接使用的变量)，只能在本过程中使用的变量，别的过程不可访问。
大学VB课后习题参考答案
习题1一.单项选择题（要求在四个备选答案中选出一个正确答案）1．Visual Basic是一种（ D ）的可视化程序设计语言。
A．面向机器 B．面向过程 C．面向问题 D．面向对象2.在VB中，下面被称为对象的是（ C ）A. 窗体B.控件C. 窗体和控件D. 窗体、控件、属性3．以下说法正确的是（ A ）A.对象的可见性可设为1或0B.标题的属性值可设为任何文本C.如果属性的值不设置，默认为空D.属性窗口中属性只能按字母顺序排列4．为了在属性窗口中设置窗体的属性，预先要执行的操作是（ A ）。
A．单击窗体上没有控件对象的地方 B．单击任一个控件对象C．双击任一个控件对象 D．双击窗体上没有控件对象的地方5．要设置窗体上各控件的属性，可在（ C ）中进行。
A．窗体布局窗口 B．工程资源管理器窗口C．属性窗口 D．窗体窗口6．在代码窗口中，当从对象框中选定了某一对象后，在（ A ）中会列出适用该对象的事件。
A．过程框 B．属性窗口 C．工具箱 D．工具栏7．创建一个简单的应用程序，该程序只有一个窗体，则该工程至少有（ B ）个文件需要保存。
A．1 B．2 C．3 D．48．程序运行中用鼠标双击当前窗体时，会触发窗体的（ C ）事件。
A．Load B．Unload C．DblClick D．KeyPress9．在Visual Basic 6.0集成开发环境中，可以（ D ）。
A．编辑、调试、运行程序，但不能生成可执行程序B．编辑、运行程序，生成可执行程序，但不能调试程序C．编辑、调试程序，生成可执行程序，但不能运行程序D．编辑、调试、运行程序，并能生成可执行程序10．以下叙述正确的是（ C ）。
A．用属性窗口只能设置窗体的属性B．用属性窗口只能设置工具箱中标准控件的属性C．用属性窗口可以设置窗体和控件的属性D．用属性窗口可以设置任何对象的属性11.在VB程序运行期间，若改变窗体大小，则自动触发的窗体事件是（ B ）A. ClickB. ResizeC. LoadD. Unload12.以下为窗体文件扩展名的是（ C ）A. .basB. .clsC. .frmD. .ers13.能确定控件尺寸的是（ A ）A.Width和HeightB.Top和LeftC. Width或HeightD.Top或Left二. 多项选择题（要求在五个备选答案中选出多个正确答案）1．下列论述中，正确的是（ ACDE ）。
vb教科书答案(中国农业出版社)
二、教科书中的练习题参考答案习题三，参考答案一、VB定义了哪几种数据类型？各自有什么特点？变量有哪几种类型？常量有哪几种类型？答：在Visual Basic中，数据类型分为三大类：基本数据类型、用户自定义数据类型、枚举类型。
基本数据类型是系统定义的一些类型，用户自定义数据类型和枚举类型时用户根据实际情况可以自己定义的类型，并且类型中可以混合基本数据类型。
变量有整型、长整型、单精度浮点型、双精度浮点型、货币型、字节型、字符串型、布尔型、日期型、对象型、变体型数据，还可以使用户自定义类型和枚举类型。
常量有整型、长整型、单精度浮点型、双精度浮点型、货币型、字符串型、布尔型、日期型。
二、说明下列哪些是Visual Basic合法的直接常量，并分别指出它们的类型。
100.0 %100 123D3 0100 “ASDF””1234.5” #2006/6/1# 100# &H123 True答：合法的直接常量有：100.0、123D3、0100、“ASDF”、”1234.5”、 #2006/6/1#、100#、&H123、True、其中整型数据有：0100、&H123单精度数据有： 100.0双精度数据有：123D3、100#字符型数据有：“ASDF”、”1234.5”日期型数据有：#2006/6/1#布尔型数据有：True三、下列数据哪些是变量，哪些是常量？是什么类型的常量？Name ”name” False ff ”11/16/99”答：变量有：Name、ff、常量有：”name”、 False、”11/16/99”其中”name”、”11/16/99”是字符串型，False是布尔型四、下列符号中，哪些可以是Visual Basic的合法变量名？Sum33 x45_0 450_x Single XYZ False 答：上面合法的变量名有：Sum33、x45_0、XYZ。
五、把下列数学表达式写成Visual Basic表达式：（1）5||zyx++（2）6)1(xy+（3）xy yx310+答：（1）Abs(x+y)+z^5 (2) (1+x*y)^6 （3）（10*x+Sqr(3*y)）/(x*y)六、计算下列函数的值：(1) Int(-3.14159) (2) Sqr(Sqr(81))(3) Int(Abs(99-100)/2) (4) Sgn(7*3+2-10)答：(1) -4 (2) 3 (3) 0 (4) 1七、写出下列表达式的值：(1) (2^4+8*3 Mod 5)/2 (2) 4^3\7+8-(6>3 or 5<34 and 8<>7)答：(1) 10 (2) 18八、设X=8，Y=4，Z=5，求下列表达式的值(实数保留三位小数)：(1) X+4*Z (2) X^3/7答：(1) 28 (2) 73.143习题四，参考答案4.1 略。
VB程序设计课后习题答案
VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。
VB教材课后习题参考答案
二. 多项选择题三. 填空题1．事件驱动2．解释编译3．设计、运行和中断。
4．属性、事件和方法。
5．窗体单击（Form_Click）。
6．代码7． MyForm 。
习题2参考答案一．单选题二. 多项选择题三. 填空题1、⑴sin(50*3.14/180) ⑵(2+x*y)/(2-y^2)⑶a^2-(3*a*b/(3+a)) ⑷(x^3)^(1/8)+sqr(y^2+4*a^2/(x+y^3))2、int(rnd*(51)+50)3、⑴138 ⑵3 ⑶214 ⑷inchina ⑸70 (6)45⑺0习题3二．多项选择题三．填空题1． MultiLine,ScrollBars, 2 (或Vertical) 。
2． Label1.caption= "a*b=" 。
3． height 和 width 。
4． 2 。
5． Text1.SetFocus 。
6．编程技术，程序设计。
7．Change内容改变，将文本框内容显示在标签中。
GotFocus(获得焦点)，选中文本框内容。
8．(1)Value ,(2) Value习题4参考答案三．填空题1、s = True And a >= 18 And a <= 20 And h > 165 Or s = False And a >= 16 And a <= 18 And h > 1602、600003、6，-2，24、Select Case xCase Is <= 0y = 4Case Is < 10y = 0Case Is < 15y = 1Case Is < 20y = 2Case Is <= 30y = 3Case Elsey = 4End Select5、(1)x>100 And x Mod 5=0 (2)0 (3)len(Text1.Text) (4)Text1.Text6 (1)D (2)A (3)B第5章习题5一．单选题1． A 2． C 3.⑴ C⑵ B 4． B 5． C 6． A7．D 8.D 9.A 10.C 11.A二.多项选择题1. ABCDE 2． BE 3. ABCDE三．分析程序1．⑴(4 ,13) ⑵(3,8) ⑶(3,27) ⑷(5,11) ⑸(3,10)2．12343. 64. 175. (1)len(s) (2)mid(s,k,1) (3)c & t (4)text2.text6. (1)0 (2)n+1 (3)2^n7.(1) mid(x,p+3) (2) 3 (3) p8． (1)Text1.Text (2)len(s)(3)x>="a" and x<="z" or x>="A" and x<="Z"(4) y & x9. (1)change (2)value习题6参考答案一．单项选择题1、D2、A3、C4、(1)B,(2)B5、C6、C7、A8、(1)C (2)B (3)A (4)B (5)D二．多项选择题1、CE2、DE3、ABC三．填空题1、数组D为 2 维数组，共有 16 个元素，第一维下标从 0 到 3 ，第二下标从 -1 到 2 。
VB程序设计VB教程习题3答案
4. 将窗体的_________属性设置为False后，运行时窗体上的按钮、文本框就不会对用户的操作做出响应。
（A）ControlBox （B）Visible （C）Enabled （D）BorderStyle
参考答案为C
5. 以下说法正确的是___________。
（A）窗体文件的扩展名为 .vbp
MsgBox (Msg$)
End Sub
2. 编应用程序，在窗体上显示由如下“*”号构成的三角形图案。
*
* * *
* * * * *
* * * * * * *
* * * * * * * * *
参考答案：
设计界面如图，程序代码如下：
Private Sub Form_Click()
Form1.Print Tab(15); "*"
参考答案：Form窗体、Font
3.下述程序段在运行时的显示结果是_________。
Dim x As Single
Cls
x=1.344+8
Print Len(x)
参考答案：4
4. 以下语句Print Int（12345.6789*100+0.5）/100的输出结果是_________。
参考答案：12345.68
（B）一个窗体对应一个窗体文件
（C）Visual Basic中的一个工程只包括一个窗体
（D）Visual Basic中一个工程最多可以包含256个窗体文件
参考答案为B
6.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是_________。
（A）Load（B）Click（C）Unload（D）GotFocus
VB程序设计课后习题答案
VB程序设计课后习题答案VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Window子目录删除。
当重新安装Window后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Window目录下，所以一旦删除Window子目录，就必须重新安装VB6.0。
3、ViualBaic6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、ViualBaic6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装ViualBaic6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDNLibrary，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用ViualBaic6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDNLibrary查阅器，直接显示与选定内容有关的帮助信息。
VB1-3章_习题答案(课本习题)
VB习题答案（1-3章）习题一一、选择题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第三章课后习题答案(20210110133743)
、单项选择题1、设x=4,y=6,则以下不能在窗体上显示出“ A=10得语句就是（）A、PrintA=x+yB、Print"A=";x+yC、Prin t"A="+Str（x+y）D、Prin t"A=" &x+y2、假定有如下得命令按钮（名称为mand1）事件过程：PrivateSubma nd1_Click（）x=lnputBox（"输入:","输入整数"）MsgBox"输入得数据就是：”，输入数据:"+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10,则以下叙述中错误得就是（）A、x得值就是数值10B、输入对话框得标题就是输入整数”C、信息框得标题就是输入数据:10 ”D、信息框中显示得就是输入得数据就是:”3、有如下程序a=3;b=4PRINT b v aEND运行后，输出得结果就是A、4> 3( )B、-1C、0D、显示出错信息4、在窗体（名称为Form1）上画一个名称为Text1得文本框与一个名称为mand1得命令按钮，然后编写一个事件过程。
程序运行以后，如果在文本框中输入一个字符，则把命令按钮得标题设置为“计算机等级考试”。
以下能实现上述操作得事件过程就是A、Private Sub Text1_Cha nge()B、Private Sub man d1_Click()mand1、Caption= ”计算机等级考试”Capti on= ”计算机等级考试”End Sub End SubC、Private Sub Form1_Click() D 、Private Sub mand1_Click()Text1 、Caption= ”计算机等级考试”Text1 、Text= ”计算机等级考试”End Sub End Sub5、假定有如下得窗体事件过程:Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体,则在弹出得信息框中得标题栏中显示得信息就是( )A、Microsoft Visual B 、Microsoft C、Basic D 、56、窗体上放置了三个文本框,若在Text1 中输入456,在Text2 中输入78,在程序中执行了语句Text3=Text1+Text2 后,则在Text3 中显示( )A、434 B 、45678 C、溢出D、语法错误7、执行下面得程序,单击窗体,则在窗体上显示得就是( )。
VB教材课后习题答案
VB教材课后习题答案教材课后习题答案第1章一、选择题1 B 第2章一、选择题1 B 11 A二、填空题1. rem或’_ ：2. “” # #3. 5x2-3x-2sinA/34. 3214565. 300 三、操作题1、程序段：Private Sub Command1_Click() Dim x As Integer, y As Integer Dim s As Long, c As Long x = Text1.Text y = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = \长方形的面积为\+ Str(s) Label4.Caption = \长方形的周长为\+ Str(c) End Sub3、程序段：Private Sub Command1_Click() Text1.Text = \第一\End SubPrivate Sub Command2_Click() Text1.Text = \第二\End Sub4、程序代码：Private Sub Text1_Change() Text1.MaxLength = 10 End Sub 5、程序代码：12 D3 B4 C5 B6 B7 D 2 C 12 B 3 B 13 A 4 C 14 A 5 B 6 C 7 A8 A9 A 10A Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text) End Sub第3章一、选择题1 2 D A 二、填空题1. False2. B -4*a*c else 三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。
如果能构成一个三角形，则计算三角形的面积。
Dim a As Integer, b As Long, c As Long, s As Single, p As Single a = Val(InputBox(\请输入一个值：\b = Val(InputBox(\请输入一个值：\c = Val(InputBox(\请输入一个值：\ If (a + b > c And a + c > b And b + c > a) Then p = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print a k = k + 1s = s + iIf k Mod 10 = 0 Then Print End If NextPrintPrint \～300间总共有\个素数，\和值为\运行结果：58．我国现有人口为13亿。
VB课本习题答案第三章
第3章程序流程控制3．1 填空题1．设变量r 表示圆的半径,则计算圆的面积并赋给变量s使用的赋值语句为（ s=3.14159＊r＊r )。
2．给命令按钮Command2的Caption属性赋予字符串“退出”使用的赋值语句为（ Command2.Caption=＂退出＂）.3．为了求n的阶乘，要求用户输入n的值。
程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数:”,标题为“求数的阶乘”,并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（ n=val（InputBox(＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。
４．如果使用MsgBox对话框显示提示信息“退出本系统?”，并显示“是（Yes)"和“否（No）”两个按钮,显示图标“？"号，指定第一个按钮为默认值以及标题为“提示信息",则调用MsgBox 函数的形式为( MsgBox（＂退出本系统？＂,4+32+0，＂提示信息＂））.５．如果使用MsgBox对话框显示提示信息“文件未找到！”,并显示“确定”按钮、图标“！"号和标题“文件查找"，则使用的MsgBox语句为（ MsgBox＂文件未找到＂,0+48+0,＂文件查找＂）。
６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6。
0”使用的Print方法分别是（ Print “Visual BASIC 6.0”）和（ Debug。
Print “Visual BASIC 6。
0” ).７．使用Print方法时,若用逗号分隔, 则按( 标准）格式输出各表达式的值，若用分号分隔，则按( 紧凑 )格式输出各表达式的值.８．注释语句是一个( 非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。
９．判别变量i是否为偶数，若为偶数就把它显示出来。
使用单行结构条件语句为（ If i Mod 2=0 Then print x ）。
VB 课后习题参考答案
第1章 习题参考答案一、思考题 略二、选择题1. C2. B第2章 习题参考答案一、判断题二、填空题1． 窗体font2． 不能在代码中设置 3． selstart 4． Locked5． TabIndex 、 0 6． vbModal 或 17． Activate 、 Deactivate 8．PictureBox 和 Frame -三、选择题第3章 习题参考答案一、思考题1、double2、 xyC@abc ， 15eyd ， Is ， #END X8[P]3、变量有 (1) (4) (6) (8)，常量有 (2)字符串型 (3)逻辑型 (5)字符串型 (7)字符串型 (9)日期型 (10)实型 4、 fe d cb a++5、 (1) 26 (2) 3.75 (3) 36、写出下列Visual Basic 表达式的值：(1) False (2) True (3) True (4) False (5) True(6) True (7) False (8) False7、将下列命题用Visual Basic布尔表达式表示：(1) z>x and z>y (2) abs(a)<=abs(b+2) or a > b+2(3) p mod q=0 (4) x<-5 or x>-2 and x<2 or x>5(5) x<z and y>z or x>z and y<z (6) a<b and a mod 2=08、写出下列函数的值：(1) -4 (2) 换行符(3) –3 (4) -1 (5) hello(6) ello (7) 16 (8) “-459.65” (9) 5二、填空题1．整型、长整型、双精度型、双精度型2．(X mod 10)*10+X\103．sin(1/4*3.14)+sqr(x+2*exp(y))/abs(x-y)4．(a+b)/(c*d-sqr(1-a^2))5．x mod 5=0 or x mod 9=06．False7．-3 、 2 、-2 、 28．CDEF9．x>0 and y>0 or x<0 and y<0 或x*y>010．s>=”A” and s<=”Z” or s>=”a” and s<=”z”三、选择题四、编程题1、Private Sub Form_Click()Dim x%, Ten%, hundred%x = Val(Text1.Text)Ten = (x \ 10) Mod 10hundred = x \ 100Print "百位数是: " & hundredPrint "十位数是: " & TenEnd Sub2Private Sub Form_Click()Dim char As String * 1Form1.CurrentX = Rnd * Form1.ScaleWidthForm1.CurrentY = Rnd * Form1.ScaleHeightchar = Chr(Int(Rnd * 16) + 65)Print charEnd Sub第4章习题参考答案一、判断题二、选择题三、程序阅读写出下列各段程序执行后的输出结果。
VB作业第三章习题答案
本文由goodlak贡献 亲亲资料网第3章程序流程控制3．1 填空题 1．设变量r 表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（ s=3.14159*r*r ）。
2 ．给命令按钮Command2 的 Caption 属性赋予字符串“退出”使用的赋值语句为（ Command2.Caption=＂退出＂）。
3．为了求n 的阶乘，要求用户输入n的值。
程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（ n=val（InputBox（＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。
４．如果使用MsgBox对话框显示提示信息“退出本系统？”，并显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox 函数的形式为（ MsgBox（＂退出本系统? ＂，4+32+0，＂提示信息＂））。
５．如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题“文件查找”，则使用的MsgBox语句为（ MsgBox＂文件未找到＂，0+48+0，＂文件查找＂）。
６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6.0”使用的Print方法分别是( Print “Visual BASIC 6.0” )和( Debug.Print “Visual BASIC 6.0” )。
７．使用Print方法时，若用逗号分隔，则按( 标准 )格式输出各表达式的值，若用分号分隔，则按( 紧凑 )格式输出各表达式的值。
８．注释语句是一个（非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。
９．判别变量i是否为偶数，若为偶数就把它显示出来。
使用单行结构条件语句为（ If i Mod 2=0 Then print x ）。
VisualBasic程序设计教程第三版课后习题答案
《VB程序设计》分解温习材料第一章 Visual Basic程序设计概述一.填空题1.VisualBasic是一种面向__________的可视化程序设计说话,采纳了__________的编程机制.2.在VB中工程文件的扩大名是____________,窗体文件的扩大名是____________,尺度模块文件的扩大名是____________.3.履行“工程”菜单下的__________敕令,可选择并添加ActiveX控件.4.Visual Basic 6.0用于开辟__________情形下的运用程序.二.选择题1.下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中止模式2.可视化编程的最大长处是（）A．具有尺度对象箱B．一个工程文件由若干个窗体文件构成C．不须要编写大量代码来描写图形对象D．所见即所得3.下列不克不及打开属性窗口的操纵是（）A．履行“视图”菜单中的“属性窗口”敕令B．按F4键C．按Ctrl+TD．单击对象栏上的“属性窗口”按钮4.下列可以打开立刻窗口的操纵是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5.Visual Basic的编程机制是（）A．可视化 B．面向对象 C．面向图形 D．事宜驱动三.简答题1.代码窗口重要包含哪几部分？2.在工程资本治理器窗口中,重要列出了哪三类文件？3.窗体计划窗口的重要用处是什么？4.VB的根本特色是什么？5.如何懂得可视化设计？6.怎要懂得事宜驱动编程？第二章简略的VB程序设计一.填空题1.设置是否可以用Tab键来拔取敕令按钮,应当用______________属性.2.一个控件在窗体的地位由_______和________属性决议,其大小由__________和_________属性决议.3.运用对象的属性setfocus可获得核心,对于一个对象,只有其visible属性和____________属性为true,才干接收核心.4.设置控件布景色彩的属性名称是______________________.5.所有控件都具有的配合属性是__________________属性.6.一般情形下,控件有两个属性项的缺省值是雷同的,这两个属性项是_______________.7.VB中的每个对象（控件）都有一组特点,这组特点称为__________,我们经由过程修正它可以掌握对象的外不雅和操纵.8.平日情形下,VB中一个工程重要包含如下四个文件：窗体文件.工程文件.类模块文件和_____________文件,后者的扩大名为.Bas,平日由Basic说话编写,是一个可共用的子程序.9.VB有三种工作模式,分离是设计（Design）模式._____________和中止（Break）模式.二.选择题1.以下可以或许触发文本框Change事宜的操纵是（）A．文本框掉去核心B．文本框获得核心C．设置文本框的核心D．转变文本框的内容2.运用程序设计完成后,应将程序保管,保管的进程是（）A．只保管窗体文件即可B．只保督工程文件即可C．先保督工程文件,之后保管窗体文件D．先保管窗体文件（或尺度模块文件）,之后还要保督工程文件3.VB运用程序的运行模式是（）A．解释运行模式B．编译运行模式C．两者都有D．汇编模式4.任何控件都具有的属性是（）A．TEXTB．CAPTIONC．NAMED．FORECOLOR5.决议控件上文字的字体.字形.大小及后果的属性是（）A．TEXTB．CAPTIONC．NAMED．FONT6.在窗体上树立了多个控件,如MAND1,若要使程序一运行核心就定位在COMMAND1控件上,应将COMMAND1控件的（）设置为0A．INDEXB．TABINDEXC．TABSTOPD．ENABLED7.运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的TEXT属性进行赋值从而转变了文本框的TEXT属性值时,将触发文本框的（）事宜A．CLICKB．DBLCLICKC．GOTFOCUSD．CHANGE8.在运行时,按TAB键跳过了一个可以获得核心的控件（如文本框）,则可能是因为（）A．该控件的TABSTOP属性值为TRUEB．该控件的TABINDEX 属性值为FALSEC．该控件的ENABLED属性值为TRUED．该控件的ENABLED属性值为FALSE9.为了防止用户随便将光标置于控件上,应（）A．将控件的TABINDEX属性设置为0B．将控件的TABSTOP属性设置为TRUEC．将控件的TABSTOP属性设置为FALSED．将控件的ENABLED属性设置为FALSE10.若要使标签控件显示时,不笼罩其布景内容,应设置标签控件的（）属性A．BACKCOLORB．BORDERSTYLEC．FORECOLORD．BACKSTYLE11.假如要在文本框中输入字符时,只显示某个字符,如星号（*）,运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是（）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE12.在运行阶段,要在文本框TEXT1获得核心时选中文本框中所有内容,对应的事宜进程是（）A．Private Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubB．Private Sub Text1_LostFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubC．Private Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubD．Private Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub13.Visual Basic持续了Basic说话简略易用的语法特色,同时支撑面向对象的编程机制,个中构成其控件（对象）的三要素是（）A．属性.事宜.事宜进程B．控件.窗体.事宜C．属性.进程.办法D．属性.事宜.办法14.决议标签（Label）显示的属性是（）A．TextB．NameC．CaptionD．Alignment15.敕令按钮的标题文字由（）属性来设置.A．Text B．Caption C．Name D．(名称)16.若要设置文本的显示色彩,则可用（）属性来实现.A．BackColor B．Forecolor C．FillColor D．Backstyle17.在运行时,若要挪用某敕令钮的Click事宜进程,则可设置该敕令钮对象的（）属性为Ture来实现.A．Enabled B．Value C．Default D．Cancel18.在运行时,若要获得用户在文本框中所选择的文本,可经由过程拜访（）属性来实现.A．SelStart B．SelLenght C．Text D．SelText三.简答题1.事宜驱动的含意是什么？举例解释.2.交互式开辟办法和传统的运用程序开辟进程有什么不合？3.文本框在什么情形下运用？4.什么是工程？5.构造化程序设计的三种根本构造是什么？6.对象的三要素是什么？并分离进行简略的解释.7.为什么要生成可履行文件和制造装配盘？8.运用变量前先声明有什么利益？9.若何运用帮忙功效？10.构造化程序设计的特色是什么？11.为了把核心移到某个指定的控件,在代码中应运用的办法是什么？12.启动Visua Basic后,只创建了一个窗体,若此时保管,须要保管几个文件？各是什么文件？先保管的是哪一个？13.为了防止文本框中的信息运行后被用户修正,应设置什么属性？第三章 VB根本说话一.填空题1.一般可以运用__________症结字声明常量.2.______类型也称变体类型,是一种通用的.可变的数据类型,它可暗示或存储任何一种数据类型.3.变量的声明分为两种办法：__________和____________.4.在VB中,用___________________语句设定命组的下界,用_____________和__________________语句分离返回数组的上.下界.5.在代码模块中参加Option Explicit的目标是_____________________.6.function aa (a1 as date,optional a2 as boolean) as single,写出optional敕令的感化__________________.7.在VB中,我们用一个简略的______语句就能实现退出程序.8.生成新闻框的敕令是____________,生成输入框的敕令是____________.9.通用对话框（commondialog）属activex控件,它可以显示多个尺度对话框,包含打开/另存为.字体.打印等对话框,若要显示所有文件,则应设置其属性filter=____________,若要使它显示为打印对话框,则应运用什么办法____________.10.从字符串中随便率性地位截取字符的函数是__________.11.语句For j = 3 To 20 Step 3 使轮回体履行了______次.12.对于正在运用的动态数组Arraya(),要增长一个单元,但不克不及损坏数组内的数据,则应运用语句__________________________________.13.在Visual Basic中声明静态变量的症结字是_________________.14.表达式10 Mod 6 \ 4的值为______.15.表达式chr(Asc("a") + 5)的值为_________.16.VB中运用注释有2种办法,即________和________.17.VB中的数据以四种情势存储：常量._________._________和记载.18.为了在VB中存储一个4行5列的二维矩阵,须要界说一个整型的数组,请把数组界说语句填补完全：Dim Juzhen(__) as Integer.19.控件数组由一组雷同类型的控件构成,这些控件共用一个雷同的控件名,但是每个控件都有一个独一的下标来区分,我们运用属性____来设置下标.20.在进程挪用中,实现挪用进程的实参和被挪用进程的形参之间的数据传递有两种方法：按值传递和____.21.为了包管程序中必须对变量的强迫性界说,须要在代码模块的声明部分参加______________语句.22.剖析For……Next轮回构造的实例：For i = 5 To 30 Step 2 中,轮回体一共履行了______次.23.表达式Mid("UniversityOfPetroleum", 8, 4) 的值为_________.24.常量分为通俗常量和__________常量.25.要将大写字母转换为小写字母,可运用____________函数.26.不管核心在哪个控件上,按__________键相当于按了撤消按钮.27.履行“工程”菜单下的__________敕令,可选择并添加ActiveX控件.28.__________是程序中VB停滞履行的地方.29.逻辑常量为True或__________.30.运用了__________________的声明后,当程序中运用未经声明的变量时,程序运行时会报错.31.要将小写字母转换为大写字母,可运用____________函数.32.自字符串N1位开端向右取N2个字符,要运用_________________函数.33.日期常量暗示时,用符号__________将日期型数据括起来.34.局部变量只能在__________中声明和运用.35.模块级变量的声明症结字是Dim或__________.36.函数Abs(x)的功效是__________.37.表达式3/6*5的值是__________.二.选择题1.以下哪个是正当的变量（）A．right B．abc@123 C．123_abc D．ab123c2.下列说法错误的是（）A．在统一模块不合进程中的变量可以同名B．不合模块中界说的全局变量不成以同名C．引用另一模块中的全局变量时,必须在变量名前加模块名D．统一模块中不合级的变量可以同名3.把MsgBox的返回值转换为数值应当运用的函数是（）A．LogB．StrC．LenD．Val4.语句DIM AA(3,4,5)中界说的数组有（）个元素A．12 B．60 C．120 D．3455.下面程序运行后输出的成果是（）A$="CHINA"B$=STRING$(3,A$)PRINT B$ENDA．CHI B．CCC C．INA D．AAA6.以下语句的输出成果是（）Print Format$(32548.5, "000,000.00")A．32548.5 B．325,485.00 C．032,548,50 D．32,548,507.以下论述中错误的是（）A．假如进程被界说为Static类型,则该进程中的局部变量都是Static类型B．Sub进程中不克不及嵌套界说Sub进程C．Sub进程中可以嵌套挪用Sub进程D．事宜进程可以像通用进程一样由用户界说进程名8.Visual Basic供给的On Error Resume next错误陷阱语句暗示（）A．当产生错误时,使程序转跳到语句标号为0的程序块B．当产生错误时,不运用错误处理程序块C．当产生错误时,疏忽错误行,持续履行下一语句D．当产生错误时,终止本进程履行,持续履行下一进程9.在Visual Basic中,若要将掌握权交给操纵体系则经由过程（）的语句.A．End B．Exit Do C．Exit Sub D．DoEvents10.在Visual Basic 中语句的续行号采取（）A．空格与下划线 B．下划线与空格 C．空格与短线 D．短线与空格11.假定有以下程序段：For i=1 to 3For j=5 to 1 Step –1Print i*jNext j,i则语句Print i*j的履行次数是（）A．15 B．.16 C．17 D．1812.从键盘上输入两个字符串,分离保管在变量str1.str2中.肯定第二个字符串在第一个字符串中肇端地位的函数是（）A．LeftB．MidC．StringD．Instr13.假如将布尔常量值TRUE赋值给一个整型变量,则整型变量的值为（）A．0B．1C．TRUED．FALSE14.下列论述不准确的是（）A．注释语句长短履行语句,仅对程序的内容起注释感化,它不被解释和编译B．注释语句可以放在代码中的任何地位C．注释语句不克不及放在续行符的后面D．代码中参加注释语句的目标是进步程序的可读性15.语句PRINT “INT(13.2)”;INT(13.2)的输出成果为（）C．INT(13.2)= 13D．INT(13.2)= 1416.假如TAB函数的参数小于1,则打印地位在第（）列A．0B．1C．2D．317.变量未赋值时,数值型变量的值为（）A.0B．空C．1D．无任何值18.下列语句中准确的是（）A．txt1.text+txt2.text=txt3.textB．=cmdokC．12label.caption=1234D．a=inputbox(“hello”)19.假设变量BOOLVAR是一个布尔型变量,则下面准确的赋值语句是（）A．BOOLVAR=‘TRUE’B．BOOLVAR=.TRUEC．BOOLVAR=#TRUE#D．BOOLVAR=3<420.以下（）程序段可以实行X.Y变量值的变换（）A．Y=X：X=YB．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=ZD．Z=X：W=Y：Y=Z：X=Y21.语句PRINT “SGN(26)=”;SGN(26)的输出成果为（）A．SGN(26)=26B．SGN(26)= 26C．SGN(26)= +1D．SGN(26)= 122.读下面程序段,断定变量Str2的取值是（）Dim Str1, Str2 as StringStr1="University"Str2=STRING$(3,Str1)A．Uni B．UUUC．ity D．yyy23.VB支撑自界说数据类型,在某程序中我们界说了如下类型：TypeStudentnumber AsstringnameAsStringageAsIntegerEndType针对上述界说,如下几项用法准确的是（）A．="张三" B．Dim s AsStudent ＝"张红"C．DimsAsTypeStudent D．DimsAsType="张三" ="张三"24.一个工程中包含两个名称分离为Form1.Form2的窗体,一个名称为mdlFunc的尺度模块.假定在Form1.Form2和mdlFunc平分离树立了自界说进程,其界说格局为：Form1中界说的进程：Private Subfrmfunction1()EndSubForm2中界说的进程：PublicSubfrmfunction2()EndSubmdlFunc中界说的进程：PublicSubmdlFunction()EndSub在挪用上述进程的程序中,假如不指明窗体或模块的名称,则以下论述中准确的是（）A．上述三个进程都可以在工程中的任何窗体或模块中直接被挪用B．只有mdlFunction进程可以或许被工程中各个窗体或模块直接被挪用C．frmfunction1只能在form1中挪用,而frmfunction2 则可以在所有模块或窗体中被直接挪用D．上述三个进程都只能在各自被界说的模块中直接挪用25.VB中Do……Loop构造既可以构成当型轮回,也可以构成直到型轮回,依据下面的代码：Dim i,n as Integern = 20i = 1DoPrint i;i = i + 2Loop Until i >20断定轮回构造的类型和轮回体的履行次数,准确的选项是（）A．当型轮回,20次B．直到型轮回,10次C．当型轮回,10次D．直到型轮回,20次26.在程序中,运用InputBox函数可以接收用户的输入,假如要把它的返回值转换为数值型的数据,应当运用的函数是（）A．Val B．LenC．Str D．Log27.动态数组因为在程序运行前无法肯定命组的大小,所以经常依据程序的运行情形,对数组进行从新界说,以下关于VB中动态数组的论述中不准确的是（）A．可以用ReDim语句从新界说动态数组,并且可以进行多次重界说B．初次用Dim进行为态数组声明的时刻,必须指明它的类型和高低界C．Preserve为ReDim语句的可选参数,用于保存动态数组本来的内容D．当对动态数组运用Erase语句进行释放操纵时,将释放其内存28.VB中的控件也叫做部件或组件,重要包含三类,以下哪一项不属于VB控件的分类（）A．控件B．可拔出对象C．ADO控件 D．ActiveX控件29.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（）A．4 B．5 C．6 D．730.可以同时删除字符串前导和尾部空白的函数是（）A．Ltrim B．Rtrim C．Trim D．Mid三.简答题1.全局变量声明有哪些限制？2.字符串是否可以主动转换为数字类型？3.用Format函数格局化后的字符格局在不合区域情形下的输出是否雷同？为什么？4.在InputBox函数中,哪一个参数是必须的？5.在MsgBox函数中哪一个参数是必须的？6.在什么情形下运用进程？7.为什么要进行程序调试？8.调试程序有哪些手腕？9.用语句Dim A(3 To 5) As Integer界说的数组的元素个数是若干？10.设有如下的Visual Basic表达式：5*x^23*x2*Sin(a)/3,与它对应的数学式是什么？11.数学式)a-对应的VB表达式是什么？yx+3)(2(b12.表达式2>3 And 4<=5 Or 4>4的值是什么？13.如何在程序中设置断点？14.在什么情形下可以设置断点？15.程序出错的类型有哪几种？16.在统一模块.不合进程中声明的雷同变量名,两者是否暗示统一个变量？为什么？17.什么情形下会消失“数组下标越界错误”？18.逐语句和逐进程有什么差别？19.表达式2.75 * 2 \ 3.45的值是什么？20.在程序设计中为什么尽量不必GoTo语句？四.读程序题1.剖析以下程序,写出运行成果.Private Sub Form_Click()score = Int(Rnd * 10) + 80Select Case scoreCase Is < 60A$ = "F"Case 60 To 69A$ = "D"Case 70 To 79A$ = "C"Case 80 To 89A$ = "B"Case ElseA$ = "A"End SelectPrint A$End Sub2.读下面的程序,剖析其功效,写出运行成果.在窗体上有一个敕令按钮,名称为Command1.然后编写如下程序：Private Sub Command1_Click()For I = 1 To 4For J = 0 To IPrint Chr$(65 + I);Next JPrintNext IEnd Sub程序运行后,假如单击敕令按钮,则在窗体上显示的内容是什么？3.浏览下面的程序,剖析并写出其功效.Sub insert(a() As Single,ByVal x As Single)Dim m as integer,n as integern=1Do While n<20 And x>a(n)n=n+1LoopFor m=201 To n Step –1a(m+1)=a(m)Next ma(n)=xEnd Sub4.剖析以下程序,写出运行成果.Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序,单击敕令按钮,输出成果是什么？5.剖析以下程序,写出运行成果.Sub sele()Dim n as Integeri=21:n=3Do While i>ni=i－nLoopPrint iEnd Sub6.剖析以下程序,写出运行成果.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=2:b=5:c=2If(a>=b)and(a>=c) or (b>c) ThenPrint aa=a+2ElsePrint bEndIfPrint a;b;cEnd Sub7.剖析以下程序,写出运行成果.Sub swap()Dim x as IntegerDim y as IntegerDim z as Integerx=1:y=2:z=0Print x;y;zx=x+yx=x*zPrint x,y,zEnd Sub8.剖析以下程序,写出运行成果.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=3:b=3:c=2If(a>=b)and(a>c)Then Print aPrint a,b,cEnd Sub五.编程题1.输入一年号,断定它是否是闰年.界面如下图所示,包含两个标签.一个文本框和一个敕令按钮.提醒：假如此年号能被400整除或者不克不及被400除尽,也不克不及被100除尽,但能被4整除,则它是闰年;不然,不是闰年.2.输入两个正整数m.n,求m和n的最大公约数.请求树立如下图所示的窗体,个中重要的控件包含：两个标签（ble2）.两个文本框（Text1.Text2）和一个按钮（Command1）.3.输入某学生成绩（百分制）,若是100≥成绩≥90输出优良;若是90＞成绩≥80输出优越;若是80＞成绩≥70输出中等;若是70＞成绩≥60输出合格;若是60＞成绩≥0,输出不合格;若是其他数则输出error信息.4.在窗体中显示从9号字型到16号字型.5.在有序序列中拔出一个数,使拔出后的数列仍然有序（设按由小到大分列）.6.编程实现二维数组转置.7.随机输入10个100以内的整型数,盘算其和及平均值.8.找出所有的水仙花数.水仙花数是个三位数,它的列位数字的立方和等于这个三位数本身.例如371＝33+73+13,则371是水仙花数.9.从键盘输入一个大于2的正整数,断定该数是否是素数.10.求二维数组中的最小值及其地点行号.列号.11.求一元二次方程ax2+bx+c=0的根（包含实根和复根）.12.输入一个正整数n,盘算出n!并输出.13.Faibonacci数列为0,1,1,2,3,5,8,13 …,盘算并输出第20项以及前20项的和.第四章经常运用控件与窗体一.填空题1.向列表框控件添加新项目标办法是__________.2.在VB中,最重要的两种对象是____________和____________.3.当窗体启动时可经由过程__________属性掌握窗体位于所有者的中间地位.4.若要将窗体Form1隐蔽起来,则可经由过程履行代码_________________来实现.5.要使装入到列表框中的数据项能主动按字母次序排序,应设置该控件的_________属性为__________.6.窗体上放置了若干个文本框和敕令按钮,当窗体装入后,要将核心主动定位到文本框Text1上,则在设计时须要将__________控件的_________属性设置为__________.7.在标签控件中经由过程编程使文字换行用的代码是___________________.8.设置计时器控件只能触发______________________事宜.9.设置计时器对象触发事宜的时光距离用_____________________属性.10.滚动条控件重要支撑两个事宜,它们是_______________事宜.11.要使鼠标逗留在按钮上显示特别的鼠标外形,应设置的属性值是_________________.12.设某列表框共有10项,按标题请求补齐程序,完成响应的功效.（1）按下敕令按钮Command1时将列表框第8项的内容显示在窗体上：PrivateSubCommand1_Click()List.__________(7)=TrueEndSub（2）单击列表框某一项时立刻将该项打印在窗体上：PrivateSubList1_Click()Print_______________EndSub（3）按下敕令按钮Command1时在窗体上删除第 1.3.5.7.9项：PrivateSubCommand1_Click()ForI=1To5NextIEndSub（4）在列表框的每一项之后拔出一个新的项：PrivateSubCommand1_Click()ForI=1to10X=InputBox(“请输入拔出的第”&I&“项内容”) NextIEndSub13.设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1,要使每次单击滚动条两头箭头时,或单击滚动条滑块与两头箭头之间的空白区域时,标签内容可以或许反应滚动条的值,补齐以下代码.PrivateSubHscroll1.__________________()EndSub要使拖动滚动条滑块时标签内容可以或许反应滚动条的值,补齐以下代码.PrivateSubHscroll1.________________()EndSub14.列表框（ListBox）用于列出可供选择的项目标列表,用户可以选择一个或多个项目.它具有几个异常重要的数组属性,个中____属性存放了列表框中所有项目标值.15.菜单项一般由标题.拜访键.快捷键和复选标记等构成,经由过程对响应的属性进行设置可以转变这些项目标状况,个中与复选标记相对应的属性是____.16.keydown与keypress事宜各有其参数,若需获得用户按下"a" 照样 "A" 需用____________事宜.17.控件________组合了文本框和列表框的功效,是VB中一种功效异常壮大的选择类控件.18.若须要将窗体Form2以模态窗口的情势显示出来,可经由过程履行代码_________________来实现.19.菜单中的分隔条是一种菜单控件,不响应__________事宜,不克不及被选中.二.选择题1.当程序运行时,在窗体上单击鼠标,以下哪个事宜是窗体不会吸收到( )A．MouseDownB．MouseUpC．LoadD．Click2.窗体Form1的Name属性是Frm1,它的单击事宜进程名是（）A．Form1_ClickB．Form_ClickC．Frm1_ClickD．Me_Click3.用于设置通用对话框控件显示文件类型的属性是（）A．Filter B．Path C．Partern D．FoleName4.用于从内存删除窗体的敕令是（）A．Move B．Hide C．Unload D．Delete5.用于返回窗体可用区域宽度的属性是（）A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop6.下列关于属性设置的论述错误的是：（）A．一个控件具有什么属性是VB预先设计好的,用户不克不及转变B．一个控件具有什么属性是VB预先设计好的,用户可以转变C．一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置D．一个控件的属性在属性窗口中设置,还可以运用程序代码为其设置新值7.下列说法准确的是（）A．对象属性只能在“属性窗口”中设置B．一个新的工程可以在“工程窗口”中树立C．必须先树立一个工程,才干开端设计运用程序D．只能在“代码窗口”中编写程序代码8.下列关于窗体上控件的根本操纵错误的是（）A．按下一次DEL键只能删除一个控件B．按下一次DEL键可以同时删除多个控件C．按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件D．按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件9.下列关于设置控件属性的论述准确的是（）A．用户必须设置属性值B．所有的属性值都可以由用户随便设定C．属性值不必一一从新设置D．不合控件的属性项都完全一样10.不成以经由过程下列（）操纵将核心赋给对象A．运行时运用TAB键B．在代码顶用CALL语句挪用C．在代码顶用SETFOCUS办法D．用拜访键或用鼠标单击选择对象11.要在FORM_LOAD事宜进程中运用PRINT办法在窗体上输出必定的内容,应（）A．设置窗体的VISIBLE属性B．设置窗体的CAPTIONC．挪用窗体的SHOW办法D．设置窗体ENABLED属性12.下面（）对象无CAPTION属性A．FORMB．COMMANDBUTTONC．TEXTBOXD．LABEL13.通用对话框控件和文件列表框控件中,都能依据文件的类型对要显示的文件进行筛选过滤,后者运用（）属性进行该项设置.A．Pattern B．Path C．FilterD．FileName14.对于复选框控件chkBoy,假如在程序中设置它为选中状况,下面语句准确的是（）A．chkBoy.Checked = true B．chkBoy.Value = trueC．chkBoy.Selected = true D．chkBoy.Value = 115.计时器（Timer）控件用于每隔一段时光主动触发一次Timer事宜,可以有纪律地反复履行一段程序,它用于设置两次事宜时光距离的属性是（）A．IntervalB．SmallChangeC．LargeChange D．Max16.以下关于VB中窗体（Form）的说法中,不准确的描写为（）A．履行Unload Form语句后,窗体Form消掉,但仍在内存中B．当窗体的Enabled属性为False时,经由过程鼠标和键盘对窗体的操纵都被制止C．窗体的Height.width属性用于设置窗体的高和宽D．窗体的load事宜在加载窗体时产生17.关于滚动条控件,下面说法错误的是（）A．点击滚动条的箭头,可以转变它的value值,从而激发Change事宜B．拖动滚动框,可以触发Scroll事宜C．平日,程度滚动条的值从左向右递增,垂直滚动条的值自上而下递增D．拖动滚动框,可以触发Change事宜,并且是持续触发的18.在窗体上放置一个敕令按钮,名称为Command1.单击敕令按钮时,履行如下事宜进程：PriVateSubCommand1_C1ick()a$="softwareandhardware"b$＝Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是（）A．softWareandhardware B．softwareC．hardwafe D．消失错误19.在多重窗体程序设计中,症结的问题是要解决不合窗体之间的连接和窗体的显示.封闭等问题,以下关于窗体的相干语句和办法的论述中,错误的是（）A．Load语句用于加载指定窗体,即在内存中创建该窗体B．Show办法兼具Load语句的功效,可以将窗体显示出来C．Hide办法用于将窗体隐蔽起来D．Unload语句用来释放窗体,但窗体并没从内存中消20.滚动条控件的属性中,暗示取值规模最大值的属性是（）A．MaxB．LargeChangeC．Min D．Value21.程序中假如须要检测和掌握鼠标的地位和状况的转变,就须要运用鼠标事宜,个中下面哪个选项用于暗示拖动事宜（）A．DragDrop B．MouseDownC．MouseUp D．MouseMove22.为了运用通用对话框进行打开文件的操纵,应将通用对话框的Action属性设定为（）.A．0 B．1 C．2 D．3三.简答题1.什么是单选按钮？什么是复选框？在运用上有什么不合？2.滚动条的change事宜和scroll事宜有什么不合？3.快捷键和拜访键有什么差别？4.在程序运行时代,假如拖动滚动条上的滚动块（即滑块）,则触发滚动条的什么事宜？5.假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项掉效（变灰）,应运用什么语句？6.为了临时封闭计时器（即时钟控件）,应把该计时器的什么属性设置为False？7.单选按钮和复选框（即检讨框）各用于什么情形？8.若何为一个菜单项设置热键和快捷键？9.菜单的情势有哪两种？10.在KeyPress事宜中,若何撤消用户刚输入的字符？11.框架的感化是什么？12.假如要计时器每秒钟产生4个Timer事宜,则Interval属性值应设若干？13.在一个窗体的程序代码中可否拜访另一个窗体上控件的属性？若不成则请解释来由;若行则请解释若何拜访.14.如安在框架中树立控件？15.组合框有哪几种类型？四.读程序题1.对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)>ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行后,按回车键,输出成果是什么？。
VB第三章课后习题答案
习题一、单项选择题1、设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句就是( )A、PrintA=x+yB、Print"A=";x+yC、Print"A="+Str(x+y)D、Print"A="&x+y2、假定有如下的命令按钮(名称为Command1)事件过程:PrivateSubCommand1_Click()x=InputBox("输入:","输入整数")MsgBox"输入的数据就是:”,,”输入数据:"+xEndSub程序运行后,单击命令按钮,如果从键盘上输入整数10,则以下叙述中错误的就是( )A、x的值就是数值10B、输入对话框的标题就是“输入整数”C、信息框的标题就是“输入数据:10”D、信息框中显示的就是“输入的数据就是:”3、有如下程序a=3;b=4PRINT b＜aEND运行后,输出的结果就是( )A、4＞3B、-1C、0D、显示出错信息4、在窗体(名称为Form1)上画一个名称为Text1的文本框与一个名称为Command1的命令按钮,然后编写一个事件过程。
程序运行以后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程就是( )A、Private Sub Text1_Change()B、Private Sub Command1_Click()Command1、Caption=”计算机等级考试”Caption=”计算机等级考试”End Sub End SubC、Private Sub Form1_Click()D、Private Sub Command1_Click()Text1、Caption=”计算机等级考试”Text1、Text=”计算机等级考试”End Sub End Sub5、假定有如下的窗体事件过程:Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体,则在弹出的信息框中的标题栏中显示的信息就是( )A、Microsoft VisualB、MicrosoftC、BasicD、56、窗体上放置了三个文本框,若在Text1中输入456,在Text2中输入78,在程序中执行了语句Text3=Text1+Text2后,则在Text3中显示( )A、434B、45678C、溢出D、语法错误7、执行下面的程序,单击窗体,则在窗体上显示的就是( )。
VB第三章课后习题答案
习题一、单项选择题1、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（）=x+y B. Print"A="；x+yC. Print"A="+Str(x+y)D. Print"A="&x+y2、假定有如下的命令按钮(名称为Command1)事件过程：PrivateSubCommand1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（）A. x的值是数值10B. 输入对话框的标题是“输入整数”C. 信息框的标题是“输入数据：10”D. 信息框中显示的是“输入的数据是：”3、有如下程序a=3;b=4PRINT b＜aEND运行后，输出的结果是( )A.4＞3B.-1C.0D.显示出错信息4、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是（）A. Private Sub Text1_Change()B. Private Sub Command1_Click()=”计算机等级考试”Caption=”计算机等级考试”End Sub End SubC. Private Sub Form1_Click()D. Private Sub Command1_Click()=”计算机等级考试”=”计算机等级考试”End Sub End Sub5、假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是（）A. Microsoft VisualB. MicrosoftC. BasicD. 56、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示（）A. 434B. 45678C. 溢出D. 语法错误7、执行下面的程序，单击窗体，则在窗体上显示的是（）。
VB课后答案三四章-朱国华主编
第3章1. Private Sub Command1_Click()Dim a As Integera = Text1.TextText2.Text = -aText3.Text = a ^ 2Text4.Text = Sqr(Abs(a))Text5.Text = a ^ 3Text6.Text = Abs(a) ^ (1 / 3)End Sub2. Private Sub Command1_Click()Dim x As Integer, y As Integerx = Text1.Texty = Text2.TextText1.Text = yText2.Text = xEnd Sub3. Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim x1 As Single, x2 As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)'a * x^2+b *x+c=0x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)Text4.Text = x1Text5.Text = x2End SubPrivate Sub Command2_Click()EndEnd Sub第4章1. Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If x >= 0 ThenText2.Text = Sqr(x)ElseMsgBox "该数不能开平方"End IfEnd Sub2. Private Sub Command1_Click()Dim a As Integer, b As Booleana = Text1.TextIf a Mod 5 = 0 And a Mod 7 = 0 Thenb = TrueLabel1.Caption = "该数能同时被5和7整除"Elseb = FalseLabel1.Caption = "该数不能同时被5和7整除"End IfEnd Sub3. Private Sub Command1_Click()Dim x As Integerx = Val(InputBox("请输入一个百分制成绩"))Select Case xCase Is > 90Print "A"Case Is >= 80Print "B"Case Is >= 70Print "C"Case Is >= 60Print "D"Case ElsePrint "E"End SelectEnd Sub4. Private Sub Command1_Click()Dim n As Integer, t As Long, s As Longs = 0: t = 1For n = 1 To 9t = t * nIf n Mod 2 <> 0 Then s = s + tNext nPrint sEnd Sub5. Private Sub Command1_Click()Dim i As Integer, s As Double, n As Integern = Val(InputBox("请输入一个正整数"))s = 0For i = 1 To ns = s + ((-1) ^ (i + 1)) / iNext iPrint sEnd SubPrivate Sub Command2_Click()Dim i As Integer, s As Long, n As Integer, t As Integern = Val(InputBox("请输入一个正整数"))s = 0For i = 1 To nt = t + is = s + tNext iPrint sEnd SubPrivate Sub Command3_Click()Dim i As Integer, s As Double, n As Integer ,t as integer n = Val(InputBox("请输入一个正整数"))For i = 1 To nt = i ^ 2s = s + tNext iPrint sEnd SubPrivate Sub Command4_Click()Dim i As Integer, s As Double, n As Integer, t As Integer n = Val(InputBox("请输入一个正整数"))s = 0For i = 1 To nt = (-1) ^ (i - 1) * i * (i + 1)s = s + tNext iPrint sEnd SubPrivate Sub Command5_Click()Dim i As Integer, s As Double, n As Integer, t As Integer n = Val(InputBox("请输入一个正整数"))For i = 1 To nt = t + is = s + 1 / tNext iPrint sEnd Sub6. Private Sub Command1_Click()Dim i As Integer, count As IntegerFor i = 1 To 1000If i Mod 2 <> 0 And i Mod 13 = 0 Thencount = count + 1List1.AddItem iEnd IfText1.Text = countNext iEnd Sub7. Private Sub Command1_Click()Dim i As IntegerFor i = 2000 To 2100If i Mod 400 = 0 Or (i Mod 4 = 0 And i Mod 100 <> 0) ThenList1.AddItem iEnd IfNext iEnd Sub8. Private Sub Command1_Click()Dim a(1 To 20), i As Integer, s1 As Integer, s2 As Integer, count1 As Integer, count2 As Integer RandomizeFor i = 1 To 20a(i) = Int(Rnd * 100) + 1If a(i) Mod 2 = 0 Thencount1 = count1 + 1s1 = s1 + a(i)Elsecount2 = count2 + 1s2 = s2 + a(i)End IfPrint a(i)Next iPrint "奇数和为"; s1 / count1Print "偶数和为"; s2 / count2End Sub9. Private Sub Command1_Click()Form1.FontSize = 12Dim i As IntegerFor i = 1 To 5Print Tab(5 + i); String(11 - 2 * i, "*")Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As IntegerFor i = 1 To 5Print Tab(15 - i);For j = 1 To 2 * i - 1Print Chr(69 - i + j);Next jNext iEnd Sub10. Private Sub Command1_Click()Dim n As Integer, i As IntegerDim flag As BooleanFor n = 100 To 999flag = TrueFor i = 2 To Int(Sqr(n))If n Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag Then List1.AddItem nNext nEnd Sub11. Private Sub Command1_Click()Dim x As Integer, y As Integer, z As IntegerFor x = 0 To 33For y = 0 To 49z = 100 - x - yIf 3 * x + 2 * y + z / 2 = 100 ThenPrint x, y, zEnd IfNext yNext xEnd Sub12. Private Sub Command1_Click()Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As Singlea1 = 1: a2 = 2: a3 = 3Doa4 = (a1 + a2 + a3) / 2a1 = a2: a2 = a3: a3 = a4Count1 = Count1 + 1Loop Until a4 > 1200Print Count1 + 3End Sub13. Private Sub Command1_Click()Dim a() As String, m As String, count1 As Integer, count2 As Integer, b As Integer m = InputBox("请输入字符")b = Len(m)ReDim a(1 To b)For i = 1 To ba(i) = Mid(m, i, 1)If Asc(UCase(a(i))) >= 65 And Asc(UCase(a(i))) <= 91 Then count1 = count1 + 1If Val(a(i)) >= 1 And V al(a(i)) <= 9 Thencount2 = count2 + 1ElseIf a(i) = "0" Thencount2 = count2 + 1End IfNext iPrint "字母个数为："; count1Print "数字个数为: "; count2End Sub14. Private Sub Command1_Click()Dim i As Integer, count As IntegerFor i = 100 To 999If (Val(Mid(Str(i), 2, 1)) ^ 3 + Val(Mid(Str(i), 3, 1)) ^ 3 + Val(Mid(Str(i), 4, 1)) ^ 3) = i Then count = count + 1End IfNext iPrint countEnd Sub15. Private Sub Command1_Click()Dim x0 As Single, x1 As Single, e As SingleDim f As Single, f1 As Singlex1 = InputBox("请输入迭代初值")e = InputBox("请输入迭代误差")Dox0 = x1f = x0 + Log(x0) - 2.13f1 = 1 + 1 / x0x1 = x0 - f / f1Loop Until Abs(x0 - x1) < ePrint x1End Sub16. Private Sub Command1_Click()Dim a As Single, b As Single, n As Integer, h As Single, i As Integer, s As Single, f1 As Single, f2 As Singlea = 1:b = 5n = InputBox("请输入小区间的个数")h = (b - a) / nFor i = 1 To nf1 = (a + (i - 1) * h) ^ 3 + 2 * (a + (i - 1) * h) ^ 2 - 10 * (a + (i - 1) * h) - 8f2 = (a + i * h) ^ 3 + 2 * (a + i * h) ^ 2 - 10 * (a + i * h) - 8s = s + (f1 + f2) * h / 2Next iPrint "小区间的个数="; n, "定积分的近似值="; s End Sub。