2017ÄêºÓ±±Ê¡¶Ô¿ÚÉýѧ¼ÆËã»úרҵÀíÂÛÊÔÌ⣨¸½´ð°¸£© ÏÂÔØ±¾ÎÄ

ÄÚÈÝ·¢²¼¸üÐÂʱ¼ä : 2025/8/25 10:08:02ÐÇÆÚÒ» ÏÂÃæÊÇÎÄÕµÄÈ«²¿ÄÚÈÝÇëÈÏÕæÔĶÁ¡£

ÓÐÈçÏÂVisual FoxPro³ÌÐò£º ACCEPT \ÇëÊäÈë×¼¿¼Ö¤ºÅ£º\OPEN DATABASE ZKSCORE ALTER TABLE CJB ADD X2 N(2,0)

SELECT ×¼¿¼Ö¤ºÅ,ÐÕÃû,ѧУÃû³Æ,°à¼¶Ãû³Æ,×Ü·Ö,X2 FROM CJB ORDER BY; ѧУÃû³Æ,°à¼¶Ãû³Æ,×Ü·Ö DESC INTO TABLE CJTMP GO TOP X=1 Y=X

NX1=CJTMP.×Ü·Ö BJ=CJTMP.°à¼¶Ãû³Æ XX=ѧУÃû³Æ DO WHILE NOT EOF()

IF BJ=CJTMP.°à¼¶Ãû³Æ AND XX=CJTMP.ѧУÃû³Æ REPLACE X2 WITH IIF(NX1=CJTMP.×Ü·Ö,Y,X) Y=CJTMP.X2 X=X+1

BJ=CJTMP.°à¼¶Ãû³Æ XX=ѧУÃû³Æ NX1=CJTMP.×Ü·Ö ELSE X=1 Y=X

NX1=CJTMP.×Ü·Ö REPLACE X2 WITH X X=X+1

BJ=CJTMP.°à¼¶Ãû³Æ XX=CJTMP.ѧУÃû³Æ ENDIF SKIP ENDDO

SELECT ×¼¿¼Ö¤ºÅ,ÐÕÃû,X2 WHERE ×¼¿¼Ö¤ºÅ=ZKZ FROM CJTMP INTO TABLE TMPJG ?×¼¿¼Ö¤ºÅ,ÐÕÃû,X2

ÔËÐÐÉÏÃæµÄ³ÌÐò£¬ÊäÈë¡°801510114¡±£¬ÏÔʾµÄ½á¹ûÊÇ£º ¡£

17

Æß¡¢Visual Basic³ÌÐò¸Ä´í(±¾´óÌâ¹²2СÌ⣬ÿÌâ5·Ö£¬¹²10·Ö£¬Ã¿¸öСÌâµÄ³ÌÐòÓÐÁ½¸ö´íÎóÐУ¬ÇëÔÚ

´ðÌâÖ½ÉÏд³ö´íÎóÐдúÂëºÍ¶ÔÓ¦µÄ¸ÄÕýºó´úÂ룬´íÎóÐдúÂëºÍ¸ÄÕýºó´úÂëÍêÈ«ÕýÈ··½¿ÉµÃ·Ö) 1£®ÏÂÃæµÄ³ÌÐòÊÇÀûÓÃInputBoxº¯ÊýÒÀ´ÎÊäÈëÁ½¸ö³¤¶ÈСÓÚ20µÄ¡¢¾ùÓÉÊý×Ö×Ö·û×é³ÉµÄ×Ö·û´®£¬ÒÀ´Î´æ

Èëµ½Á½¸ö×Ö·û´®±äÁ¿ÖУ¬È»ºó´ÓÁ½¸ö×Ö·û´®µÄÆðʼλÖÿªÊ¼ÒÀ´ÎÈ¡³öÒ»¸ö×Ö·û½øÐвÙ×÷£¬²Ù×÷µÄ¹æÔòÊÇ£º

£¨1£©°ÑÈ¡³öµÄ×Ö·ûת»»³ÉÊý×Ö·Ö±ð´æÈëµ½Êý×éaºÍÊý×ébÖУ¬½«Á½¸öÊý×éÖÐϱêÏàͬµÄÔªËØÖµÏà¼Ó£¬Èç

¹ûËüÃǵĺʹóÓÚ9£¬Ôò´æÈëÊý×écÖУ¬·ñÔò²»´æÈ롣ȻºóÔÙ·Ö±ðÈ¡ÏÂÒ»¸ö×Ö·û£¬½øÐÐͬÑùµÄ²Ù×÷¡£ £¨2£©Èç¹ûij¸ö×Ö·û´®ÖеÄ×Ö·ûÒѾ­È¡Í꣬Ôò°ÑÁíÒ»¸öδȡÍêµÄ×Ö·û´®ÖеÄ×Ö·ûµ¥¸öÈ¡³ö£¬×ª»»³ÉÊý×Öºó

