1、国家二级 VB机试（上机操作）模拟试卷 27及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个文本框，其名称为 Textl，然后通过属性窗口设置窗体和文本框的属性，实现如下功能： 在文本框中可以显示多行文本； 在文本框中显示垂直滚动条； 文本框中显示的初始信息为 ”程序设计 ”； 文本框中显示的字体为三号规则黑体； 窗体的标题为 ”设置文本框属性 ”，完成设置后的窗体如图2-147所示。要求：不编写任何代码。注意： 存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sj
2、tl frm。 2 在名称为 Forml的窗体上画两个命令按钮，如图 2-148(a)所示，其名称分别为Cmdl和 Cmd2，编写适当的事件过程。程序运行后，如果单击命令按钮 Cmdl，则可使该按钮移到窗体的左上角 (只允许通过修改属性的方式实现 )；如果单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 2倍。程序的运行情况如图 2-148(b)所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。其
3、功能是产生 30个 0 1000的随机整数，放入 个数组中，然后输出其中的最大值。程序运行后，单击命令按钮 (名称为 Commandl，标题为 ”输出最大值 ”，如图 2-149所示 )，即可求出其最大值，并在窗体上显示出来。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把 修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出 11000范围内能被 5整
4、除或能被 7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算能被 5整除或能被 7整除的整数的个数的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun( )和 End Function之间填入编写 的若干语句。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm，此外还有一个名为 datain txt的文本文件，其内容如下：3243765828129857314253647586971324354657687
5、9805937程序运行后，单击窗体，将把文件 datain txt中的数据输入到二维数组 Mat中，在窗体上按 5行、 5列的矩阵形式显示出来，并输出矩阵左上右下对角线上的数据，如图 2-150所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求： 去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 27答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个文本框，并设置它的
6、相关属性，其属性及值如表 3 82所示。 步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-83在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码： Private Sub Cmdl_Click( )Cmdl Left=0Cmdl Top=0End Sub Private Sub Cmd2_Click( )Cmd2 Width=Cmd2 Width+Cmd2 WidthCmd2 Height=Cmd2 Height+Cmd2 HeightEnd Sub步骤 3：按要求将文件保存
7、至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序 中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： arrN(i)=Int(Rnd*1000) Max=arrN(1) If arrN(i) Max Then 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp，在代码编辑窗口，编辑 Fun函数的内容。 参考代码： For i=1 To 1000 If i Mod 5=0 Or i Mod 7=0 Then Y=Y+ 1 End If Next i Fun=Y 步骤 2：按要求将文件 保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Dim mat (M， N) Open App Path & “ ” & “datain txt” For Input As#1 Input#1， mat (i， j) If i=j Then Print Tab(5*j)； mat(i， j)； 步骤 2：按要求将文件保存至考生文件夹中。
