编程题 vb 习题

编程题

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、 输入球体的半径，然后计算并输出球体的体积和表面积。已知：球体的体积计算公工为：v=4/3πr3，球的表面积公式为：f=4πr2，此处的R为还球体的半径。要求：程序用一个文本框输入半径r，单击一个命令按钮时，进行计算，并将运算结果即球的体积和表面积分别用2个文本框显示出来。

4、 编写一个将摄氏温度转换成华氏温度的程序，要求：摄氏温度通过输入对话框来输入，结果在窗体上显示，已知：由摄氏温度求华氏温度的计算公式为：9/5F=9/5×C+32，其中：C为摄氏温度，F为华摄温度。

5、 从键盘输入两个数，编写一程序，计算并输出2个数的和及平均值，通过InputBox函数输入数据，在窗体显示和及平均值。

6、 编写一个程序，计算半径为15cm、高为30cm的圆柱体的体积、半径和高通过InputBox函数输入，计算结果并将其打印到窗体中。

7、 编写一程序，输入一个整数，判断能否被3或5整除，如能整除就打印该数，否则不打印，请半程序代码写在窗体的Click事件中。

8、由键盘输入3条线段的长度，判断这3条线段能否构成三角形，如能构成三角形则计算三角形的面积，如果不能构成三角形则打印出错信息。请将代码写在窗体的Click事件中，输入3条线段请用ImputBox函数。

9、 输入一个年份，判断它是否为闰年。闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除的年份。

10、 输入3个数，要求按从小到大输出。

11、 输入一个0～99999之间的整数，判断输入的是几位数。如：如果输入586请输出结果为3。 12、 设计一个销售彩电（3000元/台）、冰箱（2500元/台）、洗衣机（1000元/台）的程序（商店送货上门时需加收100元）。设计程序进，窗体中包括2个框架、3个选择按钮（用于选择商品）、3个文本框（用于输入商品的台数）、2个单选按钮（用于选择送货方式：自取或送货）、1个命令按钮（用于计算金额）和1个文本框（用于显示总金额）。

13、 编写一个程序求一个m*n矩阵中最大元素及其所在的行列号。 14、 编写一程序将一个矩阵转置，即行列元素对换。

15、 编写一个程序，求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。 16、 输入10个学生记录（每个记录包括学号、成绩），组成记录类型数组，统计出平均成绩，及成绩最低的学生的学号和成绩。

17、写一程序将一个数插入到已经有序（设从小到大排序）的数组中，使数组还继续保持有序。假设原数组中的数为-12，-4，10，23，68。

18、 编写一个求一组数中的最小数的Function过程，要求使用可变参数。

19、编写一个Sub过程，它能完成把数组中的某个位置上的元素移到指定的位置。 20、编写一个Sub过程，它能完成把数组中的某个位置上的元素删除。 21、编写一个Sub过程，将一个新的数据插入到数组中的指定位置上。

22、求两个数m和n的最大公约数和最小公倍数，要求用一个函数过程来实现。 23、编写一个函数过程，求п的近似值，公式为：

п/4=1-1/3+1/5-1/7+??+??1?n?1/（2*n-1）

24、已知斐波那挈（Fibonacci）数列的第一项是1，其后每一项都是其前面两项的和，形如：1，1，2，3，5，8，13，??，编写一个函数过程，求出该数列第n项的值。

25、 请在例12.1的基础上再增加一个包含有“红色”，“绿色”，和“蓝色”的颜色主菜单，并设计其事件过程。当用户执行某一菜单命令时，程序能执行相应的操作，既改变文本框中文字的颜色。

26、 设计一个窗体，其中放一Lable控件，并在窗体中设置2个主菜单，各菜单的组成如下：

菜单标题栏 字体效果（&E） ….粗体(&B) ….斜体(&I) ….加下划线(&U) ….加删除线(&S) ….分割线 …..退出 名称栏 meffect mbold mitalic munderline mstrikethrough mpartion mend 菜单标题栏 字体颜色(&C) …..黑色(&X) …..红色(&R) …..绿色(&G) …..蓝色(&B) 名称栏 mcolor mblack mred mgeen Mblue 要求：“字体效果”菜单项中的某一子菜单被选取时，前面打“√”号，其作用是改变Lable标签中的文字的字体；“字体颜色”中的某一菜单被选取时，呈灰色状态，其作用是将Lable标签的文字的颜色设置成该颜色。

