计算机等级考试复习资料-vb50题

《计算机等级考试复习资料-vb50题》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VB上机考试程序调试题样题(改错或填空)说明：1．在考生目录中有一个标准模块程序Modify1.BAS或Modify2.BAS。2．要求学生建立一工程，将这一模块添加到工程中。如果你是通过双击标准模块程序Modify?.BAS进入VisualBasic程序设计系统的，则首先需要添加一个窗体模块。3．将该标准模块程序Modify?.BAS代码中用---n---（n为1，2，3，4，5）部分删除后改为合适的内容或将用****错误n****标示的下一语句中的错误改正，并在窗体模块中编写代码（常常写在窗体的Click()事件中）调用标准模块中的sub过程或自定义函数（如果在标准模块程序中有多

2、个过程或函数，要注意调用的先后顺序，否则得不到正确结果），调试运行程序，使其能输出正确结果。[题1]aboveave过程是产生30个1--100之间的随机整数，计算这30个数的平均值然后，找出30个数中数值大于平均值的数据,并统计出这些数据的个数OptionExplicitPublicSubaboveave()Dimx(30)AsIntegerDimsumAsInteger,aveAsInteger'平均值取整数DimiAsIntegerDimcountAsInteger'在平均值之上的数据个数RandomizeFori=1To30x(i)=Int(Rnd*100)+1Nextisu

3、m=0Fori=1To30sum=---------1---------Nextiave=--------2---------'5个一行打印出原始数据，打印平均值Fori=1To30Form1.Printx(i);Space(2);IfiMod5=0ThenForm1.PrintNextiForm1.Print"平均值：";ave'找出并5个一行打印在平均值之上的数据，打印统计的个数Form1.Print"在平均值之上的数据是:"Fori=1To30Ifx(i)>aveThen浙江大学城市学院VB等级考试复习资料第33页共33页---------3---------Form1.Pri

4、ntx(i);Space(2);If------4--------ThenForm1.PrintEndIfNextiForm1.PrintForm1.Print"共有";count;"个在平均值之上."EndSub[题2]rn过程通过调用函数isLeapYear判断某年是否是闰年，若是,则打印"今年是润年"，否则,打印"今年不是闰年"。OptionExplicitPublicSubrn()Constyear=2023If----1----ThenForm1.Print"今年是闰年"ElseForm1.Print"今年不是闰年"EndIfEndSubFunctionisLeapYear

5、(yAsInteger)AsBooleanIf----2----Or(----3----And----4----)ThenisLeapYear=FalseElseisLeapYear=TrueEndIfEndFunction[题3]ComMulti过程是求任意两个正整数的最小公倍数，求最小公倍数的一种方法是先求出两个数的最大公约数，两个数的乘积除以最大公约数的商即为最小公倍数。OptionExplicitPublicSubComMulti()DimmAsInteger,nAsInteger'任意两个正整数DimiAsIntegerDimmultiAsInteger'最小公倍数'输入两

6、个正整数，要求m与n都必须大于零Dom=Val(InputBox("m="))n=Val(InputBox("n="))LoopWhile------------1----------multi=---------2-----------Form1.Printm;"和";n;"的最小公倍数是：";multiEndSub浙江大学城市学院VB等级考试复习资料第33页共33页'Div函数过程求任意两个正整数m和n的最大公约数PublicFunctionDiv(mAsInteger,nAsInteger)AsInteger'该函数过程用于求任意两个正整数的最大公约数。DimiAsIntege

7、r'先将两个整数中的较小数假设为最大公约数，再依次往下'寻找能同时除尽m和n的数即为最大公约数----------3------------Ifn0OrnModDiv<>0-----------4----------LoopEndFunction[题4]find过程是用于从1到10000中找出这样的数，该数各个位的数字的阶乘相加之和等于该数，并将结果输出。OptionExplicitPubli