VB中print的用法，显示字符图形

For i = 1 To 9 Step 2

Print Tab(15 - i)String(i, "★")Spc((10 - i) * 2)String(i, "★")

Next i

spc那个,加个 *2

如果陪液绝你觉得埋孝距离比你要求的大,那就变成芦姿 Spc((10 - i) * 2 - 1)

tab:

与

print

#

语句或歼者

print

方法一起使用，对输出进行定位

语法

tab[(n)]

可选的

n

参数是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数，则

tab

将插入点移动到下一个打印区的起点。这就使

tab

可用来替换国别中的逗号，此处，逗号是作为十进制分隔符使用的。

说明：如果当前行上的打印位置大于

n，则

tab

将打印位置移动到下一个输出行的第

n

列上。如果

n

小于

1，则

tab

将打印位置移动到列

1。如果

n

大于输出行的宽度，则

tab

函数使用以下公式计算下一个打印位置：

n

mod

width

例如，如果

width

是

80，并指定

tab(90)，则下一个打印将从列

10

开始（90/80

的余数）。如果

n

小于当前打印位置，则从下一行中计算出来的打印位置开始打印。如果计算后的兄棚打印位置大于当前打印位置，则从同一行中计算出来的打印位置开始打印。

输出行最左端的打印位置总是

1。在使用

print

#

语句将数据写入文件时，最右端的打印位置是输出文件的当前宽度，这一宽度可用氏尘薯

width

#

语句设置。

注意

要确保表格列的宽度足以容纳较宽的字符串。

当

print

方法与

tab

函数一起使用时，打印的外观将会被分割为均匀、定宽的列。各列的宽度等于选用字体内以磅数为单位的所有字符的平均宽度。但是，在已打印字符的个数与那些字符所占据的定宽列的数目之间不存在任何关系。例如，大写字母

w

占据超过一个定宽的列，而小写字母

i

则占据少于一个定宽的列。

2.

你输入的数据太大。将

s(10)

as

integer改为long就行了。

代码：

private

sub

cmdsortshow_click()

dim

k,

p,

intplace

as

long,

inttemp

as

long,

s(10)

as

long

for

k

=

1

to

10

s(k)

=

inputbox("data=")

next

k

for

k

=

1

to

9

intplace

=

k

for

p

=

k

+

1

to

10

if

s(intplace)

>

s(p)

then

intplace

=

p

end

if

next

p

inttemp

=

s(k)

s(k)

=

s(intplace)

s(intplace)

=

inttemp

if

k

<

9

then

lblsortprompt.caption

=

"排序中。。。第"

+

str(k)

+

"趟比较后结果为："

else

lblsortprompt.caption

=

"排序完成，结果为："

end

if

lblsortingdata.caption

=

"

"

for

p

=

1

to

10

lblsortingdata.caption

=

lblsortingdata.caption

+

str(s(p))

next

msgbox

"请观察排序数据变化情况"

next

k

end

sub

---