27、利用通用对话框控件编写一个应用程序。在窗体中添加一个通用对话框控件、一个文本框、两个命令按钮，当用户单击其中一个命令按钮时，显示一个打开文件对话框，由用户从中选择一个文件，在对话框中单击“确定”按钮后，可将选择的文件的路径及文件名显示到文本框中。当用户单击窗体中的另外一个命令按钮时，可显示字体对话框，用于设置文本框中的文字的字体、样式、效果和颜色。

可用鼠标左键将图片从Picture1图片框中拖放到图片框Picture2中，此时图形从Picture1图片框中消失，并显示到Picture2图片框中，命令按钮Command1也从原来的禁用状态变为可用状态。当单击命令按钮Command1时，图片从Picture2图片框中又回到Picture1图片框中，同时命令按钮Command1又变为禁用状态。

从程序代码中可以看出，该程序中所实现的控件拖放过程的启动和停止是利用对象的Drag方法设置实现的，并且整个拖放过程全部是由用户通过编程代码来控制实现，这个拖放过程并不是由系统自动启动和停止，这就是手动拖放模式的特点。

28、 在窗体上画一文本框，编写程序实现向文本框中输入数据，只允许在文本框中输入字母和数字字符。

29、 写一程序，通过拖动鼠标的清洁工在窗体上拖画直线。

30、 在窗体上加一图片框，在图片框中加一图片，利用手工拖动的方法，利用鼠标可以将图片拖动到窗体的任何一个部位。

31、设有通用对话框cmdialog，在点击command1时，显示“打开”对话 框。 文件类型为*.*,*.txt,*.bat,默认类型为*。Bat. （10分） sub command1_click()

End s

32、设窗体中有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中的程序代码（15分）

34、设计文字颜色、大小、位置不断变化的程序。（位置可随机或滚屏） 35、输入一个华氏(F)温度，要求输出摄氏（℃）温度。公式为C= （F-32）,输出要有文字说明。

36、输入三个数，分别存入变量，试编程求出最大者

37、输入一个不多于3位的正整数，要求：它是几位数，分别打印出每一位数字，按逆序打印出各位数。

38、输入一元二次方程的A、B、C，求出这个方程有没有实根，如果有实根分别求出来 39、输入圆的半径，分别输出圆的周长和圆的面积。

40、将输入的学生百分制成绩转换为等级制，90分以上为A，80~89分为B，70~79分为C，60~69分为D，60分以下为E。编程实现每输入一个成绩输出一个等级

41、求1到100之间的数累加和

42、求100到200之间的奇数累加和。

43、打印输出5到100之间的质数及其个数。 44、产生30个A~Z之间的随机大写字母。

45、输入一个数n,这个数的阶乘n!(n!=1*2*3*……..*(n-1)*n.) 46、输入10个数，求这10个数的总和，以及平均值。

47、输入10个整数，对这10个数进行排序，再从大到小输出。 48、在窗体中打印输出100个随机机基本键位字符（asdfghjkl；） 49、输入两个正整数，求其最大公约数和最小公倍数。 50、打印所有的三位数，其各位数字立方和等于该数本身。

51、一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在第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，输出是246642。

57、窗体上有两个命令按钮，第一个按钮显示“写字板”、第二个按钮显示“画图”，要求单击命令按钮，利用Shell函数执行对应的应用程序。

58、输人三角形的三条边a、b、c的值根据其数值判断能否构成三角形。若能还要显示三 角形的性质：等边三角形、等腰三角形、直角三角形或任意三角形。 59、编写一程序根据上网时间计算上网费用 计算的方法如下：

费用计算规则

50元基数 <10 小时

每小时6元 10～60小时

每小时4元 >=60小时

同时为了鼓励多上网 每月最多不超过600元。

60、输入一年份，判断它是否为闰年，并显示有关信息。判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除。

61、计算 S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+??当最后所加的项的值<10-4时结束。 【提示】找出规律，某一项的分母是前一项的分母加上前一项在序列中的顺序数。

62、求Sn＝a+aa+aaa+aaaa+??+aa??aaa(n个a)其中，a是一个由随机数产生的1～9（包括1、9）中的一个正整数。是一个由随机数产生的10－20（包括10、20）中的一个数。

