作者：乔山办公网日期：
返回目录：office365
把VB中文企业版下载下来，安装到电脑上就可以使用了。不论是精简版还是企业版都可以用的，只是若要与SQL数据库连接的话最好安装企业版。
microsoft 微软(一个牛B公司的名字zhidao)
visual 可视化
basic 一种编程语言的名称
连起来就是微软定制的可视化版编程软件。VB是一种编程语言而microsoft visual basic是一个软件用来解释VB程序的软件。VB是一种解释型语言，这种语言是可视化的，把API封装得一塌糊涂。可以用来作余爱好。凡是无绝对，只要学得好，什么权语言都能混。有句话不是这样说的么：存在的就是有道理的。
1、关于不出结果
代码有错误的话编译不会通过，也不能执行，具体问题要看代码或者报错。
2、缩进格式
编写规范的代码格式是好的编程习惯，当你盯着满屏幕乱七八糟的代码会很闹心。
下面代码混乱大赛的作品就是好例子：
e799bee5baa6e79fa5e98193e4b893e5b19e335 #include <math.h>
#include <time.h>
#include <unistd.h>
#include <netinet/in.h>
typedef float F,A[3]; F D,M
[999]={ LT} ,*L=NL+M,*P,b,t,*h,*i; A
#define S(x,y,z)F x(F*d,F z s){ F t=y; t+=y; return t+=y; }
E,Q,U,V,C,c,I={ EY} ; unsigned char g[2414],*p=g,*e; int j,k,s,m
,n,x,y; S(B,*d++=*s++,*)S(o,*d+++=*s++,*)S(a,*d++-=*s++,*)S(H,*d++
**s++,*)S(X,*d++*=s,)S(v,*d+++=s,)int w(int c){ return*p++=c; } F W(F*
d){ return sqrt(H(d,d)); } void r(uint32_t u){ w(u>>24); w(u>>16); w(u>>
8); w(u); } F O(F*d){ return X(d,1/W(d)); } char*z,*f; void u(char*s){ *
s&&w((u(1+s),*s)); } F G(F x,int p){ for(z=p*46+f; 12^*z; x+=.5){ for(D=-4;
5>D; D++)if(9-*z++){ *P++=x; *P++=D/2; *P++=0; } } return p; } void K(){ write
(k,g,p-g); p=g; } F*d(){ h=0; D=1e9; a(E,Q); O(E); 2[E]&&0>(t=(1+2[Q])/2[E])&&
(D=-t,h=P); for(i=M; P>i; i+=3){ B(C,i); a(C,Q); b=H(E,C); (t=b*b-H(C,C)+(i<L?99
:.6))>=0&&0<(t=b<t?t+b:b-t)&&D>t&&(D=t,h=i); } return h; } void Y(int N){ F*h,*i
; A p,n; if(!(h=d()))*c=1[c]=(2[c]=2[E]/2)/2; else if(h<L){ X(c,0); v(c,1); } else
{ B(p,E); X(p,D); o(p,Q); if(h-P){ B(n,p); a(n,h); O(n); } else{ X(n,0); ++2[n]; }
B(Q,n); X(Q,1e-4); o(p,Q); X(c,0); if(N<8){ B(Q,n); X(Q,2*H(n,E)); a(E,Q); o(E,p);
B(Q,p); Y(1+N); X(c,h-P?.8:.2); } for(i=M; L>i; ++i){ B(E,i); B(Q,p); d()-i||v(c,(
h-P?.1:.5)*H(n,E)); } v(c,0.05); h-P||(2[c]*=.3,c[1&lrint(*p)^lrint(1[p])&1]*=.2);
} } void Z(char*s){ K(); p+=4; u(s?s:"TADI"); } void J(){ uint32_t c=~0; e=p; p=g;
r(e-p-8); while(p!=e){ c^=*p++; for(j=0; 8>j; j++)c=c/2^c%2*3988292384; } r(~c); K
(); } void q(int c){ w(c); m+=c; m%=c=65521; n+=m; n%=c; } void T(F c){ c=.5+255
*c; q(0>c?0:c>255?255:c); } struct sockaddr_in R; int main(){ time_t i; struct
tm*b; R.win_port=8224; s=socket(R.sin_family=AF_INET,SOCK_STREAM,0); bind(s,
(void*)&R, sizeof R); listen(s,1); for(; ; ){ k=accept(s,0,0); for(; ; ){ ++j;
read(k,p,1); if(*p=='\n') { if(3>j)break; j=0; } } m=1; u("\n\032\n\rGNP"
"\211\n\r\n\r1 :hserfeR\n\rKO 002 0.1/PTTH"); Z("RDHI"); r(800); r(600); w
(8); r(33554433); J(); Z(0); w(120); w(1); J(); i=time(0); b=localtime(&
i); x=b->tm_sec; *I=45<x?x-60:15>x?x:30-x; *U=-I[1]; 1[U]=*I; *V=2[I]*
*I; 1[V]=2[I]*1[I];2[V]=-*I**I-1[I]*1[I]; O(U); O(V); X(U,D=W(I)/
1e3); X(V,D); P=L;y=1+(11+b->tm_hour)%12; 9<y&&G(-14,y/10); G(-
10,y%10); G(-6,10); y=b->tm_min; G(-2,y/10);G(2,y%10); G(6,
10); G(10,x/10); G(14,x%10); for(z="xxxdtrb! d r y "; 9[z]; ++z){
for(y=7&8[z]; 600>y; y+=14&*z){ Z(0); w(0); p+=4; q( 0); for(x=7&9[z]; 800>x;
x+=15&1[z]){ B(Q,V); X(Q,y-300); B(E,U); X(E,x -400); o(E,Q); B(Q,I); Y(0);
T(*c); T(1[c]); T(2[c]); } j=p-g-13; 12[ g]=~(10[g]=j>>8); 11[g]=~(9[g]=
j); J(); } } Z(0); w(1); r( 65535); r(n<<16|m); n=0; J(); Z(
"DNEI"); J(); j=0; close(k); } } char*f=
" ";
其实就是VBA，是VB和一个子集，语法和6.0是一样的，zhidao就是加了OFFICE相关的对象和属性。在OFFICE里按ALt+F11组合键进入，可回以添加窗体（与VB一样），也可以通过模块直接对OFFICE进行操作。安装OFFICE时把VBA选上，最好把帮助文件也装上即可。
教程答迅雷上到处都是，搜VBA即可。