国家二级VB机试（上机操作）模拟试卷157 (题后含答案及解析)
顺丰速运单号快速查询全部题型    2. 基本操作题 3. 简单应用题 4. 综合应用题
飞车情侣名字大全基本操作题
1． (1)在名称为Form1的窗体上添加一个名称为Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。    注意：存盘时必须存放在考生文件夹下，上程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。    (2)在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动涮整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Commahd1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下有两个图标文件，其名称分别为“Misc34．ico”和“Misc37．ico”。程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Misc37．ieo文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34．ico文件，如图所示)；单击“清除”按钮则清除图像框中的图案，请编写相应控件的Click事件过程，实现上述功能。    注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，
窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】    步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图3．32所示。    程序中用件的控件及属性见表3．47。    步骤2：调试并运行程序，关闭程序后按题目要求存盘。    (2)【操作步骤】    步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3．48。    步骤2：打开代码编辑窗口，在指定位置编写如下代码。    参考答案    Private Sub Command1_Click(  )    Image1．Picture＝LoadPicture(App．path＆”＼MiSC 34．iCO”)’加载图片    End Sub    Private Sub Command2_Click(  )    Imagel．Picture＝LoadPicture(App．path＆”＼Misc37．ico”金妍儿资料)    End Sub    Private Sub Command3_Click(  )    Set Image1．Picture＝Nothing’清除Imagel中的图片    End Sub    步骤3：调试并运行程序，关闭程序后按题目要求存盘。 
简单应用题
2． (1)在考生文件夹下有一个工程文件sjt3．vbp。其窗体文件上有一个标题为“得分”的框架，在框架中有一个名称为Text1的文本框数组，含6个文本框控件；文本框Text2用米输入
难度系数。程序运行时，在左边的6个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框Text3中(如图所示)。    计算方法：    去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以雉度系数。最后结果保留到第2位小数，不四舍五入。    注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。    (2)在考生文件夹下有一个工程文件st4．vbp。窗体上的控什如图所示。程序运行时，若选中“累加”单选按钮，则“10”、“12”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后，单击“计算”按钮，则相应的计算结果在文本框中显示(例如，选中“累加”和“2000”，则计算1＋2＋3＋…＋2000，选中“阶乘”和“10”，则计算10!)。单击“存盘”按钮则把文本框中的结果保存到考生文件夹下的out4．dat文件中。    要求：编写“计算”按钮的Click事件过程。    注意：不得修改已经存在的程序，拒结束程序运行之前，必须用“存盘”按钮存储计箅结果，否则尤成绩。最后，程序按原文件名存盘。
正确答案：(1)【操作步骤】    步骤1：打开本题工程文件。    步骤2：打丌代码编辑窗口，去掉程序中的汴释符“‘”，将问号改为正确的内容。    参考答案    Private Sub Commandlcli
ck(  )    Dim k As Integer，S As Single，a As Single，b As Single    a＝Val(Text1(0)．Text)’将第一个文本框的值作为最大值赋予a    s＝a    b＝a’将第一个数作为最小值赋予b    For k＝1 To 5’剩余文本框作为循环次数的条件    s＝s＋Val(Text1(k)．Text)    If a＜Val(Text1(k)．Text)Then    ‘取出每个文本框的值与最大值比较，求最大值    a＝Val(Text1(k)．Text)    End If    If b＞Val(Text1(k)．Text)Then    b＝Val(Text1(k)．Text)    End If    Next k    s＝(s－a－b)／4    根据要求去掉一个最高分和一个最低分后求四科的平均分    s＝s*3*Val(Text2．Text)    根据题意此处应填平均分    Text3＝Int(s*100)／100    ‘二级VBInt(N)是求小于或等于N的最大整数，同时将最后结果显示在Text3上    End Sub    步骤3：调试并运行程序，关闭程序后按题目要求存盘。    (2)【操作步骤】    步骤1：打开本题工程文件；    步骤2：打开代码编辑窗口，在指定位置编写如下代码。    参考答案    Private Sub Command1_Click(  )    Dim i As Integer    Dim j As Integer    DimmAs Long    Dim sumAs Long    m＝1    If n＝10 Or n＝12 Then’通过判断n的值，可确定使用什么操作    For i＝2 To n    m=i*m    Next i＝求n的阶乘    Text1．Text＝m    End If    sum＝0    If n＝2000 Or n＝1000 Then    For j＝1 To n    sum＝sum＋j    Next j’求l到n的和    Text1．Text＝sum    End If    End Sub    步骤3：调试并运行程序，关闭程序后按题目要求存盘。 
综合应用题
3． 在考生文件件下有一个工程文件sjt5．vbp。其功能是产生并显示一个数列的前n项。数列广：牛的规律是：数列的前2项是小于10的正整数，将此两数相乘，若乘积＜10，则以此乘积作为数列的笫3项；着乘积≥10，则以乘积的十佗数为数列的第3项，以乘积的个位数为数列的第4项。再用数列的最后两项相乘，用上述规则形成后面的项，直至产生了第n项。窗体上部从左到右3个文本框的名称分别为Text1、Text2、Text3，窗体上部的文本框名称为Text4。程序运行时，在Text1、Text2中输人数列的前两项，Text3中输入要产生的项数n，单击“计算”按钮则产生此数列的前n项，并显示在Text4中。如图所示。    已经给出了伞部控件，但程序小完整，请去掉程序中的生释符，把程序中的?改为止确的内容。    注意：不得修改原有程序和控什的属性。最后把修改后的文件按原文件名存盘。
正确答案：【操作步骤】    步骤1：打开本题工程文件。    步骤2：打开代码编辑窗口，去掉程序中的注释符“‘”，将问号改为正确的内容。    参考答案    Private Sub Command1．C1ick(  )    Text4＝”“    a＝Val(Text1)    b＝Val(Text2)    n＝Val(Text3)    Text4＝Text4＆a＆”“&b    ‘文本框Text4中第二项的内容一定是b    k＝2    Do While k＜n    c＝a*b    k＝k＋1
    If C＜10 Then’判断乘积是否小于10    Text4＝Text4＆”“＆C’若小于10．则直接接到Text4文本末尾    a＝b’将b赋给a成为下二次循环的前一项    b＝c’将c作为下一次循环的后一项    Else    d＝C＼10’当C大于10，则取整    Text4＝Text4＆”“＆d    a＝d’将十位数作为下一次循环的前一项    k＝k＋1    If k＜＝n Then    ‘当k＞n时，则数列数已够，不用求下一项    d＝c Mod 10    Text4＝Text4＆”“＆d    b＝d将余数作为下一次循环的后一项    End If    End If    Loop    End Sub    步骤3：调试并运行程序，关闭程序后按题目要求存盘。 
she解散了