Sub prog1()
Dim S, I, n As Integer
n = CInt(InputBox(" n="))
S=0
For I = 1 To n Step 1
S=S+I
MsgBox (" S =" + CStr(S))
Next I
End Sub
1. .
2. ( )?
3. ?
4. , .
5. Step , ?
- Visual Basic for Application
2. n. n 1*2*3*4**n; , 5! = 1*2*3*4*5.
( n ).
: p! =1*2*3*4*....*n
:
For I = 1 To n Step 1
p=n*I
Next I
Visual Basic for Application
Sub prog2()
Dim p, I, n As Integer
n = CInt(InputBox(" n="))
For I = 1 To n Step 1
p = n*I
MsgBox (" p=" + CStr(p))
Next I
End Sub
- Visual Basic for Application
3. S=1 + 1/2 + 1/3 +1/4 +...............+1/n,
( n ).
: S=1 + 1/2 + 1/3 +1/4 +...........+1/n
:
S =1
For I = 1 To n Step 1
S=S+1/ I
Next I
Visual Basic for Application
Sub prog3()
Dim S, I, n As Single
n = Csng(InputBox(" n="))
S=1
For I = 1 To n Step 1
S=S+1/I
MsgBox (" S =" + CStr(S))
Next I
End Sub
4. 1 n , ( n ).
5. 1 n, 3, , ( n ).
6. 1 n, 3, , ( n ).
7. 1 n, 4, , ( n ).
8. 1 n, 4, , ( n ).
9. 1 n, 5, , ( n ).
10. 1 n, 5, , ( n ).
|
|
1. () Visual Basic
() | - | ||||
Byte | byt | 0 255 | |||
Integer | int | -32768 32767 | % | ||
Long | lng | -2147483648 2147483647 | & | ||
Single | sng | -3.402823E+38 -1.401298E-45 1.401298E-45 3.402823E+38 | ! | ||
Double | dbl | -1.79769313486232E+308 -4.9406564584127E-324 4.9406564584127E-324 1.79769313486232E+308 | # | ||
Boolean | bln | True False | |||
String | 1+1 | str | 0 65536 | $ | |
Currency | cur | 9223372036685477.5808 9223372036685477.5807 | @ | ||
Date | dtm | 01.01.100 31.12.9999 | |||
Object | obj | ||||
Array | |||||
Variant | vnt |
1. .. . 10 ( ), , , 2008 .
2. .. һ 11 ( ), , , 2008
3. .. һ 10 ( ), 4- , ., , , , 2008 .
4. .. . . -. . 2006.
5. IBM Pentium, Windows XP, Microsoft Offise, Microsoft Excel, Microsoft Excel Visual Basic for Application.