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

第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，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何空白位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。

Private Sub Command2_Click()

' ***** 需要考生编写的内容 ***** b = Val(Text1)

If b >= 0 And b < 500 Then m = 0.3 * b

ElseIf b >= 500 And b < 1000 Then m = 0.3 * b * 0.98

ElseIf b >= 1000 And b < 1500 Then m = 0.3 * b * 0.95

ElseIf b >= 1500 And b < 2000 Then m = 0.3 * b * 0.92 ElseIf b >= 2000 Then m = 0.3 * b * 0.9 End If

Text2 = Int(m) End Sub

Private Sub Command3_Click()

Open App.Path & \Print #1, List1.Text, Text1, Text2 Close #1 End Sub

Private Sub List1_Click()

' ***** 需要考生编写的内容 ***** Text1 = a(List1.ListIndex + 1) End Sub

第20套 基本操作题★★

（1）在名称为Form1的窗体上添加一个名称为C1、标题为\改变颜色\的命令按钮，窗体标题为\改变窗体背景色\。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

Private Sub C1_Click() Form1.BackColor = &HFF& End Sub

（2）在名称为Form1的窗体上添加一个名称Shape1的形状控件，在属性窗口中将其形状设置为圆形。添加一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为\图形控件\。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。

要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件

名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 控件 属性 设置值 形状控件 Name Shape1 Shape 3 列表框 Name List1 List 1 2 3 4 5 Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub *****第20套 简单应用题★★

（1）在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数、并且能够被所选除数整除的5个数添加到列表框List1中，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。

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

Dim y As Integer For i=0 to 2

‘ If ?= True Then ***** Option1(i).Value ***** ‘ y=val(Option1(i).?) ***** Caption ***** End If Next Call calc(y) End Sub

Private Sub calc(y As Integer)

ClearList i=1

x=val(Text1.Text) + 1

‘ Do while i<= ? ***** 5 ***** If x mod y=0 then

‘ List1.AddItem ? ***** x ***** i=i+1 End If x=x+1 Loop End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，单击“开始”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图所示。在窗体文件中已经给出了全部控件，但程序不完整。

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

Timer1.Enabled = True End Sub

Private Sub Command2_Click( )

Timer1.Enabled = False End Sub

Private Sub Form_Load( )

‘ Timer1.Interval = ? ***** 500 ***** End Sub

Private Sub Timer1_Timer( )

Picture1.Top = Picture1.Top + 200

‘ Vscroll1.? = Picture1.Top ***** Value ***** If Vscroll1.Value + 200 >= Form1.Height – 200 Then

‘ Picture1.Top = ? ***** 0 ***** End If End Sub

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

在考生文件夹下有一个工程文件sjt5.vbp，窗体如图所示。运行程序时，从数据文件中读取学生的成绩（均为整数）。要求编写程序，统计总人数，并统计不及格、60~69、70~79、80~89及90~100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。

注意： 不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。 Private sub command2_click( )

Open app.path & ―\\out5.txt‖ for output as #1 Print #1, text1.text Print #1, text2.text Print #1, text3.text Print #1, text4.text Print #1, text5.text Print #1, text6.text Close #1

Msgbox ―保存成功！‖ End Sub

Private Sub Form_Load( )

Open app.path & ―\\in5.txt‖ for input as #1 N=0

Do while not eof(1)

Input #1,x N=n+1 Arr(n)=x Loop Close #1 End sub

Private sub command1_click( )

?=========‖以下考生编写程序开始‖=========

For i = 1 To n

If arr(i) < 60 Then

Text2 = Val(Text2) + 1

ElseIf arr(i) >= 60 And arr(i) < 70 Then Text3 = Val(Text3) + 1

ElseIf arr(i) >= 70 And arr(i) < 80 Then Text4 = Val(Text4) + 1

ElseIf arr(i) >= 80 And arr(i) < 90 Then

Text5 = Val(Text5) + 1

ElseIf arr(i) >= 90 And arr(i) <= 100 Then Text6 = Val(Text6) + 1 End If

Text1 = Val(Text1) + 1 Next

?=========‖考生编写程序结束‖============= End sub

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

（1）在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母和数字。单击标题为\统计\的命令按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别在标签控件数组x中显示。如图所示。

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

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

Private Sub Command1_Click() Dim n As Integer Dim b As Integer Dim a(3) As Integer s = RTrim(Text1.Text)

'n = ? (Text1.Text) ***** Len ***** For i = 1 To n

'b = ? (Mid(s, i, 1)) ***** Asc ***** 'Select Case ? ***** b ***** Case 48 To 57

