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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 最后下面给出答案： dim i as long,j as long for i = 1 to 9 , J2 r" s* ]7 p8 G% Z for j = 1 to 9 print i;"*";j;"=";i*j next / X8 `. H+ S+ D: C7 Y print ( M( A L9 g z9 dnext 下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 试试吧! 8 K; z+ [* V6 i3 L- k ^3 r2 h. G, i" |( w还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家 ' B! H1 D! S9 [7 v r A

唐明

九九表修改如下：
dim fnum as long, snum as long
. N* r' t/ K' |) Gfor fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
4 C3 c. g8 J" K/ V% X! b3 {/ _        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
+ M5 q* F9 a9 }/ x" k& X    next
  M5 A' Y; |; S, D# u1 j' C( z    Print
0 ]" h8 [/ V+ m' Fnext
7 P' b1 x, ^* D" Y! R
金字塔图形：
" n8 f  I9 x, L9 g' Gdim str1 as string
dim i as long, ii as long
for i = 6 to 0 step -1
  U$ x' o/ A) ~5 Y/ k; p1 A% [    str1 = Space(i)
+ b3 ~) f2 A' w& E0 s. a& w    for ii = 1 to 2 * (7 - i) - 1
9 \3 M( l  z: r8 D. i        str1 = str1 + "*"
    next
7 {  m' ^$ x5 ]4 q" f6 M& A* D    print str1
next
4 T! y( u0 @7 R# e5 w, m7 E# }% |
* I* L# v" r$ t$ N( W????????????????????????????
4 R2 X  p- D6 z+ w! w2 F什么意思？？？

游侠无极限

金字塔图形：
. ~, t, `/ g0 E5 w2 l: p# e'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
print space(6);"*"
print space(5);"***"
print space(4);"*****"
print space(3);"*******"
: `: H% v/ T0 K- q7 ^' s3 |  wprint space(2);"*********"
$ O' X0 k7 A4 ]0 ~1 XPrint "*************"

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

游侠无极限

Dim str As String
) E1 z- A- }+ Cstr = Space(6) & String(13, "*")
" D2 ~: n5 k$ U. z9 e1 mDim i As Integer
For i = 1 To 7
    Print Mid$(str, i, 6 + i)
8 ?: m* m8 q! n. iNext

) Y% r0 F3 j3 O
& ~4 h, C) D- F9 T# p

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

6 M4 C) \! e0 x, b0 M0 z9 h

游侠无极限

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

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
. j5 i* a$ m/ h4 Z还没有对齐第一个。
! G: {2 T' }9 _$ I; f1 r$ G0 Z请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
0 Z5 N8 W/ A# s9 U# H查了一下，是这样的
6 D3 c1 `. m9 ?( p“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
6 a. l; l0 k, S) X
而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
  W( f! B5 d2 y/ c6 Y+ X* S比如mid(asdasdsad,1,2)是可以返回"as"字符串的
' @# L  M% N7 \. W, g- t' u9 Y但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
" A- \* o2 F3 bcnt dd ????????h
: S7 N0 O- o7 R- R.....
9 K1 M( b3 c: W4 T( t@@:
% ?) P4 Z* j6 o3 v9 S2 X, a2 {...
1 p0 n3 i0 ?! Kdec cnt/sub cnt,??h/...
jnz @F/...
. ^: C  H5 u0 @/ R! i...
或者是
mov ecx,????h
; d/ \$ _, S% _) P...
@@:
...
loop @F/...
& I, l% k' N: S! F8 `+ Y还是其他的什么形式？

游侠无极限

这个不知道
+ J6 y+ L: \7 ~2 q5 [本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉

- ~6 K, d$ l" }8 i1 T3 D  s再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