99乘法表

阅读更多

注意VBScript里面的注释是'

+ "  ";  
&"  "
空格是两个 & n b s p;

php

for($i=1;$i<10;$i++)
{

echo "

";

for($j=1;$j<10;$j++)
{
$num = $i*$j;
echo '

';
echo $i." * ".$j.' = '.$num;
echo '

';

}
echo "

";
}
?>

delphi语言
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
begin
  memo1.Lines.Clear;
  for i:=1 to 9 do
  begin
    for j:=1 to i do
      memo1.Text:=memo1.Text+inttostr(j)+'×' +inttostr(i)+'='+format('%-5d',[i*j]);
    memo1.Lines.Add(chr(13));
  end;
end;