- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
// vba-c.h
#include <stdio.h>
#include <conio.h>
#ifndef VBAC
# define VBAC
# define Sub void
# define EndSub }
# define main main() {
# define Dim __int32
# define As
# define Integer ;
# define Print( a ) printf( "%i\n", a );
# define Wait getch();
#endif
//main.c
#include "vba-c.h"
Sub main
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim mb, mc As Integer
a = 10;
b = 25;
c = 34;
d = 34;
mb = 0x00000002;
mc = 0x00000030;
b = b - 1;
c = c - 1;
a = a + b + c;
a = a / 3;
b = b / 4;
a = a - 1;
b = b + 1;
c = c - a + b;
d = ( b & mb ) & ( c & mc );
Print( a )
Print( b )
Print( c )
Print( d )
Wait
EndSub
После полугода изучения VBA, привыкание к хорошим, годным языкам, как Си очень проблематично. Что и порождает такие вот костыли...