µÚ4Õ ѡÔñ½á¹¹³ÌÐòÉè¼Æ

£±£®ÄãԤϰÁ˱¾ÕÂÄÚÈÝÁËÂ𣿹²»¨Ê±¼ä ·Ö

£²£®Ä㸴ϰÁËÉÏÒ»ÌÿÎÄÚÈÝÂ𣿹²»¨Ê±¼ä ·Ö

£³£®Äã×÷Òµ×öÁËÂ𣿠£´£®×÷ÒµÊÇ×Ô¼º×öµÄÂð£¿

Ò»¡¢Ñ¡ÔñÌâ

1. ÏÂÃæ³ÌÐò¶ÎÔËÐкó£¬ÏÔʾµÄ½á¹ûÊÇ ¡£ Dim x As Integer x=0

If x Then Print x Else Print x+1

A£®1 B. 0 C. -1 D .ÏÔʾ³ö´íÐÅÏ¢ 2. ÏÂÃæ³ÌÐò¶ÎÇóÁ½¸öÊýÖеĴóÊý£¬ ²»ÕýÈ·¡£

A . Max=X B .If X>Y Then Max = X Else Max=Y

If Y>=max Then Max =Y

C£®Max=X D. If Y>=X Then Max=Y

If Y>=X Then Max =Y Max = X 3. ÏÂÁгÌÐò¶ÎµÄÖ´Ðнá¹ûÊÇ ¡£

X=5 Y=-20

If Not X>0 Then X=Y-3 Else Y=X+3 Print X-Y;Y-X

A£®-3 3 B£®5 -8 C£®3 -3 D£®25 -25

4. ÒÑÖª±äÁ¿A¡¢B¡¢CÖÐC×îС£¬ÔòÅжÏA¡¢B¡¢C¿É·ñ¹¹³ÉÈý½ÇÐεÄÂß¼­±í´ïʽΪ£º A£® A>=B And B>=C And C>0 B£® A+C>B And B+C>A And C>0 C£®£¨A+B>=C Or A-B <=C£© And C>0 D£® A+B>C And A-B0 5. ÏÂÁгÌÐò¶ÎµÄÖ´Ðнá¹ûÊÇ ¡£

A=75

If A>60 Then I=I+1

Elseif A>70 Then I=I+2

Elseif A>80 Then I=I+3

Elseif A>90 Then I=I+4 End If

Print ¡°I=¡±;I

A£®I=1 B£®I=3 C£®I=6 6. ÏÂÁгÌÐò¶ÎµÄÖ´Ðнá¹ûΪÊÇ ¡£

9

D£®I=10

VBÍøÂç¿ÎÌãºinfo.zjfc.edu.cn/vbweb

A=1 : B=0 Select Case A Case 1 Select Case B Case 0 Print ¡°**0**¡± Case 1 Print ¡°**1**¡± End Select Case 2 Print ¡°**2**¡± End Select

A£® **0** ¶þ¡¢³ÌÐòÔĶÁ

B£® **1** C£® **2** D£® 0

1. ´°ÌåÉÏÓÐÒ»¸öÃüÁî°´Å¥£¬Ê¼þ´úÂëÈçÏ£º

Private Sub Command1_Click() A = \ B = \

A = Val(A) + Val(B) B = Val(\

If A <> B Then Print A - B Else Print B - A End Sub

½á¹û£º ³ÌÐòÖ´Ðк󣬵¥»÷ÃüÁî°´Å¥£¬Êä³ö½á¹ûΪ¶àÉÙ£¿

2. ϶γÌÐòÖ´Ðкó£¬ÉèÊäÈëµÄÊý¾Ý·Ö±ðΪ14¡¢3¡¢125¡¢21ʱ£¬Ð´³öÔÚ±êÇ©¿òLabel1ÖÐÏÔʾµÄÄÚÈÝ¡£

Private Sub Form_Click£¨£© ½á¹û£º Dim A As Integer,W As Integer

A=Val£¨Inputbox£¨\ÇëÊäÈëÊý¾Ý\£¬ £¬100£©£© Select Case A Mod 5 Case Is <4 W=A+10 Case Is <2 W=A * 2 Case Else W=A-10 End Select

Label1.Caption=\£¨W£© End Sub

3£®Ð´³öµ¥»÷´°Ìå4´Î£¬Ã¿´ÎÊäÈë·Ö±ðΪ1¡¢2¡¢3¡¢4ʱ´°ÌåÉÏÏÔʾµÄ½á¹û¡£

Dim s As Integer

Private Sub Form_Click() ½á¹û£º Dim x As Integer

x = Val(InputBox(\ÇëÊäÈëÒ»¸öÕýÕûÊý\ If x Mod 2 = 0 Then s = s * x Else

s = s + x End If

Me.Print \ÔÚµ±Ç°´°ÌåÉÏÊä³ö End Sub

10

VBÍøÂç¿ÎÌãºinfo.zjfc.edu.cn/vbweb

Èý¡¢³ÌÐòÌî¿ÕÌâ

1. ÏÂÃæµÄ³ÌÐòÓÃÓÚÇóÈý¸öÊýÖеÄ×î´óÊýºÍ×îСÊý¡£

Private Sub Command1_Click£¨£© A=Val£¨Inputbox£¨¡°A=£¿¡±£©£© B= Val£¨Inputbox£¨¡°B=£¿¡±£©£© C= Val£¨Inputbox£¨¡°C=£¿¡±£©£© Max=A Min=A

If B> (1) Then Max=B If B< (2) Then Min=B If (3) Then Max=C If (4) Then Min=C Print ¡°×î´óÊýΪ¡±;Max Print ¡°×îСÊýΪ¡±;Min End Sub

2. ϳÌÐòÅжϴÓÎı¾¿òText1ÖÐÊäÈëµÄÊý¾Ý£¬Èç¹û¸ÃÊý¾ÝÂú×ãÌõ¼þ£º³ýÒÔ3Óà2£¬³ýÒÔ5Óà3£¬³ýÒÔ7Óà4 £¬ÔòÊä³ö£»·ñÔò½«Îı¾¿òÄÚÈÝÇå¿Õ¡£

Private Sub Command1_Click£¨£© X=Val£¨Text1.Text£© If £¨5£© Then Print X Else

£¨6£© End If End Sub

ËÄ¡¢±à³ÌÌâ

1. ÊäÈëÒ»¹«ÔªÄêºÅ£¬ÅжÏÊÇ·ñÊÇÈòÄê¡£ÈòÄêµÄÌõ¼þÊÇ£ºÄêºÅÄܱ»4Õû³ýµ«²»Äܱ»100Õû³ý£¬»òÕßÄܱ»400Õû³ý¡£

2£®ÊäÈë3¸ö²»Í¬µÄÊý£¬½«ËüÃÇ´Ó´óµ½Ð¡ÅÅÐò¡£ 3. ±à³Ì¼ÆËãÏÂÁзֶκ¯ÊýÖµ£º

?x2?2x?6, x?0ÇÒx??f(x)??3?x?Sinx?2x, 0?x?10ÇÒx?2¼°x?3

??x?5?log10(x?4), ÆäËû´úÂë±àд£º

1¡¢ 2¡¢

11

VBÍøÂç¿ÎÌãºinfo.zjfc.edu.cn/vbweb

3¡¢

Åú¸ÄÈË£º

VBÍøÂç¿ÎÌãºinfo.zjfc.edu.cn/vbweb

12