国家二级VB机试（上机操作）模拟试卷563vb开始按钮代码 (题后含答案及解析)
题型有：1.vbp，窗体文件名为sjt1.frm。    （2）在名称为Form1的窗体上利用形状控件画一个矩形，名称为Shape1，高和宽分别为1000、1700；再画两个命令按钮，名称分别是 Command1、Command2，标题分别为“圆”、“椭圆”，如图1－309（a）所示。请编写适当的事件过程使得在运行时，单击“圆”按钮，则矩形变为一个圆；单击“椭圆”按钮，则矩形变为一个椭圆（如图1－309（b）所示）。要求程序中不得使用变量，每个事件过程中只能写一条语句。    注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
正确答案：第1小题  【操作步骤】    步骤1：新建一个“标准EXE”工程，按表2－165在窗体中画出控件并设置其相关属性。    步骤2：按要求将文件保存至考生文件夹中。    第2小题    【操作步骤】    步骤1：新建一个“标准EXE”工程，按表2－166在窗体中画出控件并设置其相关属性。    步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。    参考代码：    Private Sub Command1_Click(  )    Shape1.Shape = 3    End Sub    Private Sub Command2_Click(  )    Shape1.Shape = 2    End Sub    步骤3：按要求将文件保存至考生文件夹中。 
简单应用题
2． （1）在考生目录下有一个工程文件sjt3.vbp。窗体上有三条直线，是一个数组，数组的名称为Line1。在运行时，用鼠标单击其中一条线的任何位置，则以单击的点为起始点，画一个正弦曲线（如图1－310所示）；若鼠标单击在直线之外，则不画正弦曲线。    文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。文件中的drawsin 过程的作用是画一条正弦曲线，可以直接调用。    注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。  （2）在考生文件夹下有一个工程文件sjt4.vbp。窗体上有三个文本框Text1、Text2、Text3，其中Text3可显示多行，并已经输入了内容（如图1－311所示），Text1用来输入要查的内容，Text2用来输入要替换的新内容。程序运行时，在Text1、Text2中输入文字，单击“替换”按钮，则在Text3中到Text1中的内容，并用Text2 中的内容替换，若未到，则不替换。此外窗体上还有两个单选按钮，名称依次为Option1、Option2，标题依次为“第1个”和“全部”。程序运行后，若Option1被选中，则只替换Text3中第一个匹配的字串；若Option2 被选中，则替换Text3中所有匹配的字串。    在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。    注意：不能修改程序中的其他部分和控
件的属性。最后把修改后的文件按原文件名存盘。
正确答案：第1小题    【操作步骤】    步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口中，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。    参考代码：    For k = 0 To 2    If Y = Line1(k).y1 Then    Call drawsin(X, Y)    步骤2：按要求将文件保存至考生文件夹中。    第2小题    【操作步骤】    步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。    参考代码：    k = 1    Text3.SelLength = Len(Text1.Text)    Text3.SelText = Text2.Text    步骤2：按要求将文件保存至考生文件夹中。 
综合应用题
3． 在考生目录下有一个工程文件sjt5.vbp，其功能是：单击“读数据”按钮，则把考生目录下的文件in5.dat 中的100个整数读到数组a中；单击“计算”按钮，则出其中与所有数的平均值（平均值截尾取整）最接近的整数，放到文本框中；单击“存盘”按钮则把计算结果存盘。窗体中给出了所有控件（如图1－312所示）和“读数据”按钮及“存盘”按钮的Click事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。    注意：不得修改已经存在的程序，在结
束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。    提示：与平均值最接近的数可能大于也可能小于平均值。
正确答案：【操作步骤】    步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口中，编写“计算”按钮的单击事件过程。    参考代码：    Private Sub Command2_Click(  )    Dim i, j, k, i1 As Integer    j = 0    For i = 1 To 100    j = j + a(i)    Next i    j = Fix(j / 100)    k = Abs(a(1) - j)    i1 = 1    For i = 2 To 100    If Abs(a(i) - j) < k Then    k = Abs(a(i) - j)    i1 = i    End If    Next i    Text1.Text = a(i1)    End Sub    步骤2：按要求将文件保存至考生文件夹中。    步骤3：按<F5>键运行程序，先单击“读数据”按钮，再单击“计算”按钮，最后单击“存盘”按钮。 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。