2012VBÁ·Ï°Ìâ ÏÂÔØ±¾ÎÄ

2012VBÀíÂÛÁ·Ï°Ìâ

¿òList2ÖУ¨ÈçÏÂͼËùʾ£©¡£

¡¾³ÌÐò¡¿

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, n As Integer n = (1) For i = 0 To n - 1 For j = 0 To n - 1 For k = 0 To n - 1

If (2) Then If (3) Then List2.AddItem List1.List(i) (4) End If End If Next k

If k <= n - 1 Then Exit For Next j Next i End Sub

¡¾¹©Ñ¡ÔñµÄ´ð°¸¡¿ (1) A¡¢ ListCount

B¡¢List1.ListCount-1

C¡¢ List1.ListCount

D¡¢ListCount-1

(2) A¡¢ i <> j Or j <> k Or i <> k B¡¢i <> j And j <> k And i <> k C¡¢ i <> j Or j <> k D¡¢Not i= j Or j = k Or i = k (3) A¡¢List1.List(i) = List1.List(j) + List1.List(k)

B¡¢Val(List1.List(i)) = Val(List1.List(j)) + Val(List1.List(k)) C¡¢List(i) =List(j) + List(k) D¡¢List(i) =List(j) & List(k) (4) A¡¢k=k+1

B¡¢j=j+1

C¡¢Exit Do

D¡¢Exit For

ÊÔÌâ24

21

¡¾³ÌÐò˵Ã÷¡¿

µ¥»÷Command1ºó£¬½«ËùÓÐÔÚList1ÖдæÔÚ¡¢¶øÔÚList2Öв»´æÔڵıíÏîÌí¼Óµ½Áбí¿ò¿Ø¼þList3ÖС£

Private Sub Command1_Click() Dim i As Integer, j As Integer (1)

For i = 0 To (2)

For j = 0 To (3)

If List1.List(i) = List2.List(j) Then (4) Next j

If (9) Then List3.AddItem List1.List(i) Next i End Sub

¡¾¹©Ñ¡ÔñµÄ´ð°¸¡¿

(1) A¡¢List3.Clear B¡¢List3.List=\ C¡¢List3.delete D¡¢List3.Cls (2) A¡¢List1.ListCount C¡¢List2.ListCount (3) A¡¢List2.ListCount - 1 C¡¢List1.ListCount ¨C 1

B¡¢List1.ListCount - 1 D¡¢List2.ListCount - 1 B¡¢List2.ListCount D¡¢List1.ListCount B¡¢j<= List2.ListCount D¡¢j>= List2.ListCount

(4) A¡¢Exit For B¡¢Exit (5) A¡¢j< List2.ListCount C¡¢j> List2.ListCount

C¡¢Exit Do D¡¢Break

ÊÔÌâ25

¡¾³ÌÐò¡¿

(1) ¿Ø¼þList1µÄMultiSlectÊôÐÔֵΪ£º

A¡¢True B¡¢0 None C¡¢1 Simple D¡¢False (2)¿Ø¼þList1µÄListcountÊôÐÔֵΪ£º

A¡¢2 B¡¢3 C¡¢4 D¡¢5

(3)¿Ø¼þList1µÄSelectedÊý×é¸÷ÔªËØÖУ¬ÖµÎªTrueµÄÔªËØµÄË÷ÒýÖµ£¨Ï±꣩Ϊ£º A¡¢0¡¢2¡¢4 B¡¢1¡¢3¡¢5 C¡¢1¡¢3 D¡¢2¡¢4 (4)¿Ø¼þList1µÄTextÊôÐÔֵΪ£º

A¡¢¡±ÕÅÈý¡± B¡¢¡°ÁõÆß¡± C¡¢¡°ÀîËÄ¡± D¡¢¡°ÕÅÈý ÍõÎå ÁõÆß¡±

22

2012VBÀíÂÛÁ·Ï°Ìâ

ÊÔÌâ26

¡¾³ÌÐò¡¿

Private Sub Command1_Click()

Dim i As Integer, j As Integer, x As Integer List1.Clear

