编程题 vb 习题.doc

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

1、编程题1、 在窗体上建立2个文本框（Name属性值分别为Text1和Text2）和2个命令按钮（Name属性分别为Command1和Command2）,程序运行时，在Text1中输入文本，单击Commadn1命令按钮时，将Text1文本框中的值复制到Text2文本框中；当单击Command2命令按钮时，退出程序。2、 已知自由落体的位移公式为：s=1/2gt2+v0t,其中v0为初始速度，go为重力加速度，t为经历的时间，编写一程序，求位移量s。用2个磨灭框分别输入初始速度和经历的时间，单击一个命令按钮时，进行计算，并将运算结果在另一文本框显示。3、 输入球体的半径，然后计算并输出球体的体积和

2、表面积。已知：球体的体积计算公工为：v=4/3r3，球的表面积公式为：f=4r2，此处的R为还球体的半径。要求：程序用一个文本框输入半径r，单击一个命令按钮时，进行计算，并将运算结果即球的体积和表面积分别用2个文本框显示出来。4、 编写一个将摄氏温度转换成华氏温度的程序，要求：摄氏温度通过输入对话框来输入，结果在窗体上显示，已知：由摄氏温度求华氏温度的计算公式为：9/5F=9/5C+32，其中：C为摄氏温度，F为华摄温度。5、 从键盘输入两个数，编写一程序，计算并输出2个数的和及平均值，通过InputBox函数输入数据，在窗体显示和及平均值。6、 编写一个程序，计算半径为15cm、高为30cm

3、的圆柱体的体积、半径和高通过InputBox函数输入，计算结果并将其打印到窗体中。7、 编写一程序，输入一个整数，判断能否被3或5整除，如能整除就打印该数，否则不打印，请半程序代码写在窗体的Click事件中。8、由键盘输入3条线段的长度，判断这3条线段能否构成三角形，如能构成三角形则计算三角形的面积，如果不能构成三角形则打印出错信息。请将代码写在窗体的Click事件中，输入3条线段请用ImputBox函数。9、 输入一个年份，判断它是否为闰年。闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除的年份。10、 输入3个数，要求按从小到大输出。11、 输入一个099999之间的整数

4、，判断输入的是几位数。如：如果输入586请输出结果为3。12、 设计一个销售彩电（3000元/台）、冰箱（2500元/台）、洗衣机（1000元/台）的程序（商店送货上门时需加收100元）。设计程序进，窗体中包括2个框架、3个选择按钮（用于选择商品）、3个文本框（用于输入商品的台数）、2个单选按钮（用于选择送货方式：自取或送货）、1个命令按钮（用于计算金额）和1个文本框（用于显示总金额）。13、 编写一个程序求一个m*n矩阵中最大元素及其所在的行列号。14、 编写一程序将一个矩阵转置，即行列元素对换。15、 编写一个程序，求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。16、 输入1

5、0个学生记录（每个记录包括学号、成绩），组成记录类型数组，统计出平均成绩，及成绩最低的学生的学号和成绩。17、写一程序将一个数插入到已经有序（设从小到大排序）的数组中，使数组还继续保持有序。假设原数组中的数为-12，-4，10，23，68。18、 编写一个求一组数中的最小数的Function过程，要求使用可变参数。19、编写一个Sub过程，它能完成把数组中的某个位置上的元素移到指定的位置。20、编写一个Sub过程，它能完成把数组中的某个位置上的元素删除。21、编写一个Sub过程，将一个新的数据插入到数组中的指定位置上。22、求两个数m和n的最大公约数和最小公倍数，要求用一个函数过程来实现。23

