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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 & v) Z+ [ @3 `! l7 F5 ]最后下面给出答案： " i* R* N, b& ?$ X6 ]# Qdim i as long,j as long , \% {# u; a" \1 j$ ^for i = 1 to 9 # t* k0 L* n3 r( T, A1 w1 W7 g for j = 1 to 9 print i;"*";j;"=";i*j + M6 a4 e, t! K2 v2 A# S' F next print next 下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ ) {1 P4 D+ m) _% p1 d/ h5 B: b试试吧! ) ~8 z1 A0 M0 W! `3 h d8 }; U% | ; Y. X2 o3 y- w2 G还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
. T( a1 j. B4 N# l7 v5 k2 _1 rdim fnum as long, snum as long
for fnum = 1 to 9
4 t. y% Y# s1 X2 r6 Z    for snum = 1 to 9 '9改fnum是另外一种形式
        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
    next
    Print
( @) ~7 K+ Q' E# L. L& t; }$ O2 enext
  F  Q$ b' w) ]' Y$ P
! B& d, U; C0 _: o6 R5 ^) x金字塔图形：
% b6 t9 ~: W( R2 T& I5 hdim str1 as string
dim i as long, ii as long
3 b7 O9 w. c, k+ ofor i = 6 to 0 step -1
    str1 = Space(i)
" h: g5 H0 `. }# g. D4 g! y6 V    for ii = 1 to 2 * (7 - i) - 1
1 U' u) C+ v2 \9 q        str1 = str1 + "*"
    next
    print str1
next

- ^2 n0 U+ Z1 Z! S5 F????????????????????????????
什么意思？？？

游侠无极限

金字塔图形：
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
' v8 G$ P8 W* @  aprint space(6);"*"
print space(5);"***"
print space(4);"*****"
7 S) _5 x! O, p  f( L7 Qprint space(3);"*******"
print space(2);"*********"
Print "*************"

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

/ i- J2 y6 H/ f7 w2 _" e2 s$ a

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
4 I& W& R  M. R0 w$ Z. }1 x' XDim i As Integer
For i = 1 To 7
    Print Mid$(str, i, 6 + i)
, a  a! }4 _% b* R8 l4 H3 gNext
7 T; l1 `- D$ V' h


; ~3 Y# H! y5 X' z; i/ b

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

* H$ N2 f% K) v0 N

游侠无极限

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

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
/ Q* {& k  n9 t9 I4 Q还没有对齐第一个。
* v; b) }+ C- e5 k  l! Z8 t请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

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

) s6 Z% e; H& Q; L5 O' u4 L而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
% \. G) \' C% G$ d. u: Y比如mid(asdasdsad,1,2)是可以返回"as"字符串的
1 B' }/ i# B0 b6 z# H但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
: t& j- H9 }/ n请教楼兄！是象下面的 代码吗？
8 A. Y/ r- b- L6 V2 c4 Lcnt dd ????????h
.....
6 J$ |- I8 w9 O@@:
...
dec cnt/sub cnt,??h/...
2 x* C9 E% W  J* o( G. ljnz @F/...
6 \4 m. r8 |% h5 ~- w...
. Q" o3 j  O6 B, D或者是
mov ecx,????h
...
@@:
...
& e: ?- i" n  w( tloop @F/...
还是其他的什么形式？

游侠无极限

这个不知道
本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
( q, M- U2 }+ H% S* s
- c0 `* S* P0 i0 J# |3 s- m再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