a(0) = a(0) + 1 Case 65 To 90

a(1) = a(1) + 1 Case 97 To 122 a(2) = a(2) + 1 End Select Next

'For i = 0 To ? ***** 2 ***** '? = a(i) ***** x(i) ***** Next End Sub （2）考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、List2的列表框控件，两个名称分别为Command1、Command2，标题分别为\、\的命令按钮。请在List1中添加\文本框\、\标签\、\列表框\、\单选钮\等选项，如图所示。

程序的功能是：

单击\，将List1中的表项添加到List2中，同时将List1中选中的表项清空；单击\，将List2中的表项添加到List1处中，同时将List2中选中的表项清空。程序已给出，但是不完整。请将程序中的注释符去掉，把?改为正确的内容，实现上述的功能。

注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 Private Sub remove(La As ListBox, Lb As ListBox)

' For i = 0 To ? – 1 ***** La.ListCount ***** ' Lb.AddItem ？.List(i) ***** La ***** Next

' ？.Clear ***** La ***** End Sub

Private Sub Command1_Click() Call remove(List1, List2) End Sub

Private Sub Command2_Click() Call remove(List2, List1) End Sub

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

在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序，单击\读数据\按钮，读入到文件中的数据到字符串变量中并显示在Label2标签中。单击\排序\命令按钮时，对读入的数据从小到大进行排序，并将排序结果在窗体的Label4控件中显示。

要求：工程文件中已给出部分程序，\读数据\命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写\排序\命令按钮的事件过程中的部分程序代码。

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

Dim a(10) As Integer Public Sub Save()

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

Private Sub Command1_Click()

Open App.Path & \

' Do While Not ？ ***** EOF(1) ***** For i = 1 To 10 Input #1, a(i)

' s = s & ? ***** a(i) ***** Next i Loop Close #1

Label2.Caption = s End Sub

Private Sub Command2_Click()

' ＝＝＝＝＝以下考生编写程序开始＝＝＝＝＝＝＝＝ For i = 1 To 10 f = True

For j = 1 To 9

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

a(j) = a(j + 1) a(j + 1) = t f = False

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()

Line4.Visible = True End Sub *****第18套 简单应用题★★★

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

Line4.Visible = False End Sub 1）单击‘读数据’按钮，则把考生文件夹下in3.dat文件中的100个0-999之间的整数读入数组a中；

2）单击‘计算’按钮，则对这100个整数中的所有水仙花数（当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。如：153＝1^3+5^3+3^3，所以153就是一个水仙花数）求平均值，并对该平均值截尾取整后显示在文本框Text1中。窗体中给出了所有控件（如图所示），以及‘读数据’按钮的Click事件过程，请为‘计算’按钮编写适当的事件过程实现上述功能。

注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 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 k ,c1, c2, c3, avg, num as integer Avg=0 Num=0 For k=1 to 100 C1=int(a(k)/100) C2=int((a(k)-c1*100)/10) C3=a(k) mod 10

If a(k)=c1^3+c2^3+c3^3 then Avg=avg+a(k) End if Next k

Avg=int(avg / num) Text1.text=avg ***** End Sub *****

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

（2）已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1.2元，15公里以上每公里收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击‘输入’按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击‘计算’按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

Dim s As Integer

Private Sub Command1_Click()

