vb模拟试卷3

1、打开工程文件st1.vbp,在窗体上从上到下添加两个文本框，名称分别为Text1、Text2；再添加1个命令按钮，名称为Command1，标题为"选中字符数是"。程序运行时，在Text1中输入若干字符，选中部分内容后，单击"选中字符数是"按钮，则选中的字符个数显示在Text2中(如图所示)。请编写按钮的Click事件过程。要求：程序中不得使用变量，事件过程中只能写一条语句。按照原名保存文件，不得重新命名。

Private Sub Command 1_Click ()

Text 2=Text1.sellew

End Sub

2、打开工程文件st2.vbp,在窗体上添加一个名称为List1的列表框，通过属性窗口分别输入4个列表项："数学"、"物理"、"化学"、"语文"，如图所示。请编写适当的事件过程使得在程序运行时，将最后一个列表项自动改为"英语"；单击窗体时，则删除最后一个列表项。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。按照原名保存文件，不得重新命名。

Private Sub Form_Form()

List1.Remove Item List Count-1

Private Sub Form_Load()

List1.Add Item “英语”,4

3、打开工程文件st3.vbp,在窗体上添加一个命令按钮，名称为Command1，标题为"命令按钮"。然后建立一个菜单，标题为"控件"，名称为menu0，包含两个子菜单顶，一个是"显示命令按钮"，名称为menu1；另一个是"隐藏命令按钮"，名称为menu2，如图所示。编写适当的事件过程，使得程序运行时，如果选择"显示命令按钮"菜单命令，则显示命令按钮；而如果选择"隐藏命令按钮"菜单命令，则隐藏命令按钮。

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

Command 1.Visable=True/False

4、打开工程文件st4.vbp,在窗体上添加一个名称为Command1的命令按钮，标题为"打开文件"，再添加一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：

①设置适当属性，使对话框的标题为"打开文件"；

②设置适当属性，使对话框的"文件类型"下拉式组合框中有两项可供选择："文本文件"、"所有文件"(如图所示)，默认的类型是"所有文件"；

③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。

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

5、打开工程文件st5.vbp,在窗体上有一个命令按钮，其名称为Command1，标题为“计算并输出”。程序运行后，如果单击命令按钮，程序将计算500以内两个数之间（包括开头和结尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用“~”连接起来，如图所示。最后将修改后的文件按原文件名存盘。

Private Sub Command1_Click()

Dim i As Integer,j As Integer,Sum As Integer

Print”连续和为1250的整数是：”

For i = 1 To 500

Sum =0

For j = i To 500

Sum = 0

For j = i To 500

Sum = sum + j

If Sum >=1250 Then Exit For

Next

If Sum = 1250 Then

Print i;”~”;j

End If

Next

End Sub

6、打开工程文件st6.vbp,本题除了给出工程文件和相应的窗体文件外，还有一个名为datain6.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

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

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

a(i,2)=a(i,4)

a(i,4)=t

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

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

8、在考生文件夹下有一个工程文件st8.vbp，其功能是：

①单击"读数据"命令按钮，则将考生文件夹下in8.dat文件中的100个正整数读入数组a中，同时显示在文本框Text1中；

②单击"素数"按钮，则将数组a中所有素数(只能被1和自身整除的数称为素数)存入数组b 中，并将数组b中的元素显示在文本框Text2中。

在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。

要求：完善程序使其实现上述功能。