vb实验题第七章.docVIP

第一题 键盘输入10个整数，输出其中的最大数和平均值，并将这10个数从小到大排序输出到窗体上。要求分别编写子过程Maxnum、Avenum和ordernum来求最大数、平均值和排序，然后在窗体的单击事件调用这些函数。 第二题 编一个将其他进位制（2～16进制）整数转换成十进数的函数TrantoDec(st$，R%)，其中st为其他进位制字符串，R为进位制的基。通过调用函数实现数制转换。程序运行效果如图6-12所示。 图6-12 进位制转换运行效果 第三题 设计一个删除子串的函数过程Delstr(s1,s2)，其功能是将字符串s1中出现的s2子字符串删去。程序的界面设计及运行效果如图6-13所示。 图6-13 删除子串程序运行效果 提示： （1）首先在s1中找s2的子串，可利用Instr()函数，要考虑到s1中可能存在多个或不存在s2字符串，用Do While Instr(s1,s2)0循环结构实现。 （2）若在s1中找到s2字符串，首先要确定s1字符串的长度，因s1字符串在进行多次删除时，长度在变化；然后通过Left$()、Right()函数的调用删除s1中存在的s2字符串。 第四题 编写一子过程Insertfun(a%(), y%)，它的功能是：把y值插入到有序（升序）数组a中，插入后数组中的数仍然有序。 第一题 编一个学生成绩处理程序。要求如下： （1）程序包含3个窗体和1个标准模块。 （2）主窗体是程序的主界面，提供用户选择操作，并根据用户选择的操作打开对应功能的窗体。主窗体的界面如图7-15（a）所示。 （3）在主窗体上选择输入成绩按钮后，打开输入成绩窗口，如图7-15（b）所示。在窗体中输入一同学4门课程序的成绩后，当单击返回按钮，将输入的成绩保存在全局变量中。 （4）在主窗体上选择计算成绩按钮后，打开计算成绩窗口，如图7-15（c）所示。 （5）在标准模块中，定义存放学生四门课程成绩的全局变量，Math，Chinses，English，Comptuer。 （6）评价学生的等级按平均成绩=90为优秀、80~89为良好、70~79为中等、60~69为及格、60分以下为不合格。将评价程序写成一函数过程Function FunDj( x% ) As String，并存放在标准模块中。 图7-15（a） 图7-15（b） 图7-15（c） 第二题 设计一个由计算机来当小学低年级学生算术老师的VB应用程序，要求随机给出一系列的两个10～100数的加减，一个10～100数与一个1～10数的乘除（整除）运算的算术题。学生输入该题的答案，计算机根据学生的答案判断正确与否，并给出成绩，单击结束命令按钮，退出应用程序。程序运行界面如图7-16所示。 程序运行界面图 第三题 编写程序，要求利用文件本框检查用户口令，使用静态变量来限定输入口令的次数 实例一 设计一个字符串查找函数MyInStr(str1$,str2$,p%)，要求在某一字符串str1中，从p位置开始查找某个给定字符串str2，若找到则返回所找到的位置，否则返回结果为0。利用该函数，在文本框（Text1）中查找给定的字符串。若找到，则选中该子串，找不到，则打开相关信息。程序运行界面如图7-7所示。 图7-7 例7-1的运行结果 在窗体上画一个文本框，然后编写程序。程序运行后，如果按下键盘上的A，B，C，D（或a,b,c,d）键，则在文本框中显示“EFDH”。 编写一个程序，当同时按下Alt键和F6键或者同时按下Shift键和F6键时，在窗体上显示“再见！”，并中止程序的运行。 做一个非常完善的用户登录窗体。