Visual-Basic程序设计教程习题答案

VisualBasic程序设计教程（刘卫国）习题一一、选择题1.一个可执行的VisualBasic中应用程序至少要包括一个(c)。A.标准模块B.类模块C.窗体模块D.辅助模块2.VisualBasic中最基本的对象是(b)，它是应用程序的基石。A.标签B.窗体C.文本框D.命令按钮3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(c)。A.工程资源管理器窗口B.工具箱窗口C.代码窗口D.属性窗口4.以下不属于VisualBasic系统的文件类型的是(b)。A.frmB.batC.vbgD.vbp5.下列叙述中错误的是(c)。A.打开一个工程文件时，系统自动载入与该工程有关的窗体、标准模块等文件B.保存VisualBasic程序时，应分别保存窗体文件和工程文件C.VisualBasic应用程序只能以解释方式执行D.事件可以由用户引发，也可以由系统引发6.从“文件”菜单中选择“保存工程”命令来结束本次创建应用程序的工作，VisualBasic6.0将提示保存(a)文件。A.窗体和工程B.窗体和代码C.工程和代码D.代码和模块7.用户通过(c)模拟屏幕的小图像来布置应用程序界面。A.快捷菜单B.窗体设计器C.窗体布局窗口D.立即窗口8.以下叙述中错误的是(a)。A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.bas为扩展名的文件是标准模块文件C.窗体与代码窗口存在一一对应关系D.一个工程中可以含有多个标准模块文件9.下列叙述中不正确的是(b)。A.注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译B.注释语句可以放在程序代码中的任何位置C.注释语句可以单独写在一行D.向程序代码中加入注释语句的目的是提高程序的可读性二、填空题1.VisualBasic是一种面向对象的程序设计语言。2.在代码窗口，如果一条语句太长，无法在一行内写下，要换行书写，可以在行末使用续行符，它由一个空格加一个下划线组成。3.VisualBasic6.0的3种工作模式分别是设计、运行和中断。4.工程文件的扩展名是vbp，窗体文件的扩展名是frm。5.VisualBasic窗体设计器的主要功能是设计应用程序界面。问答题1.VisualBasic有哪几种版本？各有什么特点？书.P22.如何启动和退出VisualBasic系统？书.P23.VisualBasic系统集成环境包括哪几个窗口？各有什么功能？书P3-P54.创建VisualBasic应用程序的步骤是什么？如何操作？书P65.一个工程可能包含哪些类型的文件？书P116.如何设置VisualBasic系统集成环境？书P15习题2一、选择题1.与传统的程序设计语言相比，VisualBasic6.0最突出的特点是(c)。A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术2.以下可以构成语句的一项是(b)。A.对象名.属性名B.对象名.方法名C.对象名.事件名D.对象名.函数名3.如果要设置窗体的标题栏，应设置的属性是(c)。A.NameB.TitleC.CaptionD.Text4.标签所显示的内容，由(c)属性值决定。A.TextB.名称C.CaptionD.Alignment5.文本框的(a)属性用于设置或返回文本框中的文本内容。A.TextB.名称C.CaptionD.Name6.若要使命令按钮不可用，可设置其(d)属性为False来实现。A.ValueB.CancelC.DefaultD.Enabled二、填空题1.VisualBasic程序的基本结构有顺序选择循环。2.VisualBasic是一种面向对象的可视化程序设计语言，采取了事件驱动的编程机制。3.要把窗体设置成没有标题条，应将窗体的borderstyle属性设置为0。4.设有窗体(名称为MyForm)，事件过程如下：PrivateSubForm_Click()MyForm.Caption＝″VB示例″Me.Caption＝″欢迎使用本系统″Caption＝″Hello！″EndSub则响应该过程的事件名是Form_Click()。程序运行时，窗体的标题是form，单击窗体后窗体的标题是Hello！。5.程序界面上有一个标签(名为Label1)，要使运行时单击标签实现下列功能：①标签中心与窗体工作区域中心重合。②标签的内容变为“标签被单击”文字。③文字的颜色变为红色。请将下列程序补充完整。PrivateSubLabel1_Click()Label1.left=(form1.scalewidth-label1.width)/2Label1.top=(form1.heigth-label1.heigth)/2Label1.caption=标签被单击”Label1.fontcolor=vbred三、程序设计题1.设计一个窗体，当在窗体上双击鼠标时，能将窗体最大化，且窗体背景颜色设为蓝色。代码如下：PrivateSubForm_DblClick()Form1.WindowState=2Form1.BackColor=vbBlueEndSub2.设计一个窗体，其中包含3个标签，如图2.18所示。当用鼠标单击任何一个标签时，其他两个标签的标题文本互换。代码如下：PrivateSubLabel1_Click()DimtAsStringt=Label2.CaptionLabel2.Caption=Label3.CaptionLabel3.Caption=tEndSubPrivateSubLabel2_Click()DimtAsStringt=Label1.CaptionLabel1.Caption=Label3.CaptionLabel3.Caption=tEndSubPrivateSubLabel3_Click()DimtAsStringt=Label1.CaptionLabel1.Caption=Label2.CaptionLabel2.Caption=tEndSub3.设计一个窗体，如图2.19所示。当单击某个命令按钮时，对文本框中的文字完成相应的设置，其中“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“下划线”按钮给文本框中的文字加下划线，“粗体”按钮将文本框中的文字加粗。当改变文本框的内容时，文本框的背景将变成黄色。PrivateSubCommand1_Click()Text1.Font.Size=Text1.Font.Size+5EndSubPrivateSubCommand2_Click()Text1.Font.Size=Text1.Font.Size-5EndSubPrivateSubCommand3_Click()IfText1.Font.UnderlineThen'判断当前状态，然后改变Text1.Font.Underline=FalseElseText1.Font.Underline=TrueEndIfEndSubPrivateSubCommand4_Click()IfText1.Font.BoldThen'判断当前状态，然后改变Text1.Font.Bold=FalseElseText1.Font.Bold=TrueEndIfEndSubPrivateSubText1_Change()Text1.BackColor=vbYellowEndSub4.设计一个程序，实现加、减、乘、除运算，当单击“加法”命令按钮时，程序运行界面如图2.20所示。同样，单击其他命令按钮时，实现其他运算，等式中的运算符号要相应变化。代码如下：PrivateSubCommand1_Click()Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubCommand2_Click()Text3.Text=Val(Text1.Text)-Val(Text2.Text)Label1.Caption=-EndSubPrivateSubCommand3_Click()Text3.Text=Val(Text1.Text)*Val(Text2.Text)Label1.Caption=*EndSubPrivateSubCommand4_Click()Text3.Text=Val(Text1.Text)/Val(Text2.Text)Label1.Caption=÷EndSub习题三一、选择题1.VisualBasic的合法直接常量有(c)。A.πB.%100C.TrueD.&H12ag2.VisualBasic的合法变量名有(d)。A.123_aB.IntegerC.FalseD.sinx3.骰子是一个正六面体，用1～6这6个数分别代表这6面，掷一次骰子可能出现的数应表示为(d)。A.INT(RND(6)＋1)B.INT(RND*6)C.INT(RND*7)D.INT(RND*6＋1)4.VisualBasic表达式3\3*3/3Mod3的值是(b)。A.－1B.1C.－3D.35.下列表达式中，正确的VisualBasic逻辑表达式是(d)。A.xyAndzB.xyzC.xyAndzD.xyAndyz6.在窗体上画一个文本框，然后编写如下事件过程：PrivateSubForm_Click()x＝InputBox(″请输入一个整数″)Printx＋Text1.TextEndSub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是(d)。A.123B.456C.579D.1234567.设a%＝20，b$＝″30″，则下列输出结果是″2030″的语句是(d)。A.Printstr(a)B.Print″a″＋bC.Printa＋bD.Printa&b8.设a＝10，b＝5，c＝1，执行语句Printa＝b＝c后，窗体上显示的是(b)。A.TrueB.FalseC.10D.出错信息9.执行以下程序段后，变量c$的值为(d)。a$＝″VisualBasicPrograming″b$＝″Quick″c$＝b$&UCase(Mid$(a$,7,6))&Right$(a$,11)A.VisualBASICProgramingB.QuickBasicProgramingC.QUICKBasicProgramingD.QuickBASICPrograming10.下列关于可变数据类型的叙述中正确的是(c)。A.可变数据类型是一种没有类型的数据B.给可变数据类型变量赋某一种类型数值后，就不能再赋另一种类型的数值C.一个变量没有定义就赋值，该变量即为可变数据类型D.可变数据类型的空值表示该可变数据类型变量值为0二、填空题1.表达式123＋23mod10\7＋Asc(″a″)的值是220。2.表示s字符变量是字母(不区分大小写)的逻辑表达式是（s=’a’ands=’z’）or（s=’A’ands=’Z’）。3.String(4，″string″)的功能是ssss。4.UCase(mid(″中国china″，2,3))的结果为国C。5.整型变量x中存放了一个两位数，要将两位数交换位置，例如13变成31，实现的表达式是(xMod10)*10+x\10。6.数学式的VisualBasic表达式是(Sqr(1+Exp(2))+3.14)/(2*Log(x)+5*4*3*2*1)。7.要以“××××年××月××日”形式显示当前日期的Format函数格式为Format(Date,YYYY年MM月DD日)。8.计算离2009年6月30日还有多少个星期的函数是DateDiff(ww,Now,#6/30/2009#)。三、阅读程序，写出程序运行结果。1.PrivateSubForm_Click()DimaAsInteger，bAsInteger，cAsIntegera＝4：b＝5：c＝6a＝bb＝aPrinta，bb＝cc＝aPrinta，b，cEndSub结果：555652.