VB操作题库-星级全套文字版(1)

第01套 基本操作题★★

（1）在名称为Forml的窗体上添加一个名称为H1水平滚动条，请在属性窗口中设置它的属性值，满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

（2）在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为\操作\，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为\复制\、\清除\，请编写适当的事件过程，使得在程序运行时，单击\复制\选项菜单，则把Text1中的内容复制到Text2中，单击\清除\选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

Private Sub Clear_Click() Text2.Text = \End Sub

第01套 简单应用题★★

Private Sub Copy_Click() Text2.Text = Text1.Text End Sub （1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签Label1，请添加一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为\飞机\、\火车\、\汽车\，再添加一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击\飞机\或\火车\单选按钮时，在Text1中显示\我坐飞机去\或\我坐火车去\，单击\汽车\单选按钮时，在Text1中显示\我开汽车去\，如图所示。

注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 Private Sub Op1_Click(Index As Integer)

Dim a As String, b As String, c As String a = \我坐\ b = \我开\

' Select Case ? ***** Index ***** Case 0

Text1.Text = a + Me.Op1(0).Caption + \去\ Case 1

' Text1.Text = ? + Me.Op1(1).Caption + \去\ Case 2

Text1.Text = b + Me.Op1(2).Caption + \去\ End Select End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上添加两个框架控件，名称分别为F1、F2，标题分别为\性别\、\身份\；在F1中添加两个单选按钮控件Op1、Op2，标题分别为\男\、\女\；在F2中添加两个单选按钮控件Op3、Op4，标题分别为\学生\、\教师\；再添加一个命令按钮，名称为C1，标题为\确定\。如图所示。请编写适当的事件过程，使得在运行时，在F1、F2中各选一个单选按钮，然后单击\确定\按钮，就可以按照下表把结果显示在文本框中。

性别 男 男 女 女

身份 学生 教师 学生 教师

在文本框中显示的内容 我是男学生 我是男教师 我是女学生 我是女教师

最后把修改后的文件以原来的文件名存盘。

注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 ? ***** 请考生编写程序 *****

If op1 and op3 then Text1.Text=‖我是男学生‖ If op1 and op4 then Text1.Text=‖我是男教师‖ If op2 and op3 then Text1.Text=‖我是女学生‖ If op2 and op4 then Text1.Text=‖我是女教师‖ 第01套 综合应用题★★

以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数都是其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击\计算\按钮，则计算出上述数列的第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值。(提示：因计算结果较大，应使用长整型变量。)

注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须

选中一个单选按钮，并单击\计算\按钮获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。

Private Sub Command1_Click() ? ***** 请考生编写程序 *****

Dim a(35) As Long If op1(0) then n=30 If op1(1) then n=33 If op1(2) then n=35 a(1) = 1 a(2) = 1 For i = 3 To n

a(i) = a(i - 1) + a(i - 2) Next

Text1.Text = a(n) End Sub

第02套 基本操作题★

（1）在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为\请输入密码\，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中显示为\字符，此外再把窗体的标题设置为\密码窗口\，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

在窗体中添加一个标签，名称设置为L1，将标签的Caption属性设置为\请输入密码\。然后再添加一个文本框，设置其名称为Text1,然后设置其Height属性为300，设置其Width属性为2000，设置其PasswordChar属性为\。最后将Form1的Caption属性设置为\密码窗口\。

（2）在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出\单击图片框\，每单击图片框外的窗体一次，就在窗体中输出\单击窗体\，运行时的窗体如图所示。要求在程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 Private Sub Form_Click() Form1.Print \单击窗体\End Sub

第02套 简单应用题★

Private Sub P1_Click() P1.Print \单击图片框\End Sub （1）在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为\发射\，还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求：

①设置Timer1的属性，使其在初始状态下不计时；

②设置Timer1的属性，使其每隔0.1秒调用Timer事件过程一次。

③去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击\发射\按钮，则航天飞机每隔0.1秒向上移动一次，当到达P2的下方时停止移动，如图所示。

注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 Private Sub C1_Click()

' Timer1.Enabled = ? ***** True ***** End Sub

Private Sub Timer1_Timer() Static a% a = a =+1

' If P1.Top > P2.Top ＋ P2.? Then ***** Height ***** P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height Else

' Timer1.Enabled = ? ***** False ***** End If End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，运行情况如图所示。程序的功能是计算下列表达式的值：

其中的N和x的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击标题为\计算\、名称为Command1的命令按钮，则计算表达式的值z，并将计算结果显示在名称为Label1的标签中。

在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。

注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符，而应

使用函数xn进行幂运算。程序至少运行一次，按照下图输入数据，使x=10，N=5，单击\计算\按钮，计算z的值，

并将结果显示在标签Label1中，否则没有成绩。最后，程序按原文件名存盘。

Private Function xn(a As Single, m As Integer) Dim i As Integer tmp = 1

For i = 1 To m

' tmp = ? ***** tmp*a ***** Next

'xn = ? ***** tmp ***** End Function

Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Single Dim s, x As Single n = Val(Text1.Text) x = Val(Text2.Text) z = 0

For i = 2 To n

t = x + i

' z = z +？ ***** xn(t,i) ***** Next

'Label1.Caption = ? ***** z ***** Call SaveResult End Sub

Private Sub SaveResult()

Open App.Path & \Print #1, Label1.Caption Close #1 End Sub

第02套 综合应用题★

在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。

注意：不得修改原有程序和控件的属性。在结束程序运行之前，必须至少正确运

行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。

Private arr(100) As Integer

Public Function prime(x As Integer) k = Int(Sqr(x) + 5) For i = 2 To k

If x Mod i = 0 Then prime = False Exit Function End If Next

prime = True

End Function

Private Sub Command1_Click()

Open App.Path & \For i = 1 To 40 Input #1, arr(i) Next Close #1 End Sub

Private Sub Command2_Click()

? ***** 请考生编写程序 *****

Dim a As Integer Dim b As Integer a = 0 b = arr(1)

For i = 1 To 40

If prime(arr(i)) Then a = a + 1 Label3.Caption = a Next

For i = 1 To 40

If prime(arr(i)) And arr(i) <= b Then b = arr(i) Label4.Caption = b Next

'***** 考生编写程序结束 *****

Open App.Path & \Print #1, Label3.Caption, Label4.Caption Close #1 End Sub

第03套 基本操作题★★★

（1）在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为\窗口\。请通过属性窗口设置适当的属性，满足如下要求：

①Text2可以显示多行文本，并且有垂直和水平两个滚动条； ②程序运行时在Text1中显示输入的字符为\。 程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

（2）在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1.bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为\放大\、\缩小\，如图所示。

要求：

①请编写适当的事件过程，程序运行后，如果单击\放大\按钮，则将图像框的高度、宽度均增加100；单击\缩小\按钮，则将图像框的高度、宽度均减少100。要求程序中不得使用任何变量。

②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。

控件 属性 设置值 控件 属性 设置值 图像框 Name Image1 Width 1700 命令按钮1 Name C1 命令按钮2 Caption 放大 Name C2 Caption 缩小 Height 1900 Picture pic1.bmp Stretch True Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100 End Sub 第03套 简单应用题★★★

Private Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100 End Sub （1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：

①单击\读数据\按钮，则将考生文件夹下in3.dat文件中的100个0到999之间的整数读入到数组a中；

