9999999999999999999
 88888888888888888
  777777777777777
   6666666666666
    55555555555
     444444444
      3333333
       22222
        111
         0

输出如上：

代码如下：

Dim i As Integer
For i = 9 To 0 Step -1
    Print Space(9 - i);String(i*2+1,Trim(i))
Next

同样 这是给别人回答的一个问题（百度知道）。中间还有小插曲；原来我写String(Trim(i),i*2+1)，后来怎么搞总是乱码；奇怪死了。一看 原来是参数写反了……（我是答案输好以后复制进VB检验的）

分数云 —— 成绩全局统计系统

能够统计题目的错误的人有哪些、错误人数、总共失分和占所有分数百分比、完全答对人数和占所有人数百分比等。

临时给别人写的。编辑功能没有实现。支持导入、导出题目学生。

请注意：因为WEBBROWSER和VB的问题，因此VB IDE下常常会出现问题（实时错误-1）。编译后就不会有问题。

不用说了，一款用VB写的，专门获取cnBeta新闻的绿色软件。

（Trial：测试版本）

支持系统：Windows XP, Windows Vista, Windows 7 RC

Tip: Windows Vista+系统请将程序以“管理员身份”运行，因为他会访问文件。

编程中其中几个非基础的关键：

1. 无外接口（连winsock都没有用）实现的异步下载（当然不是我发明的）

2. VB6的GDI+和UpdateLayeredWindow（代码稍后放出）

3. GDI+模拟文本框（有小Bug）

4. GDI+多任务处理

5. GDI+新闻滚动

6. 32位托盘图标

7. 读取文件夹下子文件夹

8. 对比列出新新闻

9. 按系统解析步骤获取系统默认浏览器，并非直接“shell explorer”等等。

10. ………………

当然了 还有一些BUG，最主要就是必须有微软雅黑字体，否则有一些会不能显示（应该是系统的bug- -）

vIstaswx cnBeta News Reader Bugs Report 专用日志页