PL0 C语言版本 //A.2 C 版 本 /*编译和运行环境: *1Visual C++6.0,VisualC++.NET and Visual C++.NET 2003 *WinNT, Win 200, WinXP and Win2003 *2 gcc version 3.3.2 20031022(Red Hat Linux 3.3.2-1) *Redhat Fedora core 1 *Intel 32 platform *使用方法: *运行后

计算器 有数字按键 + - * / 都有-Public sym, tmp Public Sub Cl_Click() txt = "" Form1.sym = "" Form1.tmp = "" End Sub Public Sub cmd_Click(Index As Integer) If InStr(1, txt, "=") <> 0 Then txt = "" txt = txt & Index End Sub Pub

proteus单片机仿真-数码管（动态） #include<reg51.H> unsigned char code Tab[] {0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90} unsigned char Dat[] {0,0,0,0} unsigned char tmp,i,j unsigned char s 0 void delay(int n) { int i for(i 0