②单击\计算\按钮，则找出这100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框Text1、Text2中。(注：当一个数的值等于该数中的各位数字的立

333153?1?5?3?所以153就是一个水仙花数) 方和时，此数被称为水仙花数。如：

在窗体文件中已经给出了全部控件(如图所示)和\读数据\命令按钮的事件过程以及

判断一个数是否为水仙花数的通用过程。要求编写\计算\命令按钮的事件过程。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行\计算\，并且必须通过单击窗体右上角的\关闭\按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

Dim a(100) As Integer

Private Sub Command1_Click() Dim k As Integer

Open App.Path & \For k = 1 To 100

Input #1, a(k) Next k

Close #1 End Sub

Private Sub Command2_Click()

'***** 需考生编写的程序 ***** Dim i As Integer

Dim max As Integer, min As Integer max = -1 min = 1000 For i = 1 To 100

If isnarc(a(i)) Then

If max <= a(i) Then max = a(i) If min >= a(i) Then min = a(i) End If Next i

Text1 = max Text2 = min End Sub

'以下Function 过程用于判断某数是否为水仙花数 Function isnarc(p As Integer) x = Fix(p / 100)

y = Fix((p - x * 100) / 10) z = p - x * 100 - y * 10

If p = x ^ 3 + y ^ 3 + z ^ 3 Then isnarc = True Else

isnarc = False End If

End Function

Private Sub Form Unload(Cancel As Integer) Open App.Path & \Print #1, Val(Text1.Text) Print #1, Val(Text2.Text) Close #1 End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框，名称为cb1，并输入三个列表项：\、\、\列表项的顺序不限，但必须是这3个数字)；添加一个名为Text1的文本框；再添加一个标题为\计算\、名称为C1的命令按钮。如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击\计算\按钮，则计算5000

以内能够被该数整除的所有数之和，并放入Text1中。最后，按原文件名存盘。 提示：由于计算结果较大，应使用长整型变量。

注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。

Private Sub C1_Click()

'***** 需考生编写的程序 ***** Dim sum As Long Dim n As Integer Dim i As Integer

n = Val(Cb1.Text) For i = 1 To 5000

If i Mod n = 0 Then sum = sum + i End If Next i

Text1.Text = sum End Sub

第03套 综合应用题★★★

在考生文件夹下有一个工程文件sjt5.vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码。请完成以下工作：

①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用。窗体如图所示； ②建立下拉式菜单，如下表所示:

标题 名称

Edit 编辑

Cut 剪切

Copy 复制

Paste 粘贴

③窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。以便实现如下功能：当光标所在的文件框中无内容时，\剪切\、\复制\不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则\粘贴\不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。

注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。 Dim which As Integer Private Sub copy_Click() If which = 1 Then

Text3.Text = Text1.Text ElseIf which = 2 Then

Text3.Text = Text2.Text End If End Sub

Private Sub cut_Click() If which = 1 Then

Text3.Text = Text1.Text Text1.Text = \ElseIf which = 2 Then

Text3.Text = Text2.Text Text2.Text = \End If End Sub

Private Sub edit_Click()

' If which = ? Then ***** 1 ***** If Text1.Text = \

cut.Enabled = False Copy.Enabled = False Else

cut.Enabled = True

Copy.Enabled = True End If

' ElseIf which = ? Then ***** 2 ***** If Text2.Text =\

cut.Enabled = False Copy.Enabled = False Else

cut.Enabled = True Copy.Enabled = True End If End If

If Text3.Text = \Paste.Enabled = False Else

Paste.Enabled = True End If End Sub

Private Sub paste_Click() If which = 1 Then

' Text1.Text = ? ***** Text1.Text+Text3.Text ***** ElseIf which = 2 Then

' Text2.Text = ? ***** Text2.Text+Text3.Text ***** End If End Sub

Private Sub Text1_GotFocus() '本过程的作用是：当焦点在Text1中时，which = 1 which = 1 End Sub

Private Sub Text2_GotFocus() '本过程的作用是：当焦点在Text2中时，which = 2 which = 2 End Sub

第04套 基本操作题★★

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

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

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

③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。 要求：程序中不得使用变量，事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

Private Sub Command1_Click() CD1.ShowOpen End Sub （2）在名称为Form1的窗体上添加一个名称为Command1的命令按钮，其标题为\移动本按钮\，如图所示。 要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。 要求：程序中不得使用变量，事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 Private Sub Command1_Click() Command1.Left = Command1.Left - 100 End Sub

第04套 简单应用题★★

（1）在名称为Form1的窗体上添加一个名称为Label1、标题为\添加项目：\的标签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Command1、Command2，其标题分别为\添加\、\统计\。在程序运行时，向Text1中输入字符，单击\添加\按钮后，则将Text1中的内容作为一个列表项被添加到组合框的列表中；单击\统计\按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。请编写两个命令按钮的Click事件过程。

注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。

'***** 需考生编写的程序 ***** Private Sub Command1_Click() Combo1.AddItem Text1 End Sub

