编程题 vb 习题(2)

（3） 分离出的单词按递增顺序排列。使单词有序，可以通过数组排序算法实现，但在VB中的列表框具有Sorted属性，可以简化编程。

104、利用组合框编写一字体浏览器，在组合框中可增加未出现过的字休。

105、窗体上放置文件系统的3个按件，外加一个文本框、一个标签和两个命令按钮。建立文件系统，模仿Windows的应用程序中的典型“文件打开”对话框中所见到的交互作用，当用户在TextBox中输入一个文件类型时，比如*.txt。它将被反映到FileListBox控件分解为路径和文件类型两个部分。

【提示】在代码中改变fileName或Path属性时，如果改变文件类型会产生一个PaterChange事件如果改变路径会产生一个PathChange事件，如果指定存在的文件名会产生一个DbliClick事件。

在本例中，当在文本框中输入一个文件名或文件类型后，将文本框的内容赋予FileName属性，File1.Path将获得路径名，File1.Pattern将获取文件类型。使用Dir1.Path=File1.Path可改变目录路径。

106、利用文件系统控件和VB提供的文件命令物操作命令，对在目录列表框选一的目录，单击“删除目录”按钮，将选定的目录删除;对在文件列表框选定的文件，击“删除文件”按钮，将选定的文件删除。运行界面见图1.7.5。

【提示】利用RmDir函数删除选定的目录时，此目录必须为空目录才有效，可先删除该目录下的所有文件;若要选定某个目录项，可用Dir1.List(Dir1.ListInedex)，见常见错误和难点分析2。

107、利用文件系统控件、组合框、文本框，制作一个文本浏览器。组合框限定显示*.txt和*.dat文件;当文件列表框选定欲显示的文件时，在文本框显示出该文件的内容。

【提示】在文本框显示文本，利用顺序文件操作的语句。

108、用驱动器列表框、目录列表、文件列表框、组合及其他控件设计一个图形浏览器。要求根据组合框规定的文件扩展名（规定wmf、bmp的文件），在文件列表框显示该类文件;双击文件列表框中的扩展名为wmf的文件，则在图形框显示该图形，图形自动充满整个界面

109、在Form1窗体上放置一个标签框、一个命令按钮。在窗体中建立可通过鼠标右键弹出的菜单（快捷菜单），含有“产生”、“窗体2”、和“结束”3个菜单项，它们之间有分隔线。在Form2窗体上放置一个文本框。选择快捷菜单的“产生”菜单项时，利用随机函数产生10个长度在2～10之间的小写字母字符串，并按行显示在标签内。选择快捷菜单的“窗体2”菜单项，打开Form2窗体，并将所产生的10个字符串按递增次序显示在文本框内。

110、设计一个应用程序，要求如下： (1) 窗体上放置图形框、文本框、标签和滚动条等控件，并建立3个菜单项，菜单项的标准题为“产生”、“删除”和“结束”。

(2) 使用滚动指定一个值（只允许是一个100以内的正数n），当单击“产生”菜单项时，根据滚动条的指定什n在图形框内按每行4个数据的格式输出随机数产生的n个100～200内的随机数。

(3) 文本框内只允许输入一个100～200以内的正整数m，当单击菜单项“删除”时，删除与指定值m相等的随机数项，并重新在图形框内显示所余下的数据项。

(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个等分点到定点的距离平方为：

22

(r*Cos(i*t)+x0-x1)+(r*Sin(i*t)+y0-y1)

113、编写一个字幕滚动公千牌程序，要求如下：

(1) 当程序启动后，在窗体上垂直（或水平）循环滚动显示文字。

(2) 要求滚动的文字之间在垂直方向等距离。 (3) 允许通过控件暂停滚动或继续滚动。

(4) 滚动文字的左侧显示一幅图画，内容自字义。 114、建立一个图形浏览器。要求如下：

(1) 在窗体上放置通用对话框、标签、图像框和滚动条等控件。 (2) 窗体上建立两个菜单项，菜单的标题用学生的学号、姓名。

(3) 当单击菜单项“学号”时，打开通用对话框。通用对话框可过滤BMP、WMF两种图形文件。当从通用对话框选择一个图开文件后，标签内显示所选择的文件的目录路径，图像框内显示该文件的图形，使用滚动条可缩放图像框内的图形。

115、用PaintPictuer方法实现图形从右边飞入的效果。

116、从键盘上输入4年数，编写程序，计算并输出这4个数的和及平均值。通过InputBxo函数输入数据，在窗体上显示及平均值。

117、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。

118、编写程序，求解鸡兔同笼问题，一个笼子中有鸡x只，qjqy ;y只，每只鸡有2只脚，每只兔有4只脚。今天知鸡和兔总头数为h，总脚数为f.问笼中鸡和兔各若干？

119、a=5,b=2.5,c=7.8，编程序计算： y=лab/(a+b*c)

120、输入以秒为单位表示的时间，编写程序，将其换算成几日几时几分几秒。

121、自由落体位移公式为s=1/2gt2+v0t其中V0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移师s。设V0＝4.8m/s，t＝0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用InputBox函数输入V0，和t两个娈量的值。

122、在窗体上画4个图像框和一个文本框，在每个图像框中装入一个箭头图形，分为4个不同地方向，把文本框的MultiLine属性设置为True，编写程序，当单击某个图像框时，在文本框中显示相应的信息。例如单击身右的箭头是，在文本框中显示“单击向右的箭头”。

123、在窗体上建立三个文本框和一个命令按钮。程序运行后，单击运行后，单击命令按钮，在每一个文本框中显示由Command1_Click事件过程设定的内容（例如：“Microsoft Visual Basic”），同时在第二，第三个文本框中分别用小写字母和大写定线显示每一个文本框的内容。

提示：用每一个文本框的Change事件过程在第二、第三个文本框中显示指定的内容。

124 、编写程序，用文本框检查口令输入。在窗体上建立一个文本框、一个图片框和三个命令按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”、“结束”。程序运行后，单击每一个命令按钮，清除文本框中的信息，并把光标移到文本框中，按着在文本框中显示一个图形，否则显示一个信息框，要求重新输入，些时将调用一个命令按钮的Click事件过程，再一次在文本框中输入口令，直到输入正确的口令为止。如果单击“结束”按钮，则结束程序。

125、用图形编辑软件（如Windows下的“画图”）画一个简单的图形，然后把它装入图片框。 126、编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在每一个列表框中选择所需要的项目，单击“添加”按钮，把所选择的项目移到第二个列表框中。如果单击“删除”按钮，则执行相反的操作。在第二个列表框中，允许同时选择多个项目。要求在每个列表框的下面用标签控件显示各自的Style和Sorted属性。

127、编写程序，用计时器按秒计时。在窗体上画一个计时器控件和一个标签，程序运行后，在标签内显示经过的秒数，并响铃。

128、编写程序，计算1+2+3?+100

129、我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后增加到20亿。

130、给定三角形的3条边边长，计算三角形的面积。编写程序，首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否要求重新输入。当输入－1时结束程序。

131、税力部门征收所得税，规定如下：

1) 收在200元以内，免征;