6、、编写一个函数过程，求的近似值，公式为： /4=1-1/3+1/5-1/7+/（2*n-1）24、已知斐波那挈（Fibonacci）数列的第一项是1，其后每一项都是其前面两项的和，形如：1，1，2，3，5，8，13，编写一个函数过程，求出该数列第n项的值。25、 请在例12.1的基础上再增加一个包含有“红色”，“绿色”，和“蓝色”的颜色主菜单，并设计其事件过程。当用户执行某一菜单命令时，程序能执行相应的操作，既改变文本框中文字的颜色。26、 设计一个窗体，其中放一Lable控件，并在窗体中设置2个主菜单，各菜单的组成如下：菜单标题栏名称栏菜单标题栏名称栏字体效果（&E）meffect字体颜色(

7、&C)mcolor.粗体(&B)mbold.黑色(&X)mblack.斜体(&I)mitalic.红色(&R)mred.加下划线(&U)munderline.绿色(&G)mgeen.加删除线(&S)mstrikethrough.蓝色(&B)Mblue.分割线mpartion.退出mend要求：“字体效果”菜单项中的某一子菜单被选取时，前面打“”号，其作用是改变Lable标签中的文字的字体；“字体颜色”中的某一菜单被选取时，呈灰色状态，其作用是将Lable标签的文字的颜色设置成该颜色。27、利用通用对话框控件编写一个应用程序。在窗体中添加一个通用对话框控件、一个文本框、两个命令按钮，当用户单击其

8、中一个命令按钮时，显示一个打开文件对话框，由用户从中选择一个文件，在对话框中单击“确定”按钮后，可将选择的文件的路径及文件名显示到文本框中。当用户单击窗体中的另外一个命令按钮时，可显示字体对话框，用于设置文本框中的文字的字体、样式、效果和颜色。可用鼠标左键将图片从Picture1图片框中拖放到图片框Picture2中，此时图形从Picture1图片框中消失，并显示到Picture2图片框中，命令按钮Command1也从原来的禁用状态变为可用状态。当单击命令按钮Command1时，图片从Picture2图片框中又回到Picture1图片框中，同时命令按钮Command1又变为禁用状态。从程序代码

9、中可以看出，该程序中所实现的控件拖放过程的启动和停止是利用对象的Drag方法设置实现的，并且整个拖放过程全部是由用户通过编程代码来控制实现，这个拖放过程并不是由系统自动启动和停止，这就是手动拖放模式的特点。28、 在窗体上画一文本框，编写程序实现向文本框中输入数据，只允许在文本框中输入字母和数字字符。29、 写一程序，通过拖动鼠标的清洁工在窗体上拖画直线。30、 在窗体上加一图片框，在图片框中加一图片，利用手工拖动的方法，利用鼠标可以将图片拖动到窗体的任何一个部位。31、设有通用对话框cmdialog，在点击command1时，显示“打开”对话框。文件类型为*.*,*.txt,*.bat,默认

10、类型为*。Bat.（10分）subcommand1_click()Ends32、设窗体中有image1：蝴蝶展开翅膀图,image2：蝴蝶合上翅膀图， image3;timer1:定时器，timer1每秒触发一次，改变image3的图象，并使它每次位置x+10，y+10,当x超出屏幕宽度时，将位置中的x改为0。A、写出timer1_timer中的程序设计思想（10分）B、写出timer1_timer中的程序代码（15分）33、在窗体的Command1_click事件中使用输入框来判断答案是否正确，且在三次错误后退出。其中正确值为99，用户输入错误后给出错误提示。写出Command1_click

11、中的程序代码（15分）34、设计文字颜色、大小、位置不断变化的程序。（位置可随机或滚屏）35、输入一个华氏(F)温度，要求输出摄氏（）温度。公式为C= （F-32）,输出要有文字说明。36、输入三个数，分别存入变量，试编程求出最大者37、输入一个不多于3位的正整数，要求：它是几位数，分别打印出每一位数字，按逆序打印出各位数。38、输入一元二次方程的A、B、C，求出这个方程有没有实根，如果有实根分别求出来39、输入圆的半径，分别输出圆的周长和圆的面积。40、将输入的学生百分制成绩转换为等级制，90分以上为A，8089分为B，7079分为C，6069分为D，60分以下为E。编程实现每输入一个成绩输

12、出一个等级41、求1到100之间的数累加和42、求100到200之间的奇数累加和。43、打印输出5到100之间的质数及其个数。44、产生30个AZ之间的随机大写字母。45、输入一个数n,这个数的阶乘n!(n!=1*2*3*.*(n-1)*n.)46、输入10个数，求这10个数的总和，以及平均值。47、输入10个整数，对这10个数进行排序，再从大到小输出。48、在窗体中打印输出100个随机机基本键位字符（asdfghjkl；）49、输入两个正整数，求其最大公约数和最小公倍数。50、打印所有的三位数，其各位数字立方和等于该数本身。51、一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落