Private Sub Command2_Click() Print Combo1.ListCount End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为\明文\加密，加密结果(称为\密文\显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击\加密\按钮后，根据选中的单选按钮后面的数字n，将\明文\中的每个字母改为它后面的第n个字母(\后面的字母认为是\，\后面的字母认为是\，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。

Private Sub Command1_Click()

Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k = 0 To 2

If Op1(k)．Value Then

' n = Val(Op1(k). ? ) ***** Caption *****

End If Next k

m = Len(Text1.Text) a = \

' For k = 1 To ? ***** m ***** ' c = Mid$(Text1.Text, ? , 1) ***** k ***** c = String(1, Asc(c) + n)

If c > \ c = String(1, Asc(c) - 26) End If

' ？ = a + c ***** a ***** Next k

Text2.Text = a End Sub

第04套 综合应用题★★

在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为\取数\、\排序\、\存盘\。\取数\按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中，并在Text1中显示出来；\排序\按钮的功能是对这50个数按升序排序，并显示在Text2中；\存盘\按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中。如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写\排序\按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。

Dim a(50) As Integer Private Sub C1_Click()

Dim k As Integer, ch As String Open \ch = \

For k = 1 To 50

' Input #1, ? ***** a(k) ***** ch = ch + Str(a(k)) + \ \Next k Close #1

' Text1.Text = ? ***** ch ***** End Sub

Private Sub C2_Click()

' ***** 需考生编写的程序 *****

Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch = \

For i = 50 To 2 Step -1 For j = 1 To 49

If a(j) > a(j + 1) Then t = a(j + 1) a(j + 1) = a(j)

a(j) = t End If Next j Next i

For j = 1 To 50

ch = ch + Str(a(j)) + \ Next j

Text2.Text = ch End Sub

Private Sub C3_Click()

Open \Print #1, Text2.Text Close #1 End Sub

第05套 简单应用题

（1）在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框，如图1所示。编写窗体的MouseDown事件过程。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2所示。这个程序不完整，请把它补充完整，并能正确运行。

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

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then

Text1.Text = InputBox(\请输入要添加的项目\

'List1.AddItem ? ***** Text1.Text ***** End If

If Button = 2 Then

Text1.Text = InputBox(\请输入要删除的项目\

'For i = 0 To ? ***** List1.ListCount-1 ***** 'If List1.List(i) = ? Then ***** Text1.Text ***** 'List1.RemoveItem ? ***** i ***** End If Next i End If End Sub （2）在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程FindMin求数组的最小值。程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图所示)。

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

Option Base 1

Private Function FindMin(a() As Integer) Dim Start As Integer

Dim Finish As Integer, i As Integer

'Start = ？(a) ***** LBound ***** 'Finish = ？(a) ***** UBound ***** ''Min = ？(Start) ***** a ***** For i = Start To Finish

'If a(i) ? Min Then Min = ? ***** < ***** ***** a(i) ***** Next i

FindMin = Min End Function

Private Sub Command1_Click() Dim arr1

Dim arr2(4) As Integer

arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text)) For i = 1 To 4

arr2(i) = CInt(arr1(i)) Next i

'M = FindMin(？) ***** arr2 ***** Print \最小值是： \； M End Sub

第05套 综合应用题

在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为\读入数据\、\计算并输出\和\存盘\，然后再添加一个文本框，名称为Text1，MultiLine属性设置为True，scrollBars属性设置为2(如图所示)。程序运行后，如果执行\读入数据\命令，则读入考生文件夹下datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击\计算并输出\按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击\存盘\按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。

在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。

注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sjt5.vbp，窗体文件名仍保存为sjt5.frm。

' ***** 需考生编写的程序 *****

Dim sum As Integer Private Sub Calc_Click() Text1.Text = \

For i = 2 To 100 Step 2

Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum End Sub

Private Sub Read_Click() ReadData End Sub

Private Sub Save_Click()

WriteData \End Sub

*****第06套 简单应用题

（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是产生30个0~1000的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮（名称为Command1，标题为“输出最小值”），即可求出其最小值，并在窗体上显示出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。

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

Private Sub Command1_Click( ) Dim arrN(30) as Integer Dim Min as Integer Randomize For i=1 to 30

?arrN(i)=Int(Rnd * ?) *** 1000 *** Next i

??=arrN(1) *** Min *** For i=2 to 30

?If ? Then *** Min>arrN(i) *** Min=arrN(i) End if Next i Print Min End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0~1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。 要求：

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

Sub SaveData( )

Open App.Path & ―\\‖ & ―outtxt.txt‖ For Output As #1 Print #1, Text1.Text Close #1 End sub

?*** Function Fun( ) 请考生编写的程序 ***

Dim s As Integer, i As Integer For i = 0 To 1000

If i Mod 7 <> 0 Then s = s + 1 End If Next i Fun = s

***End Function***

Private Sub Command1_click( ) D=Fun( ) Text1.Text=d SaveData

End Sub

*****第06套 综合应用题

在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作：

在名称为Form1的窗体上画二个命令按钮，其名称分别为C1和C2，标题分别为“读入数据”和“计算”（如图所示）。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的ReadData1和ReadData2过程读入datain1.txt 和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中（即：第一个数组的第n个元素减去第二个数组的第n个元素，其结果作为第三个数组的第n个元素。这里的n为1、2、。。。。。、20），最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。

注意：考生不得修改窗体文件中已经存在的程序，且必须执行此程序一次，最后把修改后的文件以原来的文件名存盘。 Option Base 1

Dim Arr1(20) As Integer Dim Arr2(20) As Integer Sub ReadData1( )

Open App.Path & ―\\‖ & ―datain1.txt‖ For Input as #1 For i=1 to 20 Input #1,Arr1(i) Next i Close #1 End Sub Sub ReadData2( )

Open App.Path & ―\\‖ & ―datain2.txt‖ For Input as #1 For i=1 to 20 Input #1,Arr2(i) Next i Close #1 End Sub

Sub WriteData(Filename As string, Num As Integer) Open App.Path & ―\\‖ & Filename For Output As #1 Print #1,Num Close #1 End sub

? ***** 请考生编写的程序 *****

Private Sub C1_Click() Call ReadData1 Call ReadData2 End Sub

Private Sub C2_Click()

Dim Arr3(1 To 20) As Integer Dim sum As Integer sum = 0 For i = 1 To 20

Arr3(i) = Arr1(i) - Arr2(i) sum = sum + Arr3(i) Next i

Print \

WriteData \End Sub

第07套 基本操作题★★

（1）在名称为Form1的窗体上添加一个名称为L1，标题为\业余爱好\的标签，再添加一个名称为Ch1的复选框数组，含3个复选框，它们的Index属性分别为0、1、2，标题依次为\体育\、\音乐\、\美术\，请设置复选框的属性，使其初始状态如下表所示：

体育 选中 可用 音乐 未选中 不可用 美术 未选中 可用

程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名保存为sjt1.frm。 控件 属性 设置值 控件 属性 设置值 标签 Name L1 复选框2 Caption 音乐 Index 1 Enabled False Caption 复选框3 Caption 美术 Index 2 复选框1 Caption Index 0 Value 1 业余爱好 体育 （2）在名称为Form1的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为\操作\，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为\显示\、\隐藏\，请编写适当的事件过程，使得在程序运行时，单击\隐藏\菜单项，则文本框消失；单击\显示\菜单项，则文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 Private Sub Hide_Click() Text1.Visible = False End Sub *****第07套 简单应用题★★

Private Sub Show_Click() Text1.Visible = True End Sub （1）在名称为Form1的窗体上添加一个名称为L1的标签，标题为\口令\；添加两个文本框，名称分别为Text1、Text2，初始内容为空；再添加三个命令按钮，名称分别为C1、C2、C3，标题分别为\显示口令\、\隐藏口令\、\复制口令\，在程序开始运行时，向Text1中输入的所有字符，都显示为\，单击\显示口令\按钮后，在Text1中显示所有字符，再单击\隐藏口令\后，Text1中的字符不变，但显示的都是\，单击\复制口令\后，把Text1中的实际内容复制到Text2中，如图所示。

要求：

①在属性窗口中，将窗体的标题改为\口令窗口\。

②建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。

存盘时，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。 ' ***** 需考生编写的程序 ***** Private Sub C1_Click()

Text1.PasswordChar = \End Sub

Private Sub C2_Click()

Text1.PasswordChar = \End Sub

Private Sub C3_Click()

Text2.Text = Text1.Text End Sub

（2）在名称为Form1的窗体上添加一个名称为P1的图片框，并利用属性窗口把考生文件夹中的图标文件Open.ico放到图片框中；再添加一个通用对话框控件，名称为CD1，利用属性窗口设置相应属性，即打开对话框时：标题为\打开文件\，文件类型为\文档\，初始文件夹为C盘根文件夹。再编写适当的事件过程，使得程序在运行时，单击P1图片框，可以打开上述对话框。程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt4.vbp，窗体文件名保存为sjt4.frm。程序中不得使用任何变量。 ' ***** 需考生编写的程序 *****

Private Sub P1_Click() CD1.ShowOpen End Sub

*****第07套 综合应用题★★

（1）在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个命令按钮，标题分别是\读数据\和\统计\，请添加一个名称为Label1、标题为\回文的个数为\的标签和一个名称为Text1，初始内容为空的文本框，如图所示。

程序功能如下：

①单击\读数据\按钮，则将考生文件夹下in5.dat文件的内容读到变量s中； ②单击\统计\按钮，则统计in5.dat文件(该文件中仅含由空格间隔开的字母串)中回文的个数，并将统计的回文个数显示在Text1文本框内。(所谓回文是指顺读与倒读都一样的字符串，如\

读数据\和\统计\按钮的Click事件过程已经给出，请完善foundhuiwen过程的功能，实现上述程序功能。

注意：考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

Function foundhuiwen(p As String) ' ***** 需考生编写的程序 *****

If StrReverse(p) = p Then foundhuiwen = True End Function

*****第08套 基本操作题★★

（1）在名称为Form1标题为“选题”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框在选中状态下，运行时的窗体如图所示。请画控件并设置相应属性。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

（2）在名称为Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为1~100；画一个命令按钮，名称为C1，标题为“移动滚动框”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次（假定单击次数少于10次），滚动框向右移动10个刻度。运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 *****第08套 简单应用题★★

（1）在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为‘加粗’、‘斜体’、‘下划线’，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描述的操作，如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。 M1_click( )

Text1.fontBold=true M2_click( )

Text1.fontItalic=true M3_click( )

Text1.fontUnderline=true Text1_MouseDown( )

If button=2 then Popupmenu format

（2）在考生文件夹下有一个工程文件sjt4.vbp，含有Form1和Form2两个窗体，Form1为启动窗体。两个窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入有关信息（‘密码’框中显示‘*’字符），然后单击‘提交’按钮则弹出‘确认’对话框（即Form2窗体），并在对话框中显示输入的信息，如图2所示。单击‘确认’按钮则程序结束，单击‘重输’按钮，则对话框消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。 要求：1）把Form1的标题改为‘注册’，把Form2的标题改为‘确认’；

2）设置适当的属性，使Form2标题栏上的所有按钮消失（如图2所示）； 3）去掉程序中的注释符，把程序中的？改为正确的内容。

注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中的进行。最后把修改后的文件按原文件名存盘。 Private Sub C1_Click() Dim k As Integer

' Form2. ? ***** show ***** Form2.Print Form1.L1.Caption; Form1.Text1 Form2.Print Form1.L2.Caption; Form1.Text2 Form2.Print Form1.L3.Caption; Form1.Text3

' Form2.Print Form1.Frame1. ? ; \：\ *****caption***** For k = 0 To 1

' If Form1.Op1( ? ).Value Then ***** k ***** Form2.Print Form1.Op1(k).Caption End If Next k End Sub

Private Sub Form_Load()

' Text2. ? = \ ***** passwordchar ***** End Sub

*****第08套 综合应用题★★

在考生目录下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为‘口令’和‘允许次数’；一个命令按钮C1，标题为‘确定’；两个文本框名称分别为Text1和Text2。其中Text1用来输入口令（输入时，显示‘*’），无初始内容；Text2的初始内容为3。并给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时，在Text1中输入口令后，单击‘确定’，如果输入的是‘123456’则在Text1中显示‘口令正确’；如果输

入其他内容，单击‘确定’后，弹出如图所示的错误提示对话框，并且Text2中的数字减1.最多可输入3次口令，若3次都输入错误，则禁止再次输入。 Private Sub C1_Click()

' If ? = \ ***** text1.text ***** Text1.Text = \口令正确\

' Text1.? = \ ***** passwordchar ***** Else

Text2.Text = Text2.Text - 1

' If Text2.Text > ? Then ***** 0 *****

MsgBox \第\次口令错误，请重新输入\ Else

MsgBox \次输入错误，请退出\

' Text1.Enabled = ? ***** false ***** End If End If End Sub

第09套 基本操作题★★★★★

（1）在名称为Form1，标题为\图片\的窗体上添加1个名称为Image1的图像框，其高为2500，宽为2000。请通过属性窗口设置适当属性，将入考生文件夹下的图片文件pic1.jpg，并使图片自动适应图像框的大小(如图所示)。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

（2）在名称为Form1的窗体上添加1个名称为Label1，标题为\口令\的标签；添加一个名称为Text1的文本框；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为\显示口令\、\隐藏口令\、\重新输入\。

程序运行时，在Text1中输入若干字符，单击\隐藏口令\按钮，则只显示与字符同样数量的\如图2所示)；单击\显示口令\按钮，则正常显示输入的字符(如图1所示)，单击\重新输入\按钮，则清除Text1中的内容，并把光标定位到Text1中。

要求：请按要求添加所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在\显示口令\、\隐藏口令\按钮的事件过程中只能写1条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

Private Sub Command1_Click() Text1.PasswordChar = \End Sub

Private Sub Command2_Click() Text1.PasswordChar = \End Sub Private Sub Command3_Click() Text1 = \ Text1.SetFocus End Sub

*****第09套 简单应用题★★★★★

（1）在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。

要求：请去掉程序中的注释符，把程序中的？改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 Private Sub Command1_Click( ) Dim n As Integer Cls

‘ ? =InputBox（“请输入一个整数”） ***** n ***** Print “因子数＝”； fun(n) End Sub

Function fun(m As Integer)

Dim s As Integer S=0

For k=1 to Abs(m) / 2

‘If m Mod k=? Then ***** 0 ***** s=s+1 Print k End If Next k

‘ ？ ***** fun=s ***** End Function

（2）在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项（如图1所示），单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Text1文本框中显示这些城市的城市（如图2所示）。已经给出了所有控件和程序，但程序不完整。

要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 Private Sub Command1_Click( ) Dim k%

‘For k=List1.ListCount -1 to 0 ***** step -1 ***** If List1.Selecte(k)=True Then

‘ List2.AddItem ? ***** List1.List(k) ***** ‘ List1.RemoveItem ? ***** k ***** End If

Next k End Sub

Private Sub Command2_Click( )

Dim k%

Text1=“已经选中的城市有：“ For k=0 to List2.ListCount -1 Step 1

‘ Text1=? & ― ― & List2.List(k) ***** Text1.Text ***** Next k End Sub

*****第09套 综合应用题★★★★★

在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何空白位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。

要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

Dim x0 As Integer, y0 As Integer , a As Single , radius As Integer radius=Shape1.Width / 2 ‘圆的半径 If Button=LEFT_BUTTON Then

x0=shape1.left + radius ‘圆心的x坐标 y0=shape1.top + radius ‘圆心的y坐标 If x=x0 Then

Stepy=Sgn(y-y0) * 50

‘ Stepx=? ***** 0 ***** Else

a=(y-y0) / (x-x0) ‘斜率 stepx=sgn(x-x0) * 50

‘ ?=a * stepx ***** stepy ***** If abs(stepy) > abs(stepx) Then Stepy=sgn(y-y0) * 50 Stepx=stepy / a End if End If

‘ ?=True ***** Timer1.Enabled ***** Else

‘ ?=False ***** Timer1.Enabled ***** End if End Sub

Private Sub Timer1_Timer( )

‘ Shape1.Move Shape1.Left + stepx , Shape1.Top + ? ***** stepy ***** End Sub

第10套 基本操作题★

（1）在名称为Form1的窗体上添加一个名称为Shape1的形状控件，通过设置参数使其形状为圆形；添加一个名称为Label1的标签，标题为\形状\，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为Text1的文本框，文本框最多能够显示5个字符，文本框中初使内容为\圆形\，如图所示。

注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

（2）在名称为Form1的窗休上添加一个名称为Label1的标签，字号大小为四号，标题为\等级考试\，如图1所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为\标签\，单击窗体时，显示标签，如图2所示。

注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为sjt2.frm，工程文件名保存为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。

Private Sub Form_Click() Label1.Visible = True End Sub

*****第10套 简单应用题★

Private Sub Form_Load() Form1.Caption = \标签\End Sub （1）考生文件夹中有工程文件sjt3.vbp。窗体上有名称为Label1、标题为“标签控件”的标签；有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中任一控件，则在标签Label2中显示所单击控件的标题内容（标题内容前有“单击”二字），下图是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中的？改为正确的内容。

注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。

Private Sub Command1_Click()

'Call ShowName(？) ***** Command1 ***** End Sub

Private Sub Label1_Click()

'Call ShowName(？) ***** Label1 ***** End Sub

'Private Sub ShowName(c As ？) ***** Control ***** If TypeOf c Is CommandButton Then

Label2.Caption = \单击\End If

If TypeOf c Is Label Then

' ？ = \单击\ ***** Label2.Caption ***** End If End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp。其窗体上有一个由八个图片框控件组成的控件数组、两个命令按钮及一个计时器控件，如图1所示。程序功能：

将计时器控件设置为每隔0.5秒触发一次。运行程序时，只显示下标为0的图片框控件数组元素，其它图片框均不显示。单击“开始”按钮，数组中的每个图片框自左至右依次显示，时间间隔为0.5秒，产生月亮从左向右移动的效果，如图2所示。月亮移到右端后再从左端重新开始。单击“停止”按钮，月亮停止移动。

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

Private Sub Form_Load() Picture1(0)．Left = 0 Picture1(0)．Top = 100 For k = 1 To 7

' Picture1(k)．Visible = ？ ***** False ***** Next End Sub

Private Sub Command1_Click()

' Timer1.Enabled = ？ ***** True *****

End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Timer1_Timer() Static i As Integer

Picture1(i)．Visible = False i = i + 1

' If i = ? Then ***** 8 ***** ' i =？ ***** 0 ***** End If

Picture1(i)．Visible = True End Sub

*****第10套 综合应用题★

考生文件夹下有一个工程文件sjt5.vbp。运行程序后，从文件中读出数据，放入5X5的二维数组a中。请编写程序，找出a数组中每行的最大值及该值在行中的次序（即列下标），并将所找到的结果分别保存到一维数组b、c中（a第一行的最大值保存在b(1)中，最大值的列次序保存在c(1)中）。

注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。

Dim a(5, 5) As Integer Dim b(5) As Integer Dim c(5) As Integer

Private Sub Command1_Click() N = 5

For i = 1 To N

'＝＝＝＝＝＝＝＝考生编写程序开始＝＝＝＝＝ Max = a(i, 1) For j = 1 To 5

If Max < a(i, j) Then Max = a(i, j) End If b(i) = Max

If Max = a(i, j) Then c(i) = j Next j

'＝＝＝＝＝＝＝＝考生编写程序结束＝＝＝＝＝ Next i Save End Sub

*****第11套 简单应用题

（1）在考生目录下有一个工程文件sjt3.vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Combo1的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意：

不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click( )

‘Combo1.? *** AddItem Text1.Text *** Text1.text=‖‖ End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

‘If KeyAscii > 57 Or KeyAscii < ? Then *** 48 *** MsgBox ―请输入数字！‖

‘KeyAscii=? *** 0 *** End if End Sub

（2）在考生目录下有一个工程文件sjt4.vbp。该程序的功能是计算M！+（M+1）！+（M+2）！+。。。+N！之和。窗体上有名称分别为Text1、Text2的两个文本框，用于接收输入的M和N（要求M

在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意：

不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click( ) Dim m as integer Dim n as integer Dim s as Long Dim i as Integer M=val(Text1.text) N =val(text2.text) S=0

‘For i=? to n *** m *** ‘t=? *** f(i) *** ‘s=s+? *** t *** Next

lblResult.Cation=s End Sub

Private Function f(ByRef x as integer) As Long Dim t as Long t=1 For i=1 to x

‘t=? *** t*i *** Next

?f=? *** t *** End Function

*****第11套 综合应用题

在考生目录下有一个工程文件sjt5.vbp，用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a^2+b^2=c^2。例如，3、4、5就是一个满足条件的整数组合（注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算）。编写程序，统计三个数均为60以内满足上述关系的整数组合的个数，并显示在标签Label1中。

注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click( ) ‘***** 考生编写程序开始 *****

Dim i As Integer Dim j As Integer

Dim k As Integer For i = 1 To 60 For j = 1 To 60

For k = 1 To 60

If i ^ 2 = j ^ 2 + k ^ 2 Then m = m + 1 End If Next k Next j Next i

Label1.Caption = m / 2

‘***** 程序结束 ***** Save Label1 End Sub

Public Sub Save(l As Control)

Open App.Path & ―\\out5.txt‖ For Output As #1 Print #1, l.Caption Close #1 End Sub

*****第12套 简单应用题

（1）在考生文件夹下有一个工程文件sjt3.vbp，包含了所有控件和部分程序。程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标签Label1中；若是大写字母，则把它的小写形式显示在Label1中，若是其他字符，则将该字符直接显示在Label1中。输入的字母总数则显示在标签Label2中，如图所示。

要求：去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。 Dim n As Integer

Private Sub Text1_Change() Dim ch As String

' ch = Right$( ? ) ***** Text1,1 ***** If ch >= \ Label1.Caption = LCase(ch) n = n + 1

ElseIf ch >= \= \ Label1.Caption = UCase(ch) n = n + 1 Else

' Label1.Caption = ? ***** ch ***** End If

' Label2.Caption = ? ***** n ***** End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体中有一个图片框，图片框中有一个蓝色圆，名称为Shape1，如图所示。

当程序运行时，单击\开始\按钮，圆半径逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击\停止\按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉

程序中的注释符，把程序中的?改为正确的内容。

提示：程序中的符号常量blue_color表示蓝色的值，red_color表示红色的值。

注意：不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。 Dim left0 As Integer

Const blue color =&HFF0000, red color = &HFF& Private Sub Command1_Click()

' Timer1.Enabled = ? ***** True ***** End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Form_Load() left0 = Shape1.Left End Sub

Private Sub Timer1_Timer()

If Shape1.FillColor = blue color Then If Shape1.Left > 0 Then

Shape1.Height = Shape1.Height + 100 Shape1.Width = Shape1.Width + 100 Shape1.Left = Shape1.Left - 50 Shape1.Top = Shape1.Top - 50 Else

' Shape1.FillColor = ? ***** red_color ***** End If End If

If Shape1.FillColor = red color Then If Shape1.Left < left0 Then

Shape1.Height = Shape1.Height - 100 Shape1.Width = Shape1.Width - 100

' ？ = Shape1.Left + 50 ***** Shape1.Left ***** ' ？ = Shape1.Top + 50 ***** Shape1.top ***** Else

' Shape1.FillColor = ? ***** blue_color ***** End If End If End Sub

*****第12套 综合应用题

在考生文件夹下有一个工程文件sjt5.vbp，包含了所有控件和部分程序。当程序运行时，单击\打开文件\按钮，则弹出\打开\对话框，默认目录为考生目录，默认文件类型为\文本文件\。选中in5.txt文件(如图1所示)，单击\打开\按钮，则把文件中的内容读入并显示在文本框(Text1)中；单击\修改内容\按钮，则将Text1中的大写字母\、\、\改为小写，把小写字母\、\、\改为大写；单击\保存文件\按钮，则弹出\另存为\对话框，默认文件类型为\文本文件\，默认文件夹为考生文件夹，默认文件为\如图2所示)，单击\保存\按钮，则将Text1中修改后的内容存到out5.txt文件中。

窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写\修改内容\按钮的Click事件过程。

注意；考生不得修改已经存在的程序。必须把Text1中修改后的内容用\保存文

件\按钮存储结果，否则无成绩。最后，按照文件名将程序存盘。

Private Sub Command1_Click() Dim s As String

CommonDialog1.Filter = \所有文件|*.*|文本文件|*.txt\

' CommonDialog1.FilterIndex = ? ***** 2 ***** On Error GoTo openerr

CommonDialog1.InitDir = App.Path CommonDialog1.ShowOpen

' Open ? For Input As #1 ***** CommonDialog1.FileName ***** Input #1, s Close #1

' Text1.Text = ? ***** s ***** openerr： End Sub

Private Sub Command2_Click()

' ***** 考生需要编写的程序 ***** Dim ch As String Dim s As String Dim n As Long s = Text1.Text Text1.Text = \ For n = 1 To Len(s) ch = Mid(s, n, 1)

If ch = \ ch = LCase(ch) If ch = \ Then ch = UCase(ch) Text1.Text = Text1 & ch Next n End Sub

Private Sub Command3_Click()

CommonDialog1.Filter = \文本文件|*.txt|所有文件|*.*\CommonDialog1.FilterIndex = 1 On Error GoTo openerr

CommonDialog1.FileName = \CommonDialog1.InitDir = App.Path

' CommonDialog1.Action = ? ***** 2 ***** Open CommonDialog1.FileName For Output As #1 Print #1, Text1 Close #1 openerr： End Sub

第13套 基本操作题★★★

（1）在名称为Form1的窗体上添加两个名称分别为Frame1、Frame2的框架，标题分别为\字号\、\修饰\；在Frame1中添加两个单选按钮，名称分别为Option1、Option2，标题分别为\号字\、\号字\，且标题显示在单选按钮的左边；在Frame2中添加1个名称为Check1的复选框，标题为\下划线\。程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

控件 属性 设置值 控件 属性 设置值 单选按钮1 Name Option1 Caption 10号字 框架1 Name Frame1 单选按钮2 Name Caption Option2 20号字 Caption 字号 框架2 Name Frame2 复选框 Name Check1 Caption 下划线 Caption 修饰 （2）在名称为Form1的窗体上从上到下添加两个文本框，名称分别为Text1、Text2；再添加1个命令按钮，名称为Command1，标题为\选中字符数是\。程序运行时，在Text1中输入若干字符，选中部分内容后，单击\选中字符数是\按钮，则选中的字符个数显示在Text2中(如图所示)。请编写按钮的Click事件过程。

要求：程序中不得使用变量，事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。

Private Sub Command1_Click() Text2 = Text1.SelLength End Sub

*****第13套 简单应用题★★★

（1）在考生文件夹下有一个工程文件sjt3.vbp。程序运行后，单击\读入数据\按钮，可将考生文件夹下in3.txt文件中的所有英文单词读入，并在Text1文本框中显示；单击\插入列表框\按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。

在in3.txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。

要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运

行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

Private Sub Command1_Click() Dim st$, ch$

Open App.Path & \Do While Not EOF(1)

Input #1, ch

' st= ? & ch ***** st ***** Loop Close #1 Text1 = st

End Sub

Private Sub Command2_Click() Dim st$, word$, c$ st = Text1 n = Len(st) For k = 1 To n

' ？ = Mid(st, k, 1) ***** c ***** If c <> \ word = word & c Else

List1.AddItem word

' ？ = \ ***** word ***** End If Next

List1.AddItem word End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击\开始\按钮，则每0.1秒窗体上的汽车图标向右移动一次(初始状态下不移动)；如果单击\停止\按钮，则停止移动。

请完成以下工作：

①设置适当控件的适当属性，使得每0.1秒汽车图标向右移动一次，而初始状态下不移动。 ②请去掉程序中的注释符，把程序中的?改为正确的内容。

③为两个命令按钮编写适当的事件过程，最后以原文件名存盘。

*注意：不得修改已经给出的程序。编写事件的过程中不能使用变量，每个事件过程中只能有一条语句。 Private Sub Timer1_Timer()

' P1.? P1.Left + 20 ***** Left= ***** End Sub

? ***** 需要考生编写的程序 ***** Private Sub C1_Click() Timer1.Enabled = True End Sub

Private Sub C2_Click()

Timer1.Enabled = False End Sub

*****第13套 综合应用题★★★

在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框Text1中输入一个大于2的偶数，并单击\分解为\命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也可以分解为11和13，要求取含有最小素数的组合，如图所示)。要求编写\分解为\命令按钮事件过程中\考生编写程序开始\和\考生编写程序结束\之间的代码，以实现上述功能。过程IsPrime用来判断一个数是否为素数，如果是，返回值为True，否则返回值为False。

