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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 最后下面给出答案： dim i as long,j as long for i = 1 to 9 ' v. ?0 r* G4 S# l5 J# U2 T: T6 s/ y for j = 1 to 9 print i;"*";j;"=";i*j & K. M! R- q4 m3 x% p next print next 2 O$ _0 A6 \5 j 5 [3 Y; |) @1 G/ Q' u下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 0 ^9 d& w+ {: J# S N3 Z试试吧! 5 s2 }4 Y; | H r) {) T : g7 T U& W5 l9 N+ j* ]还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
dim fnum as long, snum as long
1 k% T! \5 g1 j; S. \, zfor fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
) h7 o& f3 R* d1 v/ F. u, U        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
' f2 C+ }  }$ F, _: N' d6 T    next
- a: a& J: d2 d; W2 x5 q/ P    Print
$ R  i6 F3 _' qnext

金字塔图形：
& d( F6 c+ E" s0 Ydim str1 as string
: _/ H3 y% a9 ~dim i as long, ii as long
, E' x. y9 Y) l0 T  c0 vfor i = 6 to 0 step -1
    str1 = Space(i)
( t0 l1 V* D7 o+ G    for ii = 1 to 2 * (7 - i) - 1
# _2 M  n( [3 N" ~        str1 = str1 + "*"
    next
3 _7 e3 ?, a, T& U5 K: V$ V! d    print str1
, b; J' L7 @9 `2 L8 Unext
$ Z/ M7 W& y" k9 x8 r; V( _
????????????????????????????
# r0 C* B* {3 x什么意思？？？

7 ?( t" R( V# R  X9 V; \- v

游侠无极限

金字塔图形：
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
1 Z! D8 H6 L1 n* g- d$ M8 e: W9 i( a8 _; \print space(6);"*"
print space(5);"***"
print space(4);"*****"
print space(3);"*******"
+ y" z! m- ]$ @print space(2);"*********"
Print "*************"

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

# E- B% K# z* d6 r" D

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
) n/ D3 o& q; w: m: n& hDim i As Integer
For i = 1 To 7
    Print Mid$(str, i, 6 + i)
0 u) C7 W0 {: E- a& F1 \" ^+ k" WNext

* V  L4 E! z0 o: n; @, W

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

# h$ F. Z/ B0 p  z( x2 z+ U# l

游侠无极限

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

唐明

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

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
9 o  W, |9 Y9 r/ O4 S查了一下，是这样的
“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
+ S( Q0 _: q- f: F, T* e
而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
' J0 v) S0 B9 y, O3 `+ m9 Q# N7 ?但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
0 o% X& m0 ]* I% tcnt dd ????????h
.....
@@:
...
+ `* V9 X$ p. K! o+ `dec cnt/sub cnt,??h/...
! m# ^9 q, b  l4 W2 _) h% C, mjnz @F/...
...
或者是
mov ecx,????h
* B5 r/ W+ B7 I9 Q; G...
@@:
) Z- E5 n7 V9 z0 _5 z; r$ y: c...
loop @F/...
- l9 F% T- ?7 ^1 X还是其他的什么形式？

游侠无极限

这个不知道
9 S1 k/ j% H7 {( ^6 l3 ~) h6 n" c本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉

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