vbµÚÈý²¿·Ö Á·Ï°Ìâ ÏÂÔØ±¾ÎÄ

End Select A)Excellent C)Pass

B)Good

D)Fail

24 Ö´ÐÐÏÂÃæµÄ³ÌÐò¶Îºó£¬±äÁ¿cµÄֵΪ( C )¡£

a=14 b=30

Select Case b £Ü 10 Case 0

c=a * 10 + b Case 1 To 9 c=a * 100 + b Case 10 To 99 c=a * 1000 + b End Select Print c A) 363 C) 1430

B) 2548 D) 9875

25 ÒÔÏÂCaseÓï¾äÖдíÎóµÄÊÇ( C )¡£

A) Case 0 To 10

B) Case Is>10

C) Case Is>10 And Is<50 ¶þ¡¢Ìî¿ÕÌâ

D) Case 3, 5, Is>10

1 ÓïÕýÈ·´ð°¸ÊÇÑ¡Ïî¾äPrint\µÄÊä³ö½á¹ûÊÇ 25+32=57 ¡£

2 ÔÚÒ»¸ö´°ÌåÉÏÓÐÁ½¸öÃüÁî°´Å¥£¬CmdMaxºÍCmdMin¡£µ¥»÷CmdMaxʱ£¬´°ÌåÉÏÏÔʾ\×ÖÌåÓÉС±ä´ó\£¬×ÖºÅÿ´ÎÔö¼Ó2£»µ¥»÷CmdMinʱ£¬´°ÌåÉÏÏÔʾ¡°×ÖÌåÓÉ´ó±äС¡±£¬×ÖºÅÿ´Î¼õС2¡£ÇëÌî¿Õ¡£

Private Sub Form_Load() Form1.Caption=\×ÖÌå±ä»¯Ê¾·¶\ CmdMax.Caption=\×ÖÌå±ä´ó\ CmdMin.Caption=\×ÖÌå±äС\End Sub

Private Sub CmdMax_Click()

Form1.Fontsize=Form1.fontsize+2 Form1.Print \×ÖÌåÓÉС±ä´ó\End Sub

Private Sub CmdMin_Click()

Form1.Fontsize=Form1.fontsize-2 Form1.Print \×ÖÌåÓÉ´ó±äС\End Sub

3 Íê³ÉÏÂÃæµÄ³ÌÐò£¬Ê¹ÏÔʾ½á¹ûÈçÏÂͼËùʾ¡£

Private Sub Form_Click()

FontSize = 18

Sample = \Welcome to Beijing! \ x = (ScaleWidth - TextWidth(Sample)) / 2 y = (ScaleHeight - TextHeight(Sample)) / 2 CurrentX = x CurrentY = y Print Sample End Sub

ͼ4.1 ³ÌÐòÔËÐнçÃæ

4 ÓÐÏÂÃæÒ»¸ö³ÌÐò¶Î£¬´ÓÎı¾¿òÖÐÊäÈëÊý¾Ý£¬Èç¹û¸ÃÊý¾ÝÂú×ãÌõ¼þ£¬³ýÒÔ4Óà1£¬³ýÒÔ5Óà2£¬ÔòÊä³ö£¬·ñÔò£¬½«½¹µã¶¨Î»ÔÚÎı¾¿òÖУ¬²¢Çå³ýÎı¾¿òµÄÄÚÈÝ¡£

Private Sub Command1_Click() x=Val(Text1.Text)

If x mod 4=1 and x mod 5=2 Then Print x Else

Text1.Text=\ Text1.setfocus End If End Sub

5 ÏÂÃæ³ÌÐòµÄ×÷ÓÃÊÇÓÃInputBox()º¯ÊýÊäÈëÒ»¸öÕûÊý£¬È»ºóÅжÏÄÜ·ñͬʱ±»2£¬5ºÍ7Õû³ý£¬Èç¹ûÄÜÔòÊä³ö¸ÃÊý¼°Æ½·½Öµ¡£ÇëÌî¿Õ¡£

Private Sub Command1_Click() Dim numX As Integer

