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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 最后下面给出答案： % X: @9 O1 f1 R8 ~$ ?1 \6 [dim i as long,j as long 9 J! Q0 Q- W$ ? afor i = 1 to 9 for j = 1 to 9 * S* Z, C* r) q print i;"*";j;"=";i*j next print 8 G5 V4 _+ v8 i+ z( vnext 下面大家来看看这段漏洞百出的代码吧！！ " y" s# S+ U$ v+ E也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 试试吧! 6 z; T5 I4 S, D( o, z 9 u9 m7 }- U K2 y1 N( n还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
0 f. }0 h. s+ x) d! g' R) Qdim fnum as long, snum as long
for fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
2 F9 q9 j; X* S' I2 k" a    next
4 q) q7 N* W6 h6 K, h7 m; v/ \, ^5 ?+ s    Print
next

9 }! ~  u- E7 M" U+ v. ^/ M2 Q) x' i金字塔图形：
dim str1 as string
dim i as long, ii as long
for i = 6 to 0 step -1
& P2 {+ `- w9 d/ Y# l/ V    str1 = Space(i)
    for ii = 1 to 2 * (7 - i) - 1
4 ~' ]$ [3 M) h        str1 = str1 + "*"
    next
    print str1
6 W" A" v7 X% Q4 g+ k# E1 _next
4 z' H) C- L. B( o- H8 w3 u
????????????????????????????
什么意思？？？

游侠无极限

金字塔图形：
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
print space(6);"*"
print space(5);"***"
1 V) z; w7 o0 U- u' I( ]print space(4);"*****"
print space(3);"*******"
print space(2);"*********"
  Z% P, U' `3 A$ S+ G( s* \; |Print "*************"
# Y" J+ V0 I5 C  y* f

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

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
Dim i As Integer
) y2 `) p! L, J% {0 j4 }6 W, I# JFor i = 1 To 7
    Print Mid$(str, i, 6 + i)
Next
; U4 g  f- L# e+ l

4 Y- x2 Q3 h% x  [% y

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

$ [9 {5 f! f- ~/ ]; L+ w- h

游侠无极限

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

唐明

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

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
查了一下，是这样的
“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
% T& R8 L5 c, p3 U7 t. r+ \
而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
/ e0 t# d% A! mcnt dd ????????h
.....
@@:
6 w: f# T6 M. ]% w7 f6 Y...
$ Y$ G5 ?" }  Z& c" J# }: zdec cnt/sub cnt,??h/...
# O2 d9 v4 n; p% [0 Wjnz @F/...
...
) Q; `, M2 s4 B6 {或者是
mov ecx,????h
4 D1 C- J/ r/ h; `; B" l* B: i...
3 U. Z+ g! c& N( L5 N* Q@@:
, X2 A! W4 n/ Q7 D( p+ [+ p...
9 B, k* W! [9 R# ~loop @F/...
还是其他的什么形式？

游侠无极限

这个不知道
本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
4 E7 v: M. s, `. o, e& R9 A/ G  d3 i
再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