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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 5 {" o3 @" D2 Q) Y, n最后下面给出答案： 0 P& n; ]; p6 P8 d; [/ Fdim i as long,j as long for i = 1 to 9 & z! w% c: w9 A+ K for j = 1 to 9 7 g" o* c1 b# h! O print i;"*";j;"=";i*j 3 l0 A# I5 o$ ], c( g2 \6 d) ^: v next print : N6 L3 L" z' qnext 5 B5 E9 f* s4 W 下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 试试吧! & J4 R5 o7 \( ` 还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
1 ~5 a) I8 ?7 S+ F" X: ~3 s. {4 fdim fnum as long, snum as long
for fnum = 1 to 9
. \! L0 c# o  c, Z3 f    for snum = 1 to 9 '9改fnum是另外一种形式
7 `; }6 G6 F+ z$ K7 S* Y& q. _        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
: F  z2 K' \: ~$ |" }/ T: O, m    next
    Print
' P6 x4 V3 o2 J+ [next

金字塔图形：
3 O/ [8 H  Z' tdim str1 as string
dim i as long, ii as long
for i = 6 to 0 step -1
    str1 = Space(i)
    for ii = 1 to 2 * (7 - i) - 1
+ l& X5 [7 O$ [) e        str1 = str1 + "*"
    next
" q/ B' J, Z7 M2 ^- {* ], N    print str1
% Y! @5 O+ ]2 P* O& f8 S5 I6 Unext
  b& D2 L% j5 q0 b0 O3 ]
????????????????????????????
" U; B: I: H* S; |  H什么意思？？？

游侠无极限

金字塔图形：
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
print space(6);"*"
print space(5);"***"
; R% `4 v: f5 }- u: @print space(4);"*****"
print space(3);"*******"
print space(2);"*********"
# G% c& w6 B6 c3 |" g3 X- ]Print "*************"
5 X! g: c# L9 n

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

' a% g) e+ U5 @3 E4 e

游侠无极限

Dim str As String
7 G4 c! p  a+ t- A, u+ l7 fstr = Space(6) & String(13, "*")
, K6 C- c. [" h8 ^: `Dim i As Integer
" b5 }/ h$ Z2 \3 _For i = 1 To 7
    Print Mid$(str, i, 6 + i)
' T) ?2 J! z4 D: o% vNext
0 X3 n" a* }1 l4 x

4 I: i) \# b$ ?- I5 m

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

2 z  {3 N2 [1 i3 D" F8 z

游侠无极限

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

唐明

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

游侠无极限

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

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

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
/ c' Y7 F+ K. M1 x3 v5 ~5 N请教楼兄！是象下面的 代码吗？
cnt dd ????????h
! k: n1 D4 I, f0 b& s  C.....
@@:
...
dec cnt/sub cnt,??h/...
jnz @F/...
  d, m4 H  Y+ d! J5 r...
4 Q) v3 Z( \8 f) r或者是
mov ecx,????h
...
8 E' _* ~0 T: K6 R1 N1 ~. l1 t@@:
...
, @  w1 J$ H8 e0 X% \1 F9 Y1 D/ i( }: aloop @F/...
还是其他的什么形式？

游侠无极限

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

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