(C)将Shape控件的Fillstyle属性设置为2至7间的某个值,BackStyle属性设置为0
(D)将Shape控件的Fillstyle属性设置为0或1,BackStyle属性设置为0 19要获得当前驱动器应使用驱动器列表框的哪个属性?
(A)Path (B)Drive (C)Dir (D)Pattern
20要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drivel )中所选择的当前驱动器
的不同而同时发生变化,则应:
(A)在Dirl中的Chnge事件中,书写语句Dirl.Drive=Dive1.Drive (B)在Dir1中的Change事件中,书写语句Dir1.Path=Drivel.Drive (C)在Drive1中的Change事件中,书写语句Dir1.Path=Drivel.Drive (D)在Drivel中的Change事件中,书写语句Dir.Drive=Drivel.Drive 21要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性?
(A)Dir (B)Path (C)Drive (D)Filename （二）、编程题
22设计一个能将第1个列表框中被选择的列表项,加入到另外1个列表框中的程序。要求:窗体中加入2个列表框(将它们的Multiselect属性设置成0,即每次只能从列表框中选择一项)、2个命令按钮,即\确定\和\取消\。程序运行过程中,利用程序向第1个列表框中加入若干个列表项,当单击\确定\按钮时,则将第1个列表框中的已被选择的列表项加入到第2个列表框中,并同时将它从第1个列表框中清除。当用户单击\取消\按钮时,则可将第2个列表框中被选择的列表项重新返回到第1个列表框中。
23自己制作一幅图片,将其加入到图片框中。
24在窗体中添加3个文本框、2个命令按钮(\确定\和\退出)。程序运行过程中,当单击\确定\按钮时,能将第1个文本框中输入的文本和第2个文本框中输入的文本连接起来,放到第3个文本框中。当单击\退出\按钮时,结束程序的运行。 参考答案： （一）、选择题
1 D 2 C 3 B 4 C 5 A 6 B 7 C 8 B 9 B 10 C 11 B 12 C 13 B 14 C 15 D 16 D 17 D 18 A 19 B 20 C 21 D （二）、编程题
22新建一个工程,向窗体中添加两个列表框(名称分别为List1和List2),再向窗体中加入两个命令按钮(名称分别为Command1和COmmand2),该程序的功能是:
37
当单击COInImnd1命令按钮时,可将List1列表框中被选择的列表项加入到List2 列表框中,同时将其从List1列表框中清除;当单击Commana命令按钮时,可将 List2列表框中被选择的列表项重新加回到Listl列表框中,同时将其从List2列 表框中清除。各事件过程代码如下: Private Sub Commandl-Click()
'将listl列表框中被选择的列表项加人到list2列表框中 List2.AddItem List1.List(List1.ListIndex) ListL RemoveItem List1.ListIndex End Sub
Private Sub Command2-Click()
'将list2列表框中被选择的列表项加人到listl列表框中 List1.AddItem List2.List(List2.ListIndex) List2.RemoveItem List2.ListIndex End Sub
Private Sub Form-Load()
‘窗体装人时,向List1列表框中加入一些列表项 List1.AddItem\项目1\List1.AddItem\项目2\ListL AddItem\项目3\List1.AddItem\项目4\List1.AddItem\项目5\List1.AddItem\项目6\List1.AddItem\项目7\End Sub
23读者可用\画图\或其他绘图程序制作一幅图,并保存到某个文件夹中。在Visual Basic集成开发环境中,向窗体中添加一个图片框,利用下列方法之一进行设置:
方法1:在设计阶段,利用属性窗口,将图片框的Picture属性设置为自己所制 作的图片。
方法22在窗体的Form-Load()事件过程中,利用语句:图片框名.Picture=
38
LoadPicture(\图片文件名\
24新建一个工程,向窗体中添加3个文本框(名称分别为Text1、Text2和Text3),再向窗体中添加两个命令按钮(名称分别为Command1和Command2),该程序的作用是:当程序运行时,单击Command1命令按钮,可以将文本框Text1和Text2中
的文本连接起来形成一个新的字符串,并将其显示到Text3文本框中;当单击 Command2命令按钮时,退出程序。为此编写命令按钮Commandl和Command2 的Click事件过程。程序代码如下: Private Sub Command1-click() Text3.Text =Text1.Text &Text2.Text End Sub
Private Sub Command2-ClickO End i End Sub
五、选择程序结构
（一）、选择题
1设窗体的Click事件过程代码如下: Private Sub Form-Click()
Dim k As Integer,a As Integer k=1
If k<=1 Then a =2*k If k<=2 Then a =2*k十1 If k<=3Then a =k Print k,a End Sub
则当程序运行时,在窗体上单击鼠标时的输出结果是: (A)1 2 (B)1 3 (C)1 1 (D)3 1 2设窗体的Click事件过程代码如下: Private Sub Form-Click()
Dim x As Integer,y As Integer
39
x=-2
If Not x>0 Then x=y-3 Else y =x+3 Print x-y;g y-x
End Sub
则当程序运行时,在窗体上单击鼠标时的输出结果是
(A)-3 3 (B)5 -8 8 -5 (C)3 -3 (D)25 -25 3以下哪个程序段的执行结果为\ (A) (B)
Dim y As Integer Dim y As Integer y=10 y=20 Select Case y Select Case y Case 11 To 1 Case Is>20,Is<20 Print \ Print \ End Select End Select (C) (D)
Dim y As Integer Dim y As Integer y=6 y=10
Select Case y Select Case y Case Is>6,1,2 to 5 Case 1,3,Is>6 Print \ Print \ End Select End Select （二）、编程题
4编写一程序,输入一个整数,判断能否被3或5整除,如能整除就打印该数,否则不打印,请将程序代码
写在窗体的Click事件过程中。
5输入3条线段的长度,判断这3条线段能否构成三角形,如能构成三角形则计算三角形的面积,如果
不能构成三角形则打印出错误信息。请将程序代码写在窗体的Click事件过程中,输入3条线段请用InputBox函数。
6输入一个年份,判断它是否为闰年。闰年的条件是:年号能被4整除但不能被100整除,或者能被400
整除的年份。
7输入3个数,要求按从小到大输出。
8输入一个0----99999之间的整数,判断输入的是几位数。如:如果输人586,则输出结果为3。
40
相关推荐：
loading