内容发布更新时间 : 2024/5/22 11:11:31星期一 下面是文章的全部内容请认真阅读。

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

1

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

2

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中。

在给出的窗体文件中已经有了全部控件(如图所示)，但程序不完整。 要求：完善程序使其实现上述功能。

3