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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 - v* C6 k; s! C8 ]最后下面给出答案： dim i as long,j as long / @8 v+ s, `5 p) z7 X) j4 |1 R5 e! Gfor i = 1 to 9 for j = 1 to 9 0 d! h' A. f, j6 A print i;"*";j;"=";i*j " `' @2 y/ `6 _8 |" V next 2 \) g6 ~7 o' Z2 k print next : \$ E: T. Q$ ?& J 下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ , G. F* F1 }$ N$ C1 ]试试吧! ( ?: d1 ]* _; N; j" H J 7 ?$ v1 K, E3 _0 h9 X. C8 X! `还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
% V* e% x7 Q0 R' z. F' e, Pdim fnum as long, snum as long
9 J2 W( c. c% i3 R8 e$ T1 Pfor fnum = 1 to 9
: `8 e! k5 h2 M. x2 s    for snum = 1 to 9 '9改fnum是另外一种形式
        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
! B; N" j: q1 e* Z    next
    Print
. ?8 U( \; g, O9 T4 g$ o6 S% znext

' c% s. g+ n% z* F: i- t) B: Q& Q金字塔图形：
' r1 N: s8 l0 u4 F) @+ ?dim str1 as string
dim i as long, ii as long
" U4 O+ p7 J/ Ffor i = 6 to 0 step -1
. K1 |9 p. n# I    str1 = Space(i)
    for ii = 1 to 2 * (7 - i) - 1
        str1 = str1 + "*"
: c3 y9 x. v1 e- f- M; @    next
    print str1
next

+ z$ H/ }7 t: w9 a7 |0 V????????????????????????????
4 t) z7 L2 e3 I6 A什么意思？？？

% j' P. t& S6 V6 r. O

游侠无极限

金字塔图形：
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
print space(6);"*"
print space(5);"***"
print space(4);"*****"
print space(3);"*******"
print space(2);"*********"
/ p9 A! _! M7 F. q6 r+ ]2 xPrint "*************"
2 h5 F8 u2 d. m+ v

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

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
! _4 i6 [% `2 ZDim i As Integer
8 ~- g' o6 O+ }2 V2 LFor i = 1 To 7
) r  R! ~/ ^, v! m* _( Z    Print Mid$(str, i, 6 + i)
- J) S4 c3 t6 iNext
9 W8 O& L- g5 j% f6 `9 [
7 _4 F9 f; c1 |) V6 a! I% M/ K) u

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

游侠无极限

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

唐明

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

游侠无极限

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

5 ]& B8 V5 x: d- @/ g而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
+ K; T+ Q/ g0 ?0 C( G请教楼兄！是象下面的 代码吗？
1 ]7 ~: [3 W& {cnt dd ????????h
2 l  d  M; _& D- ~" o" S/ a" @5 h* Z.....
@@:
) `7 x: l  G7 u: }8 l...
, R! O& M4 A# y7 Y3 o+ J. r( Adec cnt/sub cnt,??h/...
0 M8 M! G" \4 ]jnz @F/...
4 s, A3 p- b0 v- f4 T* Z; Y...
或者是
mov ecx,????h
...
@@:
...
loop @F/...
还是其他的什么形式？

游侠无极限

这个不知道
8 J% K& m( b# `+ y/ b( x, @本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
6 N1 S) T0 `. G: n# a
  X" J# z6 b* z! @* _) o" t" ^) n再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