63、有一个四位数具有这样的特点：它的平方根恰好就是它中间两位的数字，便如3600的平方根为60。编程找出所有这样的四位数。

64、有一个长阶弱，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后4阶，如果每步跨6阶最后剩5阶，如果每步跨7阶时恰好走完，问这个阶梯到少有多少阶？

【提示】得用其肯定是7的倍数这个条件，然后根据同时满足除n余m（m=2,3,4,5,6;m=1,2,3,4,5）的逻辑关系即可。

95、有一根长度为321m的钢材料，要将它截取成两种规格的短料，规格a、b的长度分别为17m和27m，问分隔成a、b各多少段后剩余的残料r最少？

【提示】利用两重循环，进行最短残料的比较，防止r出现负值（实际情况不可能出现负值）。 96、编写一个程序输入某班长的三门课的学分对应成绩，计算其平均绩点。

97、用随机数产生5行6列的矩阵，其值为1~100之间的数，表示5位学生期末6门课程的成绩。再利用Dim Rreserve重新定义5行7列的矩阵，增加的最右列存放每位学生的最高分；再定义6个元素的一维矩阵，存放每门课程的平均分数。例如，求每位学生的最高分程序段如下：

For i=0 To 4

max 1=a(i,0)>max1 Then max1=a(i.j) Next j

a(i,6)=max1 Next i

求每门课程的平均分程序段如下： 1 For j=0 To 5 2 aver=0 3 For i=0 To 4 4 aver =aver+a(i,j) 5 Next i

6 b(j)=aver/5

7 Next j 【思考】

若把第2句的aver＝0移动到外循环句即第1句的前面，是否影响程序的运行？是否影响程序正确性？这和前面讲过的累加时要在循环体外对存放求和结果的单元清零是否矛盾？

98、编写一个子过程DeleStr(s1,s2)，将字符串S1中出现的S2子字符串删去，结果还是存放在s1中。

例如：s1=”12345678AAABBDEFG12345” s2=”234” 结果：s1=-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

主调程序用之，并显示二进制字符串和转换结果。

【进一步要求】要考虑到二进制字符串中有小数和负号。 100、根据要求分别编写两个过程：

（1）编写一个冒泡法排序子壶程，对已知的若干个整数按递增次序排列。 子过程形式为： Sub Sort1(a%)

（3） 一个二分法查找函数过程，查找某数。找到返回该数在数组中的下标位置，找不到返回值为－1。

（4） 函数过程形式为：

Function Search1(a%,Key%) As Integer a%（）为有序的数组，Key% 为要查找的数。

主调程序可通过随机函数产生若干个数，先后调用Sort1子过程和Search函数过程。

2-5

101、利用迭代法求方程x-a=0的近似根，要求精度为10，迭代公式为：xi+1=1/2(xi+a/xi). 编制3个过程：迭代函数、迭代子过程、递归法函数过程。

主调程充中分别调用这3个过程，并调用标准函数sqr(a)，比较过程正确与否。

102、编写一函数过程Maxlenht(s)，在已知的字符串s中，找出最长的单词。假定字符串s内只含有字母和 ，空格分隔不同的单词。

【提示】

（1） 程序中用到当前单词、当前单词长度、最长单词、最长单词长度等变量。

（2） 首先求出输入的字符串长度，然后从字符串中分离出单词，即对每个字符判断;若不为空格，将每个字符连接到当前单词的字符串变量，当前单词长度计数器加1;若为空格，表示一个单词结束，将当前单词长度与最长单词长度比较，若前者长，则将当前单词替代最长单词。当前单词置空，当前单词计数器清除为0。

103、对于输入的文本统计各字母出现的次数，有序的显示文本中的单词。 【提示】根据韪要求，本例要求实现3个功能：

（1） 统计各字母出现的次数，这在前面已介绍过。 （2） 从输入的文本框的内容中分离出单词，可通过编程实现，本例利用Split函数简化编程。

（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、编写过程，用下面的公工计算π的近似值：

π/4＝1-1/3+1/5-1/7+??+（-1）1/（2n-1）

在事件过程中调用该过程，并输出当n=100、1000、10000、100000时π近似值。