13、下，求它在第10次落地时，共经过多少米？第10次反弹多高？52、用*号打印出平行四边形图案。53、S=1+2+3+n,求S不大于1000时的n 的值。54、已知三角形三条边的长度为a、b、c，计算并显示三角形的面积。 公式为：面积=sqr(s(s-a)(s-b)(s-c),其中，s=(a+b+c)/2。55、随机产生一个正实数，用Print方法在一行上显示出它的平方和平方根、立方根，每个数保留3位小数，各位之间有间隔。 56、随机产生一个3位正数，然后逆序输入，产生的数与逆数同时显示。例如，产生246，输出是。 57、窗体上有两个命令按钮，第一个按钮显示“写字板”、第二个按钮显示“画图”，要求

14、单击命令按钮，利用Shell函数执行对应的应用程序。58、输人三角形的三条边a、b、c的值根据其数值判断能否构成三角形。若能还要显示三角形的性质：等边三角形、等腰三角形、直角三角形或任意三角形。59、编写一程序根据上网时间计算上网费用 计算的方法如下：费用计算规则 50元基数 =60小时 同时为了鼓励多上网 每月最多不超过600元。60、输入一年份，判断它是否为闰年，并显示有关信息。判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除。61、计算 S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+当最后所加的项的值max1 Then max1=a(i.j

15、)Next ja(i,6)=max1Next i求每门课程的平均分程序段如下：1 For j=0 To 52 aver=03 For i=0 To 44 aver =aver+a(i,j)5 Next i6 b(j)=aver/57 Next j【思考】 若把第2句的aver0移动到外循环句即第1句的前面，是否影响程序的运行？是否影响程序正确性？这和前面讲过的累加时要在循环体外对存放求和结果的单元清零是否矛盾？98、编写一个子过程DeleStr(s1,s2)，将字符串S1中出现的S2子字符串删去，结果还是存放在s1中。例如：s1=”AAABBDEFG12345” s2=”234”结果：s1=-

16、1567AAABBDEfG15”【提示】解决此问题的方法要点如下：（1） 在s1字符串找s2的子字符串，可利用InStr()函数，要考虑到S1字符中可能存在多个或不存在S2字符串，用Do While Instr(s1,s2)0循环结构来实现。（2） 若在s1中找到s2字符串，首先要确定s1字符串的长度，因s1字符串在进行多次删除时，长度在变化;然后通过：Left$()、Right()函数的调用来实删除s1中存在的s2字符串。99、编写一个将二进制字符串（全由0和1组成）转换成十进制的函数。【提示】函数形式如下：Function TranBtoD(S$) As Single主调程序用之，并显示二

17、进制字符串和转换结果。【进一步要求】要考虑到二进制字符串中有小数和负号。100、根据要求分别编写两个过程：（1）编写一个冒泡法排序子壶程，对已知的若干个整数按递增次序排列。子过程形式为：Sub Sort1(a%)（3） 一个二分法查找函数过程，查找某数。找到返回该数在数组中的下标位置，找不到返回值为1。（4） 函数过程形式为：Function Search1(a%,Key%) As Integera%（）为有序的数组，Key% 为要查找的数。主调程序可通过随机函数产生若干个数，先后调用Sort1子过程和Search函数过程。101、利用迭代法求方程x2-a=0的近似根，要求精度为10-5，迭代

18、公式为：xi+1=1/2(xi+a/xi).编制3个过程：迭代函数、迭代子过程、递归法函数过程。主调程充中分别调用这3个过程，并调用标准函数sqr(a)，比较过程正确与否。102、编写一函数过程Maxlenht(s)，在已知的字符串s中，找出最长的单词。假定字符串s内只含有字母和，空格分隔不同的单词。【提示】（1） 程序中用到当前单词、当前单词长度、最长单词、最长单词长度等变量。（2） 首先求出输入的字符串长度，然后从字符串中分离出单词，即对每个字符判断;若不为空格，将每个字符连接到当前单词的字符串变量，当前单词长度计数器加1;若为空格，表示一个单词结束，将当前单词长度与最长单词长度比较，若前

19、者长，则将当前单词替代最长单词。当前单词置空，当前单词计数器清除为0。103、对于输入的文本统计各字母出现的次数，有序的显示文本中的单词。【提示】根据韪要求，本例要求实现3个功能：（1） 统计各字母出现的次数，这在前面已介绍过。（2） 从输入的文本框的内容中分离出单词，可通过编程实现，本例利用Split函数简化编程。（3） 分离出的单词按递增顺序排列。使单词有序，可以通过数组排序算法实现，但在VB中的列表框具有Sorted属性，可以简化编程。104、利用组合框编写一字体浏览器，在组合框中可增加未出现过的字休。105、窗体上放置文件系统的3个按件，外加一个文本框、一个标签和两个命令按钮。建立文件

20、系统，模仿Windows的应用程序中的典型“文件打开”对话框中所见到的交互作用，当用户在TextBox中输入一个文件类型时，比如*.txt。它将被反映到FileListBox控件分解为路径和文件类型两个部分。【提示】在代码中改变fileName或Path属性时，如果改变文件类型会产生一个PaterChange事件如果改变路径会产生一个PathChange事件，如果指定存在的文件名会产生一个DbliClick事件。在本例中，当在文本框中输入一个文件名或文件类型后，将文本框的内容赋予FileName属性，File1.Path将获得路径名，File1.Pattern将获取文件类型。使用Dir1.Pa

21、th=File1.Path可改变目录路径。106、利用文件系统控件和VB提供的文件命令物操作命令，对在目录列表框选一的目录，单击“删除目录”按钮，将选定的目录删除;对在文件列表框选定的文件，击“删除文件”按钮，将选定的文件删除。运行界面见图1.7.5。【提示】利用RmDir函数删除选定的目录时，此目录必须为空目录才有效，可先删除该目录下的所有文件;若要选定某个目录项，可用Dir1.List(Dir1.ListInedex)，见常见错误和难点分析2。107、利用文件系统控件、组合框、文本框，制作一个文本浏览器。组合框限定显示*.txt和*.dat文件;当文件列表框选定欲显示的文件时，在文本框显示

22、出该文件的内容。【提示】在文本框显示文本，利用顺序文件操作的语句。108、用驱动器列表框、目录列表、文件列表框、组合及其他控件设计一个图形浏览器。要求根据组合框规定的文件扩展名（规定wmf、bmp的文件），在文件列表框显示该类文件;双击文件列表框中的扩展名为wmf的文件，则在图形框显示该图形，图形自动充满整个界面109、在Form1窗体上放置一个标签框、一个命令按钮。在窗体中建立可通过鼠标右键弹出的菜单（快捷菜单），含有“产生”、“窗体2”、和“结束”3个菜单项，它们之间有分隔线。在Form2窗体上放置一个文本框。选择快捷菜单的“产生”菜单项时，利用随机函数产生10个长度在210之间的小写字母

23、字符串，并按行显示在标签内。选择快捷菜单的“窗体2”菜单项，打开Form2窗体，并将所产生的10个字符串按递增次序显示在文本框内。110、设计一个应用程序，要求如下：(1) 窗体上放置图形框、文本框、标签和滚动条等控件，并建立3个菜单项，菜单项的标准题为“产生”、“删除”和“结束”。(2) 使用滚动指定一个值（只允许是一个100以内的正数n），当单击“产生”菜单项时，根据滚动条的指定什n在图形框内按每行4个数据的格式输出随机数产生的n个100200内的随机数。(3) 文本框内只允许输入一个100200以内的正整数m，当单击菜单项“删除”时，删除与指定值m相等的随机数项，并重新在图形框内显示所余

24、下的数据项。(4) 建立与菜单项相对应的工具条。111、在Form1窗体上放置两个命令按钮控件Command1、Command2（控件标题分别人“绘图”和“返回”），一个图形框Picture1。单击“绘图”按钮，定义Picture1的坐标系为（4,2）（4,-2），用循环语句和Pset方法在图形醛gPicture1内绘制方程y=sinx在-到之间的图形。112、用Circle方法在窗体上绘制心脏形图案，构造图案的算法为：将一个半径为r的贺周等分为n等分，以这n个等分点为圆心，以等分点到定点的距离为半径绘制n个圆。 【提示】高定程序中点坐标为（x1,y1）,半径为r的贺周上第i个等分点到定点的距

25、离平方为：(r*Cos(i*t)+x0-x1)2+(r*Sin(i*t)+y0-y1)2113、编写一个字幕滚动公千牌程序，要求如下：(1) 当程序启动后，在窗体上垂直（或水平）循环滚动显示文字。(2) 要求滚动的文字之间在垂直方向等距离。(3) 允许通过控件暂停滚动或继续滚动。(4) 滚动文字的左侧显示一幅图画，内容自字义。114、建立一个图形浏览器。要求如下：(1) 在窗体上放置通用对话框、标签、图像框和滚动条等控件。(2) 窗体上建立两个菜单项，菜单的标题用学生的学号、姓名。(3) 当单击菜单项“学号”时，打开通用对话框。通用对话框可过滤BMP、WMF两种图形文件。当从通用对话框选择一个

26、图开文件后，标签内显示所选择的文件的目录路径，图像框内显示该文件的图形，使用滚动条可缩放图像框内的图形。115、用PaintPictuer方法实现图形从右边飞入的效果。116、从键盘上输入4年数，编写程序，计算并输出这4个数的和及平均值。通过InputBxo函数输入数据，在窗体上显示及平均值。117、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。118、编写程序，求解鸡兔同笼问题，一个笼子中有鸡x只，qjqy ;y只，每只鸡有2只脚，每只兔有4只脚。今天知鸡和兔总头数为h，总脚数为f.问笼中鸡和兔各若干？119、a=5,b=

27、2.5,c=7.8，编程序计算： y=ab/(a+b*c)120、输入以秒为单位表示的时间，编写程序，将其换算成几日几时几分几秒。121、自由落体位移公式为s=1/2gt2+v0t其中V0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移师s。设V04.8m/s，t0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用InputBox函数输入V0，和t两个娈量的值。122、在窗体上画4个图像框和一个文本框，在每个图像框中装入一个箭头图形，分为4个不同地方向，把文本框的MultiLine属性设置为True，编写程序，当单击某个图像框时，在文本框中显示相应的信息。例如单击身右的箭

28、头是，在文本框中显示“单击向右的箭头”。123、在窗体上建立三个文本框和一个命令按钮。程序运行后，单击运行后，单击命令按钮，在每一个文本框中显示由Command1_Click事件过程设定的内容（例如：“Microsoft Visual Basic”），同时在第二，第三个文本框中分别用小写字母和大写定线显示每一个文本框的内容。提示：用每一个文本框的Change事件过程在第二、第三个文本框中显示指定的内容。124、编写程序，用文本框检查口令输入。在窗体上建立一个文本框、一个图片框和三个命令按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”、“结束”。程序运行后，单击每一个命令按钮，清除文本

29、框中的信息，并把光标移到文本框中，按着在文本框中显示一个图形，否则显示一个信息框，要求重新输入，些时将调用一个命令按钮的Click事件过程，再一次在文本框中输入口令，直到输入正确的口令为止。如果单击“结束”按钮，则结束程序。125、用图形编辑软件（如Windows下的“画图”）画一个简单的图形，然后把它装入图片框。126、编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在每一个列表框中选择所需要的项目，单击“添加”按钮，把所选择的项目移到第二个列表框中。如果单击“删除”按钮，则执行相反的操作。在第二个列表框中，允许同时选择多个项目。要求在每个列表框的下面用

30、标签控件显示各自的Style和Sorted属性。127、编写程序，用计时器按秒计时。在窗体上画一个计时器控件和一个标签，程序运行后，在标签内显示经过的秒数，并响铃。128、编写程序，计算1+2+3+100129、我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后增加到20亿。130、给定三角形的3条边边长，计算三角形的面积。编写程序，首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否要求重新输入。当输入1时结束程序。131、税力部门征收所得税，规定如下：1) 收在200元以内，免征;2) 收入在200400元以内的，超过200的部分纳税3%。3) 收入超

