可视化编程VisualBasic第一章练习地的题目含标准详解

四、简单程序设计题1．建立一个简单的应用程序，其窗体界面如下，单击窗体，则在窗体上显示“欢迎使用Visual Basic ！”，反复练习建立一个Visual Basic 应用程序的步骤。

2．建立一个简单的应用程序，其窗体界面如下，单击放大按钮，则文字“你好！”放大；单击缩小按钮，则文字“你好！”缩小；单击结束按钮，则结束程序的运行。

3．建立一个简单的应用程序，其窗体界面如下，单击输入按钮，则将光标定位在第一个文本框；单击大写转小写按钮，则将文本框1中的大写字母转化为小写显示在文本框2中；单击小写转大写按钮，则将文本框1中的小写字母转化为大写显示在文本框2中。

4.编写一个替换窗体标题的程序，初始运行如图2-2-1所示。

在文本框中输入文本，再点击“替换”按钮，会将窗体的标题替换为文本框中的文本，清除文本框中的文本，并将焦点设置到文本框.图3-1-1 习题1-1程序界面图3-1-2 习题1-2程序运行界面图3-1-3 习题1-3程序运行界面四、简单程序设计题1．解：⑴ 建立用户界面以及界面中的对象启动Visual Basic 环境，选择“标准exe ”，创建工程、窗体。

⑵ 设置各个对象的属性调整窗体Form1的大小，将窗体Form1的Caption 属性设为练习1。

⑶ 为对象事件编写程序编写窗体对象Form1的单击事件驱动程序如图3-1-1(b)所示：⑷ 保存工程保存窗体：单击菜单“文件/保存form1”，并取名为习题1；保存工程：单击菜单“文件/保存工程”，并取名为习题1。

⑸运行程序按F5功能键或菜单“运行/启动”或运行按钮，运行程序，即可得到如图3-1-图3-1-1(a) 运行效果 图3-1-1(b) 程序代码1（a）所示的运行结果。

2．解：⑴建立用户界面以及界面中的对象①启动Visual Basic环境，选择“标准exe”，创建工程、窗体。

②单击窗口左边工具箱中的"标签按钮"，此时鼠标变成十字形状，拖动鼠标，在窗体上画1个标签："Label1"。

1．什么是对象的属性，事件和方法？答：Visual Basic中的每个对象都有一组特征，这组特征称为属性，不同的对象有不同的属性。

常见的属性有标题（Caption）、名称（Name）、背景颜色（Backcolor）、字体（Font）、是否有效（Enabled）、是否可见（Visible）等。

通过修改对象的属性能够控制对象的外观和操作。

事件（Event）就是对象上所发生的事情。

在Visual Basic中，事件是预先定义好的、能够被对象识别的动作，如单击（Click）事件、双击（DblClick）事件、装载（Load）事件、鼠标移动（MouseMove）事件等，不同的对象能够识别不同的事件。

一般来说，方法就是要执行的动作。

Visual Basic中的方法跟事件过程类似，它可能是函数，也可能是过程，它用于完成某种特定功能而不能响应某个事件。

如显示窗体（Show）方法、移动（Move）方法等。

方法的引用与属性有点相似，用“控件名.方法名参数”就可以调用控件的方法。

方法可能会带有参数，多参数之间用“，”分隔，参数的具体含义，要视具体控件具体方法而定。

2．设计一个窗体，窗体上有一个命令按钮，按下此命令按钮后，窗体上会出现一行字“你已经学会了设计一个简单程序”。

设计完毕后，运行此程序，运行成功后存盘，再将其转化为exe文件并将此程序存盘。

程序界面设计如下：实现的程序代码：Private sub Command2_click()Form1.Print "你已经学会了设计一个简单程序"End sub3．单项选择题。

