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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 最后下面给出答案： dim i as long,j as long $ V! r5 w( A! H5 jfor i = 1 to 9 for j = 1 to 9 5 E$ I. ~3 n3 l8 j1 \/ w print i;"*";j;"=";i*j next print ; a4 j% w& r0 K3 l8 H* Z: {' y: Q5 vnext - F/ ?8 y9 q& P: b7 F6 k8 a+ d 0 h }) j# X1 w) {/ ^7 C( ~下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ ! E- R: M. z& ?* m7 f试试吧! ( S" w/ F$ b6 T' H8 C2 f- }! P/ ] 还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家 q( M# q2 ?0 |$ z A

唐明

九九表修改如下：
8 }# K/ L: V3 F7 ?+ N2 d  u3 idim fnum as long, snum as long
for fnum = 1 to 9
9 J  ~7 g% _+ v    for snum = 1 to 9 '9改fnum是另外一种形式
        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
5 x& Z) n) a0 V/ F9 M7 j* q9 H" C8 L    next
    Print
next
1 c1 U/ I+ d; j( f2 u7 h
金字塔图形：
dim str1 as string
1 K' M) W4 B: c2 K- v6 mdim i as long, ii as long
5 h( H* T& c6 W5 U! P, Z2 Jfor i = 6 to 0 step -1
    str1 = Space(i)
    for ii = 1 to 2 * (7 - i) - 1
        str1 = str1 + "*"
    next
    print str1
1 c: ?( |% }5 w# unext
! G- G6 k; k2 u
! z5 Q! R2 T; f) @. t( n????????????????????????????
什么意思？？？
; a' e- e2 L% v7 u1 k

游侠无极限

金字塔图形：
3 b# k, r* L3 x# {'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
3 \" G3 ?5 V  C3 Zprint space(6);"*"
print space(5);"***"
print space(4);"*****"
print space(3);"*******"
; T/ @1 C/ j$ @4 T$ D# k: n% z" _" Qprint space(2);"*********"
Print "*************"

% t3 T6 a5 M3 r  B

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

游侠无极限

Dim str As String
) C+ [! s! l  t. ?' B8 Dstr = Space(6) & String(13, "*")
Dim i As Integer
For i = 1 To 7
. v1 l7 V3 V' L2 ~3 F- ~" h  S    Print Mid$(str, i, 6 + i)
Next
6 V2 Q# `* B+ J/ {% z3 Q
8 I$ {. G$ x$ v6 d2 ^

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

游侠无极限

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

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
5 ^) U/ W# t3 Y- x% i还没有对齐第一个。
" A1 G9 |2 H6 U1 W! d请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

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

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

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
6 o6 H4 C8 e, Q% H  r& P# {8 rcnt dd ????????h
% x% ^" N% @( R0 r8 m.....
0 U/ b" }7 c+ t8 R/ S@@:
; q" c) Q! G# Y. }: u...
dec cnt/sub cnt,??h/...
, G: z+ z% G6 W/ c8 T, O4 |$ Ajnz @F/...
...
: |- U* Z% `2 Z7 \, }2 }' Z0 @8 ]或者是
mov ecx,????h
/ R) ~; t6 N0 \  m* {$ F0 ]1 G...
# G/ Y/ i& d+ [$ X@@:
...
loop @F/...
' h+ X" f1 O  ]* ^还是其他的什么形式？

游侠无极限

这个不知道
/ ~2 _5 D: G4 ?* U- [6 ]本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉

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