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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 ( p. H0 L3 }: V( C最后下面给出答案： 8 e, u4 _4 s; ^0 X4 q* Fdim i as long,j as long 3 B4 F9 e! }) w; Vfor i = 1 to 9 for j = 1 to 9 7 v+ `! ^: x% K print i;"*";j;"=";i*j 5 h! }+ Q1 X9 m# r. { next print next # Q2 Q3 E! r& C2 `& V1 x" E下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 7 f# M+ c. ~/ q' u- H试试吧! 7 i, i0 y. w+ D4 [还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
dim fnum as long, snum as long
for fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
$ @* R# Z; Q! }        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
    next
    Print
next

3 u9 i7 k* y% D( h& B+ }' X6 L9 C金字塔图形：
+ X: X$ e; z; I7 udim str1 as string
* a1 ]& [2 p/ p7 w3 Wdim i as long, ii as long
' V& _5 G  A: W6 Hfor i = 6 to 0 step -1
    str1 = Space(i)
2 O3 r+ L; Y4 J0 b( v4 N; \. Z2 V    for ii = 1 to 2 * (7 - i) - 1
0 \/ n7 e: y* w8 b" p6 l* E        str1 = str1 + "*"
    next
    print str1
2 p" h) y/ A4 q6 n9 Ynext
  F( z: E" a. N% O  g# E0 k; n
????????????????????????????
什么意思？？？
- R" |- O" b2 M" T: G: x7 N
: R3 x8 `; K1 f# e$ Y6 o; f  V9 \! ^" O

游侠无极限

金字塔图形：
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
print space(6);"*"
, i+ B$ u& C2 |4 \+ s, W; _/ q/ @print space(5);"***"
6 H  r1 K+ y9 I  xprint space(4);"*****"
- `/ g+ P' N5 H1 S3 a1 F; Fprint space(3);"*******"
print space(2);"*********"
Print "*************"

* N; k, p! s0 r# H/ W& V

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

游侠无极限

Dim str As String
' U* Z- ^0 l, @" y6 H: mstr = Space(6) & String(13, "*")
Dim i As Integer
For i = 1 To 7
, U8 @) ?4 p+ {+ B( G; j- A    Print Mid$(str, i, 6 + i)
' |, c6 t. a0 G3 X7 `Next
# a3 G1 R/ r: {2 j( Z


& m, F. s! o1 [- t5 Y( z0 c

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

9 R( h( r7 L% A* e) H

游侠无极限

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

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
, M, Q, C. ^2 `1 @+ S还没有对齐第一个。
- v2 W* l8 c. u- j% D( L' {5 M请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
查了一下，是这样的
( k: e6 \  I0 T6 t9 U“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
( k; B5 D6 ]0 a2 u% S3 f& c
; q: A: v- w+ N7 }而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
, J0 @( W/ x0 H* s* X1 Z但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
4 }& Y. ]* T4 x9 s请教楼兄！是象下面的 代码吗？
cnt dd ????????h
.....
@@:
  B9 z0 I6 d7 b; A! R...
/ w2 R4 E, L- }, S, Rdec cnt/sub cnt,??h/...
jnz @F/...
...
. k3 C+ {3 J- h, G8 n# W+ S) A或者是
mov ecx,????h
...
@@:
: r4 D, i: S0 T' K...
loop @F/...
7 {2 D( \0 |  t" F还是其他的什么形式？

游侠无极限

这个不知道
本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉

4 b1 P- R! ~6 x6 W5 ^. q再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