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检验的）

VB代码：

产生N个a~b之间的，不同的数字并计算平均值

vb code: 求若干数字之和（数字个数不确定），用Do While...Loop解决。

我写了一个最简单的代码，后来完善了下，成为了一个功能比较完整的版本：包含了数字判断、个数输出、总和输出、输出所有数字~~

详细代码请详细看~~呵呵

如果代码有任何可以完善的地方欢迎提出~~Tks~ 

某日在BaiduZhidao上面看到一个VB的问题，要求：

“ 

当在text1中输入1，屏幕输出：
1
当在text1中输入2，屏幕输出：
1 2
4 3
当在text1中输入3，屏幕输出：
1 2 3
8 9 4
7 6 5
当在text1中输入4，屏幕输出：
1  2  3  4
12 13 14 5
11 16 15 6
10 9  8  7

... ...
以此类推。。。

”

于是我根据人们的思维方式用VB写了一种解决办法。

代码可读性比较高，不过呢，精简程度不怎么样~~代码执行效率还可以。