2014安徽vb二级考试综合应用new

《2014安徽vb二级考试综合应用new》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、综合应用1.已知考生文件夹中有工程文件Menu1.Vbp，其中含有一个名称为“Menu1”的窗体文件Menu1.frm，要求在其中：1.建立菜单，格式与内容如下：调试(D)数据处理逐语句计算──────退出Ctrl+X其中，括号内的字符为热键；分隔条的名称为FGT，其它菜单和子菜单的名称与标题相同，但不含热键；Ctrl+X：设置为快捷键。2.将考生文件夹下的模块文件CDMK.Bas添加进本工程，其中的过程calculate的功能是：求s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值

2、。请根据题意在“*****question*****”下面的下划线处填入正确内容后，再删除下划线，使该过程能够正确运行，不准增加或减少程序行。3.“计算”菜单项的Click()事件调用模块中的子程序过程calculate，“退出”菜单项的Click()事件执行End语句，其它菜单和子菜单不执行任何操作。4．调试运行并生成可执行程序：Menu1.exe。解：'下列程序的功能是：求s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。PublicSubCalculate()DimnAsIn

3、teger,sAsIntegers=0n=10Fori=1Ton'*****question*****'内循环上限Forj=1To_i_'*****question*****'求和s=_s+j___NextjNextiMenu1.PrintsEndSub2.已知考生文件夹中有工程文件Menu1.Vbp，其中含有一个名称为“Menu1”的窗体文件Menu1.frm,要求在其中：1.建立菜单，格式与内容如下:排序(S)数据处理√升序计算──────退出Ctrl+X其中,括号内的字符为热键；分隔条的名称为FG

4、T，其它菜单和子菜单的名称与标题相同，但不含热键；√：复选标记；Ctrl+X：设置为快捷键。2.将考生文件夹下的模块文件CDMK.Bas添加进本工程，其中的过程calculate的功能是：一只小球从10米高度上自由落下，每次落地后反弹回原高度的40％，再落下。编程计算小球在第8次落地时，共计经过了多少米。3.“计算”菜单项的Click()事件调用模块中的子程序过程calculate，“退出”菜单项的Click()事件执行End语句，其它菜单和子菜单不执行任何操作。4．调试运行并生成可执行程序：Menu1

5、.exe。解：'下列程序的功能是：一只小球从10米高度上自由落下，每次落地后反弹回原高度的40％，再落下。'编程计算小球在第8次落地时，共计经过了多少米。PublicSubCalculate()h=10Sum=10'第1次下落高度'*****question*****'求余下7次往返高度Fori=1To_7__h=0.4*h'*****question*****'计算总高度Sum=Sum+_2*h_NextiMenu1.Print"小球第8次落地时，共经过了";Sum;"米"EndSub3.已知考生文件

6、夹中有工程文件Menu1.Vbp，其中含有一个名称为“Menu1”的窗体文件Menu1.frm,要求在其中：1.建立菜单，格式与内容如下：文件(F)数据处理打开计算──────退出Ctrl+X其中,括号内的字符为热键；分隔条的名称为FGT，其它菜单和子菜单的名称与标题相同，但不含热键；Ctrl+X：设置为快捷键。2.将考生文件夹下的模块文件CDMK.Bas添加进本工程，其中的过程calculate的功能是：在窗体上绘制如下图所示的Sin曲线图案。过程中有2条语句需要完善，请根据题意在“*****ques

7、tion*****”下面的下划线处填入正确内容后，再删除下划线，使该过程能够正确运行，不准增加或减少程序行。3.“计算”菜单项的Click()事件调用模块中的子程序过程calculate，“退出”菜单项的Click()事件执行End语句，其它菜单和子菜单不执行任何操作。解：'下列程序的功能是：在窗体上绘制Sin函数曲线。PublicSubcalculate()ConstPI=3.14159menu1.Cls'*****question*****定义坐标原点位于窗体中央，窗体宽度为16，高度为4menu1

8、.Scale(-8,2)-(______)menu1.Line(-7.5,0)-(7.5,0)menu1.Line(0,1.1)-(0,-1.1)'画X轴与Y轴Fori=-7To7'在X轴上标记坐标刻度，线长0.1menu1.Line(i,0)-(i,0.1)menu1.CurrentX=i-0.2menu1.CurrentY=-0.1menu1.PrintiNextimenu1.CurrentX=-2*PImenu1.CurrentY=0