全国计算机等级考试二级VB模拟试卷机试

1、2021年9月全国计算机等级考试二级VB模拟试卷机试预测版1根本操作2小题，每题15分，共计30分注意：下面出现的考生文件夹均为c:wexam25160001。请根据以下各小题的要求设计Visual Basic应用程序包括界面和代码。1在Form1的窗体上画一个名称为P1的图片框，然后建立一个主菜单，标题为操作，名称为Op，该菜单有两个子菜单，其标题分别为显示和去除，名称分别为Dis和Clea。编写适当的事件过程，程序运行后，如果单击操作菜单中的显示命令，那么在图片框中显示计算机考试；如果单击去除命令，那么去除图片框中的信息。程序的运行情况如图15-1和图15-2所示。注意：存盘时必须存放在考

2、生文件夹下，工程文件名为，窗体文件名为。程序中不得使用任何变量。 图 15-1 图 15-22在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加4个工程，分别为早上好、上午好、中午好和下午好。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，那么把该项再添加到列表框中。程序的运行情况如图15-3所示。注意：存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。图 15-32简单应用2小题，每题20分，计40分注意：下面出现的考生文件夹均为c:wexam25160001。1在考生文件夹下有工程文件及窗体文件，该程序是不完整的，请在有？号的

3、地方填入正确内容，然后删除？及所有注释符即 号，但不能修改其他局部。存盘时不得改变文件名和文件夹。此题描述如下：在名称为Form1的窗体上有三个Label控件和两个命令按钮，Label控件均为提示信息。命令按钮CMDstart和CMDexit，程序运行后，单击开始按钮，程序自动利用循环计算1+1/2+1/3+.+1/10的结果，并把结果写入到考生文件夹下文件中。执行完毕开始按钮变成完成，且无效变灰。程序运行界面如图15-4所示。图 15-4Private Sub CmdEXIT_Click() EndEnd SubPrivate Sub Cmdstart_click() Dim E As Si

4、ngle, J As Integer Dim T As Single Open App.Path & ? For ? As ? E = ? T = 1 For J = 2 To 10 Step 1 T = 1 / J E = E + T Next J Write #1, ? Close #1 CMDSTART.Caption =? CMDSTART.Enabled = ?End Sub答案：Private Sub CMDEXIT_Click() EndEnd SubPrivate Sub CMDstart_click() Dim E As Single, J As Integer Dim T

5、As Single Open App.Path & & result.txt For Output As #1 E = 1 T = 1 For J = 2 To 10 Step 1 T = 1 / J E = E + T Debug.Print T, E Next J Write #1, E Print E Close #1 CMDSTART.Caption = 完成 CMDSTART.Enabled = FalseEnd Sub2在考生文件夹下有工程文件及窗体文件，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符即号，但不能修改其他局部。存盘时不得改变文件名和文件夹。此

6、题描述如下：程序启动时文本框的默认文字为请输入您要设置的文本，默认的字体为仿宋_GB2312，字号为五号。程序运行过程中可以修改文本框的内容在单击初始化时恢复启动时的状态；在单击去除后，文本框的内容为空，并恢复默认的字体，字型号。选择相应的字体和字型号可以设置文本框内文字的字体和属性。程序运行界面如图15-5所示。图 15-5Option ExplicitPrivate Sub Command1_Click() Option1.Value = True Option6.Value = True Text1.Text = 请输入您要设置的文本End SubPrivate Sub Command2

7、_Click() Option1.Value = True Option6.Value = True Text1.Text = ?End SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() Option1.Value = True Option6.Value = True Text1.Text = 请输入您要设置的文本End SubPrivate Sub Option1_Click() Text1.FontName = 仿宋_GB2312End SubPrivate Sub Option2_Click() Text

8、1.FontName = ?End SubPrivate Sub Option3_Click() Text1.FontName = 隶书End SubPrivate Sub Option4_Click() Text1.FontName = 黑体End SubPrivate Sub Option5_Click() Text1.FontSize = 5.5End SubPrivate Sub Option6_Click() Text1.FontSize = ?End SubPrivate Sub Option7_Click() Text1.FontSize = 16End SubPrivate S

9、ub Option8_Click() Text1.FontSize = 42End Sub答案：Option ExplicitPrivate Sub Command1_Click() Option1.Value = True Option6.Value = True Text1.Text = 请输入您要设置的文本End SubPrivate Sub Command2_Click() Option1.Value = True Option6.Value = True Text1.Text = ?End SubPrivate Sub Command3_Click() EndEnd SubPriva

10、te Sub Form_Load() Option1.Value = True Option6.Value = True Text1.Text = 请输入您要设置的文本End SubPrivate Sub Option1_Click() Text1.FontName = 仿宋_GB2312End SubPrivate Sub Option2_Click() Text1.FontName = ?End SubPrivate Sub Option3_Click() Text1.FontName = 隶书End SubPrivate Sub Option4_Click() Text1.FontNam

11、e = 黑体End SubPrivate Sub Option5_Click() Text1.FontSize = 5.5End SubPrivate Sub Option6_Click() Text1.FontSize = ?End SubPrivate Sub Option7_Click() Text1.FontSize = 16End SubPrivate Sub Option8_Click() Text1.FontSize = 42End Sub3综合应用1小题，计30分注意：下面出现的考生文件夹均为c:wexam25160001。在考生文件夹下有工程文件及窗体文件，该程序是不完整的，

12、请在有？号的地方填入正确内容，然后删除？及所有注释符即 号，但不能修改其他局部。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否那么没有成绩。此题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件存放一些字符。按开始按钮后,能从考生文件夹下的中读出数据并分别统计出其中数字、大写字母、小写字母和其他类型字符的个数，将结果写入考生文件夹下的文件中以标准格式在一行中输出；执行完毕，开始按钮变成完成，且无效变灰。程序运行界面如图15-6所示。图 15-6Private Sub COMEXIT_Click() EndEnd SubPrivate Sub

13、 COMSTART_Click() Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer myfile1 = App.Path & & prog8a.dat myfile2 = App.Path & & prog8b.dat Open myfile1 For ? As #1 Open myfile2 For ? As #2 While Not EOF(1) Input ?, Ch$ If Asc(Ch$) = 48 And Asc(Ch$) = 65 And Asc(Ch$) = 97 And Asc(Ch$) = 48 And Asc(Ch$) = 65 And Asc(Ch$) = 97 And Asc(Ch$) = 48 And Asc(Ch$) = 65 And Asc(Ch$) = 97 And Asc(Ch$) = 48 And Asc(Ch$)