2014安徽VB二级考试综合应用.docVIP

综合应用 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)的值。 请根据题意在“*****question*****”下面的下划线处填入正确内容后，再删除下划线，使该过程能够正确运行，不准增加或减少程序行。 3.“计算”菜单项的Click()事件调用模块中的子程序过程calculate，“退出”菜单项的Click()事件执行End语句，其它菜单和子菜单不执行任何操作。 4．调试运行并生成可执行程序：Menu1.exe。 解：下列程序的功能是：求s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。 Public Sub Calculate() Dim n As Integer, s As Integer s = 0 n = 10 For i = 1 To n *****question***** 内循环上限 For j = 1 To _i_ *****question***** 求和 s = _s+j___ Next j Next i Menu1.Print s End Sub 2. 已知考生文件夹中有工程文件Menu1.Vbp，其中含有一个名称为“Menu1”的窗体文件Menu1.frm,要求在其中： 1.建立菜单，格式与内容如下: 排序(S) 数据处理 √升序 计算 ────── 退出 Ctrl+X 其中,括号内的字符为热键； 分隔条的名称为FGT，其它菜单和子菜单的名称与标题相同，但不含热键； √：复选标记； Ctrl+X：设置为快捷键。 2. 将考生文件夹下的模块文件CDMK.Bas添加进本工程，其中的过程calculate的功能是：一只小球从10米高度上自由落下，每次落地后反弹回原高度的40％，再落下。编程计算小球在第8次落地时，共计经过了多少米。 3.“计算”菜单项的Click()事件调用模块中的子程序过程calculate，“退出”菜单项的Click()事件执行End语句，其它菜单和子菜单不执行任何操作。4．调试运行并生成可执行程序：Menu1.exe。 解： 下列程序的功能是：一只小球从10米高度上自由落下，每次落地后反弹回原高度的40％，再落下。 编程计算小球在第8次落地时，共计经过了多少米。 Public Sub Calculate() h = 10 Sum =10 第1次下落高度 *****question***** 求余下7次往返高度 For i = 1 To _7__ h = 0.4 * h *****question***** 计算总高度 Sum = Sum + _2*h_ Next i Menu1.Print 小球第8次落地时，共经过了; Sum; 米 End Sub 3. 已知考生文件夹中有工程文件Menu1.Vbp，其中含有一个名称为“Menu1”的窗体文件Menu1.frm,要求在其中： 1. 建立菜单，格式与内容如下： 文件(F) 数据处理 打开 计算 ────── 退出 Ctrl+X 其中,括号内的字符为热键； 分隔条的名称为FGT，其它菜单和子菜单的名称与标题相同，但不含热键； Ctrl+X：设置为快捷键。 2. 将考生文件夹下的模块文件CDMK.Bas添加进本工程，其中的过程calculate的功能是：在