31、过400玩的部分，纳税5%。4) 当收入达5000元或超过进，将4%税金改为5%。编写程序实现上述操作。132、假定有以下每周工作安排：星期一、三：讲计算机课星期二，四：讲程序设计课星期五：进修英语星期六：政治学习星期日：休息试编写一个程序，对上述工作日程进行检索。程序运行后，要求输入一周里的某一天，程序将输出这一天的工作安排。在输入时用06分别代表星期日到星期六，如果输入06之外的数则程序结束运行！133、编写程序，打印如下所示的“数字金字塔”： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 134、勾股定

32、理中3个数的关系是：a2+b2=c2.编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。135、从键盘上输入两个正数M和N，求最大公因子。136、如果一个数的因子这和等于这个数本身，则这样的数为“完全数”。例如，整数28的因子为1、2、4、7、14，其和1+2+4+7+1428，因此28是一个完全数。编写一个程序，从键盘上输出整数N和M，求出M和N之间所有完全数。137、编写程序，打印如下的乘积表：* 3 6 9 1215 16 17 18 138、从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号、成绩，并根据成绩按下面的规定输出对该学生的评语：成绩 80

33、100 6079 5059 4049 039评语 Very good Good Fair Poor Fail139、一个两位的正整数，如果将它的个位数定与十位数字对调，则产生另一个整数，称后者为前者的对调数。现给定一个两位的正整数，请找另一个两位的正整数，使得这两个两位正整数之和等于它们各自的对调数之和。例如，12+32=23+21。编写程序，把具有这种特征的一对对两位正整数都找出来。140、从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换。第五个元素与第六个元素互换。分别输出数组原来各元素的值和对换后