158、在窗体上画一个文本框，然后编写一个程序。程序运行后，如果按下键盘上的A、B、C、D键，则在文本框中显示EFDH。

159、编写一个程序，当同时按下Alt、Shift和F6键时，在窗体上显示“再见！”并终止程序的运行。

160、编写一个程序，当按下某个键时，程序以十六进制和八进制输出该键的KeyCode。

161、在窗体上画一个文本框、一个图形框和一个命令按钮。编写程序，使得当鼠标光标位于不同的控件或窗体上时，鼠标光标移到图片框上时，如果按下鼠标右键，则用一个信息框显示“现在鼠标光标位于图片框中”。

162、编写一个类似于“回收站”的程序，用适当的图形做为“回收站”，程序运行后，把窗体上其他的对象拖到“回收站”上，松开鼠标键后，显示一个信息框，询问是否确实要把该对象放入“回收站”。此时单击“是”按钮即放入“回收站”，对象从窗体上消失，单击“否”按钮则对象仍回到原来末位置。

163、在窗体上画若干个控件，然后画两个列表框，其中理个列表框用来列出当前窗体上控件的名称，另一个列表框列出15种鼠标形状。程序运行后，从第一个列表框中选择控件或窗体;从第二个列表框选择鼠标光标形状，为选择的控件或窗体设置所需要的鼠标光标形状。

164、在窗体上画一个文本框，把它的Multiline属性设置为True;通过菜单命令向文本框中输入信息并对文本框中的文本框进行格式化。按下述要求建立菜单程序：

(1) 菜单程序含有3个主菜单，分别为“输入信息”、“显示信息”和“格式”。 其中“输入信息”包括两个菜单命令：“输入”、“退出”; “显示信息”包括两个菜单命令：“输入”、“退出”; “格式”包括5个菜单命令：“正常”、“组细”、“斜体”、“下划线”和“Font20”

(2) “输入”命令的操作是：显示一个输入对话框，在该对话框中输入一段文字。 (3) “退出”命令操作是：结束程序运行。

(4) “显示”命令的操作是：在文本框中显示输入的文本。 (5) “清除”命令的操作是：清除框所显示的内容。

(6) “正常”命令操作是：文本框中的文本用正常字体（非粗体、非斜体、无下划线）显示

(7) “粗体”命令的操作是：文本框中的文本用粗体显示。 (8) “斜体”命令操作是：文本框中的文本用斜体显示。 (9) “下列线”命令操作是：给文本框中的文本加上下划线。

(10) “Font20”命令的操作是：把文本框中文本字体的大小设置为20。 165、北京、南京、西安、昆明四城市古迹和风景区如下： 北京：

天安门广场、故宫、北海公园、颐和园、香山、天坛 南京：

雨花台、中山陵、明孝陵、灵谷寺、栖霞山、募愁湖 西安：

钏楼、大雁塔、小雁塔、半坡博物馆、秦始皇陵和兵马俑 昆明：

金殿、西山龙门、安宁温泉、滇池、大观楼公园

建立一个弹出式菜单，该菜单包括4个命令，分别为“北京”、“南京”、“西安”、“昆明”。程序运行后，单击弹出的菜单中的某个命令，在标签中显示相应的城市的名字，而在文本框中显示相应的名

胜古迹和风景区的名字。

166、在窗体上画一个文本框，把该文本框的Multiline属性设置为True;Scrll Bars属性设置为3。在文本框中输入适当的文本。通过菜单命令控制文本框中字体的外观、名称、大小和颜色。

167、编写程序，建立一个打开文件对话框，然后通过这个对话框选择一个可执行文件，并执行它。例如程序运行后，在对话框中选择Windows下的“计算器”程序，然后执行这个程序，打开“计算器”。

168、编写程序，在窗体上显示一行信息，通过自己定义的颜色对话框和字体对话框改变这行的信息的颜色和字体。

169、编写程序，建立一个“密码”对话框。要求如下

(1) 择话框由一个窗体组成。在该窗体上包括一个通用对话框、一个标签、一个文本框、两个命令按钮、两个图像框，其排列如图2.12所示。

(2) 设计完成后的窗体如图2.12.2所示。注意，要把两个把锁（打开和锁着的）放在同一个位置，让它们重合。

