VB教材习题答案.doc

《VB教材习题答案.doc》由会员分享，可在线阅读，更多相关《VB教材习题答案.doc（43页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、新编新编 VisualVisual BasicBasic 程序设计教程程序设计教程习习题题解解答答蔡树元蔡树元著著盐城工学院材料工程学院盐城工学院材料工程学院20062006 年年 9 9 月月目目录录第一章Visual Basic 概述.错误！未定义书签。错误！未定义书签。第二章创建用户界面.错误！未定义书签。错误！未定义书签。第三章VB 语言基础.错误！未定义书签。错误！未定义书签。第四章算法基础 Visual Basic 的基本语句.错误！未定义书签。错误！未定义书签。第五章数组.错误！未定义书签。错误！未定义书签。第六章程序调试.错误！未定义书签。错误！未定义书签。第八章过程.错误！未

2、定义书签。错误！未定义书签。附：苏州大学出版社的 Visual Basic 程序设计实验指导书答案.错误！未定义书签。错误！未定义书签。2006 年春江苏省计算机二级试卷(Visual Basic).错误！未定义书签。错误！未定义书签。第一章第一章Visual Basic 概述概述1 VB 是用于开发_环境下应用程序的工具。（B）A.DOSB.WindowsC.DOS 和 WindowsD.UNIX2 VB6.0 是_位操作系统下的应用程序开发工具。（A）A.32B.16C.32 或 16D.643 一个对象可执行的动作与可被一个对象所识别的动作分别称为_（B）A.事件、方法B.方法、事件C.

3、属性、方法D.过程、事件4 有一个红色、充满氢气的气球，如果人不小心松开手抓的引线，就会飞走；如果用针刺它，则会爆破。请问，对于气球对象，哪些是属性、哪些是事件、哪些是方法？答：答：属性是红色、氢气；事件是松开、针刺；方法是飞走、爆破。5 简述事件驱动过程程序的设计原理？答：答：使用 VB 不仅可以非常便捷地设计出 Windows 应用程序的窗口界面，设置界面中各种对象的属性，而且可以通过编写程序代码段，为对象规定在被某个“事件”激活时应发生的各种动作以及所要进行的信息处理的具体内容，这样的代码段称为“过程”。为各个对象编写的过程集合在一起，就构成一个完整的应用程序。6 VB 的集成开发环境都

4、有哪些元素些组成？答答：VB 的集成开发环境由标题条、菜单条、弹出式菜单（上下文菜单）、工具栏、控件工具箱、初始窗体、工程资源管理器子窗口、属性子窗口、窗体布局子窗口、代码编辑器窗口、立即、本地和监视窗口等。7 简述用 VB 开发应用程序的一般步骤？答：答：VB 开发应用程序的一般步骤是：创建程序的用户界面；设置界面上各个对象的属性；编写对象响应事件的程序代码；保存工程；测试和调试应用程序，检查并排除程序中的错误；创建可执行程序。第二章第二章创建用户界面创建用户界面1 窗体的属性主要可分为几类？Caption 属性和 Name 属性有何不同？答：答：窗体的属性主要可分为：杂项、外观、行为、字体

5、、位置等五类。Caption：窗体标题，是出现在窗体标题栏上的文本内容；Name：窗体名称，在程序代码中被作为对象的标识名。2 以下窗体名中哪些是非法的窗体名？（AB E）A.aformB.3frmC.f_1D.frm5E.f_1*3 VB 为什么要提供多种窗体边框风格？试从已学习过的各种 Windows 应用程序的窗口中举例说明？答：答：VB 中提供了六种窗体的边框风格，如设定值为 1 和 3，它表示 Windows 应用程序中的对话框，其大小不可改变；设定值为 2 表示 Windows 应用程序中的窗口，其大小可以改变。4 在桌面上存在多个窗口时，改变窗口的工作状态会引发何种事件？改变窗口