34、各元素的值。141、设有如下两组数据：A:2，8，7，6，4，28，70，25B:79，27，32，41，57，66，78，80编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+2725+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。142、有一个nm的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输入其值及行号和列号。143、编写程序，把下面的数据输入一个二维数组中：25 36 78 13 12 26 88 93 75 18 22 32 56 44 36 58 然后执行以下操作：(1) 输出矩阵两个对角线上的数;(2)

35、 分别输出第一行和第三行的位置(3) 交换每二列和第四列的位置(4) 输出处理后的数组。144、设有如下人员名册：姓名性别年龄文化程序籍贯张得功男24大学本科河北李得胜男30高中毕业北京王丽女25研究生山东试编写一个程序，对该名册进行检索。程序运行后，只要在键盘上输入一个人名，就可以在屏幕上显出这个人的情况。例如输入“张得功”，则显示：张得功男24大学本科河北要求：(1) 使用动态数组，输入的人数可以根据实际情况改变。(2) 当栓索 名册中不存在的人名时，输也相应的信息。(3) 每次检索结束后，询问是否继续检索，根据输入的信息确定是否结束程序。145、某单位开运动会，其有10人参加男子100米

36、短跑，动动员号和成绩如下：207号14.5秒007号15.1秒156号14.2秒231号14.7秒453号15.2秒276号13.9秒096号15.7秒122号13.7秒339号14.9秒302号14.5秒编写程序，按成绩排出名次，并按如下格式输出：名次运动员号成绩12310146、编写程序，建立并输出一个1010的矩阵，该矩阵对角线无素为1，其无素均为0。147、编写程序，实现矩阵转置，即将一个n*M的矩阵的行和列互换。例如，a矩阵为a=1 2 34 5 61 42 53 6 转置后的矩阵b为b=148、编写程序，输出“杨辉三角形”。杨辉三角形的每一行是（x+y）n的展开式的各项的系数。例如

