国家二级VB机试（上机操作）模拟试卷283
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“电影制作”的窗体上画1个名称为Cmb1、初始内容为空的下拉式组合框(可以输入文本)。下拉列表中有“音频效果”、“视频效果”和“视频过渡”3个表项内容。运行后的窗体如图3—51所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)在名称为Form1、标题为“椭圆练习”的窗体上，画1个名称为Shape1的椭圆，其高为800、宽为1200、左边距为1000。椭圆的边框是宽度为5的蓝色(&H00C00000&)实线，椭圆填充色为黄色(&H0000FFFF&)。再画2个名称为Command1和Command2、标题为“左移”和“右移”的命令按钮。如图3—52所示。
要求：编写2个按钮的Click事件过程，使得每单击“左移”按钮一次，椭圆向左移动100；每单击“右移”按钮一次，椭圆向右移动100。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjjt2．frm，工程文件名为sjt2．vbp。
第1小题
步骤1：新建一个“标准EXE”工程，按表4—32在窗体中画出控件并设置其相关属性。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
步骤1：新建一个“标准EXE”工程，按表4—33在窗体中画出控件并设置其相关属性。
[*]
步骤2：打开代码编辑窗口，编写2个命令按钮的单击事件过程。
参考代码：
Private Sub Command1_Click()
Shape1．Left=Shape1．Left-100
End Sub
Private Sub Command2_Click()
Shape1．Left=Shape1．Left+100
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按照要求画出控件并设置相应属性即可。
第2小题：形状控件的Shape属性用于设置其显示形状，当值为2时为椭圆；BorderStyle属性用于控制边框的样式，BorderWidth属性用于控制边框的宽度。BorderColor属性控制边框的颜色，FillColor用于控制形状内部的填充色。
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，其窗体中有一个红色方框和一个计时器控件。程序运行时每隔0．5秒，方框的颜色交替变为黄色和红色(黄色值为&HFFFF&；红色值为&HFF&)；若单击鼠标右键，则停止变色；若单击鼠标左键，则方框左上角移到鼠标点击的位置处(如图3—53所示)。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗口上有2个名称分别为Command1和Command2，标题分别为“开始查找”和“重新输入”的命令按钮；有2个名称分别为Text1和Text2、初始值均为空的文本框。
1)在Text1文本框中输入仅含字母和空格(空格用于分隔不同的单词)的字符串后，单击“开始查找”按钮，则可以将输入字符串中最长的单词显示在Text2文本框中，如图3—54所示。
2)单击“重新输入”按钮，则清除Text1和Text2中的内容，并将焦点设置在Text1文本框中，为下一次输入做好准备。请将“开始查找”命令按钮Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序按原文件名存盘。
第1小题
步骤1：打开考生文件下的本题工程文件sjt3．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
Timer1．Interval=500
Shape1．Left=X
Shape1．Top=Y
Timer1．Enabled=False
If Shape1．BackColor=vbRed Then
步骤2：按要求将文件保存至考生文件夹中。
第2小题
步骤1：打开考生文件下的本题工程文件sjt4．vbp，在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
word_s=s
s=Mid(s，m+1)
If n＜Len(word_s)Then
Text2．Text=Word_max
步骤2：按要求将文件保存在考生文件夹中。
解析：第1小题鼠标事件分点击事件和状态事件：点击事件有单击(Click)和双击(DblClick)，不区分左键、右键：状态事件有按下(MouseDown)、移动(MouseMove)和弹起(MouseUp)，能够区分出鼠标的左键、右键和中间键。按下鼠标键事件过程的一般格式为：
Private Sub Form_MouseDown(Buaon As Integer，Shift As Integer，X As Single，Y As Single)
End Sub
其中各参数的含义：Button表示被按下的鼠标键，可以取3个值，1为左键、2为右键、4为中间键；Shift表示Shift键、Ctrl键和Alt键的状态，Shift键为1、Ctrl键为2、Alt键为4；X，Y表示鼠标光标的当前位置。本题在计时器的Timer事件过程中，完成方框的颜色交替，因此在Timer事件中应该是一个选择语句，如果颜色为红色(vbred)，将其设置为黄色，否则设置为红色。由于要求0．5秒交替显示一次，因此计时器的Interval属性应该设置为500。
在窗体的MouseDown事件中，首先要判断按下的是鼠标的哪个键，如果是左键，则令形状的Left和Top属性分别为鼠标事件的参数X和Y；如果是右键，则令计时器停止工作。
第2小题：本题源程序在“开始查找”按钮的Click事件过程中，先检验文本框Text1(已赋值给变量s)中是否读入数据，并用InStr函数检查空格的位置，以空格为单词分隔依据找出每个单词。每找到一个单词，就将该单词使用Left函数在s中分离出来，然后将s中的这个单词去掉，判断单词的长度并且和预存的最长单词长度相比较，若其比最长单词还长，则这个单词的长度成为新的最长单词长度，这个单浏成为新的最长单词。循环结束后即可得出最长的单词。
综合应用题
3.在考生文件夹下有一个工程文件sit5．vbp，窗口有2个名称分别为Command1和Command2、标题分别为“读数据”和“排序”的命令按钮，有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”；再画2个名称分别为Text1和Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图3—55所示。程序功能如下：
1)单击“读数据”按钮，则把考生文件夹下in5．dat文件中的100个正整数读入数组A，并将它们
本文档预览：3600字符，共4483字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
