¼ÆËã»ú¶þ¼¶VBÑ¡ÔñÌâ ÏÂÔØ±¾ÎÄ

Dim b(4) as Integer For i=1 to 4 b(i)= i+1 Next i End Sub

ÉÏÃæ³ÌÐòÔËÐкó£¬b(2)µÄÖµÊÇ______¡£

A£º3

B£º1

C£º0

D£º2

´ð°¸£ºA

µÈ¼¶£º1 ÄѶȣº1

֪ʶµã£ºVB֪ʶµã/Êý×éÓ¦ÓþÙÀý

151¡¢Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= i+2 Next i y=w End Sub

ÉÏÃæ³ÌÐòÔËÐкó£¬y(1)µÄÖµÊÇ______¡£

A£º0

B£º1

C£º3

D£º2

´ð°¸£ºC

µÈ¼¶£º2 ÄѶȣº2

֪ʶµã£ºVB֪ʶµã/Êý×éµÄ»ù±¾²Ù×÷

152¡¢Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= 2 * i Next i y=w End Sub

ÉÏÃæ³ÌÐòÔËÐкó£¬y(1)µÄÖµÊÇ______¡£

A£º0

B£º1

C£º3

D£º2

´ð°¸£ºD

µÈ¼¶£º2 ÄѶȣº2

֪ʶµã£ºVB֪ʶµã/Êý×éÓ¦ÓþÙÀý

153¡¢Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= 3 * i Next i y=w End Sub

ÉÏÃæ³ÌÐòÔËÐкó£¬y(2)µÄÖµÊÇ______¡£

A£º0

B£º6

C£º3

D£º2

´ð°¸£ºB

µÈ¼¶£º2 ÄѶȣº2

֪ʶµã£ºVB֪ʶµã/Êý×éµÄ»ù±¾²Ù×÷

154¡¢Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= w(i) + 3 Next i y=w End Sub

ÉÏÃæ³ÌÐòÔËÐкó£¬y(1)µÄÖµÊÇ______¡£

A£º0

B£º6

C£º3

D£º2

´ð°¸£ºC

µÈ¼¶£º2 ÄѶȣº2

֪ʶµã£ºVB֪ʶµã/Êý×éÓ¦ÓþÙÀý

155¡¢ÔÚpicture1ÉÏÊä³öÊý×éW(i)µÄÖµÓÃ______Óï¾ä¿ÉÒÔʵÏÖ¡£

A£ºPictrue1.Print W(i)

B£ºPictrue1= W(i)

C£ºPictrue1.Picture= W(i)

D£ºPrint W(i)

´ð°¸£ºA

µÈ¼¶£º2 ÄѶȣº2

֪ʶµã£ºVB֪ʶµã/Êý×éµÄ»ù±¾²Ù×÷

156¡¢¿Ø¼þÊý×éÖеÚÒ»¸öÔªËØµÄIndexÖµÊÇ______¡£

A£º0

B£º1

C£º¿ÕÖµ

D£º2

´ð°¸£ºA

µÈ¼¶£º1 ÄѶȣº1 ֪ʶµã£ºVB֪ʶµã/¿Ø¼þÊý×é

157¡¢Ä³¸ö¿Ø¼þµÄIndexֵĬÈÏÇé¿öÊÇ______¡£

A£º0

B£º1

C£º¿ÕÖµ

D£º2

´ð°¸£ºC

µÈ¼¶£º2 ÄѶȣº2

֪ʶµã£ºVB֪ʶµã/¿Ø¼þµÄ»ù±¾ÖªÊ¶

158¡¢¿ÉÒÔͨ¹ýÐ޸ĿؼþÊý×éÖпؼþµÄ______Öµ¸Ä±äÆäÔÚÊý×éÖеÄ˳Ðò¡£

A£ºFont

B£ºCaption

C£ºName

D£ºIndex

´ð°¸£ºD

µÈ¼¶£º2 ÄѶȣº2 ֪ʶµã£ºVB֪ʶµã/¿Ø¼þÊý×é

159¡¢ÔÚ³ÌÐòÔËÐÐʱÓÃ______Óï¾ä¿ÉÒÔÌí¼Ó¿Ø¼þÊý×éÔªËØ¡£

A£ºAdd

B£ºNew

C£ºIndex

D£ºLoad

´ð°¸£ºD

µÈ¼¶£º3 ÄѶȣº3 ֪ʶµã£ºVB֪ʶµã/¿Ø¼þÊý×é

160¡¢ÔÚ³ÌÐòÔËÐÐʱÓÃ______Óï¾ä¿ÉÒÔɾ³ý¿Ø¼þÊý×éÔªËØ¡£

A£ºUnLoad

B£ºDelete

C£ºIndex

D£ºLoad

´ð°¸£ºA

µÈ¼¶£º3 ÄѶȣº3 ֪ʶµã£ºVB֪ʶµã/¿Ø¼þÊý×é

161¡¢Private Sub Command1_Click(Index As Integer) Select Case Index Case 0

Label1.BackColor= VbRed Case 1

Label1.BackColor= VbGreen Case 2

Label1.BackColor= VbBlue End Select End Sub

³ÌÐòÔËÐÐʱµ¥»÷µÚ¶þ¸öÃüÁŤLabel1µÄ±³¾°É«ÊÇ______É«¡£

A£ººì

B£ºÂÌ

C£ºÀ¶

D£º°×

´ð°¸£ºB

µÈ¼¶£º2 ÄѶȣº2 ֪ʶµã£ºVB֪ʶµã/¿Ø¼þÊý×é

162¡¢Private Sub Command1_Click(Index As Integer) Select Case Index Case 0

Text1.BackColor = VbRed Case 1