vb期末考试复习资料（经典总结版）(15)

(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