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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 % l G1 F2 ]1 k* r最后下面给出答案： : Y- S3 ]2 w8 L. p) W- ]" Rdim i as long,j as long ; v- ~9 n! s- Efor i = 1 to 9 4 p( I5 Z1 l# d0 t for j = 1 to 9 7 O, ]+ ` B' z& Y9 J& _ print i;"*";j;"=";i*j next print next 4 ?1 k& y3 u3 [: M4 \0 h% J! B下面大家来看看这段漏洞百出的代码吧！！ $ n4 W8 h) l" O3 j* s也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ t) V5 j; G: p: e* n ?试试吧! 1 J# r( P: u8 ^* Q t' r# @/ Z: w4 d4 d" d还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
7 k3 G: s1 X/ B7 x, V* t: Qdim fnum as long, snum as long
. m" o# ]6 [: k+ \5 hfor fnum = 1 to 9
5 o# }  ?) J: z# d    for snum = 1 to 9 '9改fnum是另外一种形式
        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
    next
    Print
next
% V5 r5 m$ }/ C( c. |; I
金字塔图形：
1 M  w! G2 f8 W' }; V9 e% B3 @dim str1 as string
dim i as long, ii as long
for i = 6 to 0 step -1
7 O! p  L: ]5 ^; {1 b) @    str1 = Space(i)
6 D8 s) p# A. m5 n3 W% R7 F    for ii = 1 to 2 * (7 - i) - 1
        str1 = str1 + "*"
4 N( R/ m- k$ ^; Z    next
: r" t7 Z" b1 Y% K8 ]  F    print str1
next

????????????????????????????
, u1 B* X! {8 X/ E什么意思？？？

  |1 A+ ?& p% T

游侠无极限

金字塔图形：
! S" S' `3 }( D9 T* O& ]'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
6 D* W  H3 m6 a/ s0 v  L0 lprint space(6);"*"
* X( R4 Y8 C2 k: Fprint space(5);"***"
print space(4);"*****"
print space(3);"*******"
print space(2);"*********"
Print "*************"

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

游侠无极限

Dim str As String
1 ^4 k: Y& K' Zstr = Space(6) & String(13, "*")
3 {7 p& y. Y) C* BDim i As Integer
For i = 1 To 7
    Print Mid$(str, i, 6 + i)
) R4 B- x! o1 ^Next



2 r- X0 n4 V- K) [2 a' H- p2 Z8 i

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

+ G. ~$ ^% @6 p$ f- P9 l

游侠无极限

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

唐明

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

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
6 X% v1 e8 ~  p) `8 s" `- d* E; P查了一下，是这样的
) ?0 Z: H& z* A, [( ~+ f5 o, O+ I“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
! ~8 C8 v# [0 s
* g. Q2 y% ?& a" i1 a6 W" l而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
3 B8 R; l. h1 `6 n但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
cnt dd ????????h
7 z7 w2 B1 H! P$ w2 A.....
@@:
* z0 h* ]$ z* Y...
dec cnt/sub cnt,??h/...
jnz @F/...
...
9 u6 r* j! P) y  |  D* e或者是
: A" M: V" h& _: tmov ecx,????h
; U; d6 n& c1 C...
, D0 d2 O% T( C@@:
' i2 d- Y) b8 ]7 W6 M: p...
loop @F/...
还是其他的什么形式？

游侠无极限

这个不知道
& n. X5 W$ z; a) `本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
- j! h; \# l' d: b! F) _' |" d2 V
: U9 r2 p0 y' k8 u& K再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