发布时间 : 星期二 文章2013计算机二级(VB)考试机试题库更新完毕开始阅读5845ee61af1ffc4ffe47ac8d
'arr2(i) = CInt(？） ***** arr1(i) ***** Next i
'M = FindMax(？) ***** arr2 ***** Print \最大值是： \； M End Sub
*****第26套 综合应用题
在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为\读入数据\、\计算并输出\和\存盘\，然后添加一个文本框(名称为Text1，MultiLine属性设置为True，scrollBars属性设置为2)(如图所示)。程序运行后，如果执行\读入数据\命令，则读入datain1.txt文件中的100个整数，将其放入一个数组中，数组的下界为1；如果单击\计算并输出\按钮，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和显示在窗体上；如果单击\存盘\按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp。窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sjt5.vbp，窗体文件名仍保存为sjt5.frm。
先定义声明语句： dim sum as integer ' ***** 需考生编写的程序 *****
Private Sub Calc_Click() Text1.Text = \ For i = 1 To 100 Step 2
Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum End Sub
Private Sub Read_Click() ReadData End Sub
Private Sub Save_Click() WriteData \End Sub
*****第27套 基本操作题
（1）在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”；再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300、宽均为800.如图所示。
请在属性窗口中设置适当属性满足以下要求：
1）窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；
2）在任何情况下，按回车键都相当于单击“是”按钮；按ESC键都相当于单击“否”按钮。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个文本框，名称为Text1，其宽度为1000；再画一个滚动条，名称为HS1。其刻度值的范围是1000－2000。将编写滚动条的Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图所示。程序中不能使用任何变量，事件过程中只能写一条语句。
注意：保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 *****第27套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上有两个列表框，名称分别为List1、List2，在List2中已经预设了内容；还有两个命令按钮，名称分别为C1、C2，标题分别为“添加”、“清除”。如图所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；
若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 Private Sub C1_Click() Dim k As Integer k = 0
' While (k < List2.?) ***** listcount ***** ' If ?.Selected(k) = True Then ***** list2 ***** List1.AddItem List2.Text
' List2.RemoveItem ? ***** list2.listindex ***** End If k = k + 1 Wend End Sub
Private Sub C2_Click() List2.AddItem List1.Text
' List1.RemoveItem List1.? ***** listindex ***** End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，请在Form1窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为“10！”、“11！”、“12！”，Index属性分别为0、1、2；再画一个名称为C1的命令按钮，标题为“计算”；画一个名称为Text1的文本框，如图所示。程序的功能是在选定一个单选按钮并单击“计算”按钮后，可以计算出相应的阶乘值，在Text1中显示该阶乘。请画出上述控件并编写程序。
注意：考生不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。
Private Sub C1_Click( ) Dim k, n As Integer Dim temp As Double temp = 1
If Op1(0).Value = True Then n = 10 If Op1(1).Value = True Then n = 11 If Op1(2).Value = True Then n = 12 For k = 1 To n temp = temp * k Next k
text1.Text = temp End Sub
Private Sub Form_Unload(Cancel As Integer) unload_sub End Sub
*****第27套 综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称为Text1，可以多行显示；有一个名称为CD1的通用对话框；还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“打开文件”、“转换”、“存盘”，如图所示。
命令按钮的功能是：“打开文件”――弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的in5.txt文件后，该文件中的内容显示在Text1中；“转换”――把Text1中所有小写英文字母转换成大写；“存盘”――把Text1的内容存入考生文件夹下的out5.dat文件中。
在窗体中已经给出了部分程序，要求：
1） 请去掉程序中的注释符，把程序中的？改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。 2） 编写“转换”按钮的Click事件过程。最后把修改后的文件按原文件名存盘。
注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in5.txt文件进行转换，并把转通过“存盘”按钮存入考生文件夹下的out5.dat文件中，否则无成绩。 Private Sub C1_Click( ) Dim a As String
CD1.Filter = \所有文件|*.*|文本文件|*.txt|Word文件|*.doc\
换结果