(1)Visual Basic工程文件的扩展名是什么？（B）A. .bmpB. .vbpC. .frmD. .bas(2) Visual Basic集成开发环境中不包括下列哪些窗口？（D）A. 工具箱窗口B. 工程资源管理器窗口C. 属性窗口D. 命令窗口(3) “一辆小客车在正常行进过程中被一辆大型货车撞坏了”，在这句话中，“客车”，“小”，“行进”和“被一辆大型货车撞坏了”分别对象Visual Basic中的哪些术语？（B）A. 对象、属性、事件、方法B. 对象、属性、方法、事件C. 属性、对象、事件、方法D. 属性、对象、方法、事件(4) 对象的特征和状态特征称为？（C）A. 事件B. 方法C. 属性D. 类(5) 下面哪一个属性用来标识对象的名称？（D）A. CaptionB. ValueC. TextD. Name(6) 下面哪一个属性用来标识对象的标题？（A）A. CaptionB. ValueC. TextD. Name4．窗体上有一命令按钮“你好”，单击此按钮，在窗体上打印出“世界杯”三个字，该文字的字体为隶书，大小为20磅。

VB习题与解答第1章了解Visual Basic1. Visual Basic 6.0有哪些主要特点？解答：Visual Basic 6.0主要有如下的特点：⑴面向对象的可视化设计平台；⑵事件驱动的编程机制；⑶结构化的程序设计语言；⑷开放的数据库功能与网络支持；⑸充分利用WINDOWS资源；⑹方便实用的程序向导等。

2. 如何启动Visual Basic 6.0？解答：选择【开始】│【程序】│【Microsoft Visual Basic 6.0中文版】│【Microsoft Visual Basic 6.0中文版】命令，即可启动VB。

3. Visual Basic 6.0集成开发环境中有哪些常用窗口？它们的主要功能是什么？解答：VB集成开发环境主要包含以下窗口：主窗口、工具箱、窗体窗口、工程资源管理器窗口、【属性】窗口以及【窗体布局】窗口等。

⑴主窗口：由顶部的标题栏、菜单栏和工具栏以及下面的工作区组成。

主窗口是VB 集成开发环境的主界面，VB程序的设计及调试均在此进行。

⑵工具箱：标准工具箱中含有一个指针图标和20个内部(标准)控件的图标。

除指针图标外，每一个图标代表一种控件，每个控件都是已经定义好的对象，它们有自己的属性、方法和事件。

⑶窗体窗口：窗体窗口又称为“对象窗口”或“窗体设计器”。

窗体窗口是设计用户界面的地方。

⑷工程资源管理器窗口：工程资源管理器窗口(简称工程窗口)用于显示和管理当前程序中所包含的全部文件。

⑸【属性】窗口：用于设置窗体和控件的属性，如名称、外观、位置、字体等。

⑹【窗体布局】窗口：用于指定程序运行时窗体的初始位置。

⑺代码窗口：代码窗口又称为代码编辑器，用于输入和编辑程序⑻【立即】窗口：使用【立即】窗口可以在中断状态下监视对象属性、变量或表达式的值，也可以在设计时查询表达式的值或命令的执行结果。

4. 工程资源管理器和属性窗口各有哪些组成部分？它们的主要功能是什么？解答：工程资源管理器窗口由三部分组成，自上而下分别为标题栏、工具栏和文件列表，分别用于显示当前工程名称、切换代码和对象窗口、管理工程中的所有文件。

附录二教材课后习题参考答案第一章Visual Basic 概述一、填空题1. 3，学习版.专业版和企业版2. 代码窗口,属性窗口3. 窗口、事件和消息二、单选题1.B2.D3.B4.C5.C6.C7.C8.B9.D 10.A第二章VB可视化编程基础一、选择题1-5 CBABD 6-10 ABADD二、填空题1. 属性事件方法2. 文本信息Caption3. Enabled Visible4. Form_Click()5. 3 * 4 = 126. 数值型三、综合题1. 控件自行添加，参考代码如下：Private Sub Form_Load()Label1.Caption = "长"Label2.Caption = "宽"Label3.Caption = "长方形面积"Text1.Text = ""Text2.Text = ""Text3.Text = ""Command1.Caption = "计算"End Sub2. 程序界面自行设计，无特殊要求。

