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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 0 ]6 q- n: Q* w/ {+ w最后下面给出答案： dim i as long,j as long . b# y: x* p0 i0 {# tfor i = 1 to 9 3 _" u" _# Q/ i) V; G/ Q$ j7 U! g for j = 1 to 9 Q* \( @, m* T: y1 ?* P& T1 f print i;"*";j;"=";i*j next & q$ d% r H6 }( e; |" i print next : c' a( w! A: p, x7 i( C下面大家来看看这段漏洞百出的代码吧！！ 5 L1 s" Q9 l3 `. A) I9 Q也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 试试吧! 3 ~6 Q& g/ t: W8 U还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家 [% S* ^% a% ]

唐明

九九表修改如下：
; F3 }- g& S6 Y7 {. J1 odim fnum as long, snum as long
! L9 t* m# u* e% i9 Sfor fnum = 1 to 9
  t1 a: y5 A9 g% k0 c    for snum = 1 to 9 '9改fnum是另外一种形式
0 x, k% {* r6 `  c' O        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
, D$ X9 u) F3 D    next
* ]2 J) Q- G. B0 O3 T1 B    Print
9 P  n+ y6 b: ]8 Fnext

金字塔图形：
dim str1 as string
0 ~" m0 q* C) N) _dim i as long, ii as long
; \* L+ q) C+ `: afor i = 6 to 0 step -1
    str1 = Space(i)
; B9 R4 i# V8 K  x7 F/ d. U% s    for ii = 1 to 2 * (7 - i) - 1
        str1 = str1 + "*"
    next
    print str1
3 U0 m0 x! u! l4 D: v3 w+ Q1 snext
# H# n2 @) y& L2 w# k  g
????????????????????????????
  h/ g8 f% C9 u6 c3 c6 b. s. W什么意思？？？

+ ~) h9 a+ F- U+ J+ X6 q

游侠无极限

金字塔图形：
* b3 V. v% d7 g1 p& Z'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
print space(6);"*"
' h7 G# z3 U7 cprint space(5);"***"
print space(4);"*****"
9 v$ ]; D5 G5 E0 {, V- W9 h* Nprint space(3);"*******"
print space(2);"*********"
Print "*************"

$ {: s4 d0 H: Q7 t+ N9 f

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

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
Dim i As Integer
4 r. n/ N, W7 I" C2 B6 w  n" d* tFor i = 1 To 7
    Print Mid$(str, i, 6 + i)
3 `9 k& H9 l0 d2 ]2 YNext

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

游侠无极限

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

唐明

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

游侠无极限

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

而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
2 k) J. w2 p3 Q* {: d( K比如mid(asdasdsad,1,2)是可以返回"as"字符串的
但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
8 P. k; \/ K4 x  H; Qcnt dd ????????h
9 U* B( y/ C: y8 }$ _8 h.....
@@:
...
# m0 ^! a- ]% o, h/ g; K  udec cnt/sub cnt,??h/...
4 n: H0 ^$ P; k% djnz @F/...
...
或者是
mov ecx,????h
; R3 M. r' L: T( J) O# F* ^...
@@:
1 O* h, I+ |* A* U! B( b- k- M...
# [( u) z2 I, k; J2 ^3 \* ]loop @F/...
2 B- C' N0 k" k2 K& K: D3 u还是其他的什么形式？

游侠无极限

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

2 q# ~$ C0 [% u1 g( E- G再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