2) 收入在200～400元以内的，超过200的部分纳税3%。 3) 收入超过400玩的部分，纳税5%。

4) 当收入达5000元或超过进，将4%税金改为5%。 编写程序实现上述操作。

132、假定有以下每周工作安排： 星期一、三：讲计算机课 星期二，四：讲程序设计课 星期五：进修英语 星期六：政治学习 星期日：休息

试编写一个程序，对上述工作日程进行检索。程序运行后，要求输入一周里的某一天，程序将输出这一天的工作安排。在输入时用0~6分别代表星期日到星期六，如果输入0~6之外的数则程序结束运行！！

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、勾股定理中3个数的关系是：a2+b2=c2.编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。

135、从键盘上输入两个正数M和N，求最大公因子。

136、如果一个数的因子这和等于这个数本身，则这样的数为“完全数”。例如，整数28的因子为1、2、4、7、14，其和1+2+4+7+14＝28，因此28是一个完全数。编写一个程序，从键盘上输出整数N和M，求出M和N之间所有完全数。

137、编写程序，打印如下的乘积表： * 3 6 9 12 15 ?? 16 ?? 17 ?? 18 ??

138、从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号、成绩，并根据成绩按下面的规定输出对该学生的评语：

成绩 80～100 60～79 50～59 40～49 0～39 评语 Very good Good Fair Poor Fail

139、一个两位的正整数，如果将它的个位数定与十位数字对调，则产生另一个整数，称后者为前者的对调数。现给定一个两位的正整数，请找另一个两位的正整数，使得这两个两位正整数之和等于它们各自的对调数之和。例如，12+32=23+21。编写程序，把具有这种特征的一对对两位正整数都找出来。

140、从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换。。。。第五个元素与第六个元素互换。分别输出数组原来各元素的值和对换后各元素的值。

141、设有如下两组数据： A:2，8，7，6，4，28，70，25

B:79，27，32，41，57，66，78，80

编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27??25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。

142、有一个n×m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输入其值及行号和列号。

143、编写程序，把下面的数据输入一个二维数组中： 25 36 78 13 12 26 88 93 75 18 22 32 56 44 36 58 然后执行以下操作：

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

(3) 每次检索结束后，询问是否继续检索，根据输入的信息确定是否结束程序。 145、某单位开运动会，其有10人参加男子100米短跑，动动员号和成绩如下： 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秒 编写程序，按成绩排出名次，并按如下格式输出： 名次 运动员号 成绩 1 ?? ?? 2 ?? ?? 3 ?? ?? ? ?? ?? 10 ?? ??

146、编写程序，建立并输出一个10×10的矩阵，该矩阵对角线无素为1，其无素均为0。

147、编写程序，实现矩阵转置，即将一个n*M的矩阵的行和列互换。例如，a矩阵为

1 2 3 4 5 6 a=

转置后的矩阵b为 b=

1 4 2 5 3 6 148、编写程序，输出“杨辉三角形”。

杨辉三角形的每一行是（x+y）n的展开式的各项的系数。例如第1行是（x+y）0，其系数为1，1第三秆为（x+y）2，其展开式为x2+2xy+y2，系数分别为1，2，1??。一般形式如下：

1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 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个数中的最大值和最小值。

150、编写程序，求S=A!+B!＋C!，价乘的计算分别用Sub过程和Function过程序两种方法来实现。

151、编写一个过程，以整形数作为形参，当该参数为奇数时输出False,而当该参数为偶数时输入True。

152、设a为一整数，如果能使a2=xxa成立，则成a为“守形数”。例如52=25,252=625,则5和25都是守形数，试编写一个Function过程Automorphic,其形参为一正整数，判断其是否为守形数，然后用该过程查找1~1000内的所有守形数。

153、编写求解一元二次方程ax2+bx+c=0的过程，要求a、b、c及x1，x2的操作放在主程序交换数据，输入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、编写过程，用下面的公工计算π的近似值：

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库编程题 vb 习题(2)在线全文阅读。