ÄÚÈÝ·¢²¼¸üÐÂʱ¼ä : 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