国家二级VB机试（上机操作）模拟试卷278
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1，标题为“滚动条属性设置”的窗体上画1个名称为VScroll1的垂直滚动条，设置属性，使得滚动块在最上面时，其位置值为10；滚动块在最下面时，其位置值为30；窗体刚显示时，滚动块处在中间位置，如图3—27所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上，画1个名称为Label1的标签，其标题为“等级考试”，显示为宋体10号字，且能根据标题内容自动调整标签的大小，并有凹陷效果，如图3—28所示。再画1个名称为Timer1的计时器控件，通过属性窗口设置有关属性，使其不可用，时间间隔为1秒。
第1小题
步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个垂商滚动条。按表4—18设置其相关属性。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个标签和定时器。按表4—19设置其相关属性。
[*]
步骤2：在打开的代码编辑窗口中，编写标签、窗体的Click事件代码和定时器Timer事件代码。
参考代码：
Private Sub Form_Click()
Timer1．Enabled=False
End Sub
Private Sub Label1_Click()
Timer1．Enabled=True
End Sub
Private Sub Timer1_Timer()
Label1．FontSize=Label1．FontSize+1
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：根据题目要求，在窗体上添加一个垂直滚动条，并设置其属性。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，也是Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。
设置滚动块位十滚动条的中间位置，即把Value属性设置为Min和Max平均值。
第2小题：根据题目要求在单击标签框的时候周期性地增大1个字号，需要在标签的Click事件代码里面使能定时器Timer1。在定时器的Timer事件代码里面将标签的FontSize增加1。早单击窗体时，停止增大，说明在窗体的Click事件代码里面禁用定时器Timer1。
简单应用题
2.(1)考生文件夹下有一个工程文件sjt3．vbp，其窗体上有1个名称为Text1的控件数组；一个标题为\\
第1小题
步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为止确的内容。
参考代码：
k=i
For]]j=i+1To7
If]]Val(Text1(j)．Text)＞
Val(Text1(k)．Text)Then
Text1(k)．Text=j
步骤2：按要求将文件保存至考生文件夹中。
第2小题
步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
If Combo1．Text=Combo1．List(k)Then
Combo1．AddItem Combo1．Text
Combo1．RemoveItem Combo1．ListIndex
Text1．Text=Text1．Text&\\
解析：第1小题：题目要求对一组数据进行排序，分析代码可知程序使用的是数据排序可以使用多种排序方法，比如选择法排序，其方法是：
(1)从n个数的数序列中选出最大的数，与第1个数交换位置：除第1个数外，其余n-1个数再按(1)的方法选出次大的数，与第2个数交换位置；
(3)重复(1)步n-1遍，最后构成递减序列。
第一个“?”处是补充k的值，根据选择发排序原理，变量k记录最大数的位置，从外层循环的起始位置开始，因此k的值应为i；第二个“?”处是补充内存循环的结束条件，外层循环7次，找出7个最大的数，内层循环从i+1的位置开始，直到结束；第三个“?”处是补充判断条件，如果Text1(k)．Text的值比Text1(i)．Text要小的话，那么更新k的值；最后一个“?”处是交换两个元素的值。
第2小题：题目要求在组合框里面添加数据，从组合框获取数据显示在文本框，主要是考查组合框的常用方法和属性。
第一个“?”处是判断组合框编辑区的内容是否和组合框元素值一样，获取组合框的某个元素值是一List方法；第二个“?”处是如果编辑区内容不重复，添加到组合框列表里面，使用AddItem方法：第三个“?”处是删除列表中选中的项目，使用RemoveItem方法：第三个“?”处是把列表框选中的项目添加到文本框里面：最后一个“?”处是清空文本框的内容。
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有2个标题分别是“读数据”和“统计”的命令按钮，1个名称为Text1的文本框，2个标签控件，如图3—31所示。
程序功能如下：
1)单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容(该文件中含有不超过800个英文单词，单词之间用1个空格隔开)显示在Text1文本框中。
步骤1：打开考生文件夹中的工程文件sjt5．vbp，在代码编辑窗门中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
GetWords=m
m=GetWords(Text1．Text，ch)
’——–考生编写的程序代码从这里开始
k=0
For i=1To m
If Len(ch(i))=5Then
k=k+1
End If
Next i
Label1．Caption=k
’——–考生编写的程序代码到这里结束
步骤2：按＜F5＞键运行程序，单击各个按钮测试验证。
步骤3：按要求将文件保存垒考生文件夹中。
解析：题目要求统计字符串数组里面长度等于5的字符串数量，可以使用循环变量数组，依次判断每个元素的长度是否为5，如果为5则统计变量加1，循环结束后得到统计结果，最后思示在标签里面。
第一个“?”处是补充函数返叫值，在GetWords函数中变量m在每次检测剑单词后增加1，可知m保存了单词数量统计，因此函数的返回值为m；第二个“?”处是补充函数的入参，根据题目要求在这里统计文本框内容里面的单词数量。
本文档预览：3600字符，共3488字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
