2014安徽VB二级考试综合应用.pdf
综合应用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的功能是：在窗体上绘制如下图所示的Sin曲线图案。过程中有2条语句需要完善，请根据题意在“*question*”下面的下划线处填入正确内容后，再删除下划线，使该过程能够正确运行，不准增加或减少程序行。3.“计算”菜单项的 Click()事件调用模块中的子程序过程 calculate，“退出”菜单项的 Click()事件执行End语句，其它菜单和子菜单不执行任何操作。解：下列程序的功能是：在窗体上绘制 Sin函数曲线。Public Sub calculate()Const PI=3.14159 menu1.Cls*question*定义坐标原点位于窗体中央，窗体宽度为16，高度为 4 menu1.Scale(-8,2)-(_)menu1.Line(-7.5,0)-(7.5,0)menu1.Line(0,1.1)-(0,-1.1)画 X 轴与Y 轴For i=-7 To 7 在 X 轴上标记坐标刻度，线长0.1 menu1.Line(i,0)-(i,0.1)menu1.CurrentX=i-0.2 menu1.CurrentY=-0.1 menu1.Print i Next i menu1.CurrentX=-2*PI menu1.CurrentY=0 For i=-2*PI To 2*PI Step 0.001 x=i*question*计算函数值y=_ menu1.Line-(x,y),QBColor(12)画 Sin 曲线，红色Next i End Sub 4.已知考生文件夹中有工程文件Menu1.Vbp，其中含有一个名称为“Menu1”的窗体文件Menu1.frm,要求在其中：1.建立菜单，格式与内容如下:插入(C)数据处理图片计算退出 Ctrl+X 其中,括号内的字符为热键；分隔条的名称为 FGT，其它菜单和子菜单的名称与标题相同，但不含热键；Ctrl+X：设置为快捷键。2.将考生文件夹下的模块文件CDMK.Bas添加进本工程，其中的过程calculate的功能是：随机产生 10个020之间（包括 0和20）不重复的正整数。3.“计算”菜单项的 Click()事件调用模块中的子程序过程 calculate，“退出”菜单项的Click()事件执行 End语句，其它菜单和子菜单不执行任何操作。解：下列程序的功能是：随机产生10 个 020之间（包括 0和 20）不重复的正整数。Public Sub calculate()Dim a(1 To 10)As Integer Dim i As Integer,j As Integer Dim x As Integer,yes As Integer For i=1 To 10 Do*question*产生 020 之间的随机数x=Int(_Rnd*21_)yes=0 For j=1 To i-1 If x=a(j)Then yes=1:Exit For Next j*question*循环条件Loop While _yes=1_ a(i)=x Next i Menu1.Print 10 个数是：For i=1 To 10 Menu1.Print a(i);Next i End Sub 5.已知考生文件夹中有工程文件Menu1.Vbp，其中含有一个名称为“Menu1”的窗体文件Menu1.frm,要求在其中：1.建立菜单，格式与内容如下:插入(C)数据处理批注计算退出 Ctrl+X 其中,括号内的字符为热键；分隔条的名称为 FGT，其它菜单和子菜单的名称与标题相同，但不含热键；Ctrl+X：设置为快捷键。2.将考生文件夹下的模块文件CDMK.Bas添加进本工程，其中的过程calculate的功能是：推算一个阶梯的阶数，该阶梯每步跨2阶，最后剩 1阶；每步跨 3阶，最后剩 2阶；每步跨 4阶，最后剩 3阶；每步跨 5阶，则恰好走完。请根据题意在“*question*”下面的下划线处填入正确内容后，再删除下划线，使该过程能够正确运行，不准增加或减少程序行。3.“计算”菜单项的 Click()事件调用模块中的子程序过程 calculate，“退出”菜单项的Click()事件执行 End 语句，其它菜单和子菜单不执行任何操作。4 调 试 运 行 并 生 成 可 执 行 程 序：Menu1.exe。解：下列程序的功能是：推算一个阶梯的阶数。Public Sub calculate()Dim n As Integer*question*循环变量步长For n=5 To 100 Step _ 5_*question*题目给的条件If _n mod 2=1 and n mod 3=2 and n mod 4=3_ Then Menu1.Print 该阶梯的阶数是：&n Exit For End If Next n End Sub6.已知考生文件夹中有工程文件Menu1.Vbp，其中含有一个名称为“Menu1”的窗体文件Menu1.frm,要求在其中：1.建立菜单，格式与内容如下:插入(C)数据处理书签计算退出 Ctrl+X 其中,括号内的字符为热键；分隔条的名称为 FGT，其它菜单和子菜单的名称与标题相同，但不含热键；Ctrl+X：设置为快捷键。2.将考生文件夹下的模块文件CDMK.Bas添加进本工程，其中的过程calculate的功能是：统计一个数字字符串中各数字字符出现的次数。3.“计算”菜单项的 Click()事件调用模块中的子程序过程 calculate，“退出”菜单项的Click()事件执行 End语句，其它菜单和子菜单不执行任何操作。4调试运行并生成可执行程序：Menu1.exe。解：下列程序的功能是：统计一个数字字符串中各数字字符出现的次数。Public Sub calculate()Dim n(9)As Integer,s As String Dim i As Integer,j As Integer,c As String s=InputBox(请输入一串数字:)For i=1 To Len(s)*question*逐个取数字字符 c=mid(s,I,1)If c=0 And c 0 Then Menu1.Print 数字&i&出现的次数为&n(i)End If Next i End Sub 7.已知考生文件夹中有工程文件Menu1.Vbp，其中含有一个名称为“Menu1”的窗体文件Menu1.frm,要求在其中：1.建立菜单，格式与内容如下:插入(C)数据处理引用计算退出 Ctrl+X 其中,括号内的字符为热键；分隔条的名称为 FGT，其它菜单和子菜单的名称与标题相同，但不含热键；Ctrl+X：设置为快捷键。2.将考生文件夹下的模块文件CDMK.Bas添加进本工程，其中的过程calculate的功能是：找出 10009999中满足倒序后得到的数字是原数字倍数的数。请根据题意在“*question*”下面的下划线处填入正确内容后，再删除下划线，使该过程能够正确运行，不准增加或减少程序行。4 调 试 运 行 并 生 成 可 执 行 程 序：Menu1.exe。解：下列程序的功能是：找出10009999中满足倒序后得到的数字是原数字倍数的数。Public Sub calculate()Dim n As Integer,i As Integer,m As Integer For i=1000 To 9999 m=0 n=i Do While n 0*question*求 n的逆序，存入m m=m*10+n mod 10_ n=n 10 Loop*question*判断是否是倍数 If m mod I=0 And m i 1 Then Menu1.Print m&=&i&*&m i End If Next i End Sub 8.已知考生文件夹中有工程文件Menu1.Vbp，其中含有一个名称为“Menu1”的窗体文件Menu1.frm,要求在其中：1.建立菜单，格式与内容如下:插入(C)数据处理文件计算退出 Ctrl+X 其中,括号内的字符为热键；分隔条的名称为 FGT，其它菜单和子菜单的名称与标题相同，但不含热键；Ctrl+X：设置为快捷键。2.将考生文件夹下的模块文件CDMK.Bas 添加进本工程，其中的过程calculate的功能是：随机产生一个四位正整数，计算并输出该数各位数字之和。请根据题意在“*question*”下面的下划线处填入正确内容后，再删除下划线，使该过程能够正确运行，不准增加或减少程序行。3.“计算”菜单项的 Click()事件调用模块中的子程序过程 calculate，“退出”菜单项的Click()事件执行 End语句，其它菜单和子菜单不执行任何操作。4 调 试 运 行 并 生 成 可 执 行 程 序：Menu1.exe。解：该模块的功能是：随机产生一个四位正整数，计算并输出一个四位整数各位数字之和.Public Sub Calculate()Dim i As Integer*question*随机产生一个四位正整数 i=Int(_)+1000 i1=i Mod 10 得到该四位数的个位数 temp=Int(i/10)*question*得到该四位数的十位数 i2=temp _ temp=Int(temp/10)i3=temp Mod 10 得到该四位数的百位数 i4=temp 10 得到该四位数的千位数 s=i1+i2+i3+i4 把四个数字相加 Menu1.Print i;各位数字之和为：;s End Sub
