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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 最后下面给出答案： dim i as long,j as long for i = 1 to 9 6 E: m/ @" i6 B2 U for j = 1 to 9 9 A+ c- Z7 s9 D+ p6 t print i;"*";j;"=";i*j next print next ; }" E h2 T/ n5 }, u! f1 w 下面大家来看看这段漏洞百出的代码吧！！ 5 N' P6 s0 o3 Q. f( m4 n; g `也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 8 o1 G8 W6 I3 z7 j7 w: N( r7 w试试吧! 还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家 ; q5 {# v# f0 @

唐明

九九表修改如下：
6 M7 F( Y0 v1 M  \# @dim fnum as long, snum as long
! e' M; p/ n" o" D( z. b; lfor fnum = 1 to 9
) T* X! g# k8 J# ^, `/ ]2 f    for snum = 1 to 9 '9改fnum是另外一种形式
/ N* U7 I% W" {  Q2 P- E! Z        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
    next
$ l! s( i4 K; W6 ~- e; A    Print
next
0 h3 A4 P- z+ v$ I5 C8 E: [
# }7 d& z& Q! H2 V  I0 h% Z0 ^# F金字塔图形：
dim 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
        str1 = str1 + "*"
- A9 ?7 l) A% O6 d! C    next
    print str1
& A7 H- b- D9 H* h# k; B' Enext

$ o8 B9 f0 |& b4 Y# o????????????????????????????
什么意思？？？
* K$ ^) S3 d5 U" C7 N$ l

游侠无极限

金字塔图形：
* p, S- S, m/ h8 J6 U# Z'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
print space(6);"*"
- @+ G* Z) D9 E+ l6 F, X! \# `print space(5);"***"
print space(4);"*****"
8 n& {/ J) U6 ^8 Iprint space(3);"*******"
print space(2);"*********"
! L8 T% K  V* u3 z) O3 GPrint "*************"
; w! q/ N* {+ d9 f
- M9 D" y2 ?5 V

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

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
Dim i As Integer
" W9 j' |8 J, B6 F0 m  AFor i = 1 To 7
    Print Mid$(str, i, 6 + i)
Next
# f- X! A- r2 ^; p& c! h
1 s/ w+ R" L; P. o6 _

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

游侠无极限

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

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
还没有对齐第一个。
3 Z0 k' }/ J+ T' N! y" L# S, I请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
* u. S2 U' o1 y0 j# u查了一下，是这样的
( C: g0 n. n  c; [“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”

而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
! i' Z+ B8 ]- w比如mid(asdasdsad,1,2)是可以返回"as"字符串的
但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
  h+ M* v* y& m请教楼兄！是象下面的 代码吗？
cnt dd ????????h
.....
@@:
7 n9 w/ U' i0 {5 l...
' ?/ W! j3 E0 [0 a& edec cnt/sub cnt,??h/...
jnz @F/...
...
& [) i, R9 W( [, f或者是
mov ecx,????h
...
@@:
9 ]4 W* F7 N$ J. k. t2 q+ i...
5 |5 _# L2 A3 B, H" G. I7 {loop @F/...
7 W8 l- D# h+ o+ l$ u还是其他的什么形式？

游侠无极限

这个不知道
  F  B0 _$ V' y  k- x* d3 V0 D; n$ }本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉

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