注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入23456，单击\分解为\按钮，将结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名存盘。 ' ***** 需考生编写的程序 *****

For i = 1 To Val(Text1.Text)

If IsPrime(i) And IsPrime(Val(Text1.Text) - i) Then Label1 = i

Label2 = Val(Text1.Text) - i Exit For End If Next i

*****第14套 基本操作题★★

（1）在名称为Form1的窗体上画一个名称为Picture1的图片框（PictureBox），高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框（Image）。并通过属性窗口把考生目录下的图标文件Point11（香蕉图标）装入图像框Image1中，如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

（2）在名称为Form1的窗体上画一个名称为Command1、标题为“保存文件”的命令按钮，再画一个名称为CommonDialog1的通用对话框。要求：

1）通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为out2； 2）运行时单击“保存文件”命令按钮，则以“保存对话框”方式打开该通用对话框，如图所示。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。

保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

*****第14套 简单应用题★★

（1）在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件（如图1所示）。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置（如图2所示）；若用鼠标右键单击圆的边线，则指针恢复到起始位置（如图1所示）；若鼠标左键或右键单击其他位置，则在标签上显示“鼠标位置不对”。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上（判断结果略有误差），是则返回True，否则返回False。符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius是圆的半径。注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

Const y0& = 1110, x0& = 1100, radius& = 750

