新编Visual_Basic程序设计教程答案

所需积分/C币:9 2014-04-22 08:57:35 978KB PDF
22
收藏 收藏
举报

新编Visual_Basic程序设计教程答案
第三章程序设计与算法(问題求解) 1.设Ⅹ与Y是同一类型的变量,试设计一个算法,把Ⅹ与Y中的数据相互交换。 答:S1:输入Ⅹ与Y 数据交换 S2:Ⅹ→>A S3:Y= A B S4:A=>Y S5:输出Ⅹ与Y 交换」清除」结束 程序代码如下 Option Explicit Dim AAs String, B As String, temp As String Private Sub Commandl Click A= Text. Text B= Tcxt2 Text temp =A A=B B= temp Text1.Text=A Text2 Text= B End sub Private Sub Command2 Click Text.Text ="1 Text2 Text Tcxtl. SctFocus End sub Private Sub Command3 Click Unload me End sub 2.设A、B、C是同一类型的变量,并分别被赋予不同大小的数据,设计一个算法,使待执行的结果为 A>B>C 答:S1:输入A、B、C S2:如果A<B,则A与B交换 调前调后 如果A<C,则A与C交换 A58 79计算」 S4:如果B<C,则B与C交换 B65 65 清除 输出A、B 程序代码如卜 C7958退出 Option explicit Private Sub Commandl Click Dim a as integer. b as integer c As Dim t as intcger Text1.Text: b= Text2.Text: c= Text3 te If<b then t-a a-b: b-t: end Ifa<c then t= aa=cc=t: End Ifb<c Then: t=b: b=C: c=t: End Text4, Text =a Text5Text= b Text6 Text =c End sub Private Sub Command2 Click Text1.Text= Text2 Text= 1 Text. Text = w Text4 Text= 1 Text5 Text= Text6 Text Textl SetFocus End sub Private Sub Command3 Click Unload me End Sub 3.设计一个可以判断某数是否是素数的算法。 答:S1:输入一个正整数N S2:I2 S3:如果N能被Ⅰ整数,则转S7 S4:I=I+1 S5:如果I小于等于N-1则转S3 S6:输出N是素数,程序结東 S7:输出N不是素数,程序结束 程序代码如下 Option explicit Forml Dim x As Long Private Sub Commandl Click 数109 Dimi as integer 判断是素数 Fori=2 tox- If x Mod i=o then exit for 「判嶄退出 Next i If i=x then Tex12Text="是素数 Else lext2Text="不是素数 End If End Sub Private Sub Command2 Click Unload me End sub Private Sub Textl Change( X= Val(Text1. Text End sub 4.设计一个判断某正整数是一个回文数的算法。所谓回文数是指左右数字完全对称的自然数。 答:S1:输入一个数字字符串S S2:I=1 S3:如果第I个数字与倒数第Ⅰ个数字不同,则转S7 S4:=I-1 S5:如果I小于等于字符串长度的一半,则返回S3 S6:输山S是回文数,程序结束 S7:输出S不是回文数,程序结東。 程序代码如下 Option Explicit Private Sub Command1 Click Dim x As string, i As Integer X= Text. Text For i=I To Len(x)/2 Ir Mid(x, i, 1)Mid(x, Len(x)-i+1, 1) Then Exit For Next i i。Form1 x Ifi>Len(x)/2 Then Labell Caption="是回文数” 1235321 是回文数 Labell Caption="不是回文数 End If 「新]漬除」退出 End sub Private Sub Command2 click Labcll. Caption= Text1. Text End sub Private Sub Command3 Click Unload Me End sub 5.设计一个算法,求出给定的自然数的所有因子 答:S1:输入一个正整数N 2986的所有因子如下 S3:如果N能被I整数,则输出Ⅰ S4:I=I+1 1214932986 S5:如果I小于等于N则转S3 共有4个。 S6:程序结束 程序代码如下 Option Explicit Private Sub Form Click Dim x As Long, 1 As Long, J As Long x- Input Box("请输入一个自然数:") Print&"的所有因子如下:" Fori=l Tox If x mod i=0 Then Print 1; If j Mod 10=0 Then Print End if Print Print"共有";j;"个 End sub 第三章常用控件与界面设计 1.窗体的属性主要可分为几类? Caption属性和Name属性有何不同? 答:窗体的属性主要可分为:杂项、外观、行为、字体、位置等五类。 Caption:窗体标题,是出现 在窗体标题栏上的文本内容;Namc:窗体名称,在程序代码中被作为对象的标识名。 2.以下窗伓名中哪些是非法的窗体名?(ABDE) A aform B. 3frm C f1 D frm 5 e f 1 3.VB为什么要提供多种窗体边框风格?试从已学习过的各种 Windows应用程序的窗口中举例说明? 答;VB中提供了六种窗体的边框风格,如设定值为1和3,它表小 Windows应用程序中的对话框, 其大小不可改变;设定值为2表示 Windows应用程序中的窗口,其大小可以改变。 4.在桌面上存在多个窗∏时,改变窗的上作状态会引发何种事件?改变窗∏大小呢? 答:改变窗口的工作状态会引发激活事件和失去激活事件;改变窗口大小会引发 Resize事件。 5.(略) 6.有程序代码如下:Form2 Caption-”Help¨,试问:Form2、 Caption和Help分别代表 (C) A.对象、值、属性B.值、属性、对象 C.对象、属性、值D属性、对象、值 7.VB的常用控件中,哪些控件貝有 Caption属性,而没有τext属性?哪些控件具有Text属性,却没有 Caption属性? 答:具有 Caption属性而没有Tx属性的控件有:标签、命令按钮、复选框、选项按钮、框架;具有 lxt属性而没有 Caption属性的控件有:文本框、组合框、列表框 8.对象的属性是否只能在设计界面吋在属性窗∏中进行设置?属性窗∏中的属性列衣是否包括了一个 对象的所有属性? 答:属性的设置既可以在属性窗口中进行设置,也可以在程序代码中进行设置,但有些对象的有些属 性只能在属性窗口中进行设置,如文木框的多行属性,有些对象的有些属性只能在程序代码中进行设 置,如列表框的列表项数目属性;属性窗口中的属性列表中不包括一个对象的所有属性,如列表框的 ListIndex属性、 Listcount属性就不在属性列表中。 9.除窗体之外,还有哪些控件可作为其他控件的容器使用? 答:还有:框架、图片框 10.常用控件中具有Vale属性的控件有哪些?它们的取值及类型有何异同? 答:常用控件中具有 Value属性的控件有:选项按钮、复选框、滚动条: (1)选项按钮的取值为逻辑型,选中该选项按钮时,其值为Irue,未选中该选项按钮时,其值为 False; (2)复选框的取值为数值型,选中该复选框时,其值为1,未选中该复选框是,其值为0,复选框变灰 时,其值为2; (3)滚动条的取值为数值型,其值为滚动块在滚条中的位置。 11.哪些控件对象可以获得焦点?某程序的界面上有多个文本框,还有命令按钮,如果没有特别设置,在 程序启动时,哪个控件将具有焦点? 答:可以获得焦点的控件对象:文木框、命令按钮、选项按钮、复选框、列表框、组合框、滚动条(水 平滚动条、垂直滚动条) 如果没有特别设置,在程序启动吋,首先设置具有焦点的控件将具有焦点 12.以下使用方法的代码中,正硝的是 (C) A. Labell setfocus B. Forml. clear C. Text1. SetFocus D Combo. cIs 将复选框的 Value属性设为"2",其效果与把它的 Enabled属性设置为" False"有何异同?若把一个控件的 Visible属性设为" False",意味着什么? 答:将复选框的Vaue属性设为2,表示该复选框暂时变灰,启动后仍然可以对其操作,而将复选框 的 Enabled属性设置为 Falsc,表示该复选框灰化,启动后不可以对其操作,直到将 Enabled属性设置 为True,才能对其操作。若把一个控件的Ⅴ isible属性设为 False,表示该控件不可见。 14.如何给一个列表框或组合框控件增添列表项?已有的列表项如何删除? 答:给列表框或组合框控件增添列表项,可用属性窗口中的List属性,或仼程序代码中使用 Additem 方法。如果删除所有的列表项可用 Clear方法,如果删除某一列表项可用 Removelten方法 附:显示、清除、删除方法 1.显示方法: (1)窗体[窗体名 Print内容 例:[Form1. IPrint"学习Ⅴ isual basic" (2)文本框文本框名Text=内容 例:Text1Text="学习Ⅴ isual basic" (3)标签标签名 Caption内容 例: Labell Caption-"学习Ⅴ isual basic" (4)图片框图片框名Pint内容 例: Picture 1. Print"学习 Visual basic" (5)列表框列表框名Adtm内容[,位置号] 例:List1. AddItem"学习Ⅴ isual basic List1. Additem"学习Ⅴ /isual basic",6 (6)组合框组合框名 Addlten内容[,位置号1 例: Combo1. Additem"学习Ⅴ Visual basic Combo. Additon"学习Ⅴ sual basic",6 2.清除方法 (1)窗体[窗体名Cls 例:[Form1.JCls (2)文本框文本框名Txt= 例: Text1.Text=" 例: Labell Caption=w (3)标签标签名 ptio (4)图片框图片框名Prnt内容 例: Picture1 cIs (5列表框列表框名. Clear 例:List1. Clear (6)组合框组合框名 Clear 例: Combo1. Clear 3删除方法 (1)列表框列表框名 Removeltem位置号 15 Listl. Removeltem Listl ListIndex (2)组合框组合框名 AddIton内容[位置号] 19: Combol Removeltem Combo1 ListIndex 第四章数据、表达式与简草程序设计 1.如果编写的过程要被多个窗体及其对象调用,应将这些过程放在哪一类模块中?(B) A.窗体模块B标准模块C.工程D.类模块 2.事件过程与通用过程的主要区别是什么? 答:事件过稈是指为窗体以及窗体上的各种对象编写的用来响应由用户或系统引发的各种事件的代码 行;通用过程是指一个应用程序中的多个窗体可以共享一些代码,或者一个窗体内不同的事件过程可 以共享的一些代码;事件过程是由用户或系统响应某个事件而执行的,通用过程是由事件过程或其他 通用过程调用而执行的。 3.通用过程只能存在丁标准模块中,这种说法对吗? 答:不对,通用过程既可存在于标准模块中,也可存在于窗体模块中 VB有哪些数据类型? 答εⅤB中的数搪类型有:整型、长整型、单精度、双精度、定长字符型、变长字符型、逻辑型、字 节型、日期型、货币型、对象型、变体型。 5.宇符型常量与日期型常量在使用时有何区别?下列常量中哪些是字符串型常量,哪些是日期型常量? 哪些什么也不是? A.“ I am a student:”B.“江苏南京”C.#02/25/1999并 D. anuary1,1993#E.“02/25/1999#F. anuary1,1993” 答:字符型常量在使用时要加西文的双引号,日期型常量再使用时要加#号;字符型常量有:A、B; 日期型常量有:C、D;什么也不是:E、F 6.下列符号中哪些是ⅤB合法的变量名? A bIn Frag B. a5b C Ing Num D Area Triangle E User&Input F. 5Name 答:合法的变量名有:A、C、D 7.变量作用域包括几个等级?说明的方式有何区别? 答:变量作用域包括三个等级:过程级、窗体级、仝局级。局部(过程级):用Dim、 Static在过程中 定义,作用范围:该过程,脱离该过程后无效,也就是在其它过程中无效; Static:静态变量,脱离 该过程后,变量的值不消失,用于子过程或函数过程中;窗体(模块)级:用 Private、Dim在通用 声明部分定义,作用范围:该窗体中所有过程,脱离该窗体后无效,也就是在其它窗体的过程中无效; 全局(公有的):用 Public在通用/声明部分定义;如果在标准模块中定乂,则作用范围为该⊥程的所 有窗体,调用时直接使用变量名:如果在窗体模块中定义,则作用范围为该工程的所有窗体,但本窗 体调用时直接使用变量名,该工程中其它窗体调用时,须加定义时的窗体名作为前缀。 8,.写出下面数学式对应的算术表达式。 (1)b /(b+c/d) (2)x+√x2+1 (x+Sqr(x“x+1)^(1/3) 2 ()(axtbyXax-by) 2 *y/(a*x+b*y*(ax-by)) 1 1+1/(1+lm) 2x (5)2(3 (d/3)^(2*x)2 (6)In(y+cos x) Log(y+cos(x) e+sin x Abs((Exp(x)+Sin(x)3)/(x+y)) e+tanz+COS xty-z Log((Exp(x*y)+Abs(Tan(z)(-1)+Cos(x)3))/(x+y-z) 9.指出并改正下面数学式对应的VB算术表达式中的错语。 a+b 1)a-b A+B!/A-B (A+B)(A-B) t bc (2)(a+1)yABC(D+1)*YABC(D+1)*) (3)(xy)xYn5 (X*Y)^5 10.将下面的条件用VB的逻辑表达式表示。 (1)X+Y小丁10且XY要大于0 (2)X、Y都是正整数或都是负整数 (3)A、B之·为零但不得同时为零 (4)C1+C2+C3大于等于255或C1与C2分别大于90且C3大于80 答:(1)X+Y<10AndX-Y>0 (2)XY>0 And X=Int(X)And Y=Int(r) (3)A*B-0 And A<B nX A-0 Xor B-0 (4)C1+C2+C3>=2550rC1>90AndC2>90AndC3>80 1.求下列表达式的运算结果 Mid("Visual Basic, 1, 12 )=Right("Programming Language Visual Basic,, 12) T rue “ ACRO”> abode F in(134.69)>Cint(134.69) Falsc 78.9/32.77<=97.5/43.87And-45.4>-498 False Str(32345)Cstr(32.345) False 12.下列语句代码哪些可正常执行(正常执行是指系统不给出出错提示)? A Print 32765+3 溢出 B. Print 5+7-14 False C. Print 256/128 D.Prin“14”+32 46 E. Print“14”832 “1432” 答:能正常执行的语句有:B、C、D、E,具体执行结果见上。 13.在文本框Text1与Text2中分别输入35与48,变量S与X分别为字符型与整型,试问以下赋值语句 的执行结果是什么? (1)S-TextIText Text2Text 3548 (2)X-Text1Text Text2Text 3548 ()S=TextIText Text2Text 3548 (4)XTextlText Text2 Text 3548 (5)S=Val(TextI Text)+Text2Text

...展开详情
试读 43P 新编Visual_Basic程序设计教程答案
立即下载 身份认证后 购VIP低至7折
一个资源只可评论一次,评论内容不能少于5个字
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
关注 私信
上传资源赚钱or赚积分
最新推荐
新编Visual_Basic程序设计教程答案 9积分/C币 立即下载
1/43
新编Visual_Basic程序设计教程答案第1页
新编Visual_Basic程序设计教程答案第2页
新编Visual_Basic程序设计教程答案第3页
新编Visual_Basic程序设计教程答案第4页
新编Visual_Basic程序设计教程答案第5页
新编Visual_Basic程序设计教程答案第6页
新编Visual_Basic程序设计教程答案第7页
新编Visual_Basic程序设计教程答案第8页
新编Visual_Basic程序设计教程答案第9页

试读结束, 可继续读4页

9积分/C币 立即下载