Õã½­¿Æ¼¼Ñ§Ôº¿¼ÊÔÊÔ¾í

2. ÏÂÃæ³ÌÐòÓÃÀ´ÑéÖ¤¸çµÂ°ÍºÕ²ÂÏ룺һ¸ö´óÓÚµÈÓÚ6µÄżÊý¿ÉÒÔ±íʾΪÁ½¸öËØÊý

Ö®ºÍ¡£ÆäÖÐÅжÏËØÊýµÄ¹¦ÄÜÀûÓú¯ÊýprimeÀ´½â¾ö¡£ Private Sub Command3_Click()

Dim n As Integer, n1 As Integer, n2 As Integer n = Val(InputBox(\ÊäÈëÒ»¸ö´óÓÚµÈÓÚ6µÄżÊý\ For n1 = 3 To n \\ 2 Step 2 n2 = n - n1

If ________£¨4£©________ Then Print n; \ End If Next n1 End Sub

Public Function prime(x As Integer) ________£¨5£©________ Dim i As Integer ________£¨6£©________ For i = 2 To Int(Sqr(x)) If x Mod i = 0 Then prime = False Exit For End If Next i End Function

£¨4£©£¨A£©prime(n1, n2)

£¨B£©prime(n1) And prime(n2) £¨D£©prime(n1) Or prime(n2) £¨B£©As Boolean £¨D£©As Long £¨B£©prime = True

£¨D£©Dim Prime As Boolean

£¨C£©prime(n1, n2) = n £¨5£©£¨A£©As Integer £¨C£©%

£¨6£©£¨A£©Dim x As Integer £¨C£©prime = False

µÚ 5 Ò³ ¹² 15 Ò³

Õã½­¿Æ¼¼Ñ§Ôº¿¼ÊÔÊÔ¾í

3. ÏÂÃæµÄ³ÌÐòÊÇÒ»¸ö½ðÇú°ñ³ÌÐò¡£ÔËÐнçÃæºÍ¾ßÌåÒªÇóÈçÏ£ºÁбí¿òÏÔʾ°ñµ¥¡£

Ñ¡Ôñ¸èÇúÃûºó£¬¡°¡ü¡±ºÍ¡°¡ý¡±°´Å¥·Ö±ðÓÃÓÚÌáÉýºÍ½µµÍ¸èÇúÃû´Î£»¡°¡û¡±ºÍ¡°¡ú¡±°´Å¥·Ö±ðÓÃÓÚ½ø°ñºÍ³ö°ñ¡£

Private Sub cmdUp_Click() ? '´Ë´¦´úÂëÊ¡ÂÔ End Sub

Private Sub cmdDown_Click()

'ϽµÃû´Î°´Å¥

'ÉÏÉýÃû´Î°´Å¥

Dim i As Integer, t As String ________£¨7£©________ If i = -1 Then

MsgBox \ÇëÏÈÑ¡Ôñ¸èÃû\

ElseIf i <> List1.ListCount - 1 Then t = List1.List(i)

List1.List(i) = List1.List(i + 1) List1.List(i + 1) = t List1.ListIndex = i + 1 End If End Sub

Private Sub cmdIn_Click()

'½ø°ñ°´Å¥

Dim song As String, i As Integer song = Text1 i = Val(Text2)

µÚ 6 Ò³ ¹² 15 Ò³

Õã½­¿Æ¼¼Ñ§Ôº¿¼ÊÔÊÔ¾í

If song <> \ ________£¨8£©________ Else

MsgBox \ÊäÈëÓÐÎó£¡\ End If End Sub

Private Sub cmdOut_Click()

'³ö°ñ°´Å¥

Dim i As Integer, t As String i = List1.ListIndex If i = -1 Then

MsgBox \ÇëÏÈÑ¡Ôñ¸èÃû\ Else

________£¨9£©________ End If End Sub

£¨7£©£¨A£©i = List1.ListIndex

£¨C£©i = Val(Text1)

£¨B£©i = List1.ListCount £¨D£©i = List1.ListCount-1

£¨8£©£¨A£©List1.AddItem song, i ¨C 1 £¨B£©List1.AddItem song, i + 1 £¨C£©List1.AddItem song, I £¨9£©£¨A£©List1.RemoveItem i

£¨C£©List1.Remove i

£¨D£©List1.AddItem song £¨B£©List1.Clear £¨D£©List1.Kill i

4. ÒÑÖªÒ»¸öµÝÔöµÄÊý×飬ÊäÈëÒ»¸öÕûÊý£¬½«Æä²åÈëµ½Êý×éÖУ¬±£³ÖÊý×éÈÎÈ»ÓÐÐò¡£

²åÈëµÄ²Ù×÷Óɺ¯ÊýinsertÍê³É¡£ Private Sub Command4_Click() Dim a(), x%, i%

a = Array(1, 3, 5, 6, 7, 15, 36, 88, 90) x = Val(InputBox(\ÊäÈëÒª²åÈëµÄÊý\ ________£¨10£©________

µÚ 7 Ò³ ¹² 15 Ò³

Õã½­¿Æ¼¼Ñ§Ôº¿¼ÊÔÊÔ¾í

For i = LBound(a) To UBound(a) Print a(i); Next i Print End Sub

Public Sub insert(a(), x As Integer) Dim i%, p%, q% p = LBound(a) q = UBound(a)

________£¨11£©________ For i = q To p Step -1 If x <= a(i) Then a(i + 1) = a(i) If i = 0 Then a(i) = x Else

________£¨12£©________ Exit For End If Next i End Sub

£¨10£©£¨A£©insert(a, x) £¨C£©insert a, x £¨11£©£¨A£©q = q + 1

£¨B£©ReDim Preserve a(p To q) £¨C£©ReDim Preserve a(p To q + 1) £¨D£©ReDim a(1 To q) £¨12£©£¨A£©a(i) = x

£¨B£©a(i) = a(i + 1) £¨D£©a(i - 1) = a(i)

£¨B£©a = insert(x) £¨D£©Call insert

£¨C£©a(i + 1) = x

µÚ 8 Ò³ ¹² 15 Ò³