VBA , . 24 , .
24
| Val() | , , . , | Val(" 1 2.3") Val(" 1 2,3") Val("1" & chr(10) & "2") | 12.3 |
| Str() | Str(1+3) Str(1-3) | " 4" "-2" | |
| Len() | , , - | Len(a%) Len("123") | |
| Chr() * | , , ANSI. | Chr(62) Chr(65) Chr(225) | ">" "A" "" |
| Asc() * | , ASCII ANSI | Asc(">") Asc(Chr(65)) Asc("-") | |
| Format( [, ]) * | , . VBA | Format(4) Len(Format(4)) Format(12.3, "##0.00") Format(0.05, "0.0%") Format("xYz", ">") | "4" "12.30" "5.0%" "XYZ" |
1. , VBA. : sin(x)^2+cos(x)^2; a^2*i+exp(c*d); (b+sin(x))/(c+d); sin(x)^2+cos(x^2); a^(2*i)+exp(c)*d; b+sin(x)/c+d.
2. X=0 Y=1.5, X=2.5 Y=0.5.
X+Y<4 AND X^2 + Y^2>=4
3. X=0.5 Y=0.5, X=1.5 Y=0.5.
ABS(X) + ABS(Y)<=1
4. X=0.5 Y=0.5, X=1.5 Y=1.5.
(ABS(X)>=1 OR ABS(Y)>=1) AND X^2+Y^2<9
5. :
If x<1 Then
y=x+1
Elseif x<2 Then
y=x+3
Elseif x<4 Then
y=x^2
Else
y=x-2
End If
z=2*y
MsgBox "X=" & x & " Y=" & y & " " & "Z=" & z
: x=0.5; x=1.5; x=3; x=5.
|
|
|
6. :
x = val(InputBox(" x))
y = val(InputBox(" y"))
sR = " (" & x & ", " & y & ") "
If x+y<2 and x>0 and y>0 Then
MsgBox sR & " "
Elseif (x+1)^2+(y+1)^2<1 Then
MsgBox sR & " "
Else
MsgBox sR & " "
End If
: x=0.5 y=0.8; x=2.5 y=1.5; =-0.7 y=1; x=-0.7 y=1.
7. VBA, , .
8. FOR NEXT , ?
9. WHILE WEND?
10. , ( ) :
For t=1 To 7
Print t; t+2;
Next t
11. , ( ) :
For f=0 To 9 Step 3
Print 2*f; f*f;
Next f
12. , :
For i = 2 To n Step 1
s = s + i
Next i
n, : ) 2; ) 0; ) 4; ) 5.
13. a :
| 1) a = 0 For i =1 To 7 a = a + i Next i | 2) a = 1: n = 7 For i = n To 2 Step 1 a = a + i Next i | 3) a = 0 For i = 2 To 7 a = a + i Next i |
14. :
| 1) c=0 For i=1 To 4 c=c+(i+2) Next i | 2) c=1 For i=1 To 4 Step 2 c=c*(i+1) Next i | 3) c=0 For i=2 To 5 Step 2 c=c+i^2 Next i |
15. * , N$ :
W$=" IBM PC"
N$=MID$(W$,3,7)+MID$(W$,15)
1)
2)
3)
4)
5) IBM PC
6) IBM PC
