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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 最后下面给出答案： . x, }* N9 ~( Y: u( e, `dim i as long,j as long ! H* ^' u( m9 f2 M% q. t: Xfor i = 1 to 9 ; y( _8 `8 G0 q; }, v* I% Z for j = 1 to 9 - ^/ r/ |' M7 f0 K1 s; T7 r print i;"*";j;"=";i*j 8 m. W) x' K# E# Z1 I next 4 { }* x8 b3 L1 V2 z { print 1 V/ \& Z7 z ~next ! P: J7 `; X0 Q+ s" Y" o' w8 f 下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 试试吧! 3 \* V Y J* w* h) F# I6 C ' |' p7 J5 b1 I' Q7 C+ c还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家 0 E5 ?# }: J: |; M

游侠无极限

这个不知道
本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
' i( g- U! R2 W
再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧

唐明

vb里的for...next的代码到底是怎么样的？？
. r$ m! @  S3 p3 P1 l/ f请教楼兄！是象下面的 代码吗？
6 S& Q0 E' k1 u/ M  g- a, Bcnt dd ????????h
! ~# ^% {1 l8 ?% K, ^.....
@@:
6 z; L: f' Y: b1 T" p( y% ?...
dec cnt/sub cnt,??h/...
& j* w, C1 u8 w2 _) [) U% Njnz @F/...
  S2 {8 t  A- i( t4 F...
8 A. x/ R+ w9 m$ T1 c或者是
  I6 n# n- P' C2 ?5 O1 o% @mov ecx,????h
% ?& q4 x) t# z4 a# C+ P9 M...
@@:
...
+ a. A2 E' }, P( ^9 v6 q! zloop @F/...
. z; }( c% a7 f' r' F5 w还是其他的什么形式？

游侠无极限

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

风吹沙地

书上有例题的

老是搞这些东西累不累？

唐明

楼兄的解释也是简洁的了

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
查了一下，是这样的
“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
" d4 t- M5 }% E& a* M  r
1 ~$ j& E, W, J而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
还没有对齐第一个。
! N4 Q6 F4 r0 u8 Q& b请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

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

游侠无极限

Dim str As String
  W( f+ t- q; }7 fstr = Space(6) & String(13, "*")
Dim i As Integer
, y7 W/ Z0 Y, WFor i = 1 To 7
    Print Mid$(str, i, 6 + i)
2 z& ]3 z2 u8 Y% dNext

- ^5 n" p+ H. x7 r7 b1 s
2 y6 u- R3 o# l2 t  V7 T
( B- [- s, M( d8 Z

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

* W! B3 N1 K  i3 e

游侠无极限

金字塔图形：
0 b( I5 Z7 y" U' I$ h, G) n# S: s1 s; O'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
* x9 B* \% l$ gprint space(6);"*"
print space(5);"***"
0 F. o1 M4 D% C2 J3 n, t( vprint space(4);"*****"
5 w, j! S# k1 P( W( U4 V. ^print space(3);"*******"
print space(2);"*********"
Print "*************"
4 e3 [8 b. Q: a- q, K) Y

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

唐明

九九表修改如下：
! S; L, B$ H! K2 a2 @dim fnum as long, snum as long
for fnum = 1 to 9
3 k- y# F$ F( S8 ~# p8 W( }    for snum = 1 to 9 '9改fnum是另外一种形式
( t% I* j% M0 K3 [2 |        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
    next
    Print
next

金字塔图形：
dim str1 as string
# ]" k) O7 G- ?; Y5 ^; j" ldim i as long, ii as long
for i = 6 to 0 step -1
    str1 = Space(i)
    for ii = 1 to 2 * (7 - i) - 1
* I+ `2 }- }( [0 w- D; G& R        str1 = str1 + "*"
( M$ i( O7 q1 s2 D' j* U/ G    next
5 A& Y& g2 A* X: {+ J3 a7 s6 ^    print str1
next
$ f* b! R$ T2 B4 q! c, s2 ?" c
9 u' ^; C8 g9 W????????????????????????????
什么意思？？？