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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 - N3 w4 _& z. t( R' ~最后下面给出答案： dim i as long,j as long for i = 1 to 9 for j = 1 to 9 print i;"*";j;"=";i*j next print next 3 X4 M0 e' f. W: @! o6 @9 z8 c: @ $ A3 _. ]3 @4 ?1 D1 z* z下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 7 S" z+ i8 @ i4 r试试吧! 还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
dim fnum as long, snum as long
1 K  q$ k7 R  P7 ]0 b/ t$ r4 nfor fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
0 R3 [6 K" r. W5 A) |& N5 A        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
    next
; v; C& O# }# J) I) r' S    Print
+ R+ D- y% I" L3 n1 Y+ ~next

, y& O* c; d  f金字塔图形：
" ~' K) [4 l2 x. m+ Ldim str1 as string
5 K( c5 Z& n- W) j& \dim i as long, ii as long
for i = 6 to 0 step -1
) u5 ~& |; ^& r, E; y* g    str1 = Space(i)
    for ii = 1 to 2 * (7 - i) - 1
4 d" _$ Y7 t9 B5 v        str1 = str1 + "*"
    next
4 [( I0 j! p1 _+ x) j    print str1
2 F: q0 {, ~2 U1 V- jnext
- B0 G0 _: f  R5 U0 z$ K
* j1 o, e& e/ c????????????????????????????
什么意思？？？
1 Q7 k. U; H2 c

游侠无极限

金字塔图形：
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
, N. i5 [) j& m" A: f7 {print space(6);"*"
9 Y/ {6 f; _9 R1 @' T6 Q$ qprint space(5);"***"
9 V3 g/ W# C1 g- X2 H( d; t- N# K' Qprint space(4);"*****"
print space(3);"*******"
print space(2);"*********"
1 W! O8 v$ L$ k" t! `! E+ XPrint "*************"

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

2 C+ _7 i4 {" E6 O& ~/ c+ @  T

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
Dim i As Integer
; y3 \  _# v% g7 L! ?% |" C2 m+ f: ?5 iFor i = 1 To 7
    Print Mid$(str, i, 6 + i)
$ V/ v5 X! W; n3 l+ C# J* B8 W$ B2 h! `Next
2 E. S' ?. w' e+ [" ^) e
7 W; h; F% c+ O' I

6 I+ m" r! q4 x1 m& p

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

游侠无极限

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

唐明

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

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
* h6 c& S( z/ j* X( G7 l查了一下，是这样的
& L4 Q9 c% q  R4 }+ e, g/ y“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”

2 ?1 E+ q2 l3 Z! z! k$ |而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
2 Q+ U1 Z- S4 x$ G* X! scnt dd ????????h
.....
@@:
1 }8 n6 F2 \0 D6 C$ I...
dec cnt/sub cnt,??h/...
jnz @F/...
( ?4 u* A, f3 C: z- a( t...
1 [6 t% y) v' S) k; n或者是
9 _, D5 L0 b& E& smov ecx,????h
: X2 A* y+ ~3 q! o/ I" G: J...
& m. T) W) @9 }9 u% T5 E/ m7 ]@@:
...
loop @F/...
- z- v* H, h" q3 ?0 p; }还是其他的什么形式？

游侠无极限

这个不知道
本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉

再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