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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 最后下面给出答案： " s. Q( D4 D0 m: I) w5 h% [8 ?dim i as long,j as long for i = 1 to 9 for j = 1 to 9 print i;"*";j;"=";i*j & M& i) g; e- |( Y; T next * B( c0 |3 O8 U, h/ f. o print next 下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 4 h$ e! e l# L) w试试吧! . R @9 V3 T- q: ]: _+ b9 l" ? 2 V }- N+ N% o! y# {9 E还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
dim fnum as long, snum as long
5 ]) f4 J/ B" [8 Y/ Tfor fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
; W4 C! d! L% `% i) l: N' h    next
7 R" ^* I0 O# L. z5 @8 H6 t' d5 d    Print
  V! c5 Z; a9 R1 Snext

, g" A" s5 j: e1 ?金字塔图形：
dim str1 as string
* D( a& J  C  F* e0 ndim i as long, ii as long
( U( O. ~+ O2 \& i, f. Hfor i = 6 to 0 step -1
/ h" d# q! f% B6 f, D; E/ R" S    str1 = Space(i)
6 v( W1 I, O, I/ e    for ii = 1 to 2 * (7 - i) - 1
        str1 = str1 + "*"
( o7 h$ c+ A$ T: V* s/ ?    next
9 ~* p! C( `* t( x9 T8 {    print str1
next
$ T+ C8 R# F) V! I! H
6 c$ F" ^" A, G: s; ^# \* X????????????????????????????
- H& p. T: r$ x# n: @) P1 \2 j什么意思？？？
+ ~$ o; {! X" b7 x0 A/ L
; [& ]2 t1 g& o0 S* ]

游侠无极限

金字塔图形：
" o: o( d+ ?1 u, E3 f0 h- m'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
print space(6);"*"
print space(5);"***"
print space(4);"*****"
6 F3 v+ R# T1 n4 C5 ~4 pprint space(3);"*******"
/ ]; }5 O# }/ M$ l# c- D9 N/ vprint space(2);"*********"
% L4 Y% B/ r) wPrint "*************"
' v; |4 w' E4 G! g4 R
3 C3 L) ^1 |& w

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

1 j1 e  I9 g! u0 D: B

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
Dim i As Integer
( E; Z5 c9 @) OFor i = 1 To 7
9 r1 y) g. g) H9 o& Q% o8 }    Print Mid$(str, i, 6 + i)
8 Z  j6 r3 x/ d% fNext
: b6 ^/ V4 G  t2 K
4 S- M* a4 a, X$ U8 b+ w" Y5 L# q- Q
( o  |8 ]0 A  B  ~( c
: e  ~, O. i6 T: G( |7 K

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

游侠无极限

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

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
& |% B9 q. |' M$ L还没有对齐第一个。
5 N. F% \- p- t2 ?  Q( J请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

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

而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
3 T8 H: D6 \  L但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
3 ~9 t4 c1 y$ k& a$ L, u/ Q# u6 ?cnt dd ????????h
.....
( t0 e  X6 }" L, m$ c@@:
# r) {2 B9 X9 ^8 `6 L, w& e, e$ p...
dec cnt/sub cnt,??h/...
jnz @F/...
...
或者是
mov ecx,????h
1 l- I3 \1 u  j1 D; `) t5 x# w# c...
@@:
...
loop @F/...
还是其他的什么形式？

游侠无极限

这个不知道
# z/ y  o0 O3 f本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
( c( k: [5 r! z; H' w" j. E. X9 l+ E
再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