VB第一章课后习题答案
VB程序设计概述习题参考答案
第一章 VB程序设计概述习题参考答案
一、选择题
题号 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
答案 A C C B A D B C C C A B C A D
题号16 17 18 19 20 21 22 23
答案 D A B B B A D B
二、填空题
1. 视图，工具箱
2. 工具栏
3. 标题栏
4. 学习版，专业版，企业版
5. 运行
三、简答题
1. 只要能运行Windows9x或Windows NT并具有140MB以上的硬盘空间即可。
2. 要再安装Visual Basic6.0。
因为安装VB6.0时，有些VB程序系统自动安装在Windows98目录下，所以一旦删除Windows98子目录，就必须再安装VB6.0。
3. 在启动VB6.0的启动封面上，能显示对应的版本。
4. 代码窗口的打开方法：
（1）热键F7 （2）“视图”—> “代码窗口”
（3）在窗体窗口中双击任一控件或窗体本身
（4）从工程窗口中选择窗体或模块后单击“查看代码”按钮。
5. 单击要操作窗口的“关闭”按钮时，则不显示该窗口；选择“视图”菜单的对应的窗口命令显示所需的窗口。
6. VB的特点：
（1）具有面向对象的可视化设计工具;
（2）事件驱动的编程机制;
（3）提供了易学易用的应用程序集成开发环境;
（4）结构化的程序设计语言;
（5）支持多种数据库系统的访问;
（6）Active技术;
（7）VB 6.0在开发环境上、网络功能等的增强;
（8）完备的help联机帮助功能。
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】选项，使“工具箱”窗口显示。
visual_Basic程序设计教程_课后习题答案及练习
第三章 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()，要增加一个单元，但不能破坏数组内的数据，则应
二、选择题
1、下面不是VB工作模式的是（ ） A．设计模式 B．运行模式 C．汇编模式 D．中断模式 2、可视化编程的最大优点是（ ） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（ ） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（ ） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（ ） A．可视化 B．面向对象 C．面向图形 D．事件驱动
Visual Basic程序设计第1章习题答案
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磅。
第1章vb概述 习题及答案.doc
一、判断题1.属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。
2.控件的属性值不可以在程序运行时动态地修改。
3.许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。
4.所谓保存工程，是指保存正在编辑的工程的窗体。
5 .面向对象的程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。
6.为了使一个控件在运行时不可见，应该将该控件的Enabled属性设置为False07.保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。
8.事件是由Visual Basic预先定义的对象能够识别的动作。
9.方法是Visual Basic对象可以相应的用户操作。
10.窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。
11.山Visual Basic语言编写的应用程序有解释和编译两种执行方式。
12.在打开一个Visual Basic工程进行修改后，要另存为一个版本，只需单击“工程另存为...”就行，因为系统将同时保存其他文件。
13.当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件.二、选择题1.要使某个控件不可操作，要对属性进行设置。
A、EnabledB、VisibaleC、CaptionD、Name2.下列不属于对象的基本特征的是oA、属性B、方法C、事件D、函数3.当运行程序时，系统自动执行启动窗体的事件过程。
A、ClickB、LoadC、DblClickD、Unload4.Visual Basic中“程序运行”允许使用的快捷键是。
A、F2B、F5C、Alt+F3D、F85.改变控件在窗体中的左右位置应修改该控件的属性。
A> Top B、Left C、Width D、Right6.工程文件的扩展名为oA、.exeB、.basC、.frxD、.frm7.在Visual Basic中，称对象的数据为=A、属性B、方法C、事件D、封装8.下列选项中不属于属性的是=A、NameB、CaptionC、ShowD、Text9.将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件。
vb习题答案(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-课本答案————————————————————————————————作者：————————————————————————————————日期：第三部分习题与解答第1章程序设计语言与程序设计1．1填空题1．VB是以（事件驱动）作为运行机制的新一代可视化程序设计语言。
2．程序设计语言是（人）与（计算机）交流的工具。
3．若从机器执行的角度来对程序设计语言进行分类，则可以分为（低级语言）和（高级语言）两种。
4．计算机系统中，对高级语言的翻译工具称为（编译）程序或（解释）程序。
5．源程序中的错误一般分为（编译）错误、（运行）错误和（逻辑）错误等三种。
6．VB把一个应用程序称为一个（工程），它包含各种文件。
1．2 选择题1．把a和b的乘积写成ab的错误属于（c ）错误。
a) 编译b) 运行c) 逻辑d) 编译和运行2．用户在什么时候都可以按（b ）键来查看与当前进行的工作相关的帮助。
a) Held b) F1 c) ESC d) F104 窗体文件的扩展名为（d ）。
a) .vbp b) .bas c) .exe d) .frm4．指示一个窗体位置的值是窗体的（c ）。
a) 对象b) 事件c) 属性d) 方法5．下面选项中不能运行VB程序的操作是（a ）。
a) 双击窗体b) 单击“启动”按钮图标c) 从菜单栏运行菜单中选“全编译执行”菜单命令d) 按F5键1．3 问答题1．低级语言和高级语言的各自特点是什么？答：参见教材1.1。
2．什么是数据描述和数据处理？答：参见教材1.2。
3．源程序的翻译方式有哪两种，简述它们的工作过程。
答：参见教材1.1。
4．一个好程序的基本要求是什么？答：参见教材1.2。
5．Visual BASIC 集成开发环境的主窗口由哪些部分构成？各自的主要功能是什么？答：参见教材1.3。
6．简述在VB的环境下，对象、属性、方法、事件和事件驱动程序的概念，并用例子进行说明。
答：在VB的环境下，对象是系统中的基本运行实体，它封装了数据和操作。
第一章VB1答案
第一章一选择题1 Visual Basic采用了()的编程机制(A) 面向过程（B）面向对象（C）事件驱动（D）可视化2 以下不属于Visual Basic 版本的是（）（A）学习版（B）企业版（C）专业版（D）工程版3 Visual Basic从（）版本开始推出中文版（A）2.0 （B）3.0 （C）4.0 （D）5.04 Visual Basic6.0是一个（）位应用程序的开发工具（A）8 （B）16 （C）32 （D）645 退出Visual Basic集成开发环境的快捷键是（）（A）Ctrl+Q （B）Alt+Q （C）Alt+A （D）Ctrl+A6 Visual Basic集成开发环境由种工作状态，不属于3种工作状态之一的是（）（A）设计状态（B）运行状态（C）中断状态（D）编写代码状态7 在Visual Basic集成开发环境下不能激活属性窗口的操作是（）(A) 在执行“工程”菜单中的“属性窗口”菜单命令(B)执行“视图”菜单中的“属性窗体”菜单命令(C)在对象上右击，从弹出的快捷菜单中选择“属性窗口”菜单命令(D) 按下快捷键F48 在设计阶段，当双击窗体设计器中窗体上的某个控件时，所打开的窗口是（）（A）工具箱窗口（B）属性窗口（C）工程资源管理器窗口（D）代码编辑窗口9 当新建一个工程并启动Visual Basic后，工具箱中的控件是（）（A）内部控件（B）ActiveX控件（C）内部控件和ActiveX控件（D）内部控件或ActiveX控件10 下列可以打开立即窗口的操作的是（）（A）Ctrl+R （B）Ctrl+C （C）Ctrl+O （D）Ctrl+G11 在新建一个“标准EXE”工程后,不在工具箱中出现的控件是（）（A）通用对话框（B）列表框（C）文本框（D）命令按钮12 如果要向工具箱中加入ActiveX控件，可以执行“工程”菜单中的（）命令（A）引用（B）部件（C）工程属性（D）添加窗体13 Visual Basic规定窗体文件的扩展名是（）（A）.fom （B）.vbp （C）.bas （D）.frm14 Visual Basic规定标准模块文件的扩展名是（）（A）.frm （B）.vbp （C）.bas （D）.vbg15 下列不能打开工具箱窗口的操作是（）(A) 按下F8快捷键(B)按下Alt键不放开，先按下V键再按下X键(C)执行“视图”菜单中的“工具箱”菜单命令按钮(D)单击“工具箱”上的“工具箱”按钮16 以下可以产生工程组文件（.vbg）的情况是（）（A）当一个程序中包含了两个以上的窗体时（B）当一个程序中包含了两个以上的标准模块时(C) 当一个程序中包含了两个以上的工程时(D)当一个程序中包含了两个以上的类模块时。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
习题
一、单项选择题
1. 在设计阶段，当双击窗体上的某个控件时，所打开的窗体是_____。
A. 工程资源管路器窗口
B. 工具箱窗体
C. 代码窗体
D. 属性窗体
2. VB中对象的含义是_____。
A. 封装了数据和方法的实体
B. 封装的程序
C. 具有某些特性的具体事物的抽象
D. 创建对象实例的模板
3. 窗体Form1的Name属性是MyForm，它的单击事件过程名是_____。
A. MyForm_Click
B. Form_Click
C. Form1_Click
D. Frm1_Click
4. 如果要改变窗体的标题，需要设置窗体对象的_____属性。
A. BackColor
B. Name
C. Caption
D. Font
5. 若要取消窗体的最大化功能，可将其_____属性设置为False来实现。
A. Enabled
B.ControlBox
C. MinButton
D. MaxButton
6. 若要以代码方式设置窗体中显示文本的字体大小，可通过设置窗体对象_____属性来实现。
A. Font
B.FontName
C.FontSize
D. FontBold
7. 确定一个控件在窗体上位置的属性是_____。
A. Width或Height
B. Width和Height
C. Top或Left
D. Top和Left
8. 以下属性中，不属于标签的属性是_____。
A. Enabled
B. Default
C. Font
D. Caption
9. 若要设置标签控件中文本的对齐方式，可通过_____属性实现。
A.Align
B. AutoSize
C. Alignment
D. BackStyle
10. 若要使标签控件的大小自动与所显示文本的大小相适宜，可将其_____属性设置为True来实现。
A.Align
B. AutoSize
C. Alignment
D. Visible
11. 若要设置或返回文本框中的文本，可通过设置其_____属性来实现。
A.Caption
B. Name
C. Text
D. （名称）
12. 若要设置文本框最大可接受的字符数，可通过设置其_____属性来实现。
A.MultiLine
B. Max
C. Length
D. MaxLength
13. 在运行时，若要使文本框获得输入焦点，可通过调用其_____方法来实现。
A. Tab
B. SetFocus
C. GetFocus
D. Refresh
14. 若要求从文本框中输入密码时文本框中只显示“*”，则应在此文本框的属性窗口中设置_____。
A. Caption属性值设为*
B. PassWord属性值设为空
C. PassWordChar属性值设为*
D. Text属性值设为*
15. 若要将命令按钮设置为图形风格，可通过_____属性来设置。
A. Style
B. BackStyle
C. BorderStyle
D. FillStyle
16. 若要使命令按钮在运行时不可见，可通过_____属性来设置。
A. Enabled
B. Visible
C. Value
D. Default
17. .frm表示_____。
A. 工程文件
B. 程序模块文件
C. 资源文件
D. 窗体文件
二、填空题
1．Visual Basic 是一种面向对象的可视化程序设计语言，采取了事件触发的编程机制。
2．Visual Basic的对象主要分为窗体和控件两大类。
3．VB的三种工作模式是设计模式、中断模式、运行模式。
4．属性是指对象的外观/特征，如大小、字体、颜色等。
5．若要使Text控件能输入多行信息，应将其MultiLine 属性设置为True ；若要对该控件中显示信息加锁，则应将其Locked 属性设置为True 。
6．若要使Command控件不起作用，则应将该控件的Enabled属性设置为False ；该控件的ToolTipText属性的作用是设置当鼠标在命令按钮控件上暂停时显示的文本说明。
四、编程题
第一个编程题程序代码如下:
Private Sub Command1_Click()
Label1.Caption = "Visual Basic"
Text1.Text = "程序设计"
End Sub
第二个编程题目如下:
Private Sub Command1_Click()
Label2.Caption = 3.14 * Val(Text1.Text) * Val(Text1.Text) End Sub
Private Sub Command2_Click()
Label3.Caption = 2 * 3.14 * Val(Text1.Text)
End Sub。