6、大小呢？答：答：改变窗口的工作状态会引发激活事件和失去激活事件；改变窗口大小会引发 Resize 事件。5(略)6 有程序代码如下：Form2.Caption=”Help”，试问：Form2、Caption 和 Help 分别代表_（C）A.对象、值、属性B.值、属性、对象C.对象、属性、值D.属性、对象、值7 VB 的常用控件中，哪些控件具有 Caption 属性，而没有 Text 属性？哪些控件具有 Text 属性，却没有Caption 属性？答答：具有 Caption 属性而没有 Text 属性的控件有：标签、命令按钮、复选框、选项按钮、框架；具有Text 属性而没有 Caption 属

7、性的控件有：文本框、组合框、列表框。8 对象的属性是否只能在设计界面时在属性窗口中进行设置？属性窗口中的属性列表是否包括了一个对象的所有属性？答答：属性的设置既可以在属性窗口中进行设置，也可以在程序代码中进行设置，但有些对象的有些属性只能在属性窗口中进行设置，如文本框的多行属性，有些对象的有些属性只能在程序代码中进行设置，如列表框的列表项数目属性；属性窗口中的属性列表中不包括一个对象的所有属性，如列表框的ListIndex 属性、ListCount 属性就不在属性列表中。9 除窗体之外，还有哪些控件可作为其他控件的容器使用？答：答：还有：框架、图片框10常用控件中具有 Value 属性的控件有

8、哪些？它们的取值及类型有何异同？答：答：常用控件中具有 Value 属性的控件有：选项按钮、复选框、滚动条：(1)选项按钮的取值为逻辑型，选中该选项按钮时，其值为 True，未选中该选项按钮时，其值为 False；(2)复选框的取值为数值型，选中该复选框时，其值为 1，未选中该复选框是，其值为 0，复选框变灰时，其值为 2；(3)滚动条的取值为数值型，其值为滚动块在滚条中的位置。11哪些控件对象可以获得焦点？某程序的界面上有多个文本框，还有命令按钮，如果没有特别设置，在程序启动时，哪个控件将具有焦点？答答：可以获得焦点的控件对象：文本框、命令按钮、选项按钮、复选框、列表框、组合框、滚动条（水平

9、滚动条、垂直滚动条）如果没有特别设置，在程序启动时，首先设置具有焦点的控件将具有焦点。12以下使用方法的代码中，正确的是_（C）A.Label1.SetFocusB.Form1.ClearC.Text1.SetFocusD.Combo1.Cls将复选框的 Value 属性设为2，其效果与把它的 Enabled 属性设置为False有何异同？若把一个控件的Visible 属性设为False，意味着什么？答：答：将复选框的 Value 属性设为 2，表示该复选框暂时变灰，启动后仍然可以对其操作，而将复选框的 Enabled 属性设置为 False，表示该复选框灰化，启动后不可以对其操作，直到将 E

10、nabled 属性设置为 True，才能对其操作。若把一个控件的 Visible 属性设为 False，表示该控件不可见。14如何给一个列表框或组合框控件增添列表项？已有的列表项如何删除？答答：给列表框或组合框控件增添列表项，可用属性窗口中的 List 属性，或在程序代码中使用 AddItem方法。如果删除所有的列表项可用 Clear 方法，如果删除某一列表项可用 RemoveItem 方法。附：附：显示、清除、删除方法1.1.显示方法：显示方法：(1)窗体窗体名.Print内容例：Form1.Print学习 Visual Basic(2)文本框文本框名.Text=内容例：Text1.Text

11、=学习 Visual Basic(3)标签标签名.Caption=内容例：Label1.Caption=学习 Visual Basic(4)图片框图片框名.Print内容例：Picture1.Print学习 Visual Basic(5)列表框列表框名.AddItem内容,位置号例：List1.AddItem学习 Visual BasicList1.AddItem学习 Visual Basic,6(6)组合框组合框名.AddItem内容,位置号例：Combo1.AddItem学习 Visual BasicCombo1.AddItem学习 Visual Basic,62.2.清除方法清除方法(1

12、)窗体窗体名.Cls例：Form1.Cls(2)文本框文本框名.Text=例：Text1.Text=(3)标签标签名.Caption=例：Label1.Caption=(4)图片框图片框名.Print内容例：Picture1.Cls(5)列表框列表框名.Clear例：List1.Clear(6)组合框组合框名.Clear例：Combo1.Clear3.3.删除方法删除方法(1)列表框列表框名.RemoveItem位置号例：List1.RemoveItemList1.ListIndex(2)组合框组合框名.AddItem内容,位置号例：Combo1.RemoveItemCombo1.ListIn

