Visual_Basic程序设计教程习题答案.pdf
《Visual_Basic程序设计教程习题答案.pdf》由会员分享,可在线阅读,更多相关《Visual_Basic程序设计教程习题答案.pdf(41页珍藏版)》请在咨信网上搜索。
1、Visual Basic程序设计教习题一一、选择题1.一个可执行的Visual Basic中应用程序至少要包括一1、(c)。A.标准模块 B.类模块 C.窗体模块 D.辅助模块2.Visual Basic中最基本的对象是(b),它是应用程序的基石。A.标签 B.窗体 C.文本框 D.命令按钮3.在设计阶段,当双击窗体上的某个控件时,所打开的窗1是(c)。A.工程资源管理器窗口 B.工具箱窗口C.代码窗口 D,属性窗口4.以下不属于Visual Basic系统的文件类型的是(b)。A.frm B.bat C.vbg D.vbp5.下列叙述中错误的是(c)oA.打开一个工程文件时,系统自动载入与该
2、工程有关的窗体、标准模块等文件B.保存Visual Basic程序时,应分别保存窗体文件和工程文件C.Visual Basic应用程序只能以解释方式执行D.事件可以由用户引发,也可以山系统引发6.从“文件”菜单中选择“保存工程”命令来结束本次创建应用程序的工作,Visual Basic 6.0将 提示保存(a)文件。A.窗体和工程 B.窗体和代码 C.工程和代码 D.代码和模块7.用户通过(c)模拟屏幕的小图像来布置应用程序界面。A.快捷菜单 B.窗体设计器 C.窗体布局窗口 D.立即窗口8.以下叙述中错误的是(a)。A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.
3、bas为扩展名的文件是标准模块文件C.窗体与代码窗口存在对应关系D.一个工程中可以含有多个标准模块文件9.下列叙述中不正确的是(b)。A.注释语句是非执行语句,仅对程序的有关内容起注释作用,它不被解释和编译B.注释语句可以放在程序代码中的任何位置C.注释语句可以单独写在一行D.向程序代码中加入注释语句的目的是提高程序的可读性二、填空题1.Visual Basic是一种面向 对象 的程序设计语言。2.在代码窗口,如果一条语句太长,无法在一行内写下,要换行书写,可以在行末使用 续 行符,它由一个空格加一个下划线 组成。3.Visual Basic 6.0的3种工作模式分别是 设计、运行 和 中断。
4、4.工程文件的扩展名是vbp,窗体文件的扩展名是f?m o5.Visual Basic窗体设计器的主要功能是 设计应用程序界面。三、问答题1.Visual Basic有哪几种版本?各有什么特点?书.P22.如何启动和退出Visual Basic系统?书.P23.Visual Basic系统集成环境包括哪几个窗口?各有什么功能?书 P3-P54.创建Visual Basic应用程序的步骤是什么?如何操作?书P65.一个工程可能包含哪些类型的文件?书P116.如何设置Visual Basic系统集成环境?书P15习题2一、选择题1.与传统的程序设计语言相比,Visual Basic 6.0最突出的
5、特点是(c)。A.结构化程序设计 B.程序开发环境C.事件驱动编程机制 D.程序调试技术2.以下可以构成语句的一项是(b)oA,对象名.属性名 B.对象名.方法名C.对象名.事件名 D.对象名.函数名3.如果要设置窗体的标题栏,应设置的属性是(c)oA.Name B.Title C.Caption D.Text4.标签所显示的内容,由(c)属性值决定。A.Text B.名称 C.Caption D.Alignment5.文本框的(a)属性用于设置或返回文本框中的文本内容。A.Text B.名称 C.Caption D.Name6.若要使命令按钮不可用,可设置其(d)属性为False来实现。A.
6、Value B.Cancel C.Default D.Enabled二、填空题1.Visual Basic程序的基本结构有 顺序 选择 循环。2.Visual Basic是一种面向对象 的可视化程序设计语言,采取了事件驱动的编程机制。3.要把窗体设置成没有标题条,应将窗体的borderstyle 属性设置为 0。4.设有窗体(名称为MyForm),事件过程如下:Private Sub Form_Click()MyForm.Caption=VB 示例Me.Caption=欢迎使用本系统”Caption=Hello!End Sub则响应该过程的事件名是 Form_Click()。程序运行时,窗体的
7、标题是form,单击窗体后窗体的标题是Hello!o5.程序界面上有一个标签(名为Labell),要使运行时单击标签实现下列功能:标签中心与窗体工作区域中心重合。标签的内容变为“标签被单击”文字。文字的颜色变为红色。请将下列程序补充完整。Private Sub Label l_Click()Label l.left=(form 1.scalewidth-label 1.width)/2Label 1.top=(fbrml.heigth-labell.heigth)/2Label 1.caption=标签被单击“Label 1.fontcolor=vbred三、程序设计题1.设计一个窗体,当在窗
8、体上双击鼠标时,能将窗体最大化,且窗体背景颜色设为蓝色。代码如下:Private Sub Form_DblClick()Forml.WindowState=2Forml.BackColor=vbBlueEnd Sub2.设计一个窗体,其中包含3个标签,如图2.18所示。当用鼠标单击任何一个标签时,其 他两个标签的标题文本互换。代码如下:Private Sub Label 1 Click()Dim t As Stringt=Label2.CaptionLabel2.Caption=Label3.CaptionLabel3.Caption=tEnd SubPrivate Sub Label2_Cl
9、ick()Dim t As Stringt=Label 1.CaptionLabel 1.Caption=Label3.CaptionLabel3.Caption=tEnd SubPrivate Sub Label3_Click()Dim t As Stringt=Label 1.CaptionLabel 1.Caption=Label2.CaptionLabel2.Caption=tEnd Sub3.设计一个窗体,如图2.19所示。当单击某个命令按钮时,对文本框中的文字完成相应的 设置,其中“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅,“下划线”按钮给文本 框中的文字加下划线,“粗
10、体”按钮将文本框中的文字加粗。当改变文本框的内容时,文本框 的背景将变成黄色。文本框格式控制Visual Basic在其编程系统中采用了 面向对象和事件驱 动的编程机制,提 供了一种所见即所 得的可视化程序设 计方法.-1 XId_xHirblofl/!63qoinPrivate Sub Command l_Click()Textl.Font.Size=Textl.Font.Size+5End SubPrivate Sub Command2_Click()Textl.Font.Size=Textl.Font.Size-5End SubPrivate Sub Command3_Click()If
11、 Text 1.Font.U nderline Then 判断当前状态,然后改变Text 1.Font.Under line=FalseElseText 1.Font.U nderline=TrueEnd IfEnd SubPrivate Sub Command4_Click()IfTextl.Font.BoldThen,判断当前状态,然后改变Textl.Font.Bold=FalseElseTextl.Font.Bold=TrueEnd IfEnd SubPrivate Sub Textl_Change()Text 1.BackColor=vb YellowEnd Sub4.设计一个程序,实
12、现加、减、乘、除运算,当单击“加法”命令按钮时,程序运行界面如 图2.20所示。同样,单击其他命令按钮时,实现其他运算,等式中的运算符号要相应变化。代码如下:Private Sub Command 1 _Click()Text3.Text=Val(Textl.Text)+Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text=Val(Textl.Text)-Val(Text2.Text)Label 1.Caption=End SubPrivate Sub Command3_Click()Text3.Text=Val(Textl.
13、Text)*Val(Text2.Text)Label 1.Caption=End SubPrivate Sub Command4_Click()Text3.Text=Val(Textl.Text)/Val(Text2.Text)Label 1.Caption=+End Sub习题三一、选择题1.Visual Basic的合法直接常量有(c)。A.n B.%100 C.True D.&H12ag2.Visual Basic的合法变量名有(d)。A.123_a B.Integer C.False D.sinx3.骰子是一个正六面体,用16这6个数分别代表这6面,掷一次骰子可能出现的数应表 示为(d
14、)oA.INT(RND(6)+1)C.INT(RND*7)B.INT(RND*6)D.INT(RND*6+1)4.Visual Basic 表达式 3 3*3/3 Mod 3 的值是(b)。A.-1 B.1 C.-3 D.35.下列表达式中,正确的Visual Basic逻辑表达式是(d)。A.xy And yzC.xy And z D.xy And yz6.在窗体上画一个文本框,然后编写如下事件过程:Private Sub Form_Click()x=InputBox(请输入一个整数”)Print x+Textl.TextEnd Sub程序运行时,在文本框中输入456,然后单击窗体,在输入对
15、话框中输入123,单击“确定”按钮后,在窗体上显示的内容是(d)oA.123 B.456 C.579 D.1234567.设a%=20,b$=30,则下列输出结果是2030的语句是(d)。A.Print str(a)B.Print a+b C.Print a+b D.Print a&b8.设a=10,b=5,c=L执行语句Printa=b=c后,窗体上显示的是(b)A.True B.False C.10 D.出错信息9.执行以下程序段后,变量c$的值为(d)。a$=Visual Basic Programing”b$=Quickc$=b$&UCase(Mid$(a$,7,6)&Right$(a
16、$,ll)A.Visual BASIC Programing B.Quick Basic ProgramingC.QUICK Basic Programing D.Quick BASIC Programing10.下列关于可变数据类型的叙述中正确的是(c)。A.可变数据类型是一种没有类型的数据B,给可变数据类型变量赋某一种类型数值后,就不能再赋另一种类型的数值C,一个变量没有定义就赋值,该变量即为可变数据类型D.可变数据类型的空值表示该可变数据类型变量值为0二、填空题1.表达式 123+23 modi 07+Asc(a)的值是 220。2.表示s字符变量是字母(不区分大小写)的逻辑表达式是(s
17、=/and s=A and s0 Then y=x+1 B.y=x+1y=x 1C.If x0If x0 Theny=x+1Elsey=x+1Elsey=x-1y=x-1End IfEnd If2.有如下程序段:xcase=1t=InputBox(“请输入一个数:”)Select Case tCase Is0Y=xcase+1Case Is=OY=xcase+2Case ElseY=xcase+3End SelectPrint xcase;Y若输入一1,输出结果为(a)oA.1 4 B.1 3 C.1 2 D.1 13.下列循环语句执行后,X的值等于(a)oX=5Fori=l To 20 St
18、ep 2X=X+i5Next iX=iA.21 B.22 C.23 D.244.执行以下程序段时,(c)ox=1Do While x0 x=x*xPrint x;LoopA.循环体将执行1次C.循环体将执行无限次B.循环体将执行。次D.系统将提示语法错误5.设窗体中包含一个命令按钮Command 1,一个标签Label 1,并有以下的事件过程。程序 运行后,单击Commandl按钮,标签中显示的内容是(c)。Private Sub Command l_Click()Dim i As Integer,n As Integer i=l:n=0Do While i 6Print num;num=nu
19、m+2.4LoopEnd Sub程序运行后,单击命令按钮,则窗体上显示的内容是(b)oA.1 3.4 5.8 B.1 3 5 C.1 4 7 D.无数据输出8.在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:Private Sub Command l_Click()Dim a As Integer,s As Integer a=8 s=1 Dos=s+a a=a-1 Loop While a=0 Print s;a End Sub程序运行后,单击命令按钮,则窗体上显示的内容是(C)oA.7 9 B.34 0 C.9 7 D.死循环 二、填空题 1.下面程序的功能是偶数、奇
20、数分别累加放入m、n中。Dim n%,m%Private Sub Text 1 Key Press(Key Asci i As Integer)If KeyAscii=13 ThenIf IsNumeric(Textl.Text)Then Select Case Text 1.Text Mod 2 Case 0 n=n+Textl.TextCase 1 m=m+Textl.TextEnd SelectEnd If Textl.Text=Textl.SetFocusEnd IfEnd Sub2.下面的程序是检查输入的算术表达式中圆括号是否配对,并显示相应的结果。本程序在 文本框输入表达式,边输入
21、边统计,以同车作为表达式输入结束。Dim Count 1%Private Sub Text 1 _KeyPress(KeyAscii As Integer)IfChr(KeyAscii)=(Then Count 1=Count 1+1Elself Chr(Key Ascii)=ThenCount 1=Count 1 1End IfIf Key Ascii=13 ThenIf Count 1=0 Then Print 左右括号配对Elself Count 1OThenPrint 左括号多于右括号”;Count 1;个 ElsePrint 右括号多于左括号;-Countl;个 End IfEnd
22、IfEnd Sub3.输入任意长度的字符串,要求将字符顺序倒置,例如“ABCDEFG”变换为“GFEDCBA”。Private Sub Command l_Click()Dim a$,n%,i%,c$a=InputBox(输入字符串”)n=Len(a)For i=1 To Int(n/2)c=Mid(a,i,1)Mid(a,i,l)=mid(a,n+1-1,1)mid(a,n+l-I,l)=cNext iPrint aEnd Sub三、阅读程序,写出程序运行结果 1.Dimx$,n%,a%n=20 Do while n0 a=n mod 2 n=n 2x=Chr(48+a)&xLoopPrin
23、t x 101002.a$=*”:b$=$”For i=1 to 4If i Mod 2=OThenx$=String(Len(a$)+i,b$)Elsex$=String(Len(a$)+i,a$)End IfPrint x$;Next I*$*$3.Fori=l To 9For j=1 To 2*i-lIf i Mod 2=0 Then Print Str$(i);Else Print cStr$(i);Next jPrintNext i结果:12223333344444445555555556666666666677777777777778888888888888889999999999
24、99999994.Dima%,i%,j%a=0For i=1 to 5For j=-2 to 2a=a+i+jNext jPrint a;Next iPrintPrint i,j,a结果:5 15 30 50 756 3 75四、程序设计题1.设计一个窗体,输入一个3位整数,将它反向输出。例如输入123,输出为321。321x(9ir.blog 163xxmPrivate Sub Command l_Click()Dim a$,n%,i%,c$a=InputBox(输入字符串”)n=Len(a)For i=1 To nc=Mid(a,i,1)+cNextFontSize=24Print cEn
25、d Sub2.从键盘输入任意一个实数,用Print方法在窗体上同一行显示其平方和平方根,要求每个 数保留3位小数。Private Sub Command l_Click()Dim a As Single,b As Single,c As Single a=InputBox(请输入一个实数”)b=a*a c=Sqr(a)FontSize=24Print a;的平方为:;Format(b,#.000),Print a;的平方根为:;Format(c,#.000)End Sub3.计算下列分段函数值:y=Private Sub Form_Click()Dim x As Single,y As Sin
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual_Basic 程序设计 教程 习题 答案
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【曲****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【曲****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。