37、第1行是（x+y）0，其系数为1，1第三秆为（x+y）2，其展开式为x2+2xy+y2，系数分别为1，2，1。一般形式如下：1 1 11 2 11 3 3 11 4 6 4 11 5 10 10 5 1分析上面的形式，可以找出其规律：对角线和每行的第1列均为1，其条各项是它的上一行中前一个元素和上一行的同一旬元素之和。例如第4行第3列的值为3，它是第3行第2列与第3列元素值之和，可以一般地表示为：a(i,j)=a(i-1,j-1)+a(i-1,j)请编写程序，输出n=10的杨辉三角形（共十行）。149、编写一个求3个数中最大值Max和最小值Min的过程，然后用这个过程分别求3个数，5个数，7个

38、数中的最大值和最小值。150、编写程序，求S=A!+B!C!，价乘的计算分别用Sub过程和Function过程序两种方法来实现。151、编写一个过程，以整形数作为形参，当该参数为奇数时输出False,而当该参数为偶数时输入True。152、设a为一整数，如果能使a2=xxa成立，则成a为“守形数”。例如52=25,252=625,则5和25都是守形数，试编写一个Function过程Automorphic,其形参为一正整数，判断其是否为守形数，然后用该过程查找11000内的所有守形数。153、编写求解一元二次方程ax2+bx+c=0的过程，要求a、b、c及x1，x2的操作放在主程序交换数据，输入

