VB模拟试卷1

1、打开工程文件st1.vbp，在窗体上添加一个名称为Command1的命令按钮，其标题为"移动本按钮"，如图所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。按照原名保存文件，不得重新命名。

Command 1.Left=command 1.left

Command 1.Left=command 1.left+100

End sub

2、打开工程文件st2.vbp，在窗体上添加一个名称为Shapel的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。添加一个名称为Timer1的计时器，在属性窗口中将其设置为禁用，时间间隔为0.5秒，窗体如图所示。请编写窗体的Load事件过程和计时器的事件过程，使得程序一开始运行，计时器即变为可用，且每隔0.5秒形状控件向下移动100。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。按照原名保存文件，不得重新命名。

Interval 1=500

Private Sub Form_load()

Timer1.Enable=True

Private Sub Timer 1_Timer()

Shape1.Top=Shape1.Top +100

3、打开工程文件st3.vbp，在窗体上设计一个菜单。要求如下(运行时的效果见图)：

再编写适当的事件过程，使得程序运行时，单击"上一个菜单项可用"，则"不可用菜单项"变为可用。要求程序中不得使用变量，且只有一条语句。按照原名保存文件，不得重新命名。

4、打开工程文件st4.vbp，在名称为Form1的窗体上添加一个名称为Command1、标题为"保存文件"的命令按钮，再添加一个名称为Cd1的通用对话框。要求：

①运行时单击"保存文件"命令按钮，则以"保存对话框"方式打开该通用对话框。如图所示；

②通过属性窗口设置适当的属性，使得程序运行时对话框的标题为"保存文件"，且默认文件名为out2。

注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。按照原名保存文件，不得重新命名。

5、打开工程文件st5.vbp，修改程序，求两个正整数m和n的最大公因子（即最大公约数）。程序运行界面如图所示。按照原名保存文件，不得重新命名。

Private Sub Command1_Click()

Dim m As Integer,r As Integer

M = Text1:n=Text2

r = m Mod n

Do While r<>0

M=n

N=r

r=m Mod n

Loop

Text3=n

End Sub

6、打开工程文件st6.vbp，本题程序代码是随机产生20个0到1000的整数，将其放入一个数组中，然后输出这20个整数小于500的所有整数之和。程序运行后，单击命令按钮（名称为Command1，标题为“输出小于500的所有整数之和”），即可求出这些整数的和，并显示在窗体上（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名保存。

7、打开工程文件st7.vbp，窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～200范围内能被3整除的所有整数的个数，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算能被3整除的整数的个数的操作在通用过程Fun 中实现，请编写该过程的代码。

要求:请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。

8、在考生文件夹下有一个工程文件st8.vbp，相应的窗体文件为st8.frm，此外还有一个名为datain8.txt的文本文件，其内容如下：

32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37

程序运行后，单击窗体，将把文件datain8.txt中的数据输入到二维数组Mat中，并且按5行、5列的矩阵形式显示在窗体上，然后计算矩阵第三行各项的和，并在窗体上显示出来，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改的文件按文件名存盘。

9、打开考生文件夹下的工作簿EXCEL.XLSX，实现以下操作，并按照原名保存该工作簿：（1）将sheet1工作表的A1：D1单元格合并为一个单元格，内容水平居中；

（2）计算"全年总量"行的内容(数值型)，计算"所占百分比"列的内容(所占百分比＝月销售量/全年总量，百分比型，保留小数点后两位)；

（3）如果"所占百分比"列内容高于或等于8%，在"备注"列内给出信息"良好"，否则内容空白(利用IF函数)。

（4）选取"月份"列(A2：A14)和"所占百分比"列(C2：C14)数据区域的内容建立"带数据标记的折线图"(系列产生在"列")，标题为"销售情况统计图"，清除图例；

（5）将图插入到表的A17：F30单元格区域内；

（6）将工作表命名为"销售情况统计表"，保存(EXCEL.XLSX)文件。