List1.List(0) = InputBox(\x=\ For i = 1 To 3 x = InputBox(\x=\

For j = 0 To List1.ListCount - 1

If x < List1.List(j) Then List1.AddItem x, j:Exit For Next j

If j = List1.ListCount Then List1.AddItem x Next i End Sub

¡¾¹©Ñ¡ÔñµÄ´ð°¸¡¿

(1) µ¥»÷ÃüÁî°´Å¥Command1ºóÊäÈë3¡¢2¡¢7¡¢5Õâ4¸öÊý£¬Áбí¿òÖÐÒÀ´ÎÏÔʾ£º A¡¢2 3 7 5 B¡¢2 3 5 7 C¡¢7 5 3 2

D¡¢2 5 3 7

(2) µ¥»÷ÃüÁî°´Å¥Command1ºóÊäÈë3¡¢-4¡¢6¡¢5Õâ4¸öÊý£¬Áбí¿òÖÐÒÀ´ÎÏÔʾ£º A¡¢6 5 3 -4 B¡¢3 -4 6 5 C¡¢-4 3 5 6 D¡¢3 -4 5 6 (3) Èç¹ûɾ³ýÆäÖÐÓï¾ä¡°Exit For¡°£¬µ¥»÷ÃüÁî°´Å¥Command1ºóÊäÈë2¡¢3¡¢4¡¢5Õâ4¸öÊý£¬Áбí¿òÖÐÒÀ´ÎÏÔʾ£º

A¡¢2 4 5 3 B¡¢4 5 3 2 Áбí¿òÖÐÒÀ´ÎÏÔʾ£º

A¡¢2 3 3 5 B¡¢2 3 2 5

C¡¢5 3 2 2

D¡¢2 3 5 2

C¡¢5 4 3 2

D¡¢2 3 4 5

(4) Èç¹ûɾ³ýÆäÖÐÓï¾ä¡°Exit For¡°£¬µ¥»÷ÃüÁî°´Å¥Command1ºóÊäÈë2¡¢3¡¢5¡¢3Õâ4¸öÊý£¬

ÊÔÌâ27

¡¾³ÌÐò˵Ã÷¡¿ÔËÐÐʱÿ¸ô10Ã룬ÏÔʾÉϵڼ¸½Ú¿Î»òÍí²Í¡¢ÎçÐÝ¡£ ¡¾³ÌÐò¡¿

Private Sub Form_Load() Timer1.Interval= (1) End Sub

Private Sub (2) _Timer() Dim x as single

x= (3) +Minute(Time)/60 select case x case Is>21

Form1.caption=¡°Over¡±

23

case (4)

Form1.caption=¡°9~11¡± case Is>18

Form1.caption=¡°Íí²Í¡± case Is>=14

Form1.caption=¡°5~8¡± case Is>=12

Form1.caption=¡°ÎçÐÝ¡± case Is>=8

Form1.caption=¡°1~4¡± End Select End Sub

¡¾¹©Ñ¡ÔñµÄ´ð°¸¡¿

(1) A¡¢10 B¡¢100 C¡¢1000 D¡¢10000

(2) A¡¢Interval B¡¢Command1 C¡¢Timer1 D¡¢Timer (3) A¡¢Hour(Now) B¡¢House(Time) C¡¢Hour(Date) D¡¢Hour() (4) A¡¢19,20,21 B¡¢19 To 21 C¡¢19..20 D¡¢Is>=19 And Is<=21

ÊÔÌâ28

¡¾³ÌÐò¡¿

Private Sub Form_Load() Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer() Static k As Byte

Form1.CurrentX=0: Form1.CurrentY=0 '´°ÌåµÄËùÓÐÆäËûÊôÐÔ¾ùȡȱʡֵ Form1.Cls

If k = 0 Then k = 1 Else k = 0

If k=0 Then Form1.ForeColor = RGB(0, 255, 0) Else _ Form1.ForeColor = RGB(0, 0, 255) Print Time End Sub

¡¾¹©Ñ¡ÔñµÄ´ð°¸¡¿

(1) ¼¤»îTimer1ºó£¬Ã¿¼ä¸ô1ÃëÏÔʾһ´Îϵͳʱ¼ä£¬·½Ê½ÊÇ£º

A¡¢À¶¡¢ÂÌÉ«½»ÌæÏÔʾ B¡¢À¶É«ÏÔʾ C¡¢ÂÌÉ«ÏÔʾ D¡¢ºìÉ«ÏÔʾ (2) ϵͳʱ¼äµÄÏÔʾλÖã¬ÊÇÔÚ£º

A¡¢´°ÌåÓÒÉÏ½Ç B¡¢´°Ìå×óÉÏ½Ç C¡¢´°ÌåÓÒÏÂ½Ç D¡¢´°Ìå×óÏÂ½Ç (3) Èç¹û½«Timer¹ý³ÌÖеÄÓï¾ä¡°Static k As Byte¡±¸ÄΪ¡°Dim k As Byte¡±£¬¼¤»îTimer1

24

2012VBÀíÂÛÁ·Ï°Ìâ

ºó£¬´°Ìåϵͳʱ¼äÏÔʾÉϵÄÑÕɫΪ£º

A¡¢À¶¡¢ÂÌÉ«½»Ìæ B¡¢À¶É« C¡¢ÂÌÉ« D¡¢ºìÉ« (4) Èç¹ûҪͬʱÏÔʾϵͳÈÕÆÚ¡¢Ê±¼ä£¬¶ÔTimer¹ý³ÌÖÐPrintÓï¾äÖ®Êä³öÁÐ±í²»¿ÉÈ¡µÄÊÇ£º A¡¢Date,Time B¡¢Date;Time C¡¢Date-Time D¡¢Date + Time

ÊÔÌâ29

¡¾³ÌÐò¡¿

Private Sub Form_Load()

Timer1.Interval = 100 : Form1.WinDowState = 2 Label1.Width = ScaleWidth / 2: Label1.Left = ScaleLeft Label1.Alignment = 0: Label1.Caption = \ÔËÐÐÖÐ...\End Sub

Private Sub Timer1_Timer() Static m As Byte

m = m + 8: Label1.FontSize = m Timer1.Interval = Timer1.Interval + 100 If m > 80 Then Timer1.Enabled = False

End Sub

(1) ³ÌÐòÔËÐкó£¬Ê¼þ¹ý³ÌTimer1_Timer×Ô¶¯Ö´ÐеĴÎÊýΪ£º A¡¢9

B¡¢10

C¡¢11 D¡¢0

C¡¢´°ÌåµÄÓÒ±ß D¡¢Label1µÄÖÐ

(2) ¡°ÔËÐÐÖÐ...¡±Õâ¶ÎÎÄ×ÖµÄÏÔʾλÖÃʼÖÕÔÚ´°ÌåµÄ A¡¢´°ÌåµÄ×ó±ß B¡¢Label1µÄÓÒ±ß ¼ä

(3) Label1µÄ±êÌâÔÚ´°ÌåÉϵÄÏÔʾ¶à´Î±ä»¯£¬Æä¹æÂÉΪ£º A¡¢×ÖÌå±ä´ó¡¢±ä»¯¼õÂý

B¡¢×ÖÌå±äС¡¢±ä»¯¼õÂý D¡¢×ÖÌå±ä´ó¡¢±ä»¯¼Ó¿ì

C¡¢×ÖÌå±äС¡¢±ä»¯¼Ó¿ì

25