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