tceic.com
>> >>


'-----------------------------------------------' ' 20 [100300]" ' " Form1 20 ' "" Form1 ' "" Form1 ' 5 =======( 1)======= If a(I) mod 2 <>0 Then =======( 2)======= If I mod 5 = 0 Then Print =======( 3)======= a(I) = Int(Rnd() * 200 + 100)

': ' ' =======( 1)======= ReDim A(N) =======( 2)======= A(i) = A(i + 1) =======( 3)======= N=N-1 ' 100 50 20 ' 5 =======( 1)======= i=0 =======( 2)======= Do while i < 20 =======( 3)======= If i mod 5 = 0 Then

':ǧ =======( 1)======= work = b ^ 2 - 4 * a * c =======( 2)======= root1 = (-b + Sqr(work)) / (2 * a) =======( 3)======= root2 = (-b - Sqr(work)) / (2 * a)

': s(s=a+aa+aaa+aaaa+) ' a 0-9 a ' a=3 ,s=3+33+333 ( 3 ) =======( 1)======= t=a =======( 2)======= t = t * 10 + a =======( 3)======= Call Calc(i)

':Ŧ ' ئ =======( 1)======= If a + b < c Or b + c < a Or a + c < b Then =======( 2)======= t = (a + b + c) / 2 =======( 3)======= s = Sqr(t * (t - a) * (t - b) * (t - c)) ': 3~100 ' c:\dataout.txt ' Form1

=======( 1)======= Open "dataout.txt" For Output As #1 =======( 2)======= If Flag Then =======( 3)======= Write #1, t1 ' s=72+102+132+832

=======( 1)======= s =0 =======( 2)======= For i = 7 To 832 step 30 =======( 3)======= Next i --'

=======( 1)======= For i = 1 To 10 =======( 2)======= If a(j) > a( j + 1 ) Then =======( 3)======= Next j, i

' 40 3 5 ' '------------------------------------------------

=======( 1)======= i=0 =======( 2)======= Print x; =======( 3)======= if i mod 5=0 then

' ' 10 '

=======( 1)======= Open "c:\2.txt" For Output As #1 =======( 2)======= Open "c:\2.txt" For Input As #1 =======( 3)======= Input #1, n0, c1, c2, c3

' 100-300

=======( 1)======= swit=0 =======( 2)======= While i <= k And swit = 0 =======( 3)======= i= i + 1

' 1+2+3 3000 ' =======( 1)======= s =0 =======( 2)======= i= i + 1 =======( 3)======= Loop until s > 3000 ' 100 ' 5 =======( 1)======= For i = 2 To n - 1 =======( 2)======= Print Tab( (k Mod 5) * 8 ); i; =======( 3)======= If k Mod 5 = 0 Then Print ': ' ' ˦1 100 ' 2 200 3300 ' 4500

=======( 1)======= y=x =======( 2)======= End If =======( 3)======= Text2.Text = y

' text.txt =======( 1)======= Open App.Path & "\text.txt" For Input As #1 =======( 2)======= Do Until EOF(1) =======( 3)======= ElseIf C >= "0" And C <= "9" Then ' 40 3 ' 5 =======( 1)======= i=0 =======( 2)======= Print x ; =======( 3)======= Next x ' InputBox ' Msgbox ' "abcdefgh""h ' gfedcba" 1 =======( 1)======= For i = 0 To Len(pristr) - 1 =======( 2)======= outstr = outstr + Mid(pristr, Len(pristr) - i, 1) =======( 3)======= MsgBox outstr, vbQuestion, "The Output Result " ' ' 1 ' 1 1 ' 1 2 1

' 1 ' 1 ' 1

3 4 5

3 1 6 4 1 10 10 5 1

=======( 1)======= a(i, i) = 1 =======( 2)======= For j = 2 To i - 1 =======( 3)======= For j = 1 To i ': Pic1 10 ' Test.BMP =======( 1)======= for i=0 to 9 =======( 2)======= Do Until I < 0 =======( 3)======= I=I-1 ' C : ' n! ' C=-----------------' (n-m)!*m! ' fac( ) k, Fomr_Click ' =======( 1)======= x=1 =======( 2)======= x=x*j =======( 3)======= C = fac(n) / fac(n - m) / fac(m) '------------------------------------------------

' n n n>0 ' Label1 =======( 1)======= sum=0 =======( 2)======= rnddat = (10 + Int(90 * Rnd)) ================== rnddat = ( 10 + Int(90 * Rnd)) =======( 3)======= If rnddat Mod 2 = 0 Then ================== If rnddat / 2 = int(rnddat/2) Then ================== If rnddat / 2 = cint(rnddat/2) Then


:

.doc

- (: 1 ,


.doc

- ': F


.txt

- 1,fun:է


.doc

- 12592 ':


.doc

- 1 /*--- ---...


.txt

- 1 (10.0) :285 : 2 /*---


c.doc

c - ---:֧


C.doc

C - 1 (5 )(:422) /*


.doc

- GC135 :: 1+2+3??,


.txt

- 1 (10.0) :400 : 2 /*---


(1).txt

(1) - i VBڡ


.doc

- 1 : 90,


.doc

- ::1+2+3,3000 '


JAVA.txt

JAVA - asdasdsafasfafasfasfasfa... JAVA__IT/_asdasdsafasfafasfasfasfa :1!+2!+3!+...+10! ---...


.doc

- /*--- 1 ---...



java12.txt

java12 - /*--- ---...


C.doc

C - 1 :fun : 3


.doc

- 1Visual Basic '462? '---':...


201271.txt

201271 - :120 : 1

|
All rights reserved Powered by www.tceic.com
copyright ©right 2010-2021
zhit325@126.com