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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 3 \" i! M5 m0 K1 L7 |- r最后下面给出答案： n+ Y1 M* ?6 ]) e& u0 N& [6 D4 D. Bdim i as long,j as long ( |! h/ i/ s6 c8 Y9 a) f9 R; Rfor i = 1 to 9 for j = 1 to 9 print i;"*";j;"=";i*j 5 {& @/ v9 A" l0 r! B9 G next 0 A/ s Q8 ^! ]1 F print next q1 u; A7 X# U* a: {! H下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 试试吧! ; K$ @ K2 r; t还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家 5 k3 W, m7 K( S

唐明

九九表修改如下：
dim fnum as long, snum as long
for fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
2 u2 E  D7 Z; g5 p        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
8 {# v( K/ D  h& U1 u* w8 L; g    next
" m$ N: L+ x0 t( K    Print
next
& J* C; C" a% o, Y1 h
金字塔图形：
  d2 g/ x9 k% z2 R6 Tdim str1 as string
dim i as long, ii as long
) j! z' s6 _! K8 h4 r9 Kfor i = 6 to 0 step -1
    str1 = Space(i)
& K' U. o  a* D+ O) ^/ P    for ii = 1 to 2 * (7 - i) - 1
        str1 = str1 + "*"
    next
    print str1
next
7 }. m. ^! y( p+ N! V
) z' o+ R4 B/ f. F0 U2 S9 X/ O????????????????????????????
" \3 L) W0 V! A1 i& l" [什么意思？？？
5 o! Q! |# w* ]! U
3 O9 J) b8 }: u: L7 I8 J4 j

游侠无极限

金字塔图形：
7 L" _( }3 Z- P, U, p! z'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
print space(6);"*"
print space(5);"***"
) A" O. j# G, B$ _print space(4);"*****"
% v. T9 g$ M+ I  W9 tprint space(3);"*******"
  u1 \/ G0 W5 X4 C2 [; e& d7 {print space(2);"*********"
Print "*************"

, @8 ~6 N" K5 W- m/ ^' P

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

游侠无极限

Dim str As String
: v" p1 \& o! n- Estr = Space(6) & String(13, "*")
( B0 G: u; j9 P7 z  D* eDim i As Integer
For i = 1 To 7
; |7 L# ^1 O) E  e: P4 _$ h    Print Mid$(str, i, 6 + i)
2 g0 J+ z- z& }. d! m- ?Next
) V. |8 f% Q. u; j6 a7 d

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

游侠无极限

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

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
还没有对齐第一个。
/ a& s; c/ f! h! F( [( A请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
8 [3 t3 T1 D* A- t$ k查了一下，是这样的
“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
7 ]3 ?9 o8 n* A; h% @
& e6 k/ |1 G/ D# _( R4 J: c而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
, C/ L2 N, E7 M1 m! n% G7 Mcnt dd ????????h
5 {4 V' ?5 _3 c5 Y% {+ ^: K.....
@@:
...
4 d7 k& r! K! E5 X& b2 rdec cnt/sub cnt,??h/...
jnz @F/...
...
& _/ ~5 Q; u4 |4 q" ~或者是
mov ecx,????h
* o3 S: O1 j' e( q6 V...
6 v% ?( i6 B; o@@:
...
% |: r  t1 y( `+ X+ A1 Jloop @F/...
" t( H- `$ R9 y5 b& T还是其他的什么形式？

游侠无极限

这个不知道
本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
( ?" s- c2 m/ }- u* A
再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