(3) 程序运行后，在文本框中输入口令，然后单击命令按钮1。如果输入的口令正确，则“锁”将被“打开”，并显示一个信息框（见图2.12.3），单击信息框中的“确定”按钮，将在窗体上显示一行信息。

（4）如果输入的口令不正确，则不能“开锁”，并显示一个信息框，要求重新输入。3次输入的口令都不正确，则认为是非法用户，不能再输入口令，并结束程序。

170、在窗体上画一个文本和3个命令按钮，在文本框中输入一段文本（汉字），然后实现以下操作：

(1) 通过字体对话框把文本框中的文本的字体设置为黑体，字体样式为粗斜体，字体大小设置为24，

该操作在第一个命令按钮的事件过程中实现。

(2) 通过颜色对话框把文本框中文字的前景色设置为红色。该操作在第二个命令按钮的事件过程中

实现。

(3) 通过对话框把文本框中的文字的背景钯设置为黄色。该操作在第三个命令按钮的事件过程中实

现。

171、设计一个“古诗选读”程序，该程序由6个窗体构成，其中一个窗体为封面窗体，一个窗体为列表窗体，其余4个分别用来显示4首诗的内容。程序运行后，先显示封面窗体，接着显示列表窗体，在该窗体中列出所要阅读的古诗目录（4个），双击某个目录后，在另一个窗体的文本框显示相应在的诗文内容，每首诗用一个窗体显示。

要显示的4首诗为： (1) 望天门山

天门中断楚江开， 碧水东流到此回。 两岸青山相对出， 孤帆一片日边来。 (2) 黄鹤楼送孟浩然之广陵

故人西辞黄鹤楼， 烟花三月下杨州。 孤帆远影碧空尽， 惟见长江天际流。 (3) 黄鹤楼

昔人已乘黄鹤去， 此地空余黄鹤楼。

黄鹤一去不复返， 白云千载空悠悠。 晴川历历汉阳树， 芳草萋萋鹦鹉州。 日暮乡关何处是， 烟波江上使人愁。 (4) 蜀相

丞相祠堂何处寻， 锦官城外柏森森。 映阶碧草自春色， 隔叶黄鹂空好音。 三顾频频天下计， 两朝开济老臣心。 出师未捷身先死， 长使英雄泪满襟。

(1) 封面窗体内放置几个标签和图像框，构成封面窗体的画面。用定时器来控制封面窗体，设置时

钏的Interval为窗体显示时间例如2秒，在Timer1_time事件内编程如下： Prviate Sub Timer1_Timer() Form2.Show Unload Me End Sub

(2) 列表窗体内放置列表框，列表框列出所要阅读的古诗目录“望天门山”、“黄鹤楼送孟浩然之广

陵”、“黄鹤楼”、“蜀相”。Form_Load事件的工作可在设计时完成。双击列表框中某一项调用相应在窗体。

Sub Form_Load()

List1.Additerm”望天门山’

List1.AddIterm”黄鹤楼送孟浩然之广陵” List1.AddIterm”黄鹤楼” List1.AddIterm”蜀相” End Sub

响应双击操作： Sub List_DblClick()

Select Case List.ListIndex case 0

Form3.show case 1

Form4.show Case 2

Form5.Show Case 3

Form6.Show End Select End Sub

Form3-Form6窗体各放置一个文本框，分别装入相应的诗文内容。

172、在磁盘上以文件动工建立一个三角函数表，格式如下： * SIN COS TAN 0 ? ? ? 1 ? ? ? ? ? ? ? 90 ? ? ?

173、某单位全年每次报销的经费（假定为整数）存入在一个磁盘文件中，试编写一个程序，从该文件中出每次报销的经费，计算总各，并将结果存入别一个文件中。

174、编写一个程序，用来处理活期存款的结算事务。每次处理之后，程序都要显示当前的结存，并把它存入一个文件吕。要求输出的浮点数保留小数点后两位。

175、编写程序，按下列格式输出月历，并把结果放入一个文件中： SUN MON TUE WED THU FRI SAT 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

176、假定在磁盘上已经建立一了一个通信录文件，文件中的每一个记录包括编号、用户名、电话号码和地址等4项内容。试编写一个程序，用自己选择的检索方法从文件中查找指定的用户的编号，并在文本框中输出其名字、电话号码和地址。

177、假定磁盘上有一个学生成绩文件，存放着100个学生的情况，包括学号、姓名、性别、年龄、和5门课的成绩，试编写一个程序，建立以下4个文件：

(1) 女生的情况的文件

(2) 按5门课程成绩总分高低排列的学生情况的文件（需加总分一栏） (3) 按年龄从小到大排列的全部学生的情况的文件

(4) 按5门课程平均成绩的分数段（60分以下，60～70，71～80，81～90，90分以上）进行人数统计文件。

178、编写一个建立图书馆的数据文件的程序，程序运行后，可以从键盘上输入每种图书的有亲数据，锯括书分类号、登记号、作者名、单价、购进数、借出数、出版日期和出版社名称，把这些数存入文件中，文件建立后，按登记号的顺序（由小到大）输出全部内容。

179、编写一个程序，输入某仓库的货物数据。建立一个顺序文件。每次从键盘上输入一种货物的数据。包括货物号、名称、单价、进库日期和数量。建立文件后，输出全部的内容。

180、在窗体上画6个标签、两个文本框、一个组合框其（Style属性设置为2）、两个命令按钮以及一个驱动器列表一个目录列表框和一个文件列表框，然后按以下要求设计程序。

程序运行后，可以在“目录”下面的标签中列出当前路径。组合框设置为下拉式列表框 ，在组合框中有3项选择，分别为“所有文件（*.*）”、“文本文件（*.txt）”和“Word文档（*.doc）”，在文件列表框中列出的文件类型应与组合框中显示的文件类型相同。

(1) 可以通过单击驱动列表框和双击目录列表框亓行选择，使文件列表框中显示相应目录中的文件，所显示的文件类型由组合框中的当前项目确定。

(2) 单击文件列表框中的一个文件名，该文件名即可在“文件名称：”下面的文本框显示出来。

(3) 单击“读文件”按钮，可使“文件名称：”下面文本框中所显示的文件（文本文件）的内容在右面的文本框中显示出来。些时可以对该文本编辑。

(4) 单击“保存”按钮，编辑编辑后的文件内容可以保存到由目录列表框指定的路径和由

文件列表框指定的文件（该文件显示在“文件名称：”下面的文本框中）。 181、根据所给条件，列出布尔表达式。

1) 闰年条件是年号（year）能被4整除，但不能被100整除；或者能被400整除。 2) 一元二次方程ax2+bx+c=0有实根的条件为：a≠0,并且b2-4ac>=0.

3) 征兵的条件是：男性（sex）年龄（age）在18~20岁之间，身高（size）在1.65m以上；或者女性（sex）年龄（age）在16~18岁之间，身高（size）在1.60米以上。

4) 分房的条件为已婚（marrigerat），年龄（age）在26岁以上，工作年限（workingage）在5年以上。

182、输入3个不同的数，将它们从大到小排序。

183、任给3个实数，求其中间数（即其值大小居中者）。

184、编写程序，任意输入一个整数，判定该整数物的奇偶性。

185、文本框PasswordChar属性可以隐藏用户通过键盘输入的字符，编写程序，利用文本框检查用户口令，

2

186、求一元二次议ax+bx+c=0的根。 187、输入一个数字（0~6），用中英文显示星期几。

188、给定年号与月份，判断该年是否闰年，并根据给出的月份来判断是什么季节和该月有多少天。

189、苦基本工资大于等于600玩，增加工资20%，若小于600大于等于400元，则增加工资15%，若小于400元则增加工资10%，请根据用户输入的基本工资，计算出增加后的工资。

190、输入圆的半径r，利用选项按钮，选择运算：计算面积、计算周长等。 191、设计一个计时器，能够设置倒计时的时间，并时行倒计时。 192、输出101～500之间的所有奇数，奇数之和。 193、输出100～200之间不能被3整除的数。

194、输入初始值，输出100个不能被3整除的数，如图5-6所示。

195、设计程序，求s＝1+(1+2)+(1+2+3)+??＋（1+2+3+??+n）的值。 196、设s=1*2*3*4*??*n,求不大于400000时最大的n。

197、设s＝11×22×33×??×nn，求不大于400000时最大的n. 198、找出1～1000之间的全部“同构数” 199、“完备数”是指一个数恰好等于它的因了之和，如6的因子为1、2、3，而6=1+2+3，因而6就是完数。编制程序，找出1～1000之间的全部“完备数”。

200、编制程序，求出所有小于或等于100的自然数对，自然数对是指两个自然数的和与差都是平方数，如8与17的和8＋17＝25与其差17-8=9都是平方数，则8和17称自然对数。

201、我国古代数学家张丘建在“算经”里提出一个世办数学史上有名的百鸡问题：鸡翁一，值五钱，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问鸡翁、母雏各几何？

202、求下列数列的前n项之和。

235813、、、、?? 12358203、验证“哥德巴赫猜想”。1742年6月，德国数学爱哥德巴赫在给彼得的大数学家欧拉的信中提出一个问题：任何大于6的偶数均可以表示为两个素数之和吗？欧拉复信中道：“任何大于6的偶数均可以表示为两个素数之和，这一猜想我还不能证明，但我确无疑地认为这是完全正确的定理。”这就是到至令尚未被证明的哥德巴赫猜想。

204、打印1～100之间的平方、平方根、自然对数、e指数的数学用表。

205、某数组有20个元素，元素的值由键盘输入，要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个元素与第19个元素互换，??，第10个元素与第11个元素互换。

输出数组原来各元素的值和对换后各元素的值。

206、编写程序，建立并输出一个 10×10的矩阵，该矩阵对角线元素为1，其条元素均为0。 207、有一个6×6的矩阵，各元素的值由键盘输入，求全部元素的平均值，并输出高于平均值的元素以及它们的行、列号。

208、矩阵转置。即将矩阵行、列互换。 209、找出二维数组n×m中的“鞍点”。所谓的鞍点是指它在本行中值最大，在本列中的值是小，输出鞍点的行、列号，有可能在一个数组中找不到鞍点，如无鞍点则输出“无”。

210、求方阵的两个对角线元素和。

211、矩阵的加法运算，两个相同阶数的矩阵A和B相加，是将相应位置上的元素相加后放到同阶矩阵C相应位置。

212、输出幻方阵，幻方阵也称魔方阵，是指由自然数1～n2（n为奇数）构成的方阵，其各行各列以及对角线元素之和均相等。

213、设某班共10名学生，为了评定某门课程的将学金，按规定超过全班平均成绩10%。都发给一等奖学金，超过全班成绩5％者发给二等奖，试编制程序，输出应获奖学金的学生名单（包括姓名、学号、成绩、的3个一维数组。）

214、利用一维数组统计一个班学生0～9、0～19、20～29、??、90～99及100各分数段的人数。

215、利用随机函数，模拟抽币结果，设共有投币100次，求“两个正面”、“两个反面”、“一正一反”3种结果各出现多少次。

216、选择法排序，选择法排序的基本思路如下：

设有10个数存放在数组A中，分别为A(1)、A(2)、A(3)、A(4)、??、A(10)。

先将A(1)与A(2)比较：指针指向1，若A(2)

第2轮：先将指针k指向2，将A(k)与A(3)、??、A(10)比较，并依次作出同样的片理――指针k指向第一轮余下的9个数中最小者，然后将A(k)与A2)互换，第1轮条下的9个数中的最小者放入A(2)中。

继续进行第3轮、第4轮、??、真到第9轮后，余下的A(10)自然数就是10个数中的最大者。 到此，10个数已从小到大顺序放在A(1)～A(10)中。 217、插入法排序。插入法排序的基本思路如下：

设有10个数存放在数组A中，分别为A(1)、A(2)、A(3)、A(4)、??、A(10)。

先将A(1)与A(2)比较，苦A(2)

高有10个数存放在数组A中，分别表示为A(1)～A(10)中。

先将A(1)与A(2)比较，若A(2)

第2轮：依次将A(1)～A(9)相邻的数作比较，并依次作出同样的处理，最后将第1轮余下的9个数中的最大者放入A(9)中。

继续进行第3轮、第四轮、??，直到余下的A(1)自然就是10个数中的最小者。 到此，10个数已从小到大顺序存入在A(1)～A(10)中。

219、设计一个“通讯录”程序。当用户在下拉列表框中选择某一人名后，在“电话号码”文本

框显示出对应的电话号码。当用户选择或取消“单位”和“住址”复选框后，将打开或关闭“工作单位”或“家庭住址”文本框。

220、把两个按升序（即从小到大）排列的数列a(1)，（2），??、a(n)和b(1)、b(2)??、b(m)，合并成一个仍为升序排列的新数列。

221、某校如开运动会，有10个参加男子100m短跑决赛，设计一程序，按成绩排名次6.19已知某班学生m（m<20）门课程。试安平均成绩输出学生平均成绩名次表（要求每个学生的信息包括：名次、姓名、学号、平均成绩等项）。

提示：本师的关键是如何将排序处理与名次处理统一起来。显然名次问题并非就是排序问题，回为名次问题还必须考虑如何处理南名次者――成绩相同者必须为同一名次，而同名次伯处理则需用名次计数器与相应选择结构相配合起来解决。此外，必须注意到学生姓名、学号、平均成绩是构成学生信息的不可缺少的重要组成部分，必须把它们看作一个整体来处理。因此当要交换两个学生的信息时，必须同时整体交换。

222、编制判断素数的Sub过程或Function过程，验证哥德巴赫猜想：一个不小于6的偶数可以表示为两个素数之各，例如6=3+3，8=3+5，10=3+7，??。

223、编写输入一个0~6数字，显示汉英对照出星期的Funciton过程。 224、编制随机整数Function过程，输出30个1~100之内的随机数。 225、编制求两数中的较大数Function过程，求多个数的效大数。

226、编制求效大数Funciton过程，使用不定数量的参数，求任意多数中的最大数。 227、编制判断奇偶数过程，输入一个整数，判断其奇偶性。

228、编制判断是否同时被17与37整除的Funciton过程。输出1000~2000之间所有能同时被17与37整除的数。

229、使用Timer函数设计用来暂停指定时间（秒）的Sub过程。

230、编写计算阶乘的Funciton过程，利用ex的下述近似公式计算e（直到最后一项小于10-6为止）。

xx2x3xne?1???????

1!2!3!n!x231、编写Function过程返回指定字符、长度的的字符串，实现在窗体上输出如图7-11所示的图形。

232、移动元素。将数组中某个位置的元素移动到指定位置。

233、向数组添加元素，将新添加的元素放到数组的最后位置。

234、向数组中的指定位置插入新元素，即将新添加的无素放到数组的指定位置。 235、删除数组中指定位置中的元素。 236、编写自定义的Sub过程或Funciton过程：把两个按升序（即从小到大）排列a(1)，a(2)，??，a(n)，和b(1)，b(2)，??，b(n)，合并成一个仍为升序排列的新数列

提示：本题的关键是，利用存入数列的数组a和数组b的有序性，分别将a和b中各元素按其大小关系存入到数组c，同时必须注意对数组a（或子b）残剩元素的追加处理。

237、有5个人坐在一起，问第5个人是多少岁？他说比第4个人大2岁，问第4个人多少岁，他说比第3个人大2岁。问第3个人，又说比第2个人大2岁，问第2个人，说比第一个人大2岁，最后问第1个人，他说是10岁，请问第5个人有多大岁数。

238、中利用文本框检查用户口令的程序中，使用静态变量来限制输入口令的次数。

239、在标准模块中编写求最大公约数的Funciton过程，然后在窗体中模块中调用，来对分数进行化简。

240、在文本框输入3种商品的单价、购买数量，计算并输入所用的总金额。

241、在文本框中输入小时、分、秒，化成共有多少秒，然后输出之。 242、编程序输出在指定范围内的3个随机函数，范围在文本框中输入。

243、写出下列各表达式的值。

1) 2*3>=8

2) “BCD”<”BCE”

3) “12345”<>”12345”&”ABC” 4) Not 2*5<>11 5) 4=4 And 5>2+2

6) 8<>5OrNot 10>12+3 7) 2^3>3And 5<10 8) 3>4 And 7=5

244、用布乐表达式表示的值分别为

1) n是m的倍数

2) n是小于正整数k的偶数 3) |x|>=|y|或x

4) x,y其中有一个小于z 5) x,y都小于z

6) y不属于〔－10，－1〕，并且y不属于〔1,10〕

本文来源：https://www.bwwdw.com/article/i2u3.html