39、a,b,c程输出x1,x2的操作放在主程序中。154、斐婆地契（Fibonacci）数列的第一项是1，第二项是1，以后各项都是前 两项的和，编写程序，求斐婆地契数列第N项的值。155、编写八进制数与十进制数相互转换的过过程：(1) 过程ReadOctal，读入八进制数，然后转换等值进制数。(2) 过程WriteOctal,将十进制数以等值的八进制形式输出。156、编写一个过程，用来计算并输出s=1+1/2+1/3+1/100的值。157、编写过程，用下面的公工计算的近似值：/41-1/3+1/5-1/7+（-1）1/（2n-1）在事件过程中调用该过程，并输出当n=100、1000、10000、

40、时近似值。158、在窗体上画一个文本框，然后编写一个程序。程序运行后，如果按下键盘上的A、B、C、D键，则在文本框中显示EFDH。159、编写一个程序，当同时按下Alt、Shift和F6键时，在窗体上显示“再见！”并终止程序的运行。160、编写一个程序，当按下某个键时，程序以十六进制和八进制输出该键的KeyCode。161、在窗体上画一个文本框、一个图形框和一个命令按钮。编写程序，使得当鼠标光标位于不同的控件或窗体上时，鼠标光标移到图片框上时，如果按下鼠标右键，则用一个信息框显示“现在鼠标光标位于图片框中”。162、编写一个类似于“回收站”的程序，用适当的图形做为“回收站”，程序运行后，把窗体

41、上其他的对象拖到“回收站”上，松开鼠标键后，显示一个信息框，询问是否确实要把该对象放入“回收站”。此时单击“是”按钮即放入“回收站”，对象从窗体上消失，单击“否”按钮则对象仍回到原来末位置。163、在窗体上画若干个控件，然后画两个列表框，其中理个列表框用来列出当前窗体上控件的名称，另一个列表框列出15种鼠标形状。程序运行后，从第一个列表框中选择控件或窗体;从第二个列表框选择鼠标光标形状，为选择的控件或窗体设置所需要的鼠标光标形状。164、在窗体上画一个文本框，把它的Multiline属性设置为True;通过菜单命令向文本框中输入信息并对文本框中的文本框进行格式化。按下述要求建立菜单程序：(1)

42、 菜单程序含有3个主菜单，分别为“输入信息”、“显示信息”和“格式”。其中“输入信息”包括两个菜单命令：“输入”、“退出”; “显示信息”包括两个菜单命令：“输入”、“退出”; “格式”包括5个菜单命令：“正常”、“组细”、“斜体”、“下划线”和“Font20”(2) “输入”命令的操作是：显示一个输入对话框，在该对话框中输入一段文字。(3) “退出”命令操作是：结束程序运行。(4) “显示”命令的操作是：在文本框中显示输入的文本。(5) “清除”命令的操作是：清除框所显示的内容。(6) “正常”命令操作是：文本框中的文本用正常字体（非粗体、非斜体、无下划线）显示(7) “粗体”命令的操作是：

43、文本框中的文本用粗体显示。(8) “斜体”命令操作是：文本框中的文本用斜体显示。(9) “下列线”命令操作是：给文本框中的文本加上下划线。(10) “Font20”命令的操作是：把文本框中文本字体的大小设置为20。165、北京、南京、西安、昆明四城市古迹和风景区如下：北京：天安门广场、故宫、北海公园、颐和园、香山、天坛南京：雨花台、中山陵、明孝陵、灵谷寺、栖霞山、募愁湖西安：钏楼、大雁塔、小雁塔、半坡博物馆、秦始皇陵和兵马俑昆明：金殿、西山龙门、安宁温泉、滇池、大观楼公园建立一个弹出式菜单，该菜单包括4个命令，分别为“北京”、“南京”、“西安”、“昆明”。程序运行后，单击弹出的菜单中的某个命令，在标签中显示相应的城市的名字，而在文本框中显示相应的名胜古迹和风景区的名字。166、在窗体上画一个文本框，把该文本框的Multiline属性设