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
第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)
第3题:
窗倒上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序:程序运行时,在Text1中输入“京”,单击命令按钮,则在Text2中显示的内容是( )。
A. 京
B. 北京南京
C. 南京北京
D. 没有匹配的项目
第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
第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已有项目之后;否则,将弹出“不允许重复输入,请重新输入!”对话框,单击该对话框中的“确定”按钮,可以重新输入。 ③单击“退出”按钮.则结束程序运行。 要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
第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中
第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中
第11题:
列表框应用程序。要求从文本框中输入姓名,然后按“添加”按钮,把姓名添加到列表框中;当选择列表框中某一项后,按“删除”按钮,则从列表框中删除该项;当选择列表框中某一项后,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果下图所示。 程序如下,请补充完整。
略
第12题:
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
第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所示。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
第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 中
第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
第18题:
在考生文件夹中有一个工程文件exeeise86.vbp及窗体文件execise86.frm。在名为Form1的窗体上有一个名称为List1的列表框和一个名称为Cmd1、标题为;显示”的命令按钮。要求程序运行后,如果多次单击列表框中的项,则可同时选择这些项。而如果单击“显示”按钮,则在窗体上输出所有选中的列表项,如下图所示。
要求;
修改列表框的适当属性,使得运行时可以多选,并去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改过的程序按原名保存。
第19题:
在考生文件夹下有一个工程文件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.没有匹配的项目
第23题:
编写一个列表框应用程序,程序界面如下图所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdAdd、cmdDel和cmdUpdate,列表框和文本框的名称为默认。要求从文本框输入姓名,然后按“添加”按钮把姓名添加到列表框中;当选择列表框中某一项时,按“删除”按钮,从列表框中删除;当选择列表框中某一项时,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。
略
第24题:
在List2中插入了“外语”“物理”两项
在List1中删除了“外语”“物理”两项
同时产生A项和B项的结果
把List1中最后一个列表项删除并插入到List2中