numX=Val(InputBox(\ÇëÊäÈëÒ»¸öÕûÊý\ If numX mod 70 = 0 Then Form1.Print numX, numX*numX End If End Sub

6 ÔÚÓÐÏÂÃæÒ»¸ö³ÌÐò¶Î´ÓÎı¾¿òÖÐÊäÈëÊý¾Ý£¬Èç¹û¸ÃÊý¾ÝÂú×ãÌõ¼þ£¬³ýÒÔ6Óà2£¬³ýÒÔ5Óà3£¬ÔòÊä³ö£¬·ñÔò£¬½«½¹µã¶¨Î»ÔÚÎı¾¿òÖУ¬²¢Çå³ýÎı¾¿òµÄÄÚÈÝ¡£

Private Sub Command1_Click() num=Val(Text1.Text)

If num mod 6 =2 and num mod 5 =3 Then Print num Else

Text1.Text=\ Text1.setfocus End If End Sub

7 ÏÂÃæµÄ³ÌÐòÊǼÆËã¸ø¶¨º¯ÊýµÄÖµ£¬×Ô±äÁ¿x£¬yµÄÖµÓÃInputBox()º¯ÊýÊäÈ룬º¯ÊýÈçÏ£º

?x2?y2 x?0,y?0?f(x,y) ??x2-2y2 x?0,y?0

?y2-2x2 ÆäËü?³ÌÐò²»ÍêÕû£¬ÇëÌî¿Õ£¬½«³ÌÐòµÄ²¹³äÍêÕû¡£ Option Explicit Dim x As Single Dim y As Single Dim z As Single

Private Sub Command1_Click() x=Val(InputBox(\ y=Val(InputBox(\End Sub

Private Sub Command2_Click() If x>0 and y>0 Then z=x ^ 2 + y ^ 2

ElseIf x<0 and y>0 Then z=x ^ 2 - 2 * y ^ 2 else z=y ^ 2 - 3 * x ^ 2 End If

Form1.Print \µ±x£¬yµÄֵΪ£º\ Form1.Print \µÄֵΪ£º\End Sub

8 ÔÚ´°ÌåÉÏÓÐÒ»¸ö¡°±³¾°É«±ä»»¡±°´Å¥ºÍÒ»¸ö¡°½áÊø¡±°´Å¥¡£µ¥»÷¡°±³¾°É«±ä»»¡±°´Å¥£¬±³¾°É«±äΪºìÉ«£»ÔÙµ¥»÷£¬±³¾°É«±äΪÂÌÉ«£»ÔÙµ¥»÷£¬±³¾°É«±äΪÀ¶É«£»ÔÙµ¥»÷±³¾°É«±äΪºìÉ«??Èç´ËÑ­»·¡£µ¥»÷¡°½áÊø¡±

°´Å¥£¬³ÌÐòÔËÐнáÊø¡£ÇëÌî¿Õ¡£

Private Sub CmdChange_Click() If Mark=0 Then

Form1.BackColor=vbRed Mark=1

ElseIf mark =1 Then Form1.BackColor=vbGreen Mark=2

ElseIf Mark=2 Then Form1.BackColor=vbBlue Mark=0 End If End Sub

Private Sub CmdExit_Click() End End Sub

9 ÏÂÁгÌÐòµÄ¹¦ÄÜÊÇ£ºµ±x<50ʱ£¬y=0.8¡Áx£»µ±50¡Üx¡Ü100ʱ£¬y=0.7¡Áx£»µ±x>100ʱ£¬Ã»ÓÐÒâÒ壬ÇëÌî¿Õ¡£

Private Sub Command1_Click()

Dim x As Single

x=InputBox(\ÇëÊäÈëxµÄÖµ£¡\select case x

Case Is < 50 y=0.8 * x Case 50 To 100 y=0.7 * x

case else

Print \ÊäÈëµÄÊý¾Ý³ö½ç£¡\ End Select Print x, y End Sub

10 ÏÂÃæµÄ³ÌÐòÓÃÓÚ¸ù¾ÝÎı¾¿òTextÖÐÊäÈëµÄÄÚÈݽøÐÐÒÔÏ´¦Àí£º

ÈôTextΪ1£¬Ôò´òÓ¡¡°ÄúµÄ³É¼¨ÎªÓÅÐ㣡¡±£»ÈôTextΪ2£¬Ôò´òÓ¡¡°ÄúµÄ³É¼¨ÎªÁ¼ºÃ£¡¡±ÈôTextΪ3£¬Ôò´òÓ¡¡°ÄúµÄ³É¼¨ÎªÒ»°ã¡±£»·ñÔò´òÓ¡¡°ÄúµÄ³É¼¨Ò»°ãÒÔÏ£¡¡±£¬ÇëÌî¿Õ¡£

Private Sub Command1_Click() Select Case Val(Text1.Text) Case 1

Print \ÄúµÄ³É¼¨ÎªÓÅÐ㣡\