£¨P£© UnLoad
£¨Q£© ÃüÁî°´Å¥(CommandButton) £¨R£© ״̬À¸ £¨S£© ÃæÏò¶ÔÏóµÄÓïÑÔ £¨T£© ˳ÐòÎļþºÍËæ»úÎļþ Èý¡¢ÅжÏÌ⣨10·Ö£¬¹²10Ì⣩
36¡¢ ¼ÙÉè±äÁ¿boolVarÊÇÒ»¸ö²¼¶ûÐͱäÁ¿£¬Ôò¸³ÖµÓï¾äboolVar=.True.ÊÇ·ñÕýÈ·¡£ [ÕýÈ· ´íÎó]
37¡¢ Óï¾äx=Sqr(-1)ÊÇ´íÎóµÄ¡£ [ÕýÈ· ´íÎó]
38¡¢ ÏÂÁйØÓÚÊý×éµÄ˵·¨ÊÇ·ñÕýÈ·£ºÔÚͬһ¹ý³ÌÖУ¬Êý×éÃû¿ÉÒԺͼòµ¥±äÁ¿ÃûͬÃû¡£ [ÕýÈ· ´íÎó]
39¡¢ ¹ØÓÚ×éºÏ¿òµÄÐðÊö£¬ÏÂÁÐ˵·¨ÊÇ·ñÕýÈ·£ºÏÂÀ×éºÏ¿òÔÚȱʡÇé¿öÏ£¬°üÀ¨Ò»¸öÏÂÀʽÁбíºÍÒ»¸öÎı¾¿ò¡£¿ÉÒÔ´ÓÁбíÑ¡Ôñ»òÔÚÎı¾¿òÖÐÊäÈë¡£ [ÕýÈ· ´íÎó] £¨P155£©
40¡¢ ÏÂÃæ¹ØÓÚTab˳ÐòµÄ˵·¨£¬ÊÇ·ñÕýÈ·£ºTabStopÊôÐÔÒÑÖÃΪfalseµÄ¿Ø¼þ£¬ÔÚʵ¼ÊTab¼ü˳ÐòÖÐÒ²±»É¾³ý¡£
[ÕýÈ· ´íÎó]
41¡¢ ÏÂÃæµÄ¹ý³Ì¶¨ÒåÓï¾äÊÇ·ñºÏ·¨:Sub Proc(ByVal n())¡£ [ÕýÈ· ´íÎó] £¨ËµÃ÷£ºÈç¹ûÐβÎÊÇÊý×飬±ØÐëÊÇ´«Ö·£©
42¡¢ ÔÚSelect CaseÓï¾äÖУ¬ÏÂÁÐ˵·¨ÊÇ·ñÕýÈ·£ºÒ»¸öCaseÓï¾äÖ»ÄܶÔÓ¦Ò»¸öÖµ¡£ [ÕýÈ· ´íÎó]
43¡¢ ¹ØÓÚ×éºÏ¿òµÄÐðÊö£¬ÏÂÁÐ˵·¨ÊÇ·ñÕýÈ·£ºÏÂÀʽÁбí¿òÑùʽµÄ×éºÏ¿òÔÊÐíÓû§ÊäÈë¡£ [ÕýÈ· ´íÎó] £¨P155£©
44¡¢ Óï¾äDim arr(1 to 5, 2 to 7,3 to 8)¶¨ÒåµÄÊý×éÔªËØ¸öÊýÊÇ£º100¡£ [ÕýÈ· ´íÎó]
45¡¢ ÏÂÃæ¹ØÓÚTab˳ÐòµÄ˵·¨£¬ÊÇ·ñÕýÈ·£ºÉèÖÃTabIndexÊôÐÔ½«¸Ä±äÒ»¸ö¿Ø¼þµÄTab¼ü˳Ðò¡£ [ÕýÈ· ´íÎó]
¡¶¼ÆËã»úˮƽ¿¼ÊÔÄ£ÄâÊÔÌâ¶þ¡·£¨VB£©
Ò»¡¢Ñ¡ÔñÌ⣨40·Ö£¬¹²25Ì⣩
1¡¢ [¶àÑ¡Ìâ]Visual BasicÖÐ×¢ÊÍÓï¾äµÄǰ׺¿ÉÒÔÊÇ______¡£
£¨A£©¡¢ µ¥ÒýºÅ £¨B£©¡¢ ¶ººÅ £¨C£©¡¢ Rem £¨D£©¡¢ ·ÖºÅ
2¡¢ [µ¥Ñ¡Ìâ]ÏÂÁгÌÐòµÄÊä³ö½á¹ûÊÇ_______¡£ Private Sub Command1_Click() a=8:b=9 Print a=b End Sub
£¨A£©¡¢ ÏÔʾ³ö´íÐÅÏ¢ £¨B£©¡¢ False £¨C£©¡¢ 8 £¨D£©¡¢ 9
3¡¢ [¶àÑ¡Ìâ]ÏÂÁпÉÒÔ×÷ΪVisual BasicµÄ±äÁ¿ÃûÊÇ_________¡£ £¨A£©¡¢ a?b £¨º¬ÓУ¿ºÅ£© £¨B£©¡¢ 123ab £¨Êý×Ö¿ªÍ·£© £¨C£©¡¢ Integer £¨ÏµÍ³¹Ø¼ü×Ö£© £¨D£©¡¢ PrintA £¨E£©¡¢ a_b
4¡¢ [µ¥Ñ¡Ìâ]ÏÂÁÐÊôÓÚÕýÈ·µÄ×Ö·û´®³£Á¿µÄÊÇ____________¡£ £¨A£©¡¢ $ABC$ £¨B£©¡¢ \ £¨C£©¡¢ #ABC\ £¨D£©¡¢ 'ABC'
5¡¢ [µ¥Ñ¡Ìâ]Óï¾äZ=y+1´ú±í________¡£
£¨A£©¡¢ ½«±äÁ¿Z´æÈë±äÁ¿yÖУ¬ÔÙ¼ÓÉÏ1µÄ±í´ïʽ £¨B£©¡¢ ½«±äÁ¿Z´æÈë±äÁ¿y+1ÖÐ
£¨C£©¡¢ ±äÁ¿ZÈ¡µÃ±äÁ¿yµÄÖµ£¬È»ºóÔÙ¼ÓÉÏ1µÄÒ»¸ö±í´ïʽ £¨D£©¡¢ ±äÁ¿ZÈ¡µÃy+1µÄÖµ
6¡¢ [µ¥Ñ¡Ìâ]ÒÔϲ»ÊDz˵¥±à¼Æ÷´°¿ÚµÄ×é³É²¿·ÖµÄÑ¡ÏîÊÇ____________¡£ £¨A£©¡¢ ±à¼Çø
£¨B£©¡¢ ²Ëµ¥ÏîÊôÐÔÉèÖÃÇø £¨C£©¡¢ ²Ëµ¥´úÂë±à¼Çø £¨D£©¡¢ ²Ëµ¥ÏîÏÔÊ¾Çø
7¡¢ [µ¥Ñ¡Ìâ]ÈôҪʹÃüÁî°´Å¥²»¿É²Ù×÷£¬Òª¶Ô____________ÊôÐÔÉèÖᣠ£¨A£©¡¢ Caption £¨B£©¡¢ Enabled £¨C£©¡¢ Visible £¨D£©¡¢ BackColor
8¡¢ [µ¥Ñ¡Ìâ]ÏÂÁгÌÐòµÄÔËÐнá¹ûÊÇ________¡£ A= 5 B= -5 C=Not A=B Print C
£¨A£©¡¢ 0 £¨B£©¡¢ True £¨C£©¡¢ -5 £¨D£©¡¢ ÎÞ·¨Êä³ö
9¡¢ [µ¥Ñ¡Ìâ]¶Ô´°Ìå±àдÈçÏÂʼþ¹ý³Ì£º
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 2 Then £¨ËµÃ÷£ºButton = 2±íʾ°´ÏÂÊó±êÓÒ¼ü £© Print \ End If End Sub
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single) Print \ End Sub
³ÌÐòÔËÐкó£¬Èç¹ûµ¥»÷Êó±êÓÒ¼ü£¬ÔòÊä³ö½á¹ûΪ___________¡£ £¨A£©¡¢ AAAAA £¨B£©¡¢ AAAAA
BBBBB
£¨C£©¡¢ BBBBB
AAAAA
£¨D£©¡¢ BBBBB
10¡¢ [µ¥Ñ¡Ìâ]ÔÚ´°ÌåÉϻһ¸öÁбí¿òºÍÒ»¸öÎı¾¿ò£¬È»ºó±àдÈçÏÂÁ½¸öʼþ¹ý³Ì£º Private Sub Form_Load () List1.AddItem\ List1.AddItem\ List1.AddItem\ List1.AddItem\ Text1.Text=\ End Sub
Private Sub List1_ DblClick ( ) a =List1.Text Print a+Text1.Text End Sub
³ÌÐòÔËÐкó£¬ÔÚÎı¾¿òÖÐÊäÈë¡°789¡±£¬È»ºóË«»÷Áбí¿òÖеÄ\£¬ÔòÊä³ö½á¹ûΪ_________¡£ £¨A£©¡¢ 456789 £¨ËµÃ÷£ºÒò¡°£«¡±ºÅµÄÁ½±ß¶¼ÊÇ×Ö·û´®£¬¹ÊÁ½Êý²¢½Ó£© £¨B£©¡¢ 0 £¨C£©¡¢ 789456 £¨D£©¡¢ 1245
11¡¢ [µ¥Ñ¡Ìâ]Òª¼ÆËã1µ½100Ö®¼äµÄżÊýÖ®ºÍ£¬Çë²¹³äÏÂÁгÌÐò¡£ Private Sub Command1_Click() x = 0
For I = 1 To 100 Step 2 ____________________
Next I
Print \µ½100Ö®¼äµÄżÊýÖ®ºÍΪ:\ End Sub
£¨A£©¡¢ x=x+1 £¨B£©¡¢ x=x+i £¨C£©¡¢ x=x+i+1 £¨D£©¡¢ x=x*2
12¡¢ [µ¥Ñ¡Ìâ]Ö´ÐÐÏÂÁгÌÐò£¬ÔËÐнá¹ûÊÇ______¡£ Private Sub Command1_Click() s=0
Dim I As Integer For I=2.1 To 5.7 Step 0.3 s=s+1 Next Print s End Sub
£¨A£©¡¢ 13 £¨B£©¡¢ 14 £¨C£©¡¢ 12 £¨D£©¡¢ ËÀÑ»·
13¡¢ [µ¥Ñ¡Ìâ]ΪÁËʹ´°ÌåµÄ´óС¿ÉÒԸı䣬±ØÐë°Ñ´°ÌåµÄBorderStyleÊôÐÔÉèÖÃΪ__________¡£ £¨A£©¡¢ 3 £¨B£©¡¢ 2 £¨C£©¡¢ 1 £¨D£©¡¢ 4
14¡¢ [µ¥Ñ¡Ìâ]Ö´ÐÐÏÂÁдúÂ룬·Ö±ðÊäÈë12ºÍ89£¬Êä³ö½á¹ûÊÇ_____¡£ Private Sub Form_Click() a = InputBox(\ b = InputBox(\ Print a+b End Sub
£¨A£©¡¢ 101 £¨B£©¡¢ DE
£¨C£©¡¢ 1289 £¨ËµÃ÷£ºÒò¡°£«¡±ºÅµÄÁ½±ß¶¼ÊÇ×Ö·û´®£¬¹ÊÁ½Êý²¢½Ó£© £¨D£©¡¢ DE1289
15¡¢ [µ¥Ñ¡Ìâ]ÔÚÉè¼Æ½×¶Î£¬µ±Ë«»÷´°ÌåÉϵÄij¸ö¿Ø¼þʱ£¬Ëù´ò¿ªµÄ´°¿ÚÊÇ___________¡£ £¨A£©¡¢ ÊôÐÔ´°¿Ú
£¨B£©¡¢ ¹¤³Ì×ÊÔ´¹ÜÀíÆ÷´°¿Ú £¨C£©¡¢ ¹¤¾ßÏä´°¿Ú £¨D£©¡¢ ´úÂë´°¿Ú
16¡¢ [µ¥Ñ¡Ìâ]´°ÌåÉè¼ÆÆ÷µÄÖ÷Òª×÷ÓÃÊÇ____________¡£ £¨A£©¡¢ ´æ·Å´úÂë £¨B£©¡¢ ¹ÜÀí¹¤³Ì×ÊÔ´
£¨C£©¡¢ ÏÔʾͼÐΡ¢Í¼ÏñÒÔ¼°¸÷ÖÖÊý¾Ý
Ïà¹ØÍÆ¼ö£º