¼ÓÉÏ10Ö±½Ó´æÈëµ½Êý×écÖС£

ÀýÈçÊäÈëµÄ×Ö·û´®ÊÇ£º¡°123456789¡±ºÍ¡°96666666666¡±,Ôò×îºóÊý×écÖдæÈëµÄÓ¦¸ÃÊÇ:10,10,11,12,13,14,15,16,16¡£

Option Base 1

Private Sub Command1_Click() Dim a(20) As Integer Dim b(20) As Integer Dim c(20) As Integer Dim i As Integer Dim j As Integer Dim len1 As Integer Dim len2 As Integer Dim str1 As String Dim str2 As String

str1 = InputBox(\ÇëÊäÈëµÚÒ»¸öÊý×Ö×Ö·û´®£º\str2 = InputBox(\ÇëÊäÈëµÚ¶þ¸öÊý×Ö×Ö·û´®£º\len1 = Len(str1) len2 = Len(str2) i = 1: j = 1

Do While i <= len1 And i <= len2 a(i) = Val(Mid(str1, i, 1)) b(i) = Val(Mid(str2, i, 1))

If a(i) + b(i) > 9 Then c(j) = a(i) + b(i): j = j + 1 i = i + 1 Loop

If len1 > len2 Then str1 = Mid(str1, i) Else

18

Str2 = Mid(str2, i) End If

len1 = Len(str1) i = 1

Do While i <= len1

c(j) = Val(Mid(str1, i, 1)) + 10 i = i + 1: j = j + 1 Loop

For i = 1 To j Print c(i); Next i

End Sub

2£®ÏÂÃæ³ÌÐòµÄ¹¦ÄÜÊÇ£º¶¨ÒåÒ»¸ö4ÐÐ4ÁеÄÊý×é²¢¸³Öµ£¬ ÒªÇóµÚ1ÐÐÖÁµÚ4ÐвúÉúµÄÊý·Ö±ðÔÚ10ÖÁ19¡¢20ÖÁ29¡¢30ÖÁ39¡¢40ÖÁ49Ö®¼ä£¬ÔÙÓÃInputboxº¯ÊýÊäÈëÒ»¸ö1µ½4Ö®¼äµÄÊý×Ö£¬È»ºóÇó¸ÃÊý×ÖËù¶ÔÓ¦ÐÐÓëÁÐÔªËØµÄºÍ¡£Èç²úÉúµÄÊý×éÊÇ£º 10 17 18 19

21 24 25 23 35 32 30 38 41 44 47 42

ÈôÊäÈëÒ»¸öÊý×Ö2£¬ÔòÇóµÚ2ÐÐÓëµÚ2ÁÐÔªËØµÄºÍ£¬½á¹ûΪ210¡£

Option Base 1

Private Sub Command1_Click() Dim a(4, 4) As Integer Dim num As Integer Dim s As Integer

Dim i As Integer, j As Integer For i = 1 To 4 For j = 1 To 4

a(i, j) = 10 + Int(Rnd * 10) Print a(i, j); Next j Print Next i

num = InputBox(\ÇëÊäÈëÒ»¸ö1ÖÁ4µÄÊý×Ö£º\s = a(num, num) For i = 1 To 4 For j = 1 To 4

If i = num Or j = num Then

19

s = s + a(num, num)

End If

Next j Next i Print s End Sub

°Ë¡¢³ÌÐòÌî¿Õ£¨±¾´óÌâ¹²7¸ö¿Õ£¬Ã¿¿Õ5·Ö£¬¹²35·Ö£¬°´³ÌÐòÒªÇóÔÚ´ðÌâÖ½ÉÏÌîÈëÏàÓ¦µÄÄÚÈÝ£¬Ê¹³ÌÐò

ÍêÕûÕýÈ·£©

1£®(Visual BasicÊÔÌâ)ÏÂÃæ³ÌÐòµÄ¹¦ÄÜÊÇÊäÈëÒ»¸ö´óÓÚµÈÓÚ10СÓÚ500µÄÊý×Ö£¬È»ºó°Ñ10µ½¸ÃÊý×ÖÖ®

¼äµÄËùÓÐËØÊýÕÒ³ö²¢´æÈëµ½Êý×éaÖУ¬²¢Êä³ö´ËÊý×é¡£ÇëÔÚ»®ÏßλÖÃÌîдÕýÈ·µÄÄÚÈÝ¡£

Option Base 1

Private Sub Command1_Click() Dim num As Integer Dim a(100) As Integer Dim n As Integer Dim k As Integer Dim i As Integer Dim j As Integer n = 1

num = InputBox(\ÇëÊäÈëÒ»¸öÊý×Ö£º\For i = 10 To num k = Sqr(i) For j = 2 To k

If i Mod j = 0 Then ______________ Next j If j > k Then

____________: n = n + 1 End If Next i If n = 1 Then

Print \Ò»¸öҲûÓÐ\Else

For i = 1 To n - 1 Print a(i); Next i

20