Private Function oncircle(X As Single, Y As Single) As Boolean precision = 55000

If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) < precision Then oncircle = True Else

oncircle = False End If End Function

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Const LEFT_BUTTON = 1 If oncircle(X, Y) Then Line1.X1 = x0 Line1.Y1 = y0

If Button = LEFT_BUTTON Then Line1.X2 = X

' Line1.Y2 = ? ***** Y ***** Else

' Line1.X2 = Line1.? ***** X1 ***** ' Line1.Y2 = y0 - ? ***** radius ***** End If

Label1.Caption = \ Else

' ? = \鼠标位置不对\ ***** label1.caption *****

End If End Sub （2）在考生目录下有一个工程文件sjt4.vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n（要求：8<=n<=12）；单击“计算”按钮，则计算1!+2!+3!+…….+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的out4.dat文件中。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容，并编写“计算”按钮的Click事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。 Dim n As Integer

Private Sub Command1_Click()

n = Val(InputBox(\请输入整数（8-12）\输入\

' If n > ? Or n < 8 Then ***** 12 ***** MsgBox (\数据错误，请重新输入\ Command2.Enabled = False Command3.Enabled = False Else

Command2.Enabled = True Command3.Enabled = True End If End Sub

Private Sub Command2_Click() Dim s As Long, k As Integer *****'考生应编写的程序***** S=1

For k=2 to n S=s+f(k) Next k

Text1.text=s

*****End Sub*****

Function f(n As Integer) As Long

' s = ? ***** 1 ***** For k = 2 To n s = s * k Next

' f = ? ***** s ***** End Function

Private Sub Command3_Click()

Open App.Path & \ Print #1, n, Text1 Close #1 End Sub

*****第14套 综合应用题★★

在考生文件夹下有一个工程文件sjt5.vbp，含三个窗体，标题分别为‘启动’、‘注册’、‘登录’，运行时显示‘启动’窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数（最多10个）放在全局变量n中（均已在标准模块中定义）。注册时用户名不能重复，且‘口令’与‘验证口令’须相同，注册成功则在‘启动’窗体的标签中显示‘注册成功’，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在‘启动’窗体的标签上显示‘登录成功’，否则显示相应错误信息。

标准模块中函数finduser的功能是：在users数组中搜索用户名（即参数ch），找到则返回该用户名在user中的位置，否则返回0。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的？改为正确的内容。 ―――――――――Form2――――――――――――――――――――――――― Private Sub Command1_Click() Text1 = \ Text2 = \ Text3 = \End Sub

Sub writeusers()

' n = n + ? ***** 1 ***** users(n, 1) = Text1 users(n, 2) = Text2 End Sub

Private Sub Command2_Click() If Text1 = \

MsgBox (\必须输入用户名！\ Text1.SetFocus

' ElseIf finduser(Trim$(Text1)) > ? Then ***** 0 ***** MsgBox (\此用户名已经存在!\ ElseIf Text2 <> Text3 Then

MsgBox (\口令验证错误!\ Else

writeusers

' ? = \注册成功！\ ***** form1.label1.caption ***** Form2.Hide End If End Sub

―――――――――Form3――――――――――――――――――――――――― Private Sub Command1_Click() k = finduser(Trim$(Text1))

' If k = ? Then ***** 0 ***** MsgBox (\没有注册！\

' ElseIf Trim$(Text2) <> users( ? ) Then ***** n,2 ***** MsgBox (\口令错误！\ Else

Form1.Label1.Caption = \登录成功！\ Form3.Hide End If End Sub

第15套 基本操作题★★

（1）在名称为Form1的窗体上添加一个名称为Label1的标签，标签的长和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题居中显示\等级考试\，并使标签的外观如图所示。程序运行后的窗体见下图。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

（2）在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为\红桃\、\黑桃\、\清除\。在考生文件夹下有两个图标文件，其名称分别为\和\。程序运行时，单击\黑桃\按钮，则在图像框中显示黑桃图案(即Misc37.ico文件)；单击\红桃\按钮，则在图像框中显示红桃图案(即Misc34.ico文件，如图所示)；单击\清除\按钮则清除图像框中的图案。请编写相应控件的Click事件过程，实现上述功能。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 控件 属性 设置值 控件 属性 设置值 图像框 Name Image1 命令按钮2 Name Command2 黑桃 BorderStyle Stretch 1 Ture 命令按钮1 Name Command1 Caption 红桃 命令按钮3 Caption Name Command3 Caption 清除

Private Sub Command1_Click() Image1.Picture = LoadPicture( \End Sub

*****第15套 简单应用题★★

Private Sub Command2_Click() Image1.Picture = LoadPicture(\End Sub Private Sub Command3_Click() Image1.Picture =loadpicture(“”) End Sub （1）在考生文件夹下有一个工程文件sjt3.vbp。其窗体文件上有一个标题为\得分\的框架，在框架中有一个名称为Text1的文件框数组，含六个文本框控件；文本框Text2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击\计算分数\按钮，则可计算出最后得分并显示在文本框Text3中(如图所示)。

计算方法：

去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。

注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释

符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

Private Sub Command1_Click()

Dim k As Integer, s As Single, a As Single, b As Single a = Val(Text1(0)．Text) s = a b = a

' For k = 1 To ? ***** 5 ***** s = s + Val(Text1(k)．Text)

' If ? < Val(Text1(k)．Text) Then ***** a ***** a = Val(Text1(k)．Text) End If

If b > Val(Text1(k)．Text) Then b = Val(Text1(k)．Text) End If Next k

' s = (s - a - b) / ? ***** 4 ***** ' s = ? * 3 * Val(Text2.Text) ***** s *****

' ？ = Int(s * 100) / 100 ***** Text3.Text ***** End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体上的控件如图所示。程序运行时，若选中\累加\单选按钮，则\、\菜单项不可用，若选中\阶乘\单选按钮，则\、\菜单项不可用(如图所示)。选中菜单中的一个菜单项后，单击\计算\按钮，则相应的计算结果在文本框中显示(例如，选中\累加\和\，则计算1+2+3…+2000，选中\阶乘\和\，则计算10!)。单击\存盘\按钮则把文本框中的结果保存到考生文件夹下的out4.dat文件中。

要求：编写\计算\按钮的Click事件过程。

注意：不得修改已经存在的程序，在结束程序运行之前，必须用\存盘\按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 ' ***** 需考生编写的程序 *****

Private Sub Command1_Click() If Option1.Value=True Then

m = 1

For i = 1 To n m = m*i Next i

Text1.Text = m End If

If Option2.Value=True Then

sum = 0

For i = 1 To n

sum = sum + j Next i

Text1.Text = sum End If End Sub

*****第15套 综合应用题★★

在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是：数列的前2项是小于10的正整数，将此两数相乘，若乘积<10，则以此乘积作为数列的第3项；若乘积?10?则以乘积的十位数为数列的第3项，以乘积的个位数为数列的第4项。再用数列的最后2项相乘，用上述规则形成后面的项，直至产生了第n项。窗体上部从左到右3个文本框的名称分别为：Text1、Text2、Text3，窗体下部的文本框名称为Text4。程序运行时，在Text1、Text2中输入数列的前两项，Text3中输入要产生的项数n，单击\计算\按钮则产生此数列的前n项，并显示在Text4中。如图所示。

已经给出了全部控件，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click() Text4 = \a = Val(Text1) b = Val(Text2) n = Val(Text3)

' Text4 = Text4 & a & \ \ ***** b ***** k = 2

Do While k < n c = a * b k = k + 1

If c < 10 Then

Text4 = Text4 & \ \

' a = ? ***** b ***** b = c Else

d = c \\ 10

Text4 = Text4 & \ \ a = d k = k + 1

' If k <= ? Then ***** n ***** d = c Mod 10

Text4 = Text4 & \ \

' ？ = d ***** b ***** End If End If Loop End Sub

第16套 基本操作题★★★★

（1）在名称为Form1、标题为\标签\的窗体上添加一个名称为Label1的标签，并设置适当属性以满足以下要求：

①标签的标题为\计算机等级考试\；

②标签可根据标题内容自动调整其大小； ③标签带有边框，且标签标题显示为三号字。 程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

（2）在名称为Form1的窗体上添加一个名称为Hscroll1的水平滚动条，其刻度范围为1~100；再添加一个名称为Text1的文本框，初始文本内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图所示。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。

Private Sub Form_Activate() HScroll1.SetFocus End Sub

*****第16套 简单应用题★★★★

Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End Sub （1）在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及两条水平直线，名称分别为Line1和Line2。

请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求：

①圆的顶端距窗体Form1顶端的距离为360；

②圆的颜色为红色(红色对应的值为：&H000000FF& 或&HFF&)，如图所示。

程序运行时，Shape1将在Line1和Line2之间运行。当Shape1的底部到达Line2时，会自动改

变方向而向上运动；当Shape1的顶端到达Line1时，会自动改变方向而向下运动。

文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 Dim s As Integer, h As Long Private Sub Form_Load()

' Timer1.Enabled = ? ***** True ***** s = - 40 End Sub

Private Sub Timer1_Timer()

Shape1.Move Shape1.Left, Shape1.Top + s

' If Shape1.Top <= ? Then ***** Line1.Y1 ***** s = - s End If

' If Shape1.Top + ? >= Line2.Y1 Then ***** Shape1.Height ***** s = - s End If End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图所示。其功能如下：

1)单击\读数据\按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a中； 2)单击\计算\按钮，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。

\读数据\按钮的Click事件过程已经给出，请为\计算\按钮编写适当的事件过程实现上述功能。

注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 ' ***** 需考生编写的程序 *****

If Combo1.ListIndex = 0 Then For i = 1 To 100

If a(i) Mod 2 = 0 Then s = s + a(i) n = n + 1 End If Next i

Text1.Text = s \\ n End If

If Combo1.ListIndex = 1 Then For i = 1 To 100

If a(i) Mod 2 <> 0 Then s = s + a(i) n = n + 1 End If Next i

Text1.Text = s \\ n End If

If Combo1.ListIndex = 0 Then For i = 1 To 100 s = s + a(i) Next i

Text1.Text = s \\ 100 End If

**********************************************

*****第16套 综合应用题★★★★

在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.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

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

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

Option Base 1

Private Sub Form_Click() Const N = 5 Const M = 5

' Dim ? ***** Mat(N,M) As Integer ***** Dim i, j, t

' Open App.Path & \ ? As #1 ***** For Input ***** For i = 1 To N

For j = 1 To M

' ？ ***** Input #1,Mat(i,j) ***** Next j Next i Close #1 Print

Print \初始矩阵为：\Print

For i = 1 To N

For j = 1 To M

Print Tab(5 * j); Mat(i, j)； Next j Print Next i

For i = 1 To N

t = Mat(i, 2)

Mat(i, 2) = Mat(i, 4)

' ? ***** Mat(i,4)=t ***** Next i Print

Print \交换第二列和第四列后的矩阵为：\

Print

For i = 1 To N

For j = 1 To M

Print Tab(5 * j); Mat(i, j)； Next j Print Next i End Sub

*****第17套 简单应用题★★★★

（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：

①单击\读数据\按钮，则将考生文件夹下in3.dat文件中的100个正整数读入数组a中； ②单击\计算\按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数

236?6?所以36就是一个完全平方数)，并计算这些完全的平方，那么它就是完全平方数。如：

平方数的平均值，最后将计算所得平均值截尾取整后在文本框Text1中显示。

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

注意：考生不得修改窗体文件中已经存在的控件和程序。在结束程序运行之前，必须进行\计算\，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将修改后的文件按原文件名存盘。 ' ***** 需考生编写的程序 *****

Private Sub Command2_Click() Dim sum As Long For k = 1 To 100

For m = 1 To Sqr(a(k)) If a(k) = m ^ 2 Then sum = sum + a(k) n = n + 1 End If Next m Next k

Text1 = Fix(sum / n) End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，其窗体上有1个计时器和2个命令按钮。计时器Timer1的初始状态为不可用；2个命令按钮的初始标题分别是\演示\和\退出\。请添加1个名称为Label1，且能根据标题内容自动调整大小的标签，其标题为\程序设计\，标题字体为黑体小四号字。如图所示。程序功能如下：

①单击标题为\演示\的命令按钮时，则该按钮的标题自动变换为\暂停\，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入。

②单击标题为\暂停\的命令按钮时，则该按钮的标题自动变换为\演示\，并暂停标签的滚动。

③单击\退出\按钮，则结束程序运行。

要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。

Private Sub Command1_Click()

' If Command1.Caption = ? Then ***** 演示 *****

' ? = True ***** Timer1.Enabled ***** Command1.Caption = \暂停\

Else

' ? = False ***** Timer1.Enabled ***** Command1.Caption = \演示\ End If End Sub

Private Sub Command2_Click() End End Sub

Private Sub Timer1_Timer()

' If ? > Form1.Width Then ***** Label1.Left+Label1.Width ***** Label1.Left = - Label1.Width Else

' Label1.Left = ? + 100 ***** Label1.Left ***** End If End Sub

*****第17套 综合应用题★★★★

在考生文件夹下有一个工程文件sjt5.vbp，窗体上有3个文本框，其名称分别为Text1、Text2和Text3，其中Text1、Text2可多行显示。请添加3个命令按钮，名称分别为Cmd1、Cmd2和cmd3，标题分别为\产生数组\、\统计\和\退出\。如图所示。程序功能如下：

①单击\产生数组\按钮时，随机生成20个0 10之间(不含0和10)的数值，并将其保存到一维数组a中，同时也将这20个数值在Text1文本框内显示。

②单击\统计\按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值在Text2文本框内显示、出现频率最高的次数在Text3文本框内显示。

③单击\退出\按钮时，结束程序运行。

注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。 Option Base 1

Dim a(20) As Integer, b(20) As Integer Private Sub Cmd1_Click()

Text1.Text = \： Text2.Text = \： Text3.Text = \ For i = 1 To 20

' a(i) = Fix(Rnd * ? + 1) ***** 9 ***** b(i) = 1

Text1.Text = Text1.Text + Str(a(i)) + Space(2) Next i End Sub

Private Sub Cmd2_Click() fmax = 0

For i = 1 To 20

' For j = 1 To ? ***** i-1 ***** If a(i) = a(j) Then b(i) = b(i) + 1 End If Next j

' If b(i) > ? Then fmax = b(i) ***** fmax ***** Next i

For i = 1 To 20

' If b(i) = ? Then ***** fmax ***** Text2.Text = Text2.Text + Str(a(i)) + Space(2) End If Next i

Text3.Text = fmax End Sub

Private Sub Cmd3_Click()

' ? ***** End ***** End Sub

第18套 基本操作题★★★

（1）在名称为Form1，标题为“框架”的窗体上画一个名称为Frame1，且没有标题的框架。框架内含有二个单选按钮，名称分别为Opt1和Opt2、标题分别为“字体”、“大小”。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

（2）考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值如下所示： 名称 X1 Y1 X2 Y2

Line1 600 1200 1600 300 Line2 1600 300 1600 1200 Line3 600 1200 2600 1200

要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画二个命令按钮，名称分别是Cmd1、Cmd2，标题分别为“显示高”、“隐藏高”，如图所示。

请编写适当的事件过程使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。

Private Sub Cmd1_Click() Private Sub Cmd2_Click()

本文来源：https://www.bwwdw.com/article/vdyg.html