.


:

:



,



( , )

:

































 

 

 

 
FAQ

: , , .

⇐ 12



7. () (䳺 )

8. , ( , )

9. :

2. , :

10. . .

11.

,

12. , :

13.

,

14. .

15. . ( )

:

,

16. :

17. ( ). ClipArt.

18. ( ). 3.

19. , .

20. : ( , , 5 , - .

21. . ( .)

22. ( ).

23. __4_ _4.

:

PowerPoint?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

?

PowerPoint?

?

?

?

?

?

?

PowerPoint?

 

5

: MSWord. . , , , , , .

: MSWord. MSWord. , , , , , .

1:

_5. __5_. .

1. MSWord.

2. :

˳ 2,5

1,5

1,5

1,5

³ 1,25

3. , . .

4. :

;

³ 2

4

Calibri, 18

TimesNewRoman, 14

³ 3

³ - 1,5

-

:

³ 2,5

³ 4

8

̳

Arial, 10 .

:

Tahoma, 16

, ,

, 8

2:

1. 䳿:

.

: 10 .

: - , 1 . , .

: , .

.

.

3:

, : .

4:

: ; ; .

5:

.

6:

.

:

: ; ' .

__5_ _5.

:

MSWord?

?

?

?

?

?

?

?

?

, ?

?

?

, ?

?

?

7

?

?

?

?

?

?

6

: MS Word. . . . ᒺ .

: MSWord. . . ᒺ MS Word. .

_6. __6_. .

1: 1 ( , ) .

1

2: 1 2. . , .

2

3: . . .

4: Microsoft ClipArt (ClipGallery), ᒺ WordArt, ᒺ , :

. :

5: :

6: Microsoft Equation :

7: : , ᒺ, WordArt.

__6_ _6.

:

?

?

MS Word?

, , , , ?

, , , ?

?

?

ᒺ ?

ᒺ ?

?

?

, , ?

?

?

?

MS Word?

?

?

?

?

?

?

?

?

( )?

?

?

?

?

?

?

?

?

?

ᒺ WordArt?

ᒺ WordArt?

ᒺ WordArt?

?

?

?

?

?

7

: f(x).

: f(x). .

_7. __7_. .

1:

1. ( ).

f(x)
[1;3] 0.2
[0;4] 0.4
[1;5] 0.4
[0;3] 0.25
[1;4] 0.25
[-1;1] 0.2
[0;2] 0.2
[-2;2] 0.4
[1;3] 0.2
[2;4] 0.2
[-1;1] 0.2
[1;5] 0.4
[0;3] 0.5
[1;3] 0.2
[-2;2] 0.25
[0;2] 0.2
[1;3] 0.4
[-1;2] 0.2
[1;2] 0.1
[0;1] 0.1
[1;3] 0.2
[-1;0] 0.1
[4;5] 0.1
[8;9] 0.2
[1;3] 0.25
[0;2] 0.2
[5;6] 0.1
[1;3] 0.2
[-2;0] 0.2
[-1;1] 0.2
[1;3] 0.25
[0;1] 0.1
[0;2] 0.2
[-2;2] 0.4
[1;3] 0.2

2:

1. MSWORD .

2. __7_ _7.

:

?

?

?

?

?

?

?

?

?

?

?

?

?

- ?

?

?

?

?

 

8

: VB. . ': , , , .

: , ' . ᒺ .

:

_8. Visual Basic. .

1. Visual Basic:

→ →Microsoft Visual Studio 6.0→ MicrosoftVisualBasic 6.0

2. New Project Standard EXE => ³. , :

Project l-Microsoft Visual Basic [design], ;

Project l-Form l(Form), ;

( ) '.

3. VisualBasic:

Properties Window '.

Project l-Form l(Code).

4. Project 1 . :

Run =>Start ;

Start ► ;

F5.

5. 䳿:

,

,

,

,

(Alt + ).

6. ³ Width Height.

. , Width Height ( ) Properties-Form 1.

' Categorized Properties, o . Alphabetic ' . Name - ' '.

7. .

BackColor ▼. :

System;

Palette .

8. .

9. (' Label) " ".

10. Label(A) . ', , , .1, . ' Labell , Properties Caption Label 1 " " . AutoSize ' True. Font () :

Font: Times New Roman Cyr ( MS SansSerif);

Fontstyle: Bold;: 18;

, ForeColor.

.1 .2

11. .

.2.

12. ' Image ().

Image - , , (). ' '. ̳ ' "" ( ). ' ', Visual Basic ' ( Name), . ' ' Imagel.

13. Picture () ' Imagel.

' True Stretch. Picture Properties. ▬, Loadpicture, (:\ ProgramFiles \ Microsoft Office \ Clipart \ Popular.)

14. , ' Image.

.4. , ' ' Image2.

15. Visible () , .

False Visible .

16. - ' CommandButton mmandl Command2.

ϳ ' CommandButton () Visual Basic. , ( Caption) " 1" " 2" . . .4.

 

.3 .4

17. " 1" , ' .

Commandl . CommandlClick, Command 1:

PrivateSubCommandl_Click()

...

EndSub

. :

PrivateSubCommandl_Click()

Imagel.Visible = True

' 1

Image2.Visible = False

' 2

EndSub

' Imagel , ' Image2 . " 2" 䳿 .

:

PrivateSubCommand2_Click()

Imagel.Visible = False

'

Image2.Visible = True

'

EndSub

18. , . " ".

19. _8. .

Visual Basic :

1- - : File −>Save Form As −> : _8 __8_, .

2- : File −>Save Project As −> _8 __8_, .

:

VBA?

VB?

?

ᒺ? ?

ᒺ VBA?

ᒺ?

ᒺ?

?

?

䳿 ? ?

䳿 ? ?

VB?

?

?

?

䳿 ? ?

?

?

9

: VisualBasic. , .

: VisualBasic .

:

_9. Visual Basic. .

1. Visual Basic.

2. Visual Basic: −>−>Visual Basic−>VisualBasic 6.0.

3. New Project.

4. __9_, ᒺ: 6 Label1 Label6 ( ϲ, , - , ), 4 Text1 Text4 ( ϲ, , - ) Command1. Command1 , . Label6. .

5. Caption , ForeColor .

6. ( Caption), . ( Text), . ᒺ ᒺ:

Label1 −> Text1

Label2 −> Text2

Label3 −> Text3

Label4 −> Text4

 

7. Command1 ( Caption), .

8. , .

9. _9. .

Visual Basic :

1- - : File −>Save Form As −> : _9 __9_, .

2- : File −>Save Project As −> _9 __9_, .

10. , . , . ϳ Label6 .

:

VisualBasic?

?

VisualBasic?

VisualBasic?

VisualBasic?

?

?

?

?

? ?

?

VisualBasic?

VisualBasic?

?

?

VisualBasic?

VisualBasic?

?

?

ᒺ, , 䳿 VisualBasic?

䳿 ?

 

10

: Visual Basic. , .

: Visual Basic .

1:

_10. Visual Basic. .

1. VisualBasic: −>−>Visual Basic−>VisualBasic 6.0. 6 , 3 .

2. 䳿 . If... Then If... Then... Else. , :

Private Sub Command1_Click()

Dim a, b, c, D, x1, x2 As Double

Text1

a = Val(Text1.Text)

Text2 b

b = Val(Text2.Text)

Text3

c = Val(Text3.Text)

D = b * b - 4 * a * c

, =

If (a = 0) And (b = 0) And (c = 0) Then Label5.Caption = "'!"

(=0, b bx+c=0)

If (a = 0) And (b <> 0) Then Label5.Caption = -c / b

, a b= 0,

If (a = 0) And (b = 0) And (c <> 0) Then Label5.Caption = "!"

, , 䒺

If (a <> 0) And (D < 0) Then Label5.Caption = "!"

, ,

If (a <> 0) And (D > 0) Then

x1 = (-b - Sqr(D)) / (2 * a)

Label4.Caption = x1

x2 = (-b + Sqr(D)) / (2 * a)

Label5.Caption = x2

End If

If (a<> 0) And (D= 0) Then

,

Label4.Caption = !

Label5.Caption=-b / (2*a)

End If

EndSub

3. .

4. _10. .

Visual Basic :

1- - : File −>Save Form As −> : _10 __10_1_, .

2- : File −>Save Project As −> _10 __10_1_, .

5. , .

2:

1. , .

2. . .

3. :

Private Sub Command1_Click()

Dim a, b, c, D, x1, x2 As Double

a = Val(InputBox(" ", "", a))

b = Val(InputBox(" b", "", b))

c = Val(InputBox(" c", "", c))

D = b * b - 4 * a * c

If (a = 0) And (b <> 0) Then

x1 = -c / b

MsgBox x1,, "x1"

End If

If (a = 0) And (b = 0) And (c = 0) Then MsgBox ".",, "x1"

If (a = 0) And (b = 0) And (c <> 0) Then MsgBox "'",, "x1"

If (a <> 0) And (D < 0) Then MsgBox ("'")

If (a <> 0) And (D >= 0) Then

x1 = (-b - Sqr(D)) / (2 * a)

MsgBox "."

MsgBox x1,, "x1"

x2 = (-b + Sqr(D)) / (2 * a)

MsgBox x2,, "x2"

EndIf

EndSub

4. _10. .

Visual Basic :

1- - : File −>Save Form As −> : _10 __10_2_, .

2- : File −>Save Project As −> _10 __10_2_, .

5. .

3:

1. Y X, :

2. SelectCase.

3.³ VisualBasic.

4. : , .

5. 䳿 :

PrivateSubCommand1_Click()

Dim Y AsVariant, X AsDouble

X = Val(Text1.Text)

SelectCase X

Case 0 To 1

Y = 5 * X * (X + 10)

Case 1 To 10

Y = 55 + Sin(3 * X)

CaseIs> 10

Y = 55 + Sin(3 * X) + (X - 10) / (X + 1)

CaseElse

Y = " "

EndSelect

Print "X="; X; " Y="; Y

EndSub

6. _10. .

Visual Basic :

1- - : File −>Save Form As −> : _10 __10_3_, .

2- : File −>Save Project As −> _10 __10_3_, .

7. .

:

VisualBasic?

If VisualBasic?

IfVisualBasic?

䳿 Val?

SelectCase VisualBasic?

SelectCase ? .

Case 1 to 10 SelectCase?

Casels>10 SelectCase?

CaseElse SelectCase?

VisualBasic?

VisualBasic?

VisualBasic?

VisualBasic?

VisualBasic?

?

VisualBasic?

?

VisualBasic?

- .

Label ᒺ VisualBasic?

Command ᒺ VisualBasic?

Text ᒺ VisualBasic?

VisualBasic?

VisualBasic?

VisualBasic?

VisualBasic?

11

: Visual Basic. , .

: Visual Basic .

1:

_11. Visual Basic. .

 

1. VisualBasic: −>−>Visual Basic−>VisualBasic 6.0.

2. , ᒺ:

- 5 Label1 Label5

- 3 Text1 Text3 ( a b, h

- Command1. Command1 , .

- Label5.

3. Caption , ForeColor .

4. ( Caption), .

5. ( Text), .

6. ᒺ ᒺ:

Label1 −> Text1

Label2 −> Text2

Label3 −> Text3

7. Command1 ( Caption), .

8. , .

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a

Sum = 0

Do While Arg<= b

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Sum = Sum + Y

Arg = Arg + Krok

Loop

Label5.Caption = Sum

EndSub

DoWhile...Loop.

!!!! ( ).

9. _11. .

Visual Basic :

1- - : File −>Save Form As −> : _11 __11_, .

2- : File −>Save Project As −> _10 __11_, .

10. , . , . ϳ Label5 . :

11. 䳿 :

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a

Sum = 0

Do While Arg<= b

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Print Y

Sum = Sum + Y

Arg = Arg + Krok

Loop

Label5.Caption = Sum

EndSub

PrintY Y.

. _11 __11_1_.

12. 䳿 :

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a

Sum = 0

Do While Arg<= b

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Form1.ForeColor = vbRed

Form1.Font.Italic = True

PrintY

Sum = Sum + Y

Arg = Arg + Krok

Loop

Label5.Caption = Sum

EndSub

Form1.ForeColor = vbRed Form1.Font.Italic = True ( , ). .

_11 __11_2_.

13. 䳿 ,

Do... Loop While:

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a

Sum = 0

Do

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Form1.ForeColor = vbRed

Form1.Font.Italic = True

PrintY

Sum = Sum + Y

Arg = Arg + Krok

Loop While Arg<= b

Label5.Caption = Sum

EndSub

.

_11 __11_3_.

14. 䳿 ,

DoUntil... Loop:

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a

Sum = 0

DoUntil Arg> b

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Form1.ForeColor = vbRed

Form1.Font.Italic = True

PrintY

Sum = Sum + Y

Arg = Arg + Krok

Loop

Label5.Caption = Sum

EndSub

.

_11 __11_4_.

15. 䳿 ,

Do... Loop Until:

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a

Sum = 0

Do

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Form1.ForeColor = vbRed

Form1.Font.Italic = True

PrintY

Sum = Sum + Y

Arg = Arg + Krok

Loop Until Arg> b

Label5.Caption = Sum

EndSub

. ?

_11 __11_5_.

 

16. 䳿 , :

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a

Sum = 0

Print "x", "Y"

Do

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Form1.ForeColor = vbRed

Form1.Font.Italic = True

PrintArg, Y

Sum = Sum + Y

Arg = Arg + Krok

Loop Until Arg> b

Label5.Caption = Sum

EndSub

. ?

_11 __11_6_.

2: [1;20].

.

1, 2. , . .

1. . 3 .

2. 䳿 . Do... Loop. Arg , . Dob . . :

PrivateSub Command1_Click()

Dim Arg!, Dob#

Arg! = 1

Dob# = 1 1 Dob, , !

DoUntil Arg! > 20

Dob# = Dob# * Arg!

Arg! = Arg! + 2

Loop

Label3.Caption = Dob#

EndSub

3. _11 __11_7_.

4. . .

:

VisualBasic?

, , ?

For... Next VisualBasic?

DoWhile... Loop VisualBasic?

Do... LoopWhile VisualBasic?

DoUntil... Loop VisualBasic?

DoWhile... Loop VisualBasic?

Exit?

?

Function Sub?

 

12

: MSExcel. . . .

: . . .

_12. _12_1 _12_2 :

__12_1_ __12_2_, MS Excel. .

1. MS Excel:

1.1 5 3 7 2 200;

1.2 12 46 3 10 300;

1.3 ³ 82 36, 4 5 40000;

1.4 17 5 , 4782 39, 31.

2: .

3: :

  11,00    
  13,00    
  24,00    
  27,40    
  47,20    
  68,70    
  98,10    
  27,00    
  51,40    
  78,00    
  49,30    
  29,00    
  58,00    
  14,80    
  31,90    

4: , .

³
. ϲ , , , 1) ,
  ..        
  ..        
  ..        
  ..        
  ..        
       

5: . . ʳ :

 

<
. ʳ . ³
  ..        
  ..        
  ..        

⇐ 12


:

: 2016-11-22; !; : 581 |

:

:

, .
==> ...

1752 - | 1506 -


© 2015-2024 lektsii.org - -

: 0.688 .