网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
单选题
窗体如下左图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”“刘备”两项，结果如下右图所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把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
参考答案
参考解析
解析：
由于每次找到满足条件的一项时都要将其删除，下一条记录就会替换掉这条记录的位置，但该位置的索引值已被遍历过，从而会跳过这条记录。正确的方法是从高索引向低索引遍历，遍历过程中删除满足要求的列表项，因此修改方案是把For k=0 To List1.ListCount -1改为Fork=List1.ListCount-1 To 0 Step-1。
由于每次找到满足条件的一项时都要将其删除，下一条记录就会替换掉这条记录的位置，但该位置的索引值已被遍历过，从而会跳过这条记录。正确的方法是从高索引向低索引遍历，遍历过程中删除满足要求的列表项，因此修改方案是把For k=0 To List1.ListCount -1改为Fork=List1.ListCount-1 To 0 Step-1。
更多 “单选题窗体如下左图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”“刘备”两项，结果如下右图所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为（ ）。A For k=List1.ListCount-1 To 0 Step -1B For k=0 To List1.ListCountC For k=1 To List1.ListCount-1D For k=1 To List1.ListCount” 相关考题
考题
窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2, 1个名称为 Command1的命令按钮，并有以下程序Private Sub Command1_Click（）Dim str As String, s As String, k As Integers=Text1Str=””For k=List1.ListCount-1 to 0 Step-1If InStr（List.List（k）,s）0 thenstr=strList.List（k）” ”End IfNext kIf str=””ThenText2=”没有匹配的项目”ElseText2=strEnd IfEnd Sub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A．京B．北京 南京C．南京D．没有匹配的项目
考题
窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)＞0 Then str=strList1.List(k)" " End If Next k If str="" Then Text2="没有匹配项目" Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是______。A．京B．北京 南京C．南京 北京D．没有匹配的项目
考题
窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Com．mand1)，则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能：Private Sub Commandl_Click()Dim n％．k％n=Len(Textl．Text)For k=0 To Listl．ListCount-1If Left(Listl．List(k)，n)=Text1．Text ThenListl．Removeitem kEnd IfNext kEnd Sub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k：0 To Listl．ListCount-1改为A．For k=Listl．ListCount-1 To 0 Step-1B．For k=0 To Listl．ListCoulitC．For k=1 To List1．ListCount-1D．For k=1 To List1．ListCount
考题
窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序Private Sub Command1_click()Dim 11If Textl．Text”123456”Thenn=n+1print“口夸输入错误”＆n＆次”End IfEnd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是A．在Dim n语句的下面添加一句：n=OB．把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”+n+“次”C．把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”＆Str(n)＆“次”D．把Dim n改为Static n
考题
在考生文件夹中有一个工程文件execise25.vbp，相应的窗体文件为execise25.timo在在名为Form1的窗体上有一个命令按钮，其名称为Cmd1，标题为“输入”；还有一个文本框，其名称为Text1，初始内容为空白。程序运行后，单击“输入”命令按钮，显示“输入”对话框。在对话框中输入某个月份的数值(1～12)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入8，将输出“8月份是秋季”，如下图所示。该程序不完整，请补充完整。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。
考题
在考生文件夹中有工程文件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按钮结束程序的运行。运行结果如下图所示。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
考题
某人编写了下列程序，用来求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 ThenB．把max=a(k)改为a(k)=maxC．把第2个循环语句For k=1 To 10改为For k=2 To 10D．把max=O改为max=a(10)
考题
注意：下面出现的“考生文件夹”均为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所示。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
考题
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A. 京B. 北京南京C. 南京北京D. 没有匹配的项目
考题
（ 31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （ 见图 ） ， 并有下面的程序：Private Sub Comand1_Click （）For k=List1.ListCount-1 To 0 Step -1If List1.Selected （ k ） ThenList2.AddItem List1.List （ k ）List1.RemoveItem kEnd IfNext kEnd Sub程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项C ）同时产生 A ）和 B ）的结果D ）把 List1 中最后 1 个列表项删除并插入到 List2 中
考题
在考生文件夹中有一个工程文件execise57.vbp及其窗体文件execise57.frm。请在名为 Form1的窗体上绘制两个单选按钮(名称分别为Opt1和Opt2，标题分别为“添加项目”和“删除项目”)、一个列表框(名为List1)和一个文本框(名为Text1)。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目(内容任意，不少于3个)后，会添加到列表框中；如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目后，会将其从列表框中删除。程序的运行情况如下图所示。本程序不完整，请补充完整。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
考题
在考生文件夹下有一个工程文件execise59.vbp及窗体文件execise59.frm。在窗体上有两个命令按钮，名称分别为Cmd1和Cmd2，标题为“添加”和“清除”；一个文本框，名称为Text1，程序运行前，文本框的编辑区为空白；一个列表框，名称为List1。程序界面如下图所示。在文本框中输入文本，若单击“添加”按钮，则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾，且使“添加”按钮变为无效，“清除”按钮变为有效：若单击“清除”按钮，则使文本框中的内容为空，且使“添加”按钮变为有效，“清除”按钮变为无效。要求：去掉程序中的注释“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。保存时，工程文件名仍为 execise59.vbp，窗体文件名仍为execise59.frm。
考题
窗体上有一-个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=0B.把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”+n+“次”C.把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”＆Str(n)＆“次”D.把Dim n改为Static n
考题
窗体如图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-1B.For k=0 To List1．ListCountC.For k=1 To List1．ListCount-1D.For k=1 To List1．ListCount
考题
在考生文件夹中有一个工程文件execise41.vbp和窗体文件execise41.frm。在名为 Form1的窗体上有一个名称为Text1的文本框，一个名称为Lid1的列表框，一个命令按钮 (名为Cmd1，标题为Insert)，如下图所示。程序的功能是：在运行时，如果在文本框中输入一行内容并单击Insert按钮，则把文本框中的内容作为列表项添加到列表框中；如果单击列表框中的某一项，则立即从列表框中删除该项。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后原名保存修改后的文件。
考题
在考生文件夹中有一个工程文件exeeise86.vbp及窗体文件execise86.frm。在名为Form1的窗体上有一个名称为List1的列表框和一个名称为Cmd1、标题为；显示”的命令按钮。要求程序运行后,如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如下图所示。要求；修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改过的程序按原名保存。
考题
在考生文件夹中有工程文件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按钮结束程序的运行。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“”’，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
考题
请教:2016年计算机二级VB基础练习三简答题10如何解答?
在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上添加两个单选按钮(名称分别为Optionl和Option2，标题分别为“添加项目”和“删除项目”)，一个列表框(名称为Listl)和一个文本框(名称为Textl)，如图l所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目内容(内容任意，不少于三个)，并添加到列表框中;如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目内容，将其从列表框中删除。程序的运行情况如图2所示。在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
考题
在考生文件夹下有一个工程文件sjt3．vbp，其功能是： ①单击“读数据”按钮，则把考生文件夹下in3．dat文件中的100个正整数读入数组a中； ②单击“统计”按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方，那么它就是完全平方数。例如，36=62，所以36就是一个完全平方数)，并将这些完全平方数的最大值与个数分别显示在文本框Text1、Text2中。 在给出的窗体文件中有了全部控件(如图6所示)，但程序不完整，请将程序中的注释符去掉，把?号改为正确的内容，实现上述功能。 注意：考生不得修改窗体文件己存在的控件和程序，最后将程序原文件名存盘。(2)在考生文件夹_下有一个工程文件sjt4．vbp，其窗体上有两个标题分别为“添加”和“退出”的命令按钮，一个内容为空的列表框List1。请画一个标签，其名称为Label1，标题为“请输入编号”；再画一个名称为Text1，初始值为空的文本框，如图7所示。程序功能如下： ①系统启动时，自动向列表框添加一个编号信息“a0001”。 ②系统运行时，在文本框Text1中输入一个编号，并单击“添加”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框List1已有项目之后；否则，将弹出“不允许重复输入，请重新输入!”对话框，单击该对话框中的“确定”按钮，可以重新输入。 ③单击“退出”按钮．则结束程序运行。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
考题
在考生文件夹中有一个工程文件execise1.vbp及其窗体文件execise1.tim。请在名为 Form1的窗体上建立一个菜单，主菜单项为“项目” (名称为vbItem)，它有两个子菜单项，其名称分别为vbAdd和vbDelete，标题分别为“添加”和“删除”，然后绘制一个列表框(名称为List1)和一个文本框(名称为Text1)。编写适当的事件过程。程序运行后，如果执行“添加”命令，则从键盘上输入要添加到列表框中的项．目(内容任意，不少于3个)；如果执行“删除”命令，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如下图所示。在考生文件夹中的工程文件execise1.vbp(相应的窗体文件名为execise1.frm)，可以实现上述功能。但本程序不完整，请补充完整。注意：去掉程序中的注释符“'”，把程序中的问号“?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
考题
窗体上有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中
考题
在考生文件夹下有一个工程文件execise39.vbp及窗体文件execise39.frm。在窗体Form1上给出了所有控件和不完整的程序，请去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容。本程序的功能是：如果单击“读取”按钮，则把考生目录下的in39.txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名：当在Text1中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中(如下图所示)：若未找到，则在Text2中显示“不存在!”：若Text1中没有查找内容，则在Text2中显示“未输入查找内容!”。注意：考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。
考题
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：Private Sub Command1_Click（ ）For k=List1．ListCout-1 To 0 Step-1If List1．Selected(k)ThenList2．Addltem List1．List(k)List1．Removeltem kEnd IfNext kEnd Sub程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。A.在List2中插入了“外语”、“物理”两项B.在List1中删除了“外语”、“物理”两项C.同时产生A和B的结果D.把List1巾最后1个列表项删除并插入到List2中
考题
窗体上有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.没有匹配的项目
考题
列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果下图所示。 程序如下，请补充完整。
考题
编写一个列表框应用程序，程序界面如下图所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。
考题
单选题窗体上有List1、List2两个列表框，List1中有若干列表项（如下图所示），并有下面的程序：程序运行时，按照下图所示在List1中选中两个列表项（物理和外语），然后单击Command1命令按钮，则产生的结果是（ ）。A
在List2中插入了“外语”“物理”两项B
在List1中删除了“外语”“物理”两项C
同时产生A项和B项的结果D
把List1中最后一个列表项删除并插入到List2中
热门标签
最新试卷