参考代码如下：Private Sub Form_Click()r = InputBox("请输入圆的半径：", "课后题2-2")MsgBox "圆的面积为" & 3.14 * r * rEnd Sub第三章Visual Basic程序设计基础一、选择题1——5 DDABC 6——10 DDBDC二、填空题1.352.x \ 10 + (x Mod 10) * 103.Instr(2,s1,s2)4.y Mod 4=0 And Not y Mod 100=0 Or y Mod 400=05.Variant三、1.300 String 2. 123234 String 3.False Boolean 4.5 Long5. 3 Long6. 91 Double7. 65 Double8.0.5 Double9.2 Double 10.2012 String四、1.(2*Tan(A))/(1-Tan(A)^2) 2.a^2+b^2-2*a*b*Cos(C)3.(-b+Sqr(b^2-4*a*c))/(2*a)4.Abs(A*x+B*y+C*z)/Sqr(A^2+B^2)五、1.(1) (1)1mm Ap pp++-六、参考程序如下：Private Sub Command1_Click()Dim rad As Double, deg As Integer,mint As Integer, secd As IntegerConst Pi = 3.1415926rad = Val(Text1.Text) * 180 / Pideg = Fix(rad)mint = Fix((rad - deg) * 60)secd = Fix(((rad - deg) * 60 - mint) * 60)Text2.Text = deg& "度" & mint & "分" &secd& "秒"End Sub第四章控制结构一、选择题1-5 D C C C A 6-10 C B B C A 11-14 D B D C二、程序填空题1.【1】x<20 【2】y= 30-0.5*x【3】else2.【1】m=m\10 【2】Is <= 53.【1】Rnd * 101 + 200【2】x mod 54.【1】flag=1【2】i = i + 1 5．【1】x>=0【2】x<Amin三、程序阅读题1. 22. 11 5.13. 4324. 15. 59 106. 1 0四、编程题1．参考代码：Private Sub cmdCal_Click()Dim a As Single, b As Single, c As SingleDim x1 As Single, x2 As Single, m As Singlea = Val(txtA.Text) '用val()函数将文本框中的字符型数据转换为数值类型b = Val(txtB.Text)c = Val(txtC.Text)m = b ^ 2 - 4 * a * cIf m < 0 Then MsgBox "方程无根" '方程无根的情况If m = 0 Thentxt1.Text = Str(-b / 2 / a) '两根相等的情况txt2.Text = txt1.TextEnd IfIf m > 0 Then '两根不等的情况txt1.Text = Str((-b + Sqr(m)) / 2 / a) '用Str（）函数将数值转换为字符串类型txt2.Text = Str((-b - Sqr(m)) / 2 / a)End IfEnd Sub2．参考代码：Private Sub Form_Click()Dim sa, newsasa = Val(InputBox("input your salary:"))Select Case saCase Is <= 2000newsa = sa * 1.25Case Is <= 3000newsa = sa * 1.2Case Elsenewsa = sa * 1.15End SelectMsgBox "your new salary is:" & newsaEnd Sub3．参考代码：Dim n As Integer, s As Longs = 1: n = 0 '变量赋初值While s <= 400000n = n + 1 '统计数字个数s = s * n '累乘Print n; s '通过本行可以看到循环过程WendPrint "S不大于400000时，最大的N值为："; n - 14．参考代码：Private Sub Form_Click()Dim Astring As String'输出上三角图形For i = 1 To 8Astring = String(i * 2 - 1, "A")Print Tab(20); Space(8 - i); AstringNext i'输出下三角图形For i = 8 To 1 Step -1Astring = String(i * 2 - 1, "A")Print Tab(20); Space(8 - i); AstringNext iEnd Sub5．参考代码：Private Sub Form_Click()fruit = 1 '初始，第7天的桃子数为1个For i = 7 To 1 Step -1Print "第"; i; "天的桃子数为："; fruit'打印某天的桃子数fruit = (fruit + 1) * 2 '求前一天的桃子数Next iEnd Sub第五章常用控件一、选择题1-5 DCCBA 6-10 BBDCA 11-15 CCCBA二、填空题(1) Caption (2)组合框(3)容器(4) Picture1．picture = LoadPicture (“e:\ tu1.jpg”)(5) Scroll、Change (6) Timer (7) Style (8) Interval (9) 标准的坐标系统用户自定义坐标系统(10) SetFocus （11）Option1.Value = True Option2.Value = True（12）List1.Text （13）= Combo1.List(i)AddItem（14）（1000）（True）（Format(Time, "h:m:s am/pm")）（15）TrueFalseMove Left三、编程题1.参考代码：Private Sub Option1_Click()Text1.FontName = "黑体"End SubPrivate Sub Option2_Click()Text1.FontName = "楷体_gb2312"End SubPrivate Sub Option3_Click()Text1.FontName = "仿宋_gb2312"End SubPrivate Sub Option4_Click()Text1.BackColor = vbYellowEnd SubPrivate Sub Option5_Click()Text1.BackColor = vbGreenEnd SubPrivate Sub Option6_Click()Text1.BackColor = vbRedEnd Sub2.参考代码：private Sub Command1_Click()Dim i As IntegerFor i = 0 To List1.ListCount - 1If Text1.Text = List1.List(i) ThenMsgBox "输入内容已存在，请重新输入!"Exit ForEnd IfNext iIf i > List1.ListCount - 1 Then List1.AddItem Text1.TextText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Command2_Click()Dim i As Integeri = List1.ListIndexIf i <> -1 ThenList1.RemoveItem iEnd IfEnd SubPrivate Sub Command3_Click()List1.ClearEnd SubPrivate Sub Form_Load()List1.AddItem "研发项目经理"List1.AddItem "主管"List1.AddItem "高级程序员"List1.AddItem "程序员及测试人员"List1.AddItem "售前支撑经理"List1.AddItem "综合管理员"End Sub3.参考代码：Private Sub HScroll1_Change()Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End SubPrivate Sub HScroll2_Change()Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End SubPrivate Sub HScroll3_Change()Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub4.参考代码：Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Picture1.Scale (0, 0)-(500, 500)Image1.Picture = LoadPicture(App.Path + "\tu1.jpg")End SubPrivate Sub Timer1_Timer()If Image1.Left + Image1.Width < Picture1.ScaleLeft + Picture1.ScaleWidth Then Command1.Visible = FalseImage1.Height = Image1.Height + 50Image1.Width = Image1.Width + 50ElseImage1.Width = 20Image1.Height = 20Command1.Visible = TrueEnd IfEnd Sub5. 参考代码：Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 100Command1.Caption = "开始"End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseCommand1.Caption = "重新开始"End SubPrivate Sub Form_Load()Label1.FontSize = 20Label1.ForeColor = vbBlueLabel1.FontBold = TrueEnd SubPrivate Sub Timer1_Timer()If Label1.Left + Label1.Width < Picture1.ScaleLeft + Picture1.ScaleWidth Then Label1.Move Label1.Left + 10ElseLabel1.Left = Picture1.ScaleLeftEnd IfEnd Sub5．参考代码：Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 100Command1.Caption = "开始"End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseCommand1.Caption = "重新开始"End SubPrivate Sub Form_Load()Label1.FontSize = 20Label1.ForeColor = vbBlueLabel1.FontBold = TrueEnd SubPrivate Sub Timer1_Timer()If Label1.Left + Label1.Width < Picture1.ScaleLeft + Picture1.ScaleWidth Then Label1.Move Label1.Left + 10ElseLabel1.Left = Picture1.ScaleLeftEnd IfEnd Sub。

第1章 Visual Basic概述1．1 简述Visual Basic语言的特点。

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

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

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

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

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

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

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

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

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

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

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

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

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

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