s = Val(InputBox(\输入里程数（单位：公里）\End Sub

Private Sub Command2_Click() If s > 0 Then

'Select Case ? ***** s ***** Case Is <= 4

'? ***** f=10 ***** Case Is <= 15

'f = 10 + ? ***** (s-4)*1.2 ***** 'Case ?

'f = 10 + ? + (s - 15) * 1.8 ***** 13.2 ***** End Select Text1.Text = f Else

MsgBox \请单击“输入”按钮输入里程数！\ End If End Sub

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

在考生文件夹下有一个工程文件sjt5.vbp，窗体上有二个标题分别是“读数据”和“统计”的命令按钮。请画二个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再画二个名称分别为Text1和Text2，初始值为空的文本框，如图所示。程序功能如下：

1）单击“读数据”按钮，则将考生文件夹下in5.dat文件的内容读到变量s中（此过程已给出）；

2）单击“统计”按钮，则自动统计in5.dat文件中所含各字母（不区分大小写）出现的次数，并将出现次数最多的字母显示在Text1文本框，它所出现的次数显示在Text2文本框内。

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

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

Private Sub Command1_Click()

Open App.Path & \ s = Input(LOF(1), #1) Close #1 End Sub

Private Sub Command2_Click() ' ***** 考生编写的程序 ***** Dim n(26) ,i, k as integer For i=1 to 26 n(i)=0 Next i

For i=1 to len(s)

K=asc(lcase(mid(s,i,1)))-asc(―a‖)+1 If k>0 and k<=26 then \\ n(k)=n(k)+1 End if

Next i K=1 For i=2 to 26 If n(i)>n(k) then K=i End if Next i

Text1.text=chr((asc(―a‖)+k-1) Text2.text=n(k) ***** End Sub *****

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

第19套 基本操作题★★★

（1）在名称为Form1的窗体上添加1个名称为Shape1的圆角矩形，高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求：

①圆角矩形中填满绿色(颜色值为：&H0000FF00&或&HFF00&)； ②窗体的标题为\圆角矩形\,字体为\仿宋_GB2312\。 程序运行后的窗体如图所示。

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

（2）在考生文件夹下有一个工程文件sjt2.vbp。窗体中已含有除计时器外的其他控件，还有一个过程sub1，其功能是按照Text1中的通话时间计算通话费，并将其显示在Text2中。

程序运行时，单击\通话开始\按钮，则在Text1中累加通话时间(每隔1秒，文本框中的数加1)，单击\通话结束\按钮，则停止通话时间的累加；单击\计算通话费\按钮，则调用过程sub1。

要求：

①在窗体上画一个计时器，如图所示，并通过属性窗口设置适当属性。 ②编写三个按钮的Click事件过程。 ③编写计时器的事件过程。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，\计算通话费\按钮的事件过程中只允许调用过程sub1。不得修改已经存在的程序和控件属性，最后把文件按原文件名存盘。

Private Sub Command1_Click() Timer1.Enabled = True Private Sub Command2_Click() Timer1.Enabled = False

End Sub Private Sub Command3_Click() Call sub1 End Sub

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

End Sub Private Sub Timer1_Timer() Text1.Text = Text1.Text + 1 End Sub （1）在考生文件夹下有一个工程文件sjt3.vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 Private Sub Form_Click()

' For i = 1 To ? ***** 5 ***** For j = 1 To 6 - i Print \； Next j

' For j = 1 To ? ***** 2*i-1 ***** Print \； Next j Print Next i

For i = 1 To 4

' For j = 1 To ? ***** i+1 ***** Print \； Next j

' For j = 1 To ? ***** (9-2*i) ***** Print \； Next j Print Next i End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体中有一个矩形和一个圆，程序运行时，单击\开始\按钮，圆可以横向或纵同运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击\停止\按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。

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

注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 Dim d As Integer

Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Command2_Click()

' ？ = False ***** Timer1.Enabled ***** End Sub

Private Sub Form_Load() d = 1 End Sub

Private Sub Timer1_Timer()

If Option1 Then

' Shape2.Top = ? + d * 50 ***** Shape2.Top *****

' If Shape2.Top <= Shape1.? Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Then ***** Top *****

d = - d End If

ElseIf Option2 Then

' Shape2.Left = ? + d * 50 ***** Shape2.Left *****

If Shape2.Left <= Shape1.Left Or Shape2.Left + Shape2.Width >= Shape1.Left + Shape1.Width Then

d = - d End If End If End Sub

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

在考生文件夹下有一个工程文件sjt5.vbp。程序运行时，单击\装入数据\按钮，则从考生文件夹下的in5.txt文件中读入所有城市名称和距离，城市名称按顺序添加到列表框List1中，距离放到数组a中；当选中列表框中的一个城市时，它的距离就在Text1中显示，如图所示；此时，单击\计算运费\按钮，则计算到该城市的每吨运费(结果取整，不四舍五入)，并在Text2中显示。

每吨运费的计算方法是：距离?折扣?单价。 其中，单价为0.3。

折扣为 距离<500 折扣为1 折扣为0.98

500?距离<1000

1000?距离<1500 1500?距离<2000 2000?距离

折扣为0.95 折扣为0.92 折扣为0.9

单击\保存\按钮，则把距离和每吨运费存到文件out5.txt中。 已经给出了所有控件和部分程序，要求：

①去掉程序中的注释符，把程序中的?改为正确的内容； ②编写\计算运费\按钮的Click事件过程。 ③编写列表框的Click事件过程；

注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须使用\保存\按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。

Dim a(10) As Integer, n As Integer Private Sub Command1_Click()

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

' n = n + ? ***** 1 ***** Input #1, ch$, a(n)

' List1.AddItem ? ***** ch ***** Wend Close #1 End Sub

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