北语2014秋《VB》作业参考答案
(完整版)VB习题册答案()最终版
第一章二、1。
文件/退出2.Alt+Q3.文件/打开工程/打开工程4.vbp/frm5。
Esc第二章二、1。
对象框、属性显示方式、属性列表和属性解释2。
Text1。
text=”Hellor!”3.标准控件/ActiveX控件/可插入对象4。
Top和Left，Width和Height5。
用鼠标单击属性窗口的任何部分；执行“视图”菜单中的“属性窗口”命令；按F4键；单击工具栏上的“属性窗口”按钮;按组合键Ctrl+PgDn或Ctrl+PgUp6.Ctrl/Shift第三章二、1．答案：、ABCD，VB Programming2．答案：建立界面，设置属性、编写代码3．答案：属性窗口,运行4．答案:对象,过程5．答案:工具、选项、选项、自动语法检查6．答案：Frm，Vbp7．答案:工程8．答案：窗体模块，标准模块和类模块第四章二、1．答案：CONTT。
DE+COS（28＊3.14/180）2．答案：—3/8 +8＊INT（24。
8）3．答案：(8+6）^（4/-2)+SIN（2＊3。
14）4．答案:((x+y)+z)*80—5＊(C+D）5.答案： A6.答案:17.答案：Good Morning 、 Good Morning8.答案: ABCD 、 HIJK 。
9.答案：CDEF、1110.答案：0、abcdefghijk11.答案：25、8、2001、7、6第五章二、1．答案：Label2.Caption,Text1.Text，Text2。
Text=y2．答案：MsgBox “输入的密码为”＆Text2.Text , vbOKOnly， "登录”3．答案：25+32=574．答案：Country ＆“ “ ＆City &” “ ＆ CStr（Year(Date)）5．答案 Year(Date） &“年“ & Month(Date） &“月" & Day（Date） _ &“日，星期“＆ WeekDay （Date，vbMonday)第六章二、1．答案：AutoSize2．答案：ScrollBar MultiLine True3．答案：Text1.SetFocus4．答案：0 05．答案:Picture1.Picture=LoadPicture(“pic2.gif”）6．答案：True7．答案：Picture8．答案：Interval9．答案：Enabled10．答案：下拉组合框，简单组合框，下拉列表框 Style 0 1 2 11．答案:下拉列表框12．答案：ItemA和ItemC13．答案：VB14．答案：VB程序设计 VB Programming第七章二、1． __21 38 54__2． sum=14 sum=14 sum=10。
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属性判断是否选中该项。
2014VB题答案
历年Visaul Basic 程序设计（编程题）A 类题说明：A 类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。
用到的控件有：标签框、文本框、命令按钮等。
A01、制作一个加法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之和并显示在标签中；单击“清除”按钮可以清除各项数值。
Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)label4.caption = a + bEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""label4.caption = ""End SubA02、已知y= x 3＋|x －10|＋4， 编程求y 的值 。
要求：在文本框中输入x 的值，单击“计算”按钮后在“y ”框中显示y 的值；单击“退出”按钮退出程序。
Private Sub Command1_Click()X= Val(Text1.Text)Text2.text = x ^ 3 + Abs(x - 10) + 4End SubPrivate Sub Command2_Click()EndEnd SubA03、编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长和面积。
Private Sub Command1_Click()r=val(text1.text)text2.text=2*3.14*rtext3.text =3.14*r*rEnd SubA04、编程计算圆锥的体积。
要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示 出来；单击“清除”按钮可以清除各项数值。
提示：V =31πhr 2 ，π取3.14 Private Sub Command1_Click()r= Val(Text1.Text)h= Val(Text2.Text)label4.caption = 1 / 3 * 3.14 * h * r ^ 2End SubPrivate Sub Command2_Click()label4.caption = "" Text2.Text = ""Text1.Text = ""End SubA05、华氏温度（F ）与摄氏温度（C ）之间的转换关系为：3259＋摄氏温度华氏温度⨯= 。
北航14秋《VB语言程序设计》在线作业一答案
北航《VB语言程序设计》在线作业一单选题一、单选题（共25 道试题，共100 分。
只有一个选项是正确的）V 1. 条件1<x≤2或10≤x<15，在VB语言中应写成条件表达式（）A. x>1 AND x<=2 OR a>=10 AND x<15B. x>1 OR x<=2 OR a>=10 OR x<15C. x>1 OR x<=2 AND a>=10 OR x<15D. x>1 AND x<=2 AND a>=10 AND x<15-----------------选择：A2. 表达式23/5.8、23\5.8、23Mod5.8的运算结果分别是（）A. 3、3.9655、3B. 3.9655、3、5C. 4、4、5D. 3.9655、4、3-----------------选择：B3. ^、/、Mod、*等4个算术运算符中，优先级最低的是（）A. ^B. /C. ModD. *-----------------选择：C4. VB中项目文件的扩展名是什么。
A. VBPB. FRMC. VBWD. FRX-----------------选择：A5. 如果变量a=2，b=3，c=4，d=5，表达式NOT a>b AND NOT d<>c的值是（）A. TrueB. FalseC. 1D. 0-----------------选择：B6. 不管一个对象的属性如何设置，程序运行时始终都能接收焦点的方法是（）A. 用Tab键B. 用鼠标C. 用方向键D. 不能实现-----------------选择：D7. 将任意一个正的两数N的个位数与十位数对换的表达式为（）。
VB习题及答案
V B习题及答案(总6页)--本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--一．选择题1．GBK字符集共有_____C_____个汉字。
A、6000多B、10000多C、20000多D、30000多2．美国标准信息交换码（ASCII码）中，共有128个字符，包括___B____个可打印字符和32个控制字符。
A、 52B、 96C、 116D、 1013．在计算机中，西文字符最常用的编码是__C___。
A、原码B、反码 C 、ASCII码 D、补码4．下列四个选项中，按照其ASCII码值从小到大排列的是___A_____。
A、数字、英文大写字母、英文小写字母B、数字、英文小写字母、英文大写字母C、英文大写字母、英文小写字母、数字D、英文小写字母、英文大写字母、数字5．下列字符中，其ASCII编码值最大的是__B____。
A、9B、DC、 AD、空格6．中文标点符号“。
”在计算机中存储时占用___B__个字节。
A、1B、2C、3D、47．GBK是汉字内码的一种扩充规范，下面叙述中错误的是 B 。
A、它共有20000多个汉字B.、它使用双字节表示，字节的最高位均为0C.、它与GB2312保持向下兼容D、它不但有简体字，也有繁体字8．汉字从录入到打印，至少涉及三种编码，汉字输入码，字型码和 D 。
A、BCD码B、ASCII码C、区位码D、机内码9．在下列汉字编码标准中，不支持繁体汉字的是 A 。
A、GB2312B、GBKC、BIG5D、GB1803010．在利用拼音输入汉字时，有时虽正确输入拼音码但却找不到所要的汉字，其原因不可能是 A 。
A、计算机显示器的分辨率不支持该汉字的显示B、汉字显示程序不能正常工作C、操作系统当前所支持的汉字字符集不含该汉字D、汉字输入软件出错11．将字符信息输入计算机的方法中，目前使用最普遍的是 A 。
A、键盘输入B、笔输入．C、语音输入Ｄ、印刷体识别输入12．汉字的键盘输入方案数以百计，能被用户广泛接受的编码方案应 C 。
北语直属14秋《VB》作业1满分答案
作业名称：14秋《VB》作业1 出卷人：SA
作业总分：100 通过分数：60
起止时间：2015-1-13 11:54:52 至2015-1-13 12:25:55
学员姓名：学员成绩：100
标准题总分：100 标准题得分：100
详细信息：
题号:1 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
在Visual Basic工程中，可以作为"启动对象"的程序是___。
A、任何窗体或标准模块
B、任何窗体或过程
C、Sub Main过程或其他任何模块
D、Sub Main过程或任何窗体
标准答案:D
学员答案:D
本题得分:4
题号:2 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是___。
A、Cos (a+b) ^2+5*exp(2)
B、Cos^2(a+b)+ 5*exp(2)
C、Cos (a+b) ^2+5*ln(2)
D、Cos^2(a+b)+ 5*ln(2)
标准答案:A
学员答案:A
本题得分:4
题号:3 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
一个语句要在下一行中继续书写，可以用___符号作为续行符。
A、‘+’
B、-
C、_
D、…
标准答案:C
学员答案:C
本题得分:4
题号:4 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:。
VB习题与习题解答
习题一一、简答题1. 简述VB的特点。
2. 安装Visual Basic系统程序应具备什么条件？3. 启动Visual Basic有几种方法？4．退出Visual Basic有几种方式？5．什么是对象？什么是类？简述它们之间的关系。
6．VB环境有哪些部分组成？7．VB有几种工作模式？8．属性窗口由哪几个部分组成？9．设置属性有哪些方法？10．简述Visual Basic应用程序的建立步骤。
11．Visual Basic应用程序中有哪些文件？12．Visual Basic的对象有哪三要素？13．VB应用程序的执行步骤是什么？14．Visual Basic应用程序中有哪几种类型的错误？二、填空题1. Visual Basic是一种面向的可视化程序设计语言，采取了的编程机制。
2. 在VB集成开发环境中，运行应用程序的方法有两种是：或。
3．Visual Basic的对象主要分为和两大类。
4. 在Visual Basic中，用来描述一个对象外部特征的量称之为对象的。
5. 在Visual Basic中，设置或修改一个对象的属性的方法有两种，它们分别是和。
6. 在Visual Basic中，最基本的对象是。
7. 在Visual Basic中，默认窗体名为，默认工程名为。
8. 若用户单击了窗体Form1，则启动的事件名为。
9. 调用方法的具体调用格式为。
10．在代码中设置对象属性的格式为。
三、单项选择题1. 窗体的标题栏显示内容由窗体对象的属性决定。
A) BackColor B)BackStyle C)Text D)Caption2. 窗体的示意图标可用属性来设置。
A) Picture B) Image C) Icon D) MouseIcon3. 窗体的控制菜单的有无由窗体对象的属性决定。
A) ControlBox B) MinButton C) MaxButton D) BorderStyle4. 若要取消窗体的最大化功能，则可设置属性为False来实现。
VB1-4章_习题答案(课本习题)
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课后练习答案习题解答
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章概述二．选择题：1.C2. B.3.C.4.C.5.A6.C7.D8.B9.B 10.B11.A12.C 13.D 14.C 15.D16.A17.C 18.A19.A20.D 21.B三．填空题：1.面向对象，事件驱动2.编译，解释3.设计，运行，中断4.F55.调试6.切换文件夹四．编程及上机调试：1．略2．Sub Form_Click( )Label1.Caption = “你单击了窗体”End SubSub Form_DblClick( )Label1.Caption = “你双击了窗体”End Sub第2章面向对象编程基础二．选择题：1.C2. C.3.B.4.B.5.D6.D7.B8.B9.C 10.D11.B 12.B 13.B 14.C 15.A16.B 17.B 18.B 19.C 20.B三．填空题：1.窗体，控件2.属性，事件，方法mand2_click4.picture5.中部，代码四．编程及上机调试：1．Private Sub Command1_Click()Form1.WindowState = 2End SubPrivate Sub Command2_Click()Form1.WindowState = 0End SubPrivate Sub Command3_Click()Form1.WindowState = 1End Sub2．Private Sub Command1_Click()Form1.Picture = LoadPicture("d:\picture\flower.wmf")Command1.V isible = FalseCommand2.V isible = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_DblClick()Form1.Picture = LoadPicture("")Command1.V isible = TrueCommand2.V isible = TrueEnd Sub第3章常用标准控件二．选择题：1.C2. B3.C.4.D5.B6.B7.A8.C9.B 10.C11.C 12.A13.C 14.B 15.D16.D 17.C 18.A19.D 20.A21.B三．编程及上机调试：1.Private Sub Check1_Click()If Check1.V alue = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.V alue = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check1.V alue = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Command1_Click()Text1.Text = " "End Sub2.Private Sub Command1_Click()Text2.Text = List1.ListCountEnd SubPrivate Sub Command2_Click()List1.AddItem Text1.TextText1.Text = " "End SubPrivate Sub Command3_Click()Dim i As Integeri = List1.ListIndexList1.RemoveItem iCommand3.Enabled = FalseText1.SetFocusText2.Text = List1.ListCountEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseEnd SubPrivate Sub List1_Click()Command3.Enabled = TrueEnd Sub第4章VB语言基础二．选择题：1.A2. D3.D.4.A5.A6.A7.C8.D9.C 10.B11.A 12.D 13.C 14.A15.A16.C 17.D 18.A19.B 20.D21.C 22.A23.B 24.C 25.C三．编程及上机调试：1．Private Sub Form_Load()Dim x As Integer, s As String, d As IntegerRandomizex = Int(Rnd * 9000 + 1000)s = Trim(CStr(x))d = V al(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1))ShowPrint "产生的数；"; x; "倒序数"; dEnd Sub2．Private Sub Form_KeyPress(KeyAscii As Integer)Print "输入字符:"; Chr(KeyAscii), "ASCII码为:"; KeyAsciiEnd SubPrivate Sub Form_DblClick()ClsEnd Sub3．Private Sub Form_Click()MsgBox "在这里显示提示" & vbCrLf & "提示信息", 2 + 16, "请确认"End Sub或Private Sub Form_Click()MsgBox "在这里显示提示" + Chr(13) + "提示信息", vbAbortRetryIgnore _ + vbCritical, "请确认"End Sub第5章程序控制结构二．单选题1.D2. C3.C.4.D.5.B6.C7.A8.A9.D 10.C11.C 12.C 13.B 14.B四．编程及上机调试1. Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")If x > 20 Theny = x ^ 2 + 3 * x + 2ElseIf x >= 10 Theny = Sqr(3 * x) - 2ElseIf x > 0 Theny = 1 / x + Abs(x)End IfPrint "x="; x, "y="; yEnd Sub（2）Select Case实现：Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")Select Case xCase Is > 20y = x ^ 2 + 3 * x + 2Case Is >=10y = Sqr(3 * x) - 2Case Is > 0y = 1 / x + Abs(x)End SelectPrint "x="; x, "y="; yEnd Sub2.Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerFor i = 100 To 999a = i \ 100b = (i - a * 100) \ 10c = i Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = i ThenPrint i;k = k + 1If k Mod 2 = 0 Then PrintEnd IfNext iEnd Sub3．Private Sub Command1_Click()p = 60: r = 0.014Dop = p * (1 + r)n = n + 1Loop Until p >= 70Print n; "年后世界人口达到"; p; "亿"End Sub4．Private Sub Command1_Click()Dim s As Single, x As Integer, t As Single, n As Integer x = V al(InputBox("请输入x的值", , 2))s = 1n = 1m = 1Don = n + 1m = -mt = m * n / x ^ (n - 1)If Abs(t) < 0.00001 Then Exit Dos = s + tLoop Print s End Sub。
北航14秋《VB语言程序设计》在线作业二答案
北航《VB语言程序设计》在线作业二单选题一、单选题（共25 道试题，共100 分。
只有一个选项是正确的）V 1. 假定在图片框Picture1中装入一个图形，为了清除该图形（注意，清除图形，而不是删除图片框），应采用的正确的方法是（）A. 选择图片框，然后按Del键B. 执行语句Picture1=LoadPicture( " " ）C. 执行语句Picture1.parent=" "D. 选择图片框，在属性窗口中选择Picture属性，然后按回车键-----------------选择：B2. 滚动条控件的Max属性所设置的是（）。
A. 滚动框处于最右位置时，一个滚动条位置的value属性最大设置值B. 单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C. 单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D. 滚动条控件无该属性-----------------选择：A3. 将任意一个正的两数N的个位数与十位数对换的表达式为（）。
A. （N-INT（N/10 ）*10 ）*10+INT（N/10 ）B. N- INT（N/10 ）*10 ）*10+INT（N ）/10C. INT（N/10 ）+（N-INT（N/10 ）D. N- INT（N/10 ）*10*10+INT（N/10 ）-----------------选择：A4. 将一个窗体设置为MDI子窗体的方法是什么。
A. 将窗体的名称改为MDIB. 将窗体的MDIChild属性设为TrueC. 将窗体的MDIChild属性设为FalseD. 将窗体的Enabled属性设为False-----------------选择：B5. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是( ）。
A. 属性、事件、方法B. 控件、属性、事件C. 窗体、控件、过程D. 窗体、控件、模块-----------------选择：A6. CommonDialog控件可以显示多少种对话框。
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章习题参考答案一、判断题二、选择题三、程序阅读写出下列各段程序执行后的输出结果。
2014年VB试卷及其参考答案
2014年VB试卷及其参考答案2008全国⾼等学校计算机⽔平考试试卷（⼆级Visual Basic语⾔）14.表达式Len(〝VB程序设计〞)的值是。
A）4 B）6 C）8 D）1115.下列4个字符串进⾏⽐较，最⼩的是。
A)”2007” B)”About” C)”Basic” D)”DATA”16.已知A=“12345678”，则表达式Val(Left(A,3)+Mid(A,5,2))的值是。
A）12356B）179C）12345 D）45 18.下⾯的语句可以实现：先在窗体上输出⼤写字母A，然后在同⼀⾏的第10列输出⼩写字母b。
A)Print ”A”; Tab(9);”b” B) Print ”A”; Space(9); ”b”C) Print ”A”; Space(10); ”b” D) Print ”A”; Tab(10); ”b”19.若Dim b(3) As Integer ,则Ucase(Chr(97) & UBound(b))的结果是。
A）A3 B）A2 C）A1 D）A020.数字表达式1≤X＜10表⽰成正确的VB表达式为。
A）1≤X＜10 B）X＞=1 And X＜10C) X＞=1 Orx＜10 D) X＞=1 And ＜1021.下⾯正确的赋值语句是。
A）y=3x B)3*x=y C)y=3*x D)x+y=1026.可通过修改命令按钮的属性值为True将其设置为默认按钮。
A）Value B)Default C)Cancel D)Enabled 27.复选框或单选按钮的当前状态可通过属性来设置或访问。
A）Caption B)Value C)Checked D)Selected28.下列控件中，没有Caption属性的是。
A）框架B）复选框C）标签D）组合框32.窗体中有图⽚框Picturel和图象框Imagel两个对象，下⾯关于Print⽅法的使⽤中，错误的是。
A）Picturel.Print100 B) Print100C) Printer.Print100 D)Imagel.Print10035.下列程序段的输出结果是。
vb习题参考答案
第1章习题与思考题参考答案1．思考题（略）2．判断题（1）——（10）×、√、×、√、×、√、×、×、√、√3．填空题（1）Selstart （2）Enabled （3）Load（4）TabIndex, 0 （5）vbModal 或 14．选择题（1）A （2）A （3）D （4）A （5）D （6）B （7）B （8）C （9）A （10）B上机练习参考程序参见本目录中的bct1，bct21．VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight = 3810ClientLeft = 60ClientTop = 345ClientWidth = 8790LinkTopic = "Form1"ScaleHeight = 3810ScaleWidth = 8790StartUpPosition = 3 '窗口缺省Begin mandButton Command4Caption = "移动"Height = 375Left = 5760TabIndex = 4Top = 2880Width = 855EndBegin mandButton Command3Caption = "下画线"Height = 375Left = 4365TabIndex = 2Top = 2880Width = 855EndBegin mandButton Command2Caption = "加粗"Height = 375Left = 2955TabIndex = 1Top = 2880Width = 855EndBegin mandButton Command1Caption = "放大"Height = 375Left = 1560TabIndex = 0Top = 2880Width = 855EndBegin bel Label1AutoSize = -1 'TrueCaption = "Visual Basic程序设计"Height = 180Left = 720TabIndex = 3Top = 720Width = 1800EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click() '放大Label1.FontSize = Label1.FontSize * 3Label1.Left = (Form1.Width - Label1.Width) / 2 End SubPrivate Sub Command2_Click() '加粗Label1.FontBold = TrueEnd SubPrivate Sub Command3_Click() '下画线Label1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click() ' 移 动Label1.Left = Label1.Left - 200End SubPrivate Sub Form_Load()Label1.AutoSize = TrueEnd Sub第2章 习题与思考题参考答案1．思考题（略）2．填空题（1）abed cb b a 2+++（2）int(rnd*90)+10（3）(x mod 10)*10+ x\10（4）sin(65/180*3.14)+2*3.14*sqr(x+2*exp(y))/(x+y)（5）-10（6）CDEF3．编程题参见本目录中的bct1，bct21.Begin VB.Form Form1Caption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 6360LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 6360StartUpPosition = 3 '窗口缺省Begin mandButton Command1Caption = "确定"BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 495Left = 4560TabIndex = 2Top = 1440Width = 1335EndBegin VB.TextBox Text1BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 495Left = 2520TabIndex = 0Top = 1440Width = 1815EndBegin bel Label1Caption = "输入一个三位整数"BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 375Left = 480TabIndex = 1Top = 1440Width = 1935EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim x As Integer, one%, ten%, hundread%x = Val(Text1)one = x Mod 10 '个位数ten = (x \ 10) Mod 10 '十位数hundread = x \ 100 '百位数Print "百位数: " & hundread & " 十位数: " & ten & " 个位数: " & one End Sub第3章习题与思考题1．思考题（略）2．（略）3．程序阅读（1）A=2 B=3 C=2 （2）5 （3）BABCBACBC（4）1 2 False (5) 1-12-123-1234-4．选择题（1）B（2）D（3）B（4）B（5）D（6）C5．编程题参见本目录中的bct1，bct21.Begin VB.Form Form1Caption = "Form1"ClientHeight = 3630ClientLeft = 60ClientTop = 345ClientWidth = 6360BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyLinkTopic = "Form1"ScaleHeight = 3630ScaleWidth = 6360StartUpPosition = 3 '窗口缺省EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Form_Click()Dim x As Double, x2 As Double, sqt As Doublex = Val(InputBox("输入一个数据"))x2 = Int(x * x * 1000) / 1000 '保留小数点后3位sqt = Int(Sqr(x) * 1000) / 1000V ol = Fix(Vol * 10000 + 0.5) / 10000Print x & " 平方=" & x2 & "," & " 平方根=" & sqt End Sub第4章习题与思考题参考答案1．判断题（1）——（5）×、√、×、×、√2．写出下列Visual Basic表达式的值：（1）False (2) True (3) True (4) False （5）True (6) True (7) 1000 (8) False 3. 将下列命题用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)*(y-z)<0（6）a<b and a mod 2=04 选择题（1）A （注：程序段最前面加一些个语句：Dim A%，I%）（2）D（3）A（4）B（5）A（6）A5.程序阅读（1）x=3 y=7（2）w=4w=13w=135w=31(3) ^_`a12 uv^（4）1296．程序填空题（1）Chr(KeyAscii) Chr(KeyAscii)=”)”Count1 =count1-1 Count1=0 Count1>0（2）Max Min c>Max c<Min（3）x Mod 3=2 and x Mod 5=3 x Mod 7=4 Text1.SetFocusText1.SelStart = 0 Text1.SelLength = Len(Text1)7．编程题参见本目录中的bct1，bct2，…..1.Begin VB.Form Form1Caption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3 '窗口缺省EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Click()Dim N As LongN = Val(InputBox("请输入年份", "提示框"))If (N Mod 400 = 0) Or (N Mod 4 = 0 And N Mod 100 <> 0) Then '判断条件Print N & "年是闰年"ElsePrint N & "年不是闰年"End IfEnd Sub2.Begin VB.Form Form1Caption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3 '窗口缺省EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Click()Dim a!, b!, c!, s!, x!a = Val(InputBox("请输入三角形的边长A=?"))b = Val(InputBox("请输入三角形的边长B=?"))c = Val(InputBox("请输入三角形的边长C=?"))If a + b > c And b + c > a And a + c > b Then '如果能构成三角形x = (a + b + c) / 2s = Sqr(x * (x - a) * (x - b) * (x - c))Print "S="; sElsePrint "数据有错,不能构成三角形"End IfEnd Sub3.Begin VB.Form Form1Caption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3 '窗口缺省EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Click()Dim x As Double, fx As Doublex = Val(InputBox("请输入X=?"))If x < 0 And x <> -3 Thenfx = x * x + x - 6ElseIf x >= 0 And x < 10 And x <> 2 And x <> 3 Then fx = x * x - 5 * x + 6Elsefx = x * x - x - 1End IfPrint "f(" & x & ")="; fxEnd Sub4.Begin VB.Form Form1Caption = "Form1"ClientHeight = 3525ClientLeft = 60ClientTop = 345ClientWidth = 6195LinkTopic = "Form1"ScaleHeight = 3525ScaleWidth = 6195StartUpPosition = 3 '窗口缺省EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Click()Dim M1%, M2%, M3%, ave%M1 = Val(InputBox("请输入成绩M1=?"))M2 = Val(InputBox("请输入成绩M2=?"))M3 = Val(InputBox("请输入成绩M3=?"))ave = (M1 + M2 + M3) / 3If ave >= 95 Or M1 = 100 And M2 = 100 And M3 >= 80 Or M1 = 100 And _ M3 = 100 And M2 >= 80 Or M2 = 100 And M3 = 100 And M1 >= 80 Then Print "一等奖"ElseIf ave >= 90 Or M1 = 100 And M2 >= 75 And M3 >= 75 Or _M2 = 100 And M1 >= 75 And M3 >= 75 Or M3 = 100 And M1 >= 75 _And M3 >= 75 ThenPrint "二等奖"ElseIf M1 >= 75 And M2 >= 75 And M3 >= 75 ThenPrint "三等奖"ElsePrint "不符合得奖条件"End IfEnd Sub上级练习题1.Begin VB.Form Form1Caption = "Form1"ClientHeight = 5055ClientLeft = 120ClientTop = 450ClientWidth = 7530LinkTopic = "Form1"ScaleHeight = 5055ScaleWidth = 7530StartUpPosition = 3 '窗口缺省Begin mandButton Command1Caption = "确定"Height = 735Left = 1320TabIndex = 2Top = 1320Width = 1935EndBegin VB.TextBox Text1Height = 495Left = 2400TabIndex = 1Top = 240Width = 2175EndBegin bel Label1Caption = "输入1-7中一个数字"Height = 375Left = 480TabIndex = 0Top = 360Width = 1575EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()If Text1.Text = 1 ThenMsgBox "星期一", vbOKOnlyElseIf Text1.Text = 2 ThenMsgBox "星期二", vbOKOnlyElseIf Text1.Text = 3 ThenMsgBox "星期三", vbOKOnlyElseIf Text1.Text = 4 ThenMsgBox "星期四", vbOKOnlyElseIf Text1.Text = 5 ThenMsgBox "星期五", vbOKOnlyElseIf Text1.Text = 6 ThenMsgBox "星期六", vbOKOnlyElseIf Text1.Text = 7 ThenMsgBox "星期天", vbOKOnly ElseMsgBox "输入有误,请重新输入", vbOKOnlyText1.Text = ""End IfEnd Sub2.Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 4680StartUpPosition = 3 '窗口缺省Begin mandButton Command2 Caption = "结束"Height = 495Left = 2280TabIndex = 4Top = 1800Width = 1335 EndBegin mandButton Command1 Caption = "判断"Height = 495Left = 360TabIndex = 1Top = 1800Width = 1455 EndBegin VB.TextBox Text1Height = 495Left = 1920TabIndex = 0Top = 600Width = 1335 EndBegin bel Label2Caption = "x，y"Height = 255Left = 480TabIndex = 3Top = 840Width = 495EndBegin bel Label1Caption = "输入坐标"Height = 255Left = 360TabIndex = 2Top = 600Width = 1095EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim a%, z%, x!, y!a = InStr(Text1, ",") '查找","号所在的位置z = Len(Text1) '计算文本的长度x = Left(Text1, a - 1) '取出","之前的文本y = Right(Text1, z - a) '取出","之后的文本If x > 0 And y >= 0 ThenMsgBox "(" & Text1 & ")" & "在第一象限" ElseIf x <= 0 And y > 0 ThenMsgBox "(" & Text1 & ")" & "在第二象限" ElseIf x < 0 And y <= 0 ThenMsgBox "(" & Text1 & ")" & "在第三象限" ElseIf x >= 0 And y < 0 ThenMsgBox "(" & Text1 & ")" & "在第四象限" ElseMsgBox "(" & Text1 & ")" & "在原点" End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub3.Begin VB.Form Form1Caption = "Form1" ClientHeight = 4710ClientLeft = 60ClientTop = 450 ClientWidth = 7530LinkTopic = "Form1" ScaleHeight = 4710 ScaleWidth = 7530 StartUpPosition = 3 '窗口缺省Begin mandButton Command1 Caption = "健康状况"Height = 615Left = 1200TabIndex = 6Top = 2760Width = 1815EndBegin VB.TextBox Text2Height = 615Left = 3600MaxLength = 3TabIndex = 1Top = 1680Width = 2415EndBegin VB.TextBox Text1Height = 615Left = 3600MaxLength = 3TabIndex = 0Top = 600Width = 2415EndBegin bel Label5BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'False EndPropertyHeight = 495TabIndex = 7Top = 2880Width = 2175EndBegin bel Label4Caption = "kg"BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'False EndPropertyHeight = 495Left = 6360TabIndex = 5Top = 1800Width = 855EndBegin bel Label3Caption = "cm"BeginProperty FontName = "宋体"Size = 12Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'False EndPropertyHeight = 495Left = 6360TabIndex = 4Top = 720Width = 735EndBegin bel Label2Caption = "体重："Height = 375Left = 2400TabIndex = 3Width = 615EndBegin bel Label1Caption = "身高："Height = 255Left = 2400TabIndex = 2Top = 720Width = 615EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim a As SingleDim b As SingleIf IsNumeric(Text1) And IsNumeric(Text2) Thena = Text1.Text - 105b = Text2.Text / aIf b > 1.1 ThenLabel5.Caption = "偏胖，注意饮食"ElseIf b < 0.9 ThenLabel5.Caption = "偏瘦，增加营养"ElseLabel5.Caption = "正常，继续保持"End IfElseMsgBox "输入数据有误，请重新输入", , "提示"Text1.Text = ""Text2.Text = ""End IfEnd Sub第5章习题与思考题1．判断题（1）——（6）√、√、√、√、×、×2 选择题（1）B（2）B（3）B3.程序阅读（3）78578635786413578642（2）ZYYYXXXXXWWWWWWWVVVVVVVVVUUUUUUUUUUU(3) 44．程序填空题（1）sign=-1 for i=2 to 19 sign=-sign（2）Len(oldsen) Mid(oldsen,i,1) Ucase(char) char （3）Len(str1) length-1 Mid(str1,i,2) sum=0（4）Trim(Str(i)) Trim(Str(i*i)) x1=Right(x2,Len(x1))（5）lase_one=last_two last_two=this_one i=i+1 i 5．编程题参见本目录中的bct5-5-1，bct5-5-2,……1.Begin VB.Form Form1Caption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3 '窗口缺省EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Form_Click()Dim i%, m!, k%, S!T = 1For i = 1 To 9 Step 2m = 1For k = 1 To im = k * mNext kS = S + mNext iPrint "S="; SEnd Sub2.Begin VB.Form Form1Caption = "Form1"ClientHeight = 3195ClientLeft = 60ClientTop = 345ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3195ScaleWidth = 4680StartUpPosition = 3 '窗口缺省EndAttribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Form_Click()Dim i%, T!, S!T = 1: S = 1: i = 1Do While S < 1E+16T = T * 2 '计算通式S = S + T '求和i = i + 1 '统计累加次数LoopPrint "i="; i, "S="; SEnd Sub上级练习题3.Begin VB.Form Form1Caption = "Form1"ClientHeight = 3090ClientLeft = 60ClientTop = 450ClientWidth = 4680LinkTopic = "Form1"ScaleHeight = 3090ScaleWidth = 4680StartUpPosition = 3 '窗口缺省EndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = True Attribute VB_Exposed = FalsePrivate Sub Form_Click()Dim a#, b#n = 1a = 2Dob = aa = a * ((2 * n) ^ 2 / ((2 * n) ^ 2 - 1))n = n + 1Loop Until Abs(a - b) < 0.000001Print aPrint "n="; n - 1End Sub第6章习题与思考题1．判断题（1）——（6）×、×、×、×、×、√2 选择题（1）D（2）D（3）B（4）C（5）D 3.程序阅读（4）x(1)=8x(2)=6x(3)=4x(4)=3x(5)=1（2）1 2 3 4 5 6 77 1 2 3 4 5 66 7 1 2 3 4 55 6 7 1 2 3 44 5 6 7 1 2 33 4 5 6 7 1 22 3 4 5 6 7 11 2 3 4 5 6 7(3) 删除后的数组: 5 0 -1 10 2 34．程序填空题（1）此题的最后一个空的那一行应与后面的Next j交换位置。