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. 选择题(1) 假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（B）。
A. Form1="VB Test"B. Caption="VB Test"C. Form1.Text="VB Test"D. ="VB Test"(2) 下列不能打开代码窗口的操作是（D）。
A．双击窗体上的某个控件B．双击窗体C．按F7键D．单击窗体或控件(3) 为了保存一个Visual Basic应用程序，应当（D）。
A．只保存窗体文件（.frm）B．分别保存工程文件和标准模块文件（.bas）C．只保存工程文件（.vbp）D．分别保存工程文件、窗体文件和标准模块文件(4) 为了装入一个Visual Basic应用程序，应当（C）。
A．只装入窗体文件（.frm）B．分别装入工程文件和标准模块文件（.bas）C．只装入工程文件（.vbp）．D分别装入工程文件、窗体文件和标准模块文件(5) 不为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（A）。
A．1 B．2 C．3 D．42. 填空题(1) 在用Visual Basic开发应用程序时，通常首先需要新建工程、其次还要经过、、、和5步。
(2) 控件和窗体的Name属性只能通过属性窗口设置，不能在运行期间设置。
(3) 代码窗口分为左右两栏，左边一栏称为对象，右边一栏称为事件。
(4) 为了在输入程序时能自动进行语法检查，必须执行菜单中的命令，打开对话框，然后选择“编辑器”选项卡中的选项。
(5) 在保存VB应用程序中，窗体文件和工程文件的扩展名分别为 .frm 和.vbp 。
(6) 为了把一个Visual Basic应用程序装入内存，只要装入工程文件即可。
(7) Visual Basic应用程序通常由3类模块组成，即、和。
(8) 在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click( )Text1.Text=“VB Programming”Text2.Text=Text1.TextText1.Text=“ABCD”End Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为ABCD 和VB Programming 。
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课后习题答案.doc
第1章参考答案1.选择题(1) B (2) B2.综合题(1)属性有：蓝色、带有纹路；方法有：踢、按住；事件有：滚动、静止。
(2)VB应用程序开发的一般步骤有：①创建用户界面；②设置对象的属性；③编写代码；④程序运行与调试；⑤保存与编译。
第2章参考答案1.选择题(1) A (2) C (3) D (4) B (5) A (6) C2.操作题Private Sub Command1_C1ick ()Label1. Caption 二Textl.TextEnd SubPrivate Sub Command2_Click()Label1. Caption 二〃〃Textl.Text 二End SubPrivate Sub Form Load ()Label1. Caption 二Textl. PasswordChar 二"$〃End Sub第3章参考答案1.选择题(1)B、C 分析：(B) 3Acd以数字开头；(C)IF是VB的关键字(2) B 分析：逻辑常量的值只有两个True和False,特别注意” false”是字符串常量。
(3) C 分析：VB表达式不区分大小写。
(4) C 分析：Long是长整型，Byte是字节型，Interge是整型。
2.综合题(1) a = Int(Rnd * (100))分析：产生一个区间在［m, n］之间的随机整数，其表达式为Int(Rnd*(n-m+1)+m)(2)Int (X*100+0. 5)/100 分析：Int (X*100+0. 5)的作用是将X 扩大100 倍后，第三位小数小于0.5,则舍掉，大于0.5,则产生进位，取整后就是四舍五入的作用，再除以100,是还原为原值。
(3)Private Sub Command1_C1ick()a 二Int (99 * Rnd + 1)b 二Int (99 * Rnd + 1)Label1. Caption 二 a & "+〃 & b & "二?“End Sub(3)①False ②True ③ 8 Mod 3+3八3/4\5 (有改动)答案：3第4章参考答案1.填空(1)T F (2)F (3) HEIGHT>160 AND HEIGHT<165 END IF(4) SC0RE>60^ LblSc. caption=、ELSE> LblSc. caption-., ENDIF (5)EXIT(6)21 (7)16 (8) 0 、 1 、>100 、Total+Num、Num+22.程序设计题(略)第5章章参考答案1.选择CCDBDDBCCABACBB2.操作题(1)实现多中选一的功能，通过用图片框和框架来实现单选按钮的分组，方法是，选中图片框或框架后，再在里面绘制单选按钮，另一种方法是将绘制好单选按钮剪切粘贴到图片框或框架中。
VB教材课后习题答案
<大学程序设计基础-Visual Basic>教材课后习题答案第1章一、选择题1 2 3 4 5 6 7B D BC B B D第2章一、选择题1 2 3 4 5 6 7 8 9 10B C B C B C A A A A11 12 13 14A B A A二、填空题1.rem或’ _ ：2.“” # #3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = 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 = 10End Sub5、程序代码：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章一、选择题1 2 3 4 5 6 7D A D B A D B二、填空题1. False2.B^2-4*a*c else三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。
如果能构成一个三角形，则计算三角形的面积。
VB部分课后习题答案
1. 选择题(1) 假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（B）。
A. Form1="VB Test"B. Caption="VB Test"C. Form1.Text="VB Test"D. ="VB Test"(2) 下列不能打开代码窗口的操作是（D）。
A．双击窗体上的某个控件B．双击窗体C．按F7键D．单击窗体或控件(3) 为了保存一个Visual Basic应用程序，应当（D）。
A．只保存窗体文件（.frm）B．分别保存工程文件和标准模块文件（.bas）C．只保存工程文件（.vbp）D．分别保存工程文件、窗体文件和标准模块文件(4) 为了装入一个Visual Basic应用程序，应当（C）。
A．只装入窗体文件（.frm）B．分别装入工程文件和标准模块文件（.bas）C．只装入工程文件（.vbp）．D分别装入工程文件、窗体文件和标准模块文件(5) 不为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（A）。
A．1 B．2 C．3 D．42. 填空题(1) 在用Visual Basic开发应用程序时，通常首先需要新建工程、其次还要经过、、、和5步。
(2) 控件和窗体的Name属性只能通过属性窗口设置，不能在运行期间设置。
(3) 代码窗口分为左右两栏，左边一栏称为对象，右边一栏称为事件。
(4) 为了在输入程序时能自动进行语法检查，必须执行菜单中的命令，打开对话框，然后选择“编辑器”选项卡中的选项。
(5) 在保存VB应用程序中，窗体文件和工程文件的扩展名分别为 .frm 和.vbp 。
(6) 为了把一个Visual Basic应用程序装入内存，只要装入工程文件即可。
(7) Visual Basic应用程序通常由3类模块组成，即、和。
(8) 在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click( )Text1.Text=“VB Programming”Text2.Text=Text1.TextText1.Text=“ABCD”End Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为ABCD 和VB Programming 。
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课后练习答案习题解答 (5).
第5章数组与记录5.1 填空题1.若要定义一个包含10个字符串元素,且下界为1的一维数组s,则数组说明语句为(。
答案:Dim s(1 To 10 As String2.若要定义一个元素为整型数据的二维数组a,且第一维的下标从0到5,第二维下标从-3到6,则数组说明语句为(。
答案:Dim a(0 To 5,-3 To 6 As Integer3.如果数组元素的下标值为实数,则VB系统会按(进行处理。
答案:四舍五入原则4.数组元素个数可以改变的数组称为(;数组元素可以存放不同类型数据的数组称为(。
答案:可调数组、可变类型数组5.数组刷新语句用于(。
若被刷新的数组是数值数组,则把所有元素置(;若被刷新的数组为字符串数组,则把所有元素置(。
答案:清除指定数组内容、0、空字符串10.控件数组是由一组类型和(相同的控件组成,共享(。
答案:名字、同一个事件过程11.控件数组中的每一个控件都有唯一的下标,下标值由(属性指定。
答案:Index12.建立控件数组有两种方法:(和(。
答案:在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法5.2 选择题1.下列一维数组说明语句错误的是(。
a Dim b(100 AS Doubleb Dim b(-5 To 0 AS Bytec Dim b(-10 To –20 AS Integerd Dim b(5 To 5 AS String答案:c2.若有数组说明语句为:Dim a(-3 To 8,则数组a包含元素的个数是(。
a 5b 8c 11d 12答案:d3.设有数组说明语句:Dim c(1 To 10,则下面表示数组c的元素选项中(是错误的。
a c(i-1b c(5+0.5c c(0d c(10答案:c4.下列数组说明语句中正确的是(。
a Dim a(-1 To 5,8AS Stringb Dim a(n,nAS Integerc Dim a(0 To 8,5 To –1AS Singled Dim a(10,-10AS Double答案:a5.设有数组说明语句:Dim b(-1To2,-2To2,则数组b中元素的个数是(。
vb课后练习答案习题解答
v b课后练习答案习题解答(1)(共3页)--本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--第1章程序设计语言与程序设计1．1填空题1．程序设计语言是由（）、（）和（）构成的指令系统。
答案：字、词、语法规则2．程序设计语言从机器执行角度可以分成（）和（）两大类。
VB语言是一种（）程序设计语言。
答案：低级语言、高级语言、事件驱动3．程序是解决特定问题的指令序列，主要完成（）和（）两方面工作。
答案：4．使用可视化程序设计语言设计应用程序，主要完成（）和（）两部分工作。
答案：数据描写、数据处理5．源程序中的错误一般分为（）错误、（）错误和（）错误等三种。
答案：编译、运行、逻辑6．建立一个VB工程要做的工作包括（）。
答案：需求分析、界面设计、设计程序、上机调试程序和保存程序11．2 选择题1．把a和b的乘积写成ab的错误属于（）错误。
a) 编译 b) 运行 c) 逻辑 d) 编译和运行答案：a2．用户在什么时候都可以按（）键来查看与当前进行的工作相关的帮助。
a)Held b)F1 c)ESC d)F10答案：b3．窗体文件的扩展名为（）。
a).vbp b).bas c).exe d).frm答案：d4．指示一个窗体位置的值是窗体的（）。
a)对象 b)事件 c)属性 d)方法答案：c5．下面选项中不能运行VB程序的操作是（）。
a) 双击窗体 b) 单击“启动”按钮图标c) 从菜单栏运行菜单中选“全编译执行”菜单命令 d) 按F5键答案：a1．3 解答题1．低级语言和高级语言的各自特点是什么答：低级语言包括机器语言和汇编语言。
它们都包含一些指令。
机器语言指令是由０和１构成，它能直接被机器识别和执行。
汇编语言是由一些特定的2助记符代表指令，用汇编语言编写的程序只需经过简单的翻译就可以被机器执行。
低级语言的特点是程序执行的速度快，运行效率高，但难学、难记、难阅读，程序设计难度大，非专业人员难以涉足。
vb课后习题答案
VB教程课后习题的答案及解析
=第二章标准控件和属性1．下列可以激活属性窗口的操作是（ D ）A）用鼠标双击窗体的任何部位 B）执行‘工程’菜单中的‘属性窗口’命令 C）按Ctrl+F4键 D）按F4键2．确定一个控件在窗体上的位置的属性是（ D ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left3．确定一个窗体或控件的大小的属性是（ B ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left4．在Visual Basic中，所有标准控件都具有的属性是( B )。
【2013年9月考试真题】A) Caption B) Name C) Text D) Value参考答案：B【解析】VB标准控件中不同控件具有不同属性，有的相同有的不同，但都具有Name属性。
故选B。
5．为了让计时器控件每隔10秒产生了一个Timer事件，应把Interval属性设置为（ B ）A) 1000 B) 10000 C) 10 D) 1006．下面关于单选按钮和复选框的叙述中正确的是（ D ）A) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为2B) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为TrueC) 单选按钮被选中则它的Value属性为1；复选框被选中则它的Value属性为1D) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为17．将文本框的ScrollBar设置为2，文本框中却没有垂直滚动条，其原因为（ B ）A) 文本框的Locked属性值为True B) 文本框的MultiLine属性值为FalseC) 文本框的MultiLine属性值为True D) 文本框中没有内容第三章简单程序设计语句1.在面向对象的程序设计中，可被对象识别的动作称为( B )。
vb课后所有习题答案
并不完善，仅供参考。
5．1答案一、选择题1---10：DCCAC ACDDC11---13:DDD二、判断题TTFFT TFTT三、分析1、Pos=pos+1Neg=neg+1Print pos；neg2、不见了3、程序改为：Dim a%()N = InputBox("please input n：")ReDim a(n, n)For i = 1 To nFor j = 1 To iIf j = 1 Or j = i Thena(i, j) = 1Elsea(i, j) = a(i - 1, j) + a(i - 1, j - 1)End IfPrint Tab((j - 1) * 6); a(i, j);Next jPrintNext i三、1、Option Base 1Private Sub Command1_Click()Dim A(10) As IntegerDim sum!RandomizeA(i) = (50 - 20 + 1) * Rnd + 20Next iFor i = 1 To 10Print A(i);Next iPrintMax = A(1)For i = 1 To 10If A(i) > Max ThenMax = A(i)End IfNext iPrint "最大值" & MaxMin = A(1)For i = 1 To 10If A(i) < Min ThenMin = A(i)End IfNext iPrint "最小值" & Minsum = 0For i = 1 To 10sum = sum + A(i)Next iPrint "总和＝"; sum & "平均值＝"; sum / 102、Option Base 1Private Sub Command1_Click()Dim a(20) As Integera(1) = 1a(2) = 1For i = 3 To 20a(i) = a(i - 1) + a(i - 2)Next iIf i Mod 5 = 0 ThenPicture1.Print a(i)ElsePicture1.Print a(i),End IfNext iEnd Sub3、Option Base 1Private Sub Form_Click()Dim a(3, 4) As IntegerFor i = 1 To 3For j = 1 To 4a(i, j) = InputBox(":")Next jNext iMax = a(1, 1): imax = 1: jmax = 1 Min = a(1, 1): imin = 1: jmin = 1 For i = 1 To 3For j = 1 To 4If Max < a(i, j) ThenMax = a(i, j)imax = ijmax = jEnd IfIf Min > a(i, j) ThenMin = a(i, j)imin = ijmin = jEnd IfNext jNext iFor i = 1 To 3For j = 1 To 4Print a(i, j);Next jPrintNext iPrintPrint "Max="; Max; " 行号"; imax; " 列号"; jmax Print "Min="; Min; " 行号"; imin; " 列号"; jmin End Sub4、Option Base 1Private Sub Command1_Click()Dim a()a = Array(7, 6, 5, 1, 8, 5, 3, 9, 4)n = Val(InputBox("请输入要删除的数："))For i = 1 To UBound(a)If a(i) = n Thenk = iExit ForEnd IfNext iFor i = k + 1 To UBound(a)a(i - 1) = a(i)Next iReDim Preserve a(UBound(a) - 1)For i = 1 To UBound(a)Print a(i);Next iPrintEnd Sub5．2答案一、选择题1---10：ADBAD BABBB11---:BDDBA二、判断题TTFFF FFFTF（15题BackColor去掉空格，FillSte全部漏了y）三、1、1000Timer1.Enabled = trues = (x Mod 3600) Mod 602、n=3 x=42 y=9四、1、Private Sub Command1_Click()For i = 0 To List1.ListCount - 1List3.AddItem List1.List(i)Next iFor i = 0 To List2.ListCount - 1List3.AddItem List2.List(i)Next iEnd Sub2、Private Sub Form_Load()Label1.Left = 0Label1.Top = 0End SubPrivate Sub Timer1_Timer()Static iIf i = 0 ThenLabel1.BackColor = vbRedElseIf i = 1 ThenLabel1.BackColor = vbBlueElseLabel1.BackColor = vbGreeni = -1End Ifi = i + 1If Label1.Top > Form1.Height ThenLabel1.Left = 0Label1.Top = 0ElseLabel1.Left = Label1.Left + (Form1.ScaleWidth - Label1.Width) / 10Label1.Top = Label1.Top + (Form1.ScaleHeight - Label1.Height) / 10End IfEnd Sub3、Dim t1 As DoubleDim t2 As DoublePrivate Sub Command1_Click()t1 = NowLabel1.Caption = Format(t1, "hh:mm:ss")Label2.Caption = Format(t1, "hh:mm:ss")Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseLabel3.Caption = Format(t2 - t1, "hh:mm:ss")End SubPrivate Sub Form_Load()Timer1.Interval = 1000Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()t2 = NowLabel2.Caption = Format(t2, "hh:mm:ss")End Sub5．3答案一、选择题DBD(第3题答案是d、12 7，12漏了1)DC BCD(A多了一个”值”字)A 二、TTTTT三、1、2 5 9该题Command3改为command12、函数改为：Sub swap(b() As Integer)n = UBound(b)For k = 1 To n \ 2t = b(k)b(k) = b(11 - k)b(11 - k) = tNext kEnd Sub3、四、程序设计1、子过程和函数过程各一个做法Sub subsushu(x As Integer, k As Boolean)k = TrueFor i = 2 To x - 1If x Mod i = 0 Thenk = FalseExit ForEnd IfNext iEnd SubFunction fsushu(x As Integer) As Boolean fsushu = TrueFor i = 2 To x - 1If x Mod i = 0 Thenfsushu = FalseExit ForEnd IfNext iEnd FunctionPrivate Sub Command1_Click()Dim k As Booleanx% = InputBox("input x:")Call subsushu(x, k)If k = True ThenPrint x; "是素数"Print x; "非素数"End IfEnd SubPrivate Sub Command2_Click() x% = InputBox("input x:")If fsushu(x) = True ThenPrint x; "是素数"ElsePrint x; "非素数"End IfEnd Sub2、Option Base 1Sub fmax(a() As Integer, max) max = a(1)For i = 1 To UBound(a)If a(i) > max Thenmax = a(i)End IfNext iEnd SubPrivate Sub Command1_Click() Dim a(10) As IntegerFor i = 1 To 10a(i) = Rnd * 100Next iFor i = 1 To 10Print a(i);Next iPrintCall fmax(a(), max)Print "max="; maxEnd Sub3、Function xsum(x)Sum = 1For i = 1 To xSum = Sum + x ^ iNext ixsum = SumEnd FunctionPrivate Sub Command1_Click()a = 3b = 5c = 7d = 9Print a / xsum(a) + b / xsum(b) + c / xsum(c) + d / xsum(d)End Sub4、Function sp(ss, sc, sr)Do While InStr(ss, sc) > 0x = InStr(ss, sc)If x = 1 Thenss = sr & Right(ss, Len(ss) - Len(sc))Elses1 = Left(ss, x - 1)s2 = Right(ss, Len(ss) - (x - 1) - Len(sc))ss = s1 & sr & s2End IfLoopsp = ssEnd FunctionPrivate Sub Command1_Click()ss = "abcabcbc"sc = "bc"sr = "99"Print sp(ss, sc, sr)End Sub5．4答案一、选择题BCBAA B(其中y=IIf(x>10,100,-100) f,Show 改为y = IIf(x > 10, 100, -100)f.Show）BBA二、1、“文本文件（*.txt）|*.txt”CommonDialog1.FileName2、Form1.hide三、1、2题合并如下Private Sub baocun_Click()CommonDialog1.ShowSaveOpen CommonDialog1.FileName For Output As #1 Print #1, Text1.TextClose #1End SubPrivate Sub beijingse_Click()CommonDialog1.ShowColorText1.BackColor = CommonDialog1.ColorText1.BackColor = CommonDialog1.ColorEnd SubPrivate Sub dakai_Click()CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #1 While Not EOF(1)Line Input #1, iText1.Text = Text1.Text & i & vbCrLfWendClose #1End SubPrivate Sub qianjingse_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub tuichu_Click()EndEnd SubPrivate Sub ziti_Click()CommonDialog1.ShowFontText1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeEnd Sub5．5答案一、选择题第一题好像都是对的？（多了个D）BAAD(其中c：“filel.txt都改为c:\file1.txt C二、分析题1 、dat改为txt文件y= 5 a= 5y= 15 a= 10y= 30 a= 152、程序改为Private Sub command1_click()Dim indata As StringText1.Text = ""Open "c:\a1.txt" For Input As #1Do While Not EOF(1)Input #1, indataText1.Text = Text1.Text & indataLoopClose #1End Sub3、程序改为Private Sub Form_Click()Dim x As Single, y As SingleOpen "d:\nm1.txt" For Input As #1Open "d:\NM2.txt" For Output As #2Do While Not EOF(1)Input #1, xPrint xy = x ^ 2Write #2, yPrint yLoopClose #1, #2End Sub三、设计题1、略2、略此2题好像比较简单。
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程序设计课后习题答案
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课后练习答案习题解答(4)
第4章常用控件4．1 填空题1．在图片框上放置的控件称为图片框的（）对象，而窗体是图片框的（）对象。
答案：子对象、父对象2．窗体的“名称”（Name）属性只能在（）设置。
答案：属性窗口中3．在程序中设置窗体Forml的Caption属性为“主窗体”，使用的赋值语句是（）。
答案：Forml.Caption=“主窗体”4．当窗体的Enabled属性为（）时，指定窗体响应事件。
答案：True5．窗体的Unload事件是在QueryUnload事件发生之（）发生。
答案：之后6．程序中，把当前窗体移动到屏幕左上角使用的方法为（）。
答案：Move 0,07．在窗体Form1中坐标为（1600，800）的位置上输出字符串“Visual BASIC 6.0”使用的语句为（）、（）、和（）。
答案：Form1.Currrentx=1600、Form1.Currenty=800、Form1.Print “Visual BASIC 6.0”8．若使文本框有边框，需设置BorderStyle属性的值为（）。
答案：19．在程序运行期间，用户可以用文本框显示信息。
文本框接受输入的内容的属性是（）。
答案：Text10．若使文本框内能够接受多行文本，则要设置Multiline属性的值为（）。
答案：True11．要把图形文件“c:\sample\diannt.jpg”装载到图片框Picture1上，使用的语句为（）。
答案：Picture1. Picture=LoadPicture(“c:\sample\diannt.jpg”)12．若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为（）。
答案：True13．除了在程序使用LoadPicture函数装载图形外，还可以在设计阶段通过修改（）属性装载图形。
答案：Picture14．若程序中要把一些文本内容输出到图片框PictureBox，应使用（）方法。
答案：Print15．当单选按钮OptionButton的Value属性为（）时，表示该单选按钮处于未选中状态。
vb课后习题参考答案
vb课后习题参考答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。
答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。
答：①向光驱中放入VB安装光盘；②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动VB。
答：三种方法：①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动VB；第二章习题参考答案一、选择题：1-10、DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6．Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、ASCII、1、25、&、+、+6、Now()、Time、日期型三、解答题1、(3)2、(1 )3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)（3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))6、7、（1）13 （2）17（3）#1999-11-12# （4）zxy123ABC8、（1）19 （2）8.16666666666667（3）5．25 （4）29、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello” （6）He7）16 （8）“-459.65” （9）510、（4）11、（2）12、（4）第四章习题参考答案一、选择题：1—7: DAABBCD二、填空题1．500.00%2．将字号扩大为原来的二倍3． B三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。
vb课后练习答案习题解答（2）
vb课后练习答案习题解答（2）第2章基本数据类型与表达式2．1 填空题1．程序设计语言中（）是语言的最基本符号，（）是具有语法意义的最小语法单位。
答案：字符、单词2．（）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。
答案：标识符3．整型数据占（）字节的内存空间。
长整型数据占（）个字节的内存空间。
单精度浮点型数据占（）个字节的内存空间。
双精度浮点型数据占（）个字节的内存空间。
日期型数据占（）个字节的内存空间。
答案：2、4、4、8、84．100% 表示100为（）型数据；100！表示100为（）型数据；100＠表示100为( )型数据.答案：整、单精度浮点、货币5．符号常量在某一过程中说明，则该符号常量只能在（）内有效。
答案：该过程内6．若一个整型变量说明了之后没有给它赋值，则它的值为（）。
答案：07．在VB中可以把类型说明符放在变量名的（）来说明变量的类型。
答案：末尾8．为了使VB的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程序中要加上（）语句。
答案：Option Explicit9．对含有多种运算的表达式，各种运算之间的顺序为（）→（）→（）→（）。
答案：函数运算、算术运算、关系运算、逻辑运算10．把1234.567的小数部份四舍五入转换为整数，可使用函数（）。
答案：Cint(1234.567)11．将x四舍五入到百位（例如，若x=23874.52应舍入成23900），可使用表达式（）。
答案：Int(x / 100 + 0.5) * 10012．将x从十位截断（例如，x=23874.52应截成23800）可使用表达式（）。
答案：Fix(x / 100) * 100或者Int(x/100)*100或者Cint(x\100-0.5)*10013．设X为数值变量，求X的常用对数可使用的表达式是（）。
答案：Log(X)/Log(10)14．要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
习题3—4 （P126）Private Sub Command1_Click()Image1.Width = Image1.Width * 1.2Image1.Height = Image1.Height * 1.2End SubPrivate Sub Command2_Click()Image1.Width = Image1.Width / 1.2Image1.Height = Image1.Height / 1.2End SubPrivate Sub Command3_Click()Image1.Width = Form1.WidthImage1.Height = Form1.HeightEnd SubPrivate Sub Form_Load()Image1.Left = 0Image1.Top = 0Image1.Picture = LoadPicture(App.Path & "\back.jpg") End Sub习题3—5 （P126）Dim mleft As LongPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()mleft = Label1.Left + 100If mleft + Label1.Width > Picture1.Width Thenmleft = 0End IfLabel1.Left = mleftEnd Sub习题4—1 （P170）Private Sub Form_Load()Form1.ShowSum = 0For i = 1 To 4a = InputBox("请输入数值型数据")Sum = Sum + aave = Sum / 4NextPrint Sum; aveEnd Sub习题4—3 （P170）Private Sub Command1_Click()a = 5b = 2.5c = 7.8pi = 3.14159265y = pi * a * b / a + b * cPrint yEnd Sub习题4—4Private Sub Command1_Click()a = Val(Text1.Text)tian = a \ 86399xiaoshi = (a - tian * 86400) \ 1439fenzhong = (a - tian * 86400 - xiaoshi * 1440) \ 59miao = a - tian * 86400 - xiaoshi * 1440 - fenzhong * 60Text2.Text = tian & "天" & xiaoshi & "小时" & fenzhong & "分钟" & miao & "秒" End Sub习题4—5Private Sub Command1_Click()Const g As Single = 9.81t = InputBox("请输入t的值")v0 = InputBox("请输入v0的值")s = 1 / 2 * g * t * t + v0 * tPrint Format(s, "0.##")End Sub习题4—6Private Sub Command1_Click()Sum = 0For i = 2 To 100 Step 2Sum = Sum + iNextLabel1.FontSize = 20Label1.Caption = "2+4+6+……+100=" & SumEnd Sub习题4—7Private Sub Command1_Click()Doa = InputBox("请输入三角形的第一条边长")a1 = Val(a)If a1 = -1 ThenEndEnd Ifb = InputBox("请输入三角形的第二条边长")b1 = Val(b)If b1 = -1 ThenEndEnd Ifc = InputBox("请输入三角形的第三条边长")c1 = Val(c)If c1 = -1 ThenEndEnd IfIf (a1 + b1 > c1) And (a1 + c1 > b1) And (b1 + c1 > a1) Then s = a1 + b1 + c1Exit DoElseError1 = MsgBox("您输入的数据不能组成三角形")End IfLoopLabel4.Caption = "您输入的边长分别为：" & a1 & "," & b1 & "," & c1 & " " & "面积为：" & sEnd Sub习题4—8Private Sub Command1_Click()If Text1.Text <> "" Thena = Text1.TextSelect Case aCase Is <= 200s = 0Case Is <= 400s = (a - 200) * 0.03Case Is < 5000s = 200 * 0.03 + (a - 400) * 0.04Case Is >= 5000s = (400 - 200) * 0.03 + (5000 - 400) * 0.04 + (a - 5000) * 0.05 End SelectText2.Text = sElseerror1 = MsgBox("请输入您的收入！")End IfEnd SubPrivate Sub Form_Load()Text2.Locked = TrueEnd SubPrivate Sub Text1_Change()If Not IsNumeric(Text1.Text) Thenerror1 = MsgBox("请输入数字")End IfEnd Sub习题4—9Private Sub Text1_Change()a = Text1.TextSelect Case aCase 0Label2.Caption = "休息"Text1.SelStart = 0Text1.SelLength = 1Case 1, 3Label2.Caption = "讲计算机课"Text1.SelStart = 0Text1.SelLength = 1Case 2, 4Label2.Caption = "讲程序设计课"Text1.SelStart = 0Text1.SelLength = 1Case 5Label2.Caption = "进修英语"Text1.SelStart = 0Text1.SelLength = 1Case 6Label2.Caption = "政治学习"Text1.SelStart = 0Text1.SelLength = 1Case ElseError1 = MsgBox("您确认退出程序？", 52, "确认")If Error1 = 6 ThenEndElseText1.SelStart = 0Text1.SelLength = 1End IfEnd SelectEnd Sub习题4—10Private Sub Command1_Click()For i = 1 To 9Print Tab(30 - 3 * i);For j = 1 To iPrint j;Next jFor k = i - 1 To 1 Step -1Print k;Next kPrintNext iEnd Sub习题4—11Private Sub Command1_Click()For i = 1 To 30For j = i To 30For k = j To 30If i * i + j * j = k * k ThenPrint Tab(10); i, Tab(23); j, Tab(36); k End IfNext k, j, iEnd Sub习题4—12Private Sub Form_Click()Dim m As Integer, n As Integerm = CInt(Val(InputBox("请输入计算范围的初值"))) n = CInt(Val(InputBox("请输入计算范围的终值"))) For i = m To ns = 0For j = 1 To i - 1If i Mod j = 0 Thens = s + jEnd IfNext jIf s = i Then Print iNext iEnd Sub习题4—13Private Sub Form_Click()Dim a As String, c As StringDim b As Integera = InputBox("请输入学生姓名")b = InputBox("请输入学生成绩")Select Case bCase Is <= 39c = "Fail"Case Is <= 49c = "Poor"Case Is <= 59c = "Fair"Case Is <= 79c = "Good"Case Elsec = "Very Good"End SelectPrint "姓名：" & aPrint "成绩：" & bPrint "评语：" & cEnd Sub习题4—14Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If a < 10 Or a > 99 Thenerror1 = MsgBox("您输入的不是两位正整数，请重新输入")ElseFor i = 10 To 99a1 = a \ 10 + (a Mod 10) * 10i1 = i \ 10 + (i Mod 10) * 10If (a + i = a1 + i1) And (a1 > 9) And (i1 > 9) ThenLabel2.Caption = Label2.Caption & Chr(13) & a & "+" & i & "=" & a1 & "+" & i1Form1.Height = Label2.Height + Label2.Top + 1000End IfNextEnd IfEnd Sub习题4—15Dim a, b, s As DoubleDim flag, com As IntegerPrivate Sub Command1_Click()If flag = 0 ThenText1.Text = Text1.Text & Command1.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command1.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command2_Click()If flag = 0 ThenText1.Text = Text1.Text & Command2.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command2.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command3_Click()If flag = 0 ThenText1.Text = Text1.Text & Command3.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command3.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command4_Click()If flag = 0 ThenText1.Text = Text1.Text & Command4.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command4.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command5_Click()If flag = 0 ThenText1.Text = Text1.Text & Command5.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command5.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command6_Click()If flag = 0 ThenText1.Text = Text1.Text & Command6.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command6.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command7_Click()If flag = 0 ThenText1.Text = Text1.Text & Command7.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command7.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command8_Click()If flag = 0 ThenText1.Text = Text1.Text & Command8.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command8.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command9_Click()If flag = 0 ThenText1.Text = Text1.Text & Command9.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command9.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command10_Click()If flag = 0 ThenText1.Text = Text1.Text & Command10.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command10.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command11_Click()If flag = 0 ThenText1.Text = Text1.Text & Command11.Captiona = Val(Text1.Text)ElseText1.Text = ""flag = 0Text1.Text = Text1.Text & Command11.Captiona = Val(Text1.Text)End IfEnd SubPrivate Sub Command12_Click()Select Case comCase 1a =b + aText1.Text = aflag = 1Case 2a =b - aText1.Text = aflag = 1Case 3a =b * aText1.Text = aflag = 1Case 4a =b / aText1.Text = aflag = 1End SelectEnd SubPrivate Sub Command13_Click()b = aflag = 1com = 1End SubPrivate Sub Command14_Click()b = aflag = 1com = 2End SubPrivate Sub Command15_Click()b = aflag = 1com = 3End SubPrivate Sub Command16_Click()b = aflag = 1com = 4End Sub习题5—1 （P196）Private Sub Form_Click()Dim a(1 To 20)For i = 1 To 20a(i) = InputBox("请输入第" & i & "个元素") Next iFor i = 1 To 20Print a(i); " ";Next iPrintFor i = 1 To 10t = a(i)a(i) = a(21 - i)a(21 - i) = tNext iPrint a(i),Next iEnd Sub习题5—2Private Sub Form_Click()Dim a(1 To 10, 1 To 10)For i = 1 To 10For j = 1 To 10If i = j Thena(i, j) = 1ElseIf i + j = 11 Thena(i, j) = 1Elsea(i, j) = 0End IfNext jNext iFor i = 1 To 10For j = 1 To 10Print a(i, j);Next jPrintNext iEnd Sub习题5—3Private Sub Form_Click()Dim a() As Integern = InputBox("请输入n")m = InputBox("请输入m")Print "数组为" & n & "行" & m & "列"ReDim a(n, m)For i = 1 To nFor j = 1 To ma(i, j) = InputBox("请输入第" & i & "行" & j & "列") Next jNext iFor i = 1 To nFor j = 1 To mPrint a(i, j);Next jPrintNext is = 0For j = 1 To ms = s + a(i, j)Next jNext iv = s / (n * m)Print "平均值为：" & vFor i = 1 To nFor j = 1 To mIf a(i, j) > v ThenPrint "元素：" & a(i, j) & "行号：" & i & "列号：" & j End IfNext jNext iEnd Sub习题5—4Private Sub Form_Click()Dim a(1 To 50, 1 To 4) As IntegerFor i = 1 To 50For j = 1 To 4a(i, j) = Int(Rnd * 90 + 10)Next jNext i'显示满足条件的行For i = 1 To 50For j = 1 To 4If a(i, j) > 90 ThenFor k = 1 To 4Print a(i, k) & " ";Next kPrintExit ForEnd IfNext jNext i'显示完整数组For i = 1 To 50For j = 1 To 4Print a(i, j) & " ";Next jPrintNext iEnd Sub习题5—5Private Sub Form_Click()Dim n As Integer, m As IntegerDim a() As Integern = InputBox("请输入行数n")m = InputBox("请输入列数m")ReDim a(1 To n, 1 To m)For i = 1 To nFor j = 1 To ma(i, j) = InputBox("请输入第" & i & "行" & j & "列的元素") Next jNext iFor i = 1 To nFor j = 1 To mPrint Format(a(i, j), "000") & " ";Next jPrintNext ian_num = 0For i = 1 To nhmax = a(i, 1)lhao = 1For j = 1 To mIf a(i, j) > hmax Thenhmax = a(i, j)lhao = jEnd IfNext jlmin = a(i, lhao)For k = 1 To nIf a(k, lhao) < lmin Thenlmin = a(k, lhao)End IfNext kIf lmin = hmax ThenPrint " 鞍点为：" & i & "行" & lhao & "列"an_num = an_num + 1End IfNext iIf an_num = 0 Then Print "无鞍点"End Sub习题5—6Private Sub Form_Click()Dim a(1 To 3, 1 To 3) As IntegerDim b(1 To 3, 1 To 3) As IntegerDim c(1 To 3, 1 To 3) As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = Int(Rnd * 90 + 10)b(i, j) = Int(Rnd * 90 + 10)Next jNext iPrint "数组A:"For i = 1 To 3For j = 1 To 3Print a(i, j) & " ";Next jPrintNext iPrint "数组B:"For i = 1 To 3For j = 1 To 3Print b(i, j) & " ";Next jPrintNext iFor i = 1 To 3For j = 1 To 3c(i, j) = a(i, j) + b(i, j)Next jNext iPrint "数组C:"For i = 1 To 3For j = 1 To 3Print c(i, j) & " ";Next jPrintNext iEnd Sub习题5—7Private Sub Form_Click()Dim a(1 To 10, 1 To 3)Dim s As Integer, av As IntegerFor i = 1 To 10a(i, 1) = InputBox("请输入第" & i & "个学生的姓名") a(i, 2) = InputBox("请输入第" & i & "个学生的学号") a(i, 3) = InputBox("请输入第" & i & "个学生的成绩") Next iPrint "原始数据为:"Print "姓名", "学号", "成绩"For i = 1 To 10For j = 1 To 3Print a(i, j),Next jPrintNext is = 0For i = 1 To 10s = s + a(i, 3)Next iav = s / 10Print "平均成绩为:" & avPrint "姓名", "学号", "成绩", "奖金等级"For i = 1 To 10If a(i, 3) > av * 1.1 ThenPrint a(i, 1), a(i, 2), a(i, 3), "一等奖"ElseIf a(i, 3) > av * 1.05 ThenPrint a(i, 1), a(i, 2), a(i, 3), "二等奖"End IfNext iEnd Sub习题5—8Private Sub Form_Click()Dim a(1 To 10, 1 To 4)For i = 1 To 10a(i, 1) = InputBox("请输入第" & i & "个学生的姓名")a(i, 2) = Val(InputBox("请输入第" & i & "个学生的语文成绩")) a(i, 3) = Val(InputBox("请输入第" & i & "个学生的数学成绩")) a(i, 4) = (a(i, 2) + a(i, 3)) / 2Next iPrint "姓名", "语文", "数学", "平均分"For i = 1 To 10For j = 1 To 4Print a(i, j),Next jPrintNext iFor i = 10 To 2 Step -1For j = 1 To i - 1If a(j, 4) < a(j + 1, 4) Thent = a(j, 1)a(j, 1) = a(j + 1, 1)a(j + 1, 1) = tt = a(j, 2)a(j, 2) = a(j + 1, 2)a(j + 1, 2) = tt = a(j, 3)a(j, 3) = a(j + 1, 3)a(j + 1, 3) = tt = a(j, 4)a(j, 4) = a(j + 1, 4)a(j + 1, 4) = tEnd IfNext jNext iPrint "姓名", "语文", "数学", "平均分" For i = 1 To 10For j = 1 To 4Print a(i, j),Next jPrintNext iEnd Sub习题5—9Private Sub Form_Click()Dim a, b, c(0 To 5) As Integera = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66)Print "A数组的内容:"For Each x In aPrint x,Next xPrintPrint "B数组的内容:"For Each x In bPrint x,Next xPrintPrint "C数组的内容:"For i = 0 To 5c(i) = a(i) + b(i)Print c(i),Next iEnd SubPrivate Sub Form_Click()Dim a(1 To 4, 1 To 4) As IntegerFor i = 1 To 4For j = 1 To 4a(i, j) = InputBox("请输入第" & i & "行第" & j & "列的元素") Next jNext iPrint "原始数组:"For i = 1 To 4For j = 1 To 4Print a(i, j),Next jPrintNext iPrint "主对角线:"For i = 1 To 4Print a(i, i),Next iPrintPrint "另一条对角线:"For i = 1 To 4Print a(i, 5 - i),Next iPrintFor i = 1 To 4s = 0For j = 1 To 4s = s + a(i, j)Next jPrint "第" & i & "行的和为:" & sNext iFor i = 1 To 4s = 0For j = 1 To 4s = s + a(j, i)Next jPrint "第" & i & "列的和为:" & sNext iFor i = 1 To 4t = a(1, i)a(1, i) = a(3, i)a(3, i) = tNext it = a(i, 2)a(i, 2) = a(i, 4)a(i, 4) = tNext iPrint "结果数组:"For i = 1 To 4For j = 1 To 4Print a(i, j),Next jPrintNext iEnd Sub习题5—11Private Sub Form_Click()Dim a()Dim n As Integern = InputBox("请输入人数N")ReDim a(1 To n, 1 To 5)For i = 1 To na(i, 1) = InputBox("请输入第" & i & "个人的姓名")a(i, 2) = InputBox("请输入第" & i & "个人的性别")a(i, 3) = InputBox("请输入第" & i & "个人的年龄")a(i, 4) = InputBox("请输入第" & i & "个人的文化程度") a(i, 5) = InputBox("请输入第" & i & "个人的籍贯") Next iPrint "原始数据:"Print "姓名", "性别", "年龄", "文化程度", "籍贯"For i = 1 To nFor j = 1 To 5Print a(i, j),Next jPrintNext iPrint "查找的结果:"x = 6Do While x = 6sn = InputBox("请输入要查找的人的姓名")For i = 1 To nIf sn = a(i, 1) ThenFor j = 1 To 5Print a(i, j),Next jPrintExit ForEnd IfNext iIf i > n Then Print "没有找到该人"x = MsgBox("你是否还要继续查找??", vbInformation + vbYesNo, "提问") LoopEnd Sub习题5—12Private Sub Form_Click()Dim a(1 To 10, 1 To 2)For i = 1 To 10a(i, 1) = CStr(InputBox("请输入运动员号"))a(i, 2) = Val(InputBox("请输入成绩"))Next iPrint "原始的顺序"Print "运动员号", "成绩"For i = 1 To 10For j = 1 To 2Print a(i, j),Next jPrintNext iFor i = 10 To 2 Step -1For j = 1 To i - 1If a(j, 2) > a(j + 1, 2) Thent = a(j, 2)a(j, 2) = a(j + 1, 2)a(j + 1, 2) = tt = a(j, 1)a(j, 1) = a(j + 1, 1)a(j + 1, 1) = tEnd IfNext jNext iPrint "排列的顺序"Print "名次", "运动员号", "成绩"For i = 1 To 10Print i,For j = 1 To 2Print a(i, j),Next jPrintNext iEnd SubPrivate Sub Form_Click()Dim a(11, 11)For i = 1 To 11a(i, 1) = 1a(i, i) = 1Next iFor i = 3 To 11For j = 2 To 10a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next jNext iFor i = 1 To 11For j = 1 To iPrint Format(a(i, j)),Next jPrintNext iEnd Sub习题6—4 （P224）Private Sub Form_Click()Dim i As LongFor i = 1 To 1000If Automorphic(i) Then Print iNext iEnd SubPrivate Function Automorphic(n As Long) As Boolean Dim t As Long, l As Integerl = Len(CStr(n))t = n * nAutomorphic = Right(CStr(t), l) = CStr(n)End Function习题6—6Private Sub Form_Click()For i = 1 To 20Print i & "的立方为：" & m_pf(i)Next iEnd SubPrivate Function m_pf(x)m_pf = x * x * xEnd FunctionPrivate Sub Form_Click()Dim a As Integera = InputBox("请输入一个整数")If is_bin(a) ThenPrint "偶数"ElsePrint "奇数"End IfEnd SubPrivate Sub Form_Load()End SubPrivate Function is_bin(n As Integer) As Boolean If n Mod 2 = 0 Thenis_bin = TrueElseis_bin = FalseEnd IfEnd Function习题6—9Const pi = 3.1415926Private Sub Form_Click()Print "余下的面积为：" & C_S(10) - C_S(5) - C_S(3) End SubPrivate Function C_S(r As Single) As SingleC_S = pi * r * rEnd Function习题6—10Private Sub Form_Click()Print "第五人的年龄为：" & n_age(5)End SubPrivate Function n_age(n As Integer) As IntegerIf n = 1 Thenn_age = 10Elsen_age = n_age(n - 1) + 2End IfEnd Function。