13、dex第三章第三章VB 语言基础语言基础1 如果编写的过程要被多个窗体及其对象调用，应将这些过程放在哪一类模块中？（B）A.窗体模块B.标准模块C.工程D.类模块2 事件过程与通用过程的主要区别是什么？答答：事件过程是指为窗体以及窗体上的各种对象编写的用来响应由用户或系统引发的各种事件的代码行；通用过程是指一个应用程序中的多个窗体可以共享一些代码，或者一个窗体内不同的事件过程可以共享的一些代码；事件过程是由用户或系统响应某个事件而执行的，通用过程是由事件过程或其他通用过程调用而执行的。3 通用过程只能存在于标准模块中，这种说法对吗？答：答：不对，通用过程既可存在于标准模块中，也可存在于窗体模块

14、中。4 VB 有哪些数据类型？答：答：VB 中的数据类型有：整型、长整型、单精度、双精度、定长字符型、变长字符型、逻辑型、字节型、日期型、货币型、对象型、变体型。5 字符型常量与日期型常量在使用时有何区别？下列常量中哪些是字符串型常量，哪些是日期型常量？哪些什么也不是？A.“I am a student.”B.“江苏南京”C.#02/25/1999#D.#January 1,1993#E.“02/25/1999#F.#January 1,1993”答：答：字符型常量在使用时要加西文的双引号，日期型常量再使用时要加#号；字符型常量有：A、B；日期型常量有：C、D；什么也不是：E、F。6 下列符号

15、中哪些是 VB 合法的变量名？A.blnFragB._a5bC.lngNumD.Area_TriangleE.User&InputF.5Name答：答：合法的变量名有：A、C、D7 变量作用域包括几个等级？说明的方式有何区别？答答：变量作用域包括三个等级：过程级、窗体级、全局级。局部（过程级）：用 Dim、Static 在过程中定义，作用范围：该过程，脱离该过程后无效，也就是在其它过程中无效；Static：静态变量，脱离该过程后，变量的值不消失，用于子过程或函数过程中；窗体（模块）级：用 Private、Dim 在通用/声明部分定义，作用范围：该窗体中所有过程，脱离该窗体后无效，也就是在其它窗

