Imagel Stretch True ()
( )
Picture () c:\-
Label1 Font () Times New Roman, Bold, 14 point
Textl TabStop False
()
Command1 Caption ()
Form2 Caption ()
, .
. , Visual Basic , . , . Form2, , , .
8. File () Save As ( ) Form2. ' Save File As ( ).
9. Form2 ' My.frm.
Project (). Project () View Object (').
10. Form1, Save As ( ) Form1. ' MyWordListfrm, Enter.
11. File () Save Project As ( ), ' Myltalian2.vbp. Text1_DblClick .
1. , ' List1 .
Code
List1_DblClick. Select Case, MsgBox, . Def , . .
2. Code . ' MsgBox
MsgBox (Def),, List1.Text
3. MsgBox :
Load Form2
Form2. Label1= List1.Text
Form2.Text1 = Def
Form2.Show
ᒺ ' Form2 . Form2 '. ϳ ' . Form2. Def ( ) . . , ' , . , Show .
Form2, .
4. Code, Form2 ( Project (), . ' .
|
|
5. :
Form2.Hide
Hide, Form2 , . Form2 , Form1 Form2 . Form2, .
6. Save Project ( ) .
7. Start () .
8. 䳺 cucinare . . .
9. , scrivere. scrivere () . , .
10. . .
11. . , Visual Basic .
.
1. ?
2. ?
.
1. - .
2. , .
10
1.
㳿 .
2.
2.1. .
2.2. , .
: , . , . Project Add Module ( ) . :
Option Base 1
Public Temperatures(7) As Variant
Option Base 1 1 .
:
Private Sub Command1_Click()
Cls
Prompt$ = " "
For % = 1 To 7
Title$ = "" & %
Temperatures(i%) = InputBox(Prompt$, Title$)
Next i%
End Sub
:
Private Sub Command2_Click()
Print " "
For % = 1 To 7
Print ""; %, Temperatures(%)
total! = total! + Temperatures(i%)
Next i%
Print " "; total! / 7
End Sub
. . InputBox . . END.
:
:
Option Base 1
Public d(5) As Integer
Private Sub Command1_Click()
Print " "
For i = 1 To 5
d(i) = 6 - i
Print d(i)
Next i
For j = 1 To 5
For i = 1 To 4
If d(i) > d(i + 1) Then c = d(i): d(i) = d(i + 1): d(i + 1) = c
Next i
Next j
Print " "
For i = 1 To 5
|
|
Print d(i)
Next i
End Sub
.
1. ?
2. ?
.
1. .
2. .
3. .
4. >4.
5. <4.5.
6. , =5.
7. , .
8. 8 .
9. 8 .
11
1.
㳿 .
2.
2.1. .
2.2. .
Components -. Controls ChartFX 2.0 OLE Custom Control=>Ok. ᒺ ChartFX () . Properties ᒺ Appearance Gallery Type .
Private Sub Command1_Click()
Dim x As Double
Dim n, i, cod As Long
x = 0
n = 200
cod = Chartfx1.OpenDataEx(COD_VALUES, 1, n)
For i = 0 To n - 1
Chartfx1.Value(i) = Sin(x) + 1
Chartfx1.Legend(i) = x
x = x + 0.5
Next
Chartfx1.CloseData (COD_VALUES)
End Sub
.
1. ?
2. ?
.
1. :
a) y=cos(x); b) y=x2 +5
12