[公告]我们vb教师的代码

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 最后下面给出答案： dim i as long,j as long for i = 1 to 9 & n4 ~8 N9 t8 }+ g( C8 v for j = 1 to 9 print i;"*";j;"=";i*j 2 g( \, W& }4 H next 9 w9 h* \3 }. L4 X print 7 B8 C) R3 b; {7 [2 l: ?+ ~+ ]next - j9 h& t8 M% x1 k6 ] s, [ 下面大家来看看这段漏洞百出的代码吧！！ ( B# |- H) J2 i3 E Y也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ : e: o% q* {' m! i: @8 S试试吧! " G; ~1 c7 c. y9 x: ~还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
dim fnum as long, snum as long
& m# r+ j( p% b2 H, c' lfor fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
0 W+ r6 W" U, {0 S0 Y        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
0 ]  L3 ~# a) c) h( B    next
: d) s( w/ g: }1 F5 s% g! ^    Print
) V  P7 k  a$ Vnext

金字塔图形：
! W0 z1 A0 d. @5 A$ x+ q$ }dim str1 as string
dim i as long, ii as long
1 f! b7 n% T/ F% Ifor i = 6 to 0 step -1
    str1 = Space(i)
4 X% G6 N& M9 m+ q9 o    for ii = 1 to 2 * (7 - i) - 1
        str1 = str1 + "*"
    next
6 a) l3 G1 B2 F+ H# i- C8 k    print str1
next

????????????????????????????
什么意思？？？

+ Y! B. G# i2 K2 N6 z. Q4 X- s3 K4 a

游侠无极限

金字塔图形：
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
6 I/ u3 L$ c0 Jprint space(6);"*"
print space(5);"***"
print space(4);"*****"
( F  j8 u, h& nprint space(3);"*******"
) b2 [0 R+ F) v6 i2 j4 ?print space(2);"*********"
& z5 N& H# p& a+ ]Print "*************"

3 i- n& I: i* h+ u' X% Z$ z& l+ g

[此贴子已经被作者于2003-11-24 23:52:26编辑过]

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
Dim i As Integer
For i = 1 To 7
    Print Mid$(str, i, 6 + i)
Next
' b: x) v$ z! l- J: _( i8 c7 \
% }5 v! _- Q, @% I1 p: \
3 ]4 m2 t; r7 E0 r* {, o

[此贴子已经被作者于2003-11-24 23:43:20编辑过]

# d/ _+ T. q) w2 @0 o

游侠无极限

第一个“print i;"*";j;"=";i*j”后面加一个逗号即可

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
还没有对齐第一个。
请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
查了一下，是这样的
1 B5 c3 O5 G5 T/ E+ Z' |“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”

而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
% o$ g6 v( y% P) M但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

书上代码最垃圾的就是FOR循环中的Next后面还加上变量名，这会影响程序的运行速度

唐明

vb里的for...next的代码到底是怎么样的？？
& r% i1 X! i/ V7 F请教楼兄！是象下面的 代码吗？
3 @2 ~9 ^. W) ?! l- }1 n1 M+ Pcnt dd ????????h
.....
' z* j7 ~/ H  Z6 Q, X5 r' C@@:
...
8 v8 d$ b' k' [0 R3 ], t0 ndec cnt/sub cnt,??h/...
jnz @F/...
...
或者是
mov ecx,????h
) ^+ t9 I+ t6 P0 @8 w...
) Q% t% Z% l2 V, B! }* g  I@@:
...
5 N, d) G) ~# B/ r# W! N. qloop @F/...
还是其他的什么形式？

游侠无极限

这个不知道
: ]( I6 x/ X8 e# }6 u' Z本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉

4 a# o, {. F1 W/ j( j再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