16、体的过程中无效；全局（公有的）：用 Public 在通用/声明部分定义；如果在标准模块中定义，则作用范围为该工程的所有窗体，调用时直接使用变量名；如果在窗体模块中定义，则作用范围为该工程的所有窗体，但本窗体调用时直接使用变量名，该工程中其它窗体调用时，须加定义时的窗体名作为前缀。8 写出下面数学式对应的算术表达式。(1)dcbaa/(b+c/d)(2)321xx(x+Sqr(x*x+1)(1/3)(3)(2byaxbyaxy2*y/(a*x+b*y)*(a*x-b*y)(4)m11111+1/(1+1/m)(5)xd2321)(d/3)(2*x)/2(6)cosln(2xy Log(y+cos

17、(x)2)(7)|3sinyxxexAbs(Exp(x)+Sin(x)3)/(x+y)(8)zyxxzexy|costan|31lnLog(Exp(x*y)+Abs(Tan(z)(-1)+Cos(x)3)/(x+y-z)9 指出并改正下面数学式对应的 VB 算术表达式中的错语。(1)babaA+B/A-B(A+B)/(A-B)(2)ydabc)1(ABC/(D+1)*YA*B*C/(D+1)*Y)(3)5)(xyXY5(X*Y)510将下面的条件用 VB 的逻辑表达式表示。(1)X+Y 小于 10 且 X-Y 要大于 0(2)X、Y 都是正整数或都是负整数(3)A、B 之一为零但不得同时为零(

18、4)C1+C2+C3 大于等于 255 或 C1 与 C2 分别大于 90 且 C3 大于 80答：答：(1)X+Y0(2)X*Y0 And X=Int(X)And Y=Int(Y)(3)A*B=0 And AB 或 A=0 Xor B=0(4)C1+C2+C3=255 Or C190 And C290 And C38011求下列表达式的运算结果：Mid(“Visual Basic”,1,12)=Right(“Programming Language Visual Basic”,12)True“ABCRG”=“abcde”FalseInt(134.69)=Cint(134.69)False78

19、.9/32.77-4.98FalseStr(32.345)=Cstr(32.345)False12下列语句代码哪些可正常执行（正常执行是指系统不给出出错提示）？A.Print 32765+3溢出溢出B.Print 5+7=14FalseC.Print 256/1282D.Print“14”+3246E.Print“14”&32“1432”答：答：能正常执行的语句有：B、C、D、E，具体执行结果见上。13VB只有求自然对象的函数Log(X)，如果计算式中需要使用常用对数或以2为底的对数，应如何处理？答：答：使用换底公式。常用对数：Ln(x)应用 Log(x)/Log(10)表示；Log2(x)应

20、用 Log(x)/Log(2)表示。14执 行 语 句 代 码 Print Format(7543.568,“#,#0.00”)，以 下 答 案 中 那 一 个 是 正 确 的 结 果。（C）A.7543.57B.7,543.56C.7,543.57D.7543.56第四章第四章算法基础算法基础 Visual Basic 的基本语句的基本语句1.设 X 与 Y 是同一类型的变量，试设计一个算法，把 X 与 Y 中的数据相互交换。答：答：S1：输入 X 与 YS2：X=AS3：Y=XS4：A=YS5：输出 X 与 Y程序代码如下：Option ExplicitDimAAs String,B As

21、 String,temp As StringPrivate Sub Command1_Click()A=Text1.TextB=Text2.Texttemp=AA=BB=tempText1.Text=AText2.Text=BEnd SubPrivate Sub Command2_Click()Text1.Text=Text2.Text=Text1.SetFocusEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub2.设 A、B、C 是同一类型的变量，并分别被赋予不同大小的数据，设计一个算法，使得执行的结果为ABC答：S1：输入 A、B、CS

22、2：如果 AB，则 A 与 B 交换S3：如果 AC，则 A 与 C 交换S4：如果 BC，则 B 与 C 交换S5：输出 A、B、C程序代码如下：Option ExplicitPrivate Sub Command1_Click()Dim aAs Integer,bAs Integer,c As IntegerDim tAs Integera=Text1.Text:b=Text2.Text:c=Text3.TextIf a b Then:t=a:a=b:b=t:EndIf a c Then:t=a:a=c:c=t:EndIf b c Then:t=b:b=c:c=t:EndText4.Tex

23、t=aText5.Text=bText6.Text=cEnd SubPrivate Sub Command2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Text1.SetFocusEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub3.设计一个可以判断某数是否是素数的算法。答答：S1：输入一个正整数 NS2：I=2S3：如果 N 能被 I 整数，则转 S7S4：I=I+1S5：如果 I 小于等于 N-1 则转 S3S6：输出 N 是素数，程序

24、结束S7：输出 N 不是素数，程序结束程序代码如下：Option ExplicitDim xAs LongPrivate Sub Command1_Click()Dim iAs IntegerFor i=2 To x-1If x Mod i=0 Then Exit ForNext iIf i=x ThenText2.Text=是素数ElseText2.Text=不是素数End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Text1_Change()x=Val(Text1.Text)End Sub4.设计一个判

25、断某正整数是一个回文数的算法。所谓回文数是指左右数字完全对称的自然数。答答：S1：输入一个数字字符串 SS2：I=1S3：如果第 I 个数字与倒数第 I 个数字不同，则转 S7S4：I=I+1S5：如果 I 小于等于字符串长度的一半，则返回 S3S6：输出 S 是回文数，程序结束S7：输出 S 不是回文数，程序结束。程序代码如下：Option ExplicitPrivate Sub Command1_Click()Dim xAs String,iAs Integerx=Text1.TextFor i=1 To Len(x)/2If Mid(x,i,1)Mid(x,Len(x)-i+1,1)Th

26、en Exit ForNext iIf i Len(x)/2 ThenLabel1.Caption=是回文数ElseLabel1.Caption=不是回文数End IfEnd SubPrivate Sub Command2_Click()Label1.Caption=Text1.Text=End SubPrivate Sub Command3_Click()Unload MeEnd Sub5.设计一个算法，求出给定的自然数的所有因子。答答：S1：输入一个正整数 NS2：I=1S3：如果 N 能被 I 整数，则输出 IS4：I=I+1S5：如果 I 小于等于 N 则转 S3S6：程序结束程序代码

27、如下：Option ExplicitPrivate Sub Form_Click()Dim xAs Long,iAs Long,j As Longx=InputBox(请输入一个自然数：)Print x&的所有因子如下：For i=1 To xIf x Mod i=0 ThenPrint i;j=j+1If j Mod 10=0 Then PrintEnd IfNext iPrintPrint 共有;j;个。End Sub6.在文本框 Text1 与 Text2 中分别输入 35 与 48，变量 S 与 X 分别为字符型与整型，试问以下赋值语句的执行结果是什么？(1)S=Text1.Text+

28、Text2.Text“3548”(2)X=Text1.Text+Text2.Text3548(3)S=Text1.Text&Text2.Text“3548”(4)X=Text1.Text&Text2.Text3548(5)S=Val(Text1.Text)+Text2.Text“83”(6)X=Val(Text1.Text)+Text2.Text83(7)S=Val(Text1.Text)&Text2.Text“3548”(8)X=Val(Text1.Text)&Text2.Text35487.根据下图填空：z=InputBox(输入一个数：输入一个数：,程序示例程序示例,1.5)1 写出显示

29、如下图所示信息框的 MsgBox 函数。MsgBox(Z 的值的值&Str(z)&大于大于 0,48,程序示例程序示例)2 阅读程序，写出执行结果。(1)Private Sub Form_Click()Dim a As Integer,bAs Integera=1:b=0Do While a=20 Then Exit ForNext iPrint i,pEnd Sub运行结果为：65(4)Private Sub Form_Click()Dim p As Integer,i As Integer,n As Integerp=2:n=20For i=1 To n Step pp=p+2n=n-3i

30、=i+1If p=10 Then Exit ForNext iPrint i,p,nEnd Sub运行结果为：1110810.编写程序，随机生成 100 个两位整数，并统计出其中小于等于 40、大于 40 且小于等于 70 及大于 70 的数据个数。Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(100)As Integer,iAs Integer，mAs Integer,nAs Integer,kAs IntegerPicture1.Print 生成 100 个两位随机整数For i=1 To 100a(i)=Int

31、(Rnd*90)+10Picture1.Print a(i);If i Mod 10=0 Then Picture1.PrintNext im=0:n=0:k=0For i=1 To 100If a(i)40And a(i)=70 Thenn=n+1Elsek=k+1End IfNext iPicture1.Print 统计情况：Picture1.Print 小于等于 40 的数有;mPicture1.Print 小于等于 70 的数有;nPicture1.Print 大于 70 的数有;kEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd S

32、ubPrivate Sub Command3_Click()Unload MeEnd Sub11.随机生成 20 个 100 以内的正整数，将其中的奇数和偶数分两行显示在窗体上。Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(20)As Integer,i As Integer，mAs String,n As StringPicture1.Print 生成 20 个 100 以内的正整数For i=1 To 20a(i)=Int(Rnd*100)+1Picture1.Print a(i);If i Mod 10=0 T

33、hen Picture1.PrintNext iFor i=1 To 20If a(i)Mod 2 0 Thenm=m+Str(a(i)Elsen=n+Str(a(i)End IfNext iPicture1.Print 奇数行Picture1.Print mPicture1.Print 偶数行Picture1.Print nEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub12.编写程序求出 100 以内的所有勾股数，所谓勾股数是指满足条件 a2+

34、b2=c2(ab)的自然数(无参考界面)Option ExplicitPrivate Sub Form_Click()Dim aAs Integer,bAs Integer,c As Integer，jAs LongFor a=1 To 100For b=1 To 100For c=1 To 100If a b ThenIf a*a+b*b=c*c ThenPrint a;*;a;+;Print b;*;b;=;Print c;*;c;j=j+1If j Mod 2=0 Then PrintEnd IfEnd IfNext cNext bNext aEnd Sub13.设计一个用二分法求方程

35、x3-x4+4x2-1=0 在区间0，1上的一个实根。Option ExplicitPrivate Sub Command1_Click()Dim aAs Single,bAs Single，cAs Single,fa As Single，fb As Single,fc As SingleDoa=0:b=1fa=a 3-a 4+4*a 2 1fb=b 3-b 4+4*b 2 1If fa*fb=0 Thena=c:fa=fcElseb=c:fb=fcEnd IfLoop Until Abs(a-b)0.And fc1E-7Text1.Text=x=&Format(c,#0.)Exit DoEl

36、seText1.Text=方程在此区间无解！Exit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub第五章第五章数数组组1.随机生成 15 个 100 以内的正整数并显示在一个文本框中，再将所有对称位置的两个数据对调后显示在另一个文本框中。Option ExplicitOption Base 1Dim a(15)As IntegerPrivate Sub Command1_Click()Dim iAs IntegerRandomizeFor i=1 To 15a(i)=Int(Rnd*100)+1Text1.Tex

37、t=Text1.Text+Format(a(i),00)+Space(2)Next iEnd SubPrivate Sub Command2_Click()Dim iAs Integer,tAs IntegerFor i=1 To UBound(a)/2t=a(i)a(i)=a(UBound(a)+1-i)a(UBound(a)-i+1)=tNext iFor i=1 To 15Text2.Text=Text2.Text+Format(a(i),00)+Space(2)Next iEnd SubPrivate Sub Command3_Click()Text1.Text=:Text2.Text

38、=:Text1.SetFocusEnd SubPrivate Sub Command4_Click()Unload MeEnd Sub2.随机生成 20 个 100 以内的两位正整数，统计其中有多少个不相同的数。Option ExplicitOption Base 1Dim a()As IntegerPrivate Sub Command1_Click()Dim N As Integer,IAs IntegerText1=Text2=Text3=Text1.SetFocusReDim a(20)RandomizeFor I=1 To 20a(I)=Int(90*Rnd)+10Text1=Tex

39、t1&CStr(a(I)+Space(2)Next IEnd SubPrivate Sub Command2_Click()Dim Ub As Integer,I As Integer,JAs IntegerDim k As Integer,NAs IntegerText2=:Text3=Ub=UBound(a)N=1Do While N UbI=N+1Do While I=UbIf a(N)=a(I)ThenFor J=I To Ub-1a(J)=a(J+1)Next JUb=Ub-1ReDim Preserve a(Ub)ElseI=I+1End IfLoopN=N+1LoopFor I=

40、1 To UBound(a)Text2=Text2&CStr(a(I)+Space(2)Next IText3=CStr(Ub)End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Move(Screen.Width-Width)/2,(Screen.Height-Height)/2End Sub3.参照下图所示界面，编写一个求由一位随机整数构成的数组每一行与每一列之和。Option ExplicitOption Base 1Dim a(4,5)As IntegerDim SumLAs Integer

41、,SumCAs IntegerPrivate Sub CmdArry_Click()Dim IAs Integer,J As IntegerRandomizeFor I=1 To 4For J=1 To 5a(I,J)=Int(Rnd*9)+1Picture1.Print a(I,J);Next JPicture1.PrintNext IEnd SubPrivate Sub CmdClear_Click()Picture1.Cls:Text1.Text=:Text2.Text=End SubPrivate Sub CmdColumn_Click()Dim IAs Integer,J As In

42、tegerFor J=1 To 5SumC=0For I=1 To 4SumC=SumC+a(I,J)Next IText2.Text=Text2.Text&SumC&Next JEnd SubPrivate Sub CmdExitCmdClear_Click()Unload MeEnd SubPrivate Sub CmdLine_Click()Dim IAs Integer,J As IntegerFor I=1 To 4SumL=0For J=1 To 5SumL=SumL+a(I,J)Next JText1.Text=Text1.Text&SumL&Chr(13)&Chr(10)Nex

43、t IEnd Sub4.在一个数列中，删除其中的重复数，使得数列只保留不同的数。答：界面如右：答：界面如右：程序代码如下：程序代码如下：Option Base 1Option ExplicitPrivate Sub Form_Click()Dim a()As Integer,nAs IntegerDim iAs Integer,jAs Integer,kAs Integern=InputBox(请输入数据个数：)ReDim a(n)Print 生成的&n&个数如下：For i=1 To na(i)=Int(Rnd*90)+10Print a(i);If i Mod 10=0 Then Prin

44、tNext ii=1Do While i=n-1j=i+1Do While j=nIf a(i)=a(j)ThenFor k=j To n-1a(k)=a(k+1)Next kn=n-1ReDim Preserve a(n)Elsej=j+1End IfLoopi=i+1LoopPrint 不相同的数如下：For i=1 To nPrint a(i);If i Mod 10=0 Then PrintNext iPrintEnd Sub5.有 20 个数围成一圈，找出每四个相邻数之和中的最大值，并指出是哪四个相邻的数。Dim iAs IntegerPrivate Sub Command1_Cli

45、ck()Dim a(20,2)As IntegerDim b(20)As IntegerDim temp As IntegerFor i=1 To 20b(i)=Val(Text1(i-1).Text)NextFor i=1 To 20a(i,2)=iNextFor i=1 To 17a(i,1)=b(i)+b(i+1)+b(i+2)+b(i+3)Nexttemp=a(1,1)For i=2 To 20If temp max Thenmax=a(i,j):x=i:n=jEnd IfNext jmin=a(x,n)For y=1 To sIf a(y,n)min Thenmin=a(y,n):m

46、=yEnd IfNext yIf m=x Thenb=mText1.Text=m:Text2.Text=nEnd IfNext i判断其它几行If m b ThenMsgBox 鞍点不存在！,48,提示信息End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Picture1.ClsMove(Screen.Width-Width)/2,(Screen.Height-Height)/2End Sub8.按金字塔形状打印杨辉三角形。Option ExplicitOption Base 1Pri

47、vate Sub Form_click()Dim a()As Long,LAs IntegerDim nAs Integer,i As Integer,jAs Integern=InputBox(请输入杨辉三角形的行数：,杨辉三角形)ReDim a(n,n)For i=1 To na(i,1)=1For j=2 To i-1a(i,j)=a(i-1,j-1)+a(i-1,j)If L b(p1)Then p1=iIf b(i)b(p2)Then p2=iNext iLabel1.Caption=最大的行是第&p1&行,和为:&b(p1)Label2.Caption=最小的行是第&p2&行,和为

48、:&b(p2)m=p1:n=p2End SubPrivate Sub Command3_Click()For j=1 To 5t=a(m,j):a(m,j)=a(n,j):a(n,j)=tNext jFor i=1 To 4For j=1 To 5Picture2.Print a(i,j)&;Next jPicture2.PrintNext iEnd SubPrivate Sub Command4_Click()Unload MeEnd Sub10.求一个 nn 阶的矩阵 A 的转置矩阵。N 从键盘输入，A 矩阵和它的转置矩阵分别显示在两个文本框中。Option ExplicitDim i,j

49、As Integer,mAs Integer,n As IntegerDim sAs String,s1 As String,a()As IntegerDim at()As IntegerPrivate Sub Command1_Click()s=:Text3.Text=m=Val(Text1.Text)n=Val(Text2.Text)ReDim a(m,n),at(n,m)RandomizeFor i=1 To mFor j=1 To na(i,j)=Int(90*Rnd)+10s=s&Format(a(i,j),00)&Next js=s&Chr(13)&Chr(10)Next iTex

50、t3.Text=sIf n=0 Or n=Str(Null)ThenMsgBox 输入错误，请重输!,48,提示信息End IfEnd SubPrivate Sub Command2_Click()s1=:Text4.Text=For i=1 To nFor j=1 To mat(i,j)=a(j,i)s1=s1&Format(at(i,j),00)&Next js1=s1&Chr(13)&Chr(10)Next iText4.Text=s1End SubPrivate Sub Command3_Click()s=:s1=Text1.Text=:Text2.Text=:Text3.Text=: