VB上机实验题.docVIP

实验一 第一题 编一程序，程序运行的初始界面，如图1-15所示，当用户在文本框输入姓名，例如输入张三，单击确定按钮，则程序的运行情况如图1-16所示，如果单击结束按钮，即结束程序运行。 图1-15 程序运行后初始界面 图1-16 单击确定按钮后的程序界面 第二题： 编一程序，在屏幕上显示你好，Visual Basic系统，字体大小设为三号、颜色为红色，（见图1），单击窗体后，在窗体上显示初次见面，请多关照！，同时窗体上出现两个命令按钮继续和结束，如图2所示，如果单击继续按钮，则又回到初始运行状态；单击结束按钮即结束程序运行。 图1 程序运行后初始界面 图2 单击窗体后的程序界面 实验二 创建如图所示界面（含一个标签Label1，两个文本框Text1和Text2，两个按钮Command1和Command2）。 要求：在文本框Text1中输入内容，文本框Text2的内容同步改变；若文本框Text2的内容改变，则标签的标题也同步变化；单击“清空”按钮，可以清空两个文本框中的内容，同时将文本框Text1设置为当前对象；单击“结束”按钮可以结束程序。 2、创建如图所示界面： 要求：在列表框LIST1中选中一项后，单击按钮“”可以将此项移到LIST2中，单击按钮“”可以将LIST1中的所有项目移到LIST2中；另两个按钮的功能与此相反。 3、创建如图所示界面： 在文本框中输入内容后单击“确定”按钮，可以将内容添加到列表框中；双击列表框中的某一项，可以将此列表项移到组合框中；单击“清空”按钮可以清除文本框、列表框与组合框中的内容，并且将焦点设置在文本框上；单击“退出”按钮可以结束程序的运行。 实验三 完成一个函数计算器（实验3-1）； 已知函数，试设计一个界面，输入变量x、y、z的值，计算得到函数的值，界面参考如图所示； 字符串S=”xyzanfh123ancrimf”，请将字符串中的“123”替换成“ABC”，界面参考如图所示； 输入一个整数n（2~6之间），然后随机生成一个n位整数，界面参考如图所示； 输入一个两位正整数，交换个位数与十位数后再输出。 实验四 1、界面如图，在文本框Text1中输入一个三位正整数，单击“判断”按钮，结果如图所示，如果此数是一个水仙花数，则显示“XXX是水仙花数”，否则显示“XXX不是水仙花数”。“清空”按钮可以清空文本框中的内容，并且焦点设置在Text1上。水仙花数满足这样的条件：各个数位上数字的立方和等于该数本身。如：153=13+53+33。 完成实验指导书中的实验4-1到实验4-4。 3、找出1000以内所有的同构数。 实验五 完成实验4-6； 完成实验4-7； 求两个自然数的最大公约数与最小公倍数，参考界面如图所示。 4、编写一段加密代码以实现对四位数字的加密。加密的过程如下：输入一个四位整数，将每位替换成该位与7的和对10的余数，然后将第一位与第三位数字位置互换，第二位与第四位位置互换，最后显示加密后的数字。界面参考如图： 5、编写程序求一个字符串中的最长单词。假设字符串中只有字母与空格，单词之间用空格分隔。 实验六 1、百钱百鸡问题。公鸡三元一只，母鸡两元一只，小鸡一元三只，一百块钱买了一百只鸡，请问公鸡、母鸡、小鸡各买多少只？ 2、计算圆周率π ，计算精度到第n项减1的绝对值小于10-5为止。 3、生成一个四行五列的两位随机整数的数组，分别输出到图片框与多行文本框中。 4、编程生成如下几个矩阵。 实验七 1、随机生成一个一维数组（十个元素），要求其中的数为递增的。如：11、23、37、43、43、50……。 2、随机生成一个两两位整数的二维数组，输入一个待查找的数，找出其位置，并显示，如果找不到，则输出“未找到！”。界面如图所示，请完成相关按钮的功能。 3、找出二维数组中的最大值与最小值及其位置，界面自行设计。 4、鞍点问题：实验5-4。 5、随机产生10个数，寻找能被3整除的最大数，如果没有，则显示“无相关的数！”。界面自行设计。 实验八 1、实验5-3：冒泡排序。 2、合并排序。已知数组A与B均按升序排列，现将A与B数组合并成一个新的数组C，要求数组C中的元素也是按升序排列。（数组A与B的个数自己定） 3、求一个N*N阶的矩阵A的转置矩阵。 4、实验5-6：找指定数对。 实验九 1、插入法排序。 2、找出5000以内的所有亲密对数。所谓亲密对数就是指两个数A与B，其中A的因子和等于B，B的因子和等于A。 3、实验书P.80，第5、6题。 实验十 1、找出100以内所有素数添加到列表框中。程序中至少定义一个用于判断素数的自定义函数。 2、找出所有水仙花数。程序中至少定义