单选题窗体如下左图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”“刘备”两项，结果如下右图所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为（ ）。A For k=List1.ListCount-1 To 0 Step
题目
For k=List1.ListCount-1 To 0 Step -1
For k=0 To List1.ListCount
For k=1 To List1.ListCount-1
For k=1 To List1.ListCount
相似考题
更多“单选题窗体如下左图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”“刘备”两项，结果如下右图所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为（ ）。A For k=List1.ListCount-1 To 0 Step”相关问题
-
第1题：
在考生文件夹中有一个工程文件execise25.vbp，相应的窗体文件为execise25.timo在在名为Form1的窗体上有一个命令按钮，其名称为Cmd1，标题为“输入”；还有一个文本框，其名称为Text1，初始内容为空白。
程序运行后，单击“输入”命令按钮，显示“输入”对话框。在对话框中输入某个月份的数值(1～12)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入8，将输出“8月份是秋季”，如下图所示。
该程序不完整，请补充完整。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。
正确答案：
-
第2题：
某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。
A．把Ifa(k)＞max Then 改为 If a(k)＜max Then
B．把max=a(k)改为a(k)=max
C．把第2个循环语句For k=1 To 10改为For k=2 To 10
D．把max=O改为max=a(10)
正确答案：D
解析：本题考查的考点是有关循环和数组的。本题为了实现求取最大值，首先应该假设数组中的某一个数就是最大值，再依次与数组元素比较，一旦某个元素比当前的最大值大，就把它作为新的最大值。max初值设为。是不可以的，它没有考虑到数组元素都小于0的情况。 -
第3题：
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A. 京
B. 北京南京
C. 南京北京
D. 没有匹配的项目
正确答案：C
C) 【解析】本题考查循环程序的分析以及列表框属性的应用。首先Instr(List1．List(k)，s)语句的作用是在List1．List(k)中从头开始寻找S，找不到则返回0，否则返回S在List1．List(k)中的位置。整个循环体的功能是，从列表框中最后一个列表项开始寻找含有与Text1中输入的字符串相同的子串，如果存在相同的子串，则把．List1．List(k)全部连接到str中。
-
第4题：
在考生文件夹中有一个工程文件execise57.vbp及其窗体文件execise57.frm。请在名为 Form1的窗体上绘制两个单选按钮(名称分别为Opt1和Opt2，标题分别为“添加项目”和“删除项目”)、一个列表框(名为List1)和一个文本框(名为Text1)。
编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目(内容任意，不少于3个)后，会添加到列表框中；如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目后，会将其从列表框中删除。程序的运行情况如下图所示。
本程序不完整，请补充完整。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第5题：
窗体上有一-个Text1文本框，一个Command1命令按钮，并有以下程序：
Private Sub Command1 Click（ ） Dim n If Text1．Text<>"123456"Then n=n+1 Print"口令输入错误”＆n＆”次" End If End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令’’命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是（ ）。A.在Dim n语句的下面添加一句：n=0
B.把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”+n+“次”
C.把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”＆Str(n)＆“次”
D.把Dim n改为Static n
正确答案：D
D。【解析】本题要实现的功能是当输入错误口令时，在窗体上显示输入错误口令的次数，本题若要正确记录输入错误的次数，应把n定义成静态变量n。 -
第6题：
在考生文件夹中有一个工程文件execise41.vbp和窗体文件execise41.frm。在名为 Form1的窗体上有一个名称为Text1的文本框，一个名称为Lid1的列表框，一个命令按钮 (名为Cmd1，标题为Insert)，如下图所示。
程序的功能是：在运行时，如果在文本框中输入一行内容并单击Insert按钮，则把文本框中的内容作为列表项添加到列表框中；如果单击列表框中的某一项，则立即从列表框中删除该项。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后原名保存修改后的文件。
正确答案：
-
第7题：
在考生文件夹中有工程文件execise23.vbp及窗体文件execise23.frm。在名为Form1、标题为“求和程序”的窗体上有3个Labe1控件、2个Text控件和3个命令按钮(如下图所示)。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和。
要求：
(1)刚启动工程时，Result和Clear按钮均为灰色。
(2)可以在输入框内输入任意自然数(n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时Result按钮按钮变为可用。当输入为非数值时，累加结果为0。
(3)单击Result按钮可以在Text2中显示累加和，且该框内的文字不可修改：同时 Result按钮变灰，Clear按钮变为可用。
(4)单击Clear按钮，输入框和显示框均显示“0”。
(5)单击Close按钮结束程序的运行。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“”’，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第8题：
在考生文件夹下有一个工程文件sjt3．vbp，其功能是： ①单击“读数据”按钮，则把考生文件夹下in3．dat文件中的100个正整数读入数组a中； ②单击“统计”按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方，那么它就是完全平方数。例如，36=62，所以36就是一个完全平方数)，并将这些完全平方数的最大值与个数分别显示在文本框Text1、Text2中。 在给出的窗体文件中有了全部控件(如图6所示)，但程序不完整，请将程序中的注释符去掉，把?号改为正确的内容，实现上述功能。 注意：考生不得修改窗体文件己存在的控件和程序，最后将程序原文件名存盘。
(2)在考生文件夹_下有一个工程文件sjt4．vbp，其窗体上有两个标题分别为“添加”和“退出”的命令按钮，一个内容为空的列表框List1。请画一个标签，其名称为Label1，标题为“请输入编号”；再画一个名称为Text1，初始值为空的文本框，如图7所示。程序功能如下： ①系统启动时，自动向列表框添加一个编号信息“a0001”。 ②系统运行时，在文本框Text1中输入一个编号，并单击“添加”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框List1已有项目之后；否则，将弹出“不允许重复输入，请重新输入!”对话框，单击该对话框中的“确定”按钮，可以重新输入。 ③单击“退出”按钮．则结束程序运行。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
正确答案：
第1小题
【知识点拔】Sqr(N)求平方根函数，用于返回N的算术平方根。
【审题分析】is_square函数用于判断参数x是否为完全平方数，方法是从l到X的平方根进行循环，依次判断x是否能等于循环变量的平方，若等于则退出循环，返回True，若循环结束后都没有等于某个循环变量的平方则返州False。
求完全平方数的最人值．只需要先预设最大值为0，然后在循环中每次找到一个完全平方数就将其与最大值比较，若大于预设最大值则令其为新的最大值，同时令计数器加1，循环结束后可得最大值与个数。
【操作步骤】
步骤l：打开考生文件夹下的本题工程文件sjt3．vbp，去掉程序中的注释符“”’，将问号“?”改为正确的内容。
参考代码：
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【审题分析】若要在系统启动时，自动向列表框添加一个编号信息“a0001”，需要在窗体的Load事件中调用列表框的Addltem方法向列表框中添加列表项。
在“添加”按钮的单击事件中，需要判断输入的值是否在列表框中已存在，为了实现这个功能，需要遍历整个列表框，其循环条件为For i=0 To List1．ListCount-1；在循环中首先令Listlndex属性值为i，这样第i个列表项的内容就是列表框的Text属性值，可以与文本框中的内容进行比较已经存在则弹出提示信息，并退出事件过程，若循环结束后还没有重复，则调用列表框的AddItem方法将文本框的内容加入列表框。
在“退出”按钮的单击事件过程，使用End语句结束整个程序的运行。
【操作步骤】
步骤l：打开考生文件中的本题工程文件sjt4．vbp，如表1-22 在窗体p画出控件并设置其相关属性。
步骤2：在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。
参考代码：
List1 Addltem”a0001”
Forl=0 To List1 ListCount-1
List1．Listlndex=1
List1.Addltem Text1. Text
End
步骤3：按要求将文件保存至考生文件夹中。 -
第9题：
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序： Private Sub Command1_Click（ ） For k=List1．ListCout-1 To 0 Step-1 If List1．Selected(k)Then List2．Addltem List1．List(k) List1．Removeltem k End If Next k End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。A.在List2中插入了“外语”、“物理”两项
B.在List1中删除了“外语”、“物理”两项
C.同时产生A和B的结果
D.把List1巾最后1个列表项删除并插入到List2中
正确答案：C
C。【解析】本题程序中的意思为如果选择了符合条件的数，那么将选中的项增加到List2列表框中，同时在List1中移除所选项，所以本题A和B选项均正确。 -
第10题：
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：
Private Sub Command1_Click（ ）
For k=List1．ListCout-1 To 0 Step-1
If List1．Selected(k)Then
List2．Addltem List1．List(k)
List1．Removeltem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。
A.在List2中插入了“外语”、“物理”两项
B.在List1中删除了“外语”、“物理”两项
C.同时产生A和B的结果
D.把List1巾最后1个列表项删除并插入到List2中
正确答案：C
C。【解析】本题程序中的意思为如果选择了符合条件的数，那么将选中的项增加到List2列表框中，同时在List1中移除所选项，所以本题A和B选项均正确。 -
第11题：
列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果下图所示。
程序如下，请补充完整。 
略 -
第12题：
单选题窗体如下左图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”“刘备”两项，结果如下右图所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为（ ）。AFor k=List1.ListCount-1 To 0 Step -1
BFor k=0 To List1.ListCount
CFor k=1 To List1.ListCount-1
DFor k=1 To List1.ListCount
正确答案： C解析：
由于每次找到满足条件的一项时都要将其删除，下一条记录就会替换掉这条记录的位置，但该位置的索引值已被遍历过，从而会跳过这条记录。正确的方法是从高索引向低索引遍历，遍历过程中删除满足要求的列表项，因此修改方案是把For k=0 To List1.ListCount -1改为Fork=List1.ListCount-1 To 0 Step-1。 -
第13题：
在考生文件夹中有工程文件execise118.vbp及窗体文件execise118.frm。如下图所示，
在名为Form1，标题为“求和程序”的窗体上有3个Labe1控件，2个Text控件和3个命
令按钮。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和：
(1)刚启动工程时，Result和Clear按钮均为灰色。
(2)可以在输入框内输入任意自然数(n值太大时，运算时间将很长，建议不超过9
位)。在输入数的同时Result按钮变为可用。当输入为非数值时，累加结果为0。
(3)单击Result按钮可以在Text2中显示累加和，且该框内的文字不可修改：同时
Result按钮变灰，Clear按钮变为可用。
(4)单击Clear按钮，输入框和显示框均显示“0”。
(5)单击Close按钮结束程序的运行。
运行结果如下图所示。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功
能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第14题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
(1) 在名称窗体为Form1，KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1)，如图22-5所示。编写窗体的KeyDown事件过程。程序运行后，如果按“A”键，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果按“D”键，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图22-6所示。
在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。
要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2) 在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Average求数组的平均值，请装入该文件。程序运行 后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来，如图22-7所示。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
正确答案：判断按键可以在窗体的KeyDown事件下用Chr函数将按键代码转换成字符与给定字符进行比较。使用 AddItem方法向列表框中添加列表项目使用RemoveItem方法从列表框中删除列表项目。程序中用到了InputBox()其格式为： InputBox(prompt[title][default][xpos][ypos][helpfilecontext]) prompt：是一个字符串其长度不得超过1024个字符它是在对话框内显示的信息用来提示用户输入。 title：字符串它是对话框的标题显示在对话框顶部的标题区。 default：字符串用来显示输入缓冲区的默认信息。 xposypos：是两个整数值分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos)它们的单位为twip。 helpfilecontext：helpfile是一个字符串变量或字符串表达式用来表示帮助文件的名字；context是一个数值变量或表达式用来表示相关帮助主题的帮助目录号。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表22-3。
第二步：编写程序代码。
程序提供的代码：
Private Sub Form_KeyDown(KeyCode As Integer Shift As Integer)
If Chr(KeyCode)="A" Then
Text1.Text=InputBox ("请输入要添加的项目")
' List1.AddItem ?
End If
If Chr(KeyCode)="D" Then
Text1.Text=InputBox ("请输入要删除的项目")
'For i=0 To ?
'If List1.List(i)=? Then
' List1.RemoveItem ?
End If
Next i
End If
End Sub
参考代码：
Private Sub Form_KeyDown(KeyCode As Integer Shift As Integer)
If Chr(KeyCode)="A" Then
Text1.Text=InputBox ("请输入要添加的项目" )
List1. AddItem Text1
End If
If Chr(KeyCode)="D" Then
Text1.Text=InputBox ("请输入要删除的项目")
For i=0 To List1.ListCount-1
If List1.List(i)=Form1.Text1 Then
List1.RemoveItem (i)
End If
Next i
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)文本框里的内容(包括数字)默认都是当作字符串来处理的如果要参与数据运算则需先用Val函数将其转化为数字类型。这里需要指出的是利用Array函数对数组各元素赋值声明的数组只能是Variant类型数组的上下界可用 UBound和LBound函数获得这两个函数的格式分别为：
LBound(数组[维])
UBound(数组[维])
这两个函数分别返回一个数组中的下界和上界。其中“数组”是一个数组名“维”是要测试的维。LBound函数返回“数组”的下界而UBound函数返回
“数组”某一“维”的上界值这两个函数一起使用即可确定一个数组的大小。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表22-4。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Private Function Average(a() As Integer) As Sincle
Dim Start As Integer Finish As Integer
Dim i As Integer
Dim Sum As Integer
'Start=?(a)
'Finish=?(a)
'Sum=?
For i=Start To Finish
'Sum=Sum+?
Next i
'Average=?
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
'Aver=Average(?)
Print "平均值是："; Aver
End Sub
参考代码：
Option Base 1
Private Function Average(a() As Integer) As Single
Dim Start As Integer Finish As Integer
Dim i As Integer
Dim Sum As Integer
Start=LBound(a)
Finish=UBound(a)
Sum= 0
For i=Start To Finish
Sum=Sum+a(i)
Next i
Average=Sum/Finish
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
Aver=Average (arr2)
Print "平均值是："; Aver
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘
判断按键可以在窗体的KeyDown事件下用Chr函数将按键代码转换成字符与给定字符进行比较。使用 AddItem方法向列表框中添加列表项目，使用RemoveItem方法从列表框中删除列表项目。程序中用到了InputBox()，其格式为： InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) prompt：是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。 title：字符串，它是对话框的标题，显示在对话框顶部的标题区。 default：字符串，用来显示输入缓冲区的默认信息。 xpos，ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos)，它们的单位为twip。 helpfile，context：helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名字；context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表22-3。
第二步：编写程序代码。
程序提供的代码：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Chr(KeyCode)="A" Then
Text1.Text=InputBox ("请输入要添加的项目")
' List1.AddItem ?
End If
If Chr(KeyCode)="D" Then
Text1.Text=InputBox ("请输入要删除的项目")
'For i=0 To ?
'If List1.List(i)=? Then
' List1.RemoveItem ?
End If
Next i
End If
End Sub
参考代码：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Chr(KeyCode)="A" Then
Text1.Text=InputBox ("请输入要添加的项目" )
List1. AddItem Text1
End If
If Chr(KeyCode)="D" Then
Text1.Text=InputBox ("请输入要删除的项目")
For i=0 To List1.ListCount-1
If List1.List(i)=Form1.Text1 Then
List1.RemoveItem (i)
End If
Next i
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)文本框里的内容(包括数字)默认都是当作字符串来处理的，如果要参与数据运算则需先用Val函数将其转化为数字类型。这里需要指出的是利用Array函数对数组各元素赋值，声明的数组只能是Variant类型，数组的上下界可用 UBound和LBound函数获得，这两个函数的格式分别为：
LBound(数组[,维])
UBound(数组[,维])
这两个函数分别返回一个数组中的下界和上界。其中“数组”是一个数组名，“维”是要测试的维。LBound函数返回“数组”的下界，而UBound函数返回
“数组”某一“维”的上界值，这两个函数一起使用即可确定一个数组的大小。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表22-4。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Private Function Average(a() As Integer) As Sincle
Dim Start As Integer, Finish As Integer
Dim i As Integer
Dim Sum As Integer
'Start=?(a)
'Finish=?(a)
'Sum=?
For i=Start To Finish
'Sum=Sum+?
Next i
'Average=?
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
'Aver=Average(?)
Print "平均值是："; Aver
End Sub
参考代码：
Option Base 1
Private Function Average(a() As Integer) As Single
Dim Start As Integer, Finish As Integer
Dim i As Integer
Dim Sum As Integer
Start=LBound(a)
Finish=UBound(a)
Sum= 0
For i=Start To Finish
Sum=Sum+a(i)
Next i
Average=Sum/Finish
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
Aver=Average (arr2)
Print "平均值是："; Aver
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘
-
第15题：
（ 31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （ 见图 ） ， 并有下面的程
序：
Private Sub Comand1_Click （）
For k=List1.ListCount-1 To 0 Step -1
If List1.Selected （ k ） Then
List2.AddItem List1.List （ k ）
List1.RemoveItem k
End If
Next k
End Sub
程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是
A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项
B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项
C ）同时产生 A ）和 B ）的结果
D ）把 List1 中最后 1 个列表项删除并插入到 List2 中
正确答案：C
-
第16题：
在考生文件夹下有一个工程文件execise59.vbp及窗体文件execise59.frm。在窗体上有两个命令按钮，名称分别为Cmd1和Cmd2，标题为“添加”和“清除”；一个文本框，名称为Text1，程序运行前，文本框的编辑区为空白；一个列表框，名称为List1。程序界面如下图所示。
在文本框中输入文本，若单击“添加”按钮，则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾，且使“添加”按钮变为无效，“清除”按钮变为有效：若单击“清除”按钮，则使文本框中的内容为空，且使“添加”按钮变为有效，“清除”按钮变为无效。
要求：
去掉程序中的注释“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。保存时，工程文件名仍为 execise59.vbp，窗体文件名仍为execise59.frm。
正确答案：
-
第17题：
窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能：
Private Sub Command l Click（ ） Dim n％，k％ n=Len(Text1．Text) For k=0 To List1．ListCount-1 If Left(List1．List(k)，n)=Text1．Text Then List 1．Removeltem k End If Next k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1．ListCount-1改为（ ）。A.For k=List1．ListCount-1 To 0 Step-1
B.For k=0 To List1．ListCount
C.For k=1 To List1．ListCount-1
D.For k=1 To List1．ListCount
正确答案：A
A。【解析】在执行RemoveItem时，会改变该序号item之后的列表内容的序号，因此，循环删除应从后向前操作。 -
第18题：
在考生文件夹中有一个工程文件exeeise86.vbp及窗体文件execise86.frm。在名为Form1的窗体上有一个名称为List1的列表框和一个名称为Cmd1、标题为；显示”的命令按钮。要求程序运行后,如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如下图所示。
要求；
修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改过的程序按原名保存。
正确答案：
-
第19题：
请教:2016年计算机二级VB基础练习三简答题10如何解答?在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上添加两个单选按钮(名称分别为Optionl和Option2，标题分别为“添加项目”和“删除项目”)，一个列表框(名称为Listl)和一个文本框(名称为Textl)，如图l所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目内容(内容任意，不少于三个)，并添加到列表框中;如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目内容，将其从列表框中删除。程序的运行情况如图2所示。在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。
要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
步骤l：打开本题工程文件，并设置控件的属性。
-
第20题：
在考生文件夹中有一个工程文件execise1.vbp及其窗体文件execise1.tim。请在名为 Form1的窗体上建立一个菜单，主菜单项为“项目” (名称为vbItem)，它有两个子菜单项，其名称分别为vbAdd和vbDelete，标题分别为“添加”和“删除”，然后绘制一个列表框(名称为List1)和一个文本框(名称为Text1)。
编写适当的事件过程。程序运行后，如果执行“添加”命令，则从键盘上输入要添加到列表框中的项．目(内容任意，不少于3个)；如果执行“删除”命令，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如下图所示。
在考生文件夹中的工程文件execise1.vbp(相应的窗体文件名为execise1.frm)，可以实现上述功能。但本程序不完整，请补充完整。
注意：
去掉程序中的注释符“'”，把程序中的问号“?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第21题：
在考生文件夹下有一个工程文件execise39.vbp及窗体文件execise39.frm。在窗体Form1上给出了所有控件和不完整的程序，请去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容。
本程序的功能是：如果单击“读取”按钮，则把考生目录下的in39.txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名：当在Text1中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中(如下图所示)：若未找到，则在Text2中显示“不存在!”：若Text1中没有查找内容，则在Text2中显示“未输入查找内容!”。
注意：
考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。
正确答案：
-
第22题：
窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。 Private Sub Command1_Click（ ） Dim str As String，S As String．k As Integer s=Text1 str ="" For k=Listl．ListCount-1 To 0 Step-1 If InStr(List1．List(k)，s)>0 Then str=str ＆ List1．List(k)＆"" End If Next k If str=""Then Text2="没有匹配的项目" Else Text2=str End If End Sub
程序运行时，在Text1中输入"京"，单击命令按钮，则在Text2中显示的内容是（ ）。A.京
B.北京南京
C.南京北京
D.没有匹配的项目
正确答案：C
C。【解析】InStr函数格式是：InStr([首字符位置，]字符串1，字符串2[，n])，即在“字符串1”中查找“字符串2”若找到，则返回“字符串2”的第一个字符在“字符串1”中的位置。而“字符串1”的第一个字符的位置为1，即指定一字符串在另一个字符串中最先出现的位置。题中利用For循环将S即Text1中文本在列表框中各项进行查找，若S在某列表项中则将该项放入Str中，并在Text2中显示该列表项，若Str为空则在Text2中显示“没有匹配的项目”。 -
第23题：
编写一个列表框应用程序，程序界面如下图所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。
略 -
第24题：
单选题窗体上有List1、List2两个列表框，List1中有若干列表项（如下图所示），并有下面的程序：程序运行时，按照下图所示在List1中选中两个列表项（物理和外语），然后单击Command1命令按钮，则产生的结果是（ ）。A在List2中插入了“外语”“物理”两项
B在List1中删除了“外语”“物理”两项
C同时产生A项和B项的结果
D把List1中最后一个列表项删除并插入到List2中
正确答案： D解析：
本题中，点击事件的响应过程：遍历整个List1中的列表项，如果列表项被选中，则将其添加到List2，然后将它们从List1中删除，所以选项A和B都会发生。
程序如下，请补充完整。 
