程序如下：
DIM i as integer'定义i为整数类型
dim j as integer'定义j为整数类型
FOR i = 7 TO 1 STEP -2  '循环i（从7到1 ，步长为2）
  j = j + 1  '计数器j每循环一次加一
  PRINT SPACE$(j); "*"; SPACE$(i); "*"  '显示图形
NEXT
PRINT SPACE$(j + 1); "*" '显示尖尖上的*号
END '程序结束

其中用到的函数介绍
DIM 定义数据类型
FOR 和NEXT 为循环语句
SPACE为空格产生函数
PRINT 为屏幕打印函数
END 为结束

编程环境，系统为WIN98，语言为QB45
思路：根据题目发现为递减规律，用

PRINT "*       *"
PRINT " *     *"
PRINT "  *   *"
PRINT "   * *"
PRINT "    *"

简单明了，呵呵

cls
for i=5 to 1 step -1
 if i<>1 then 
  ? tab(5+1-i);"*";spc(i-1)*2-1;"*"
 else
  ? tab(5+1-i);"*"
 end if
next i
end
为什么不给我打分???
说话不算数...

[em6][em6][em6][em6]

cls
for i=1 to 5
  print tba(6-i);"*";
  if i=5 then end
  print spc ((5-i)*2-1);"*"
next i
end

CLS
FOR i = 1 TO 5
  PRINT TAB(i); "*";
  IF i = 5 THEN END
  PRINT SPC((5 - i) * 2 - 1); "*"
NEXT i
END
简单明了,容易理解.

去你的.