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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 # V" l: i& C5 M: Z( q+ K$ ?最后下面给出答案： ) {! d+ A6 ?( D* o3 [! qdim i as long,j as long & J$ j& D- I: T2 q$ z2 f: xfor i = 1 to 9 for j = 1 to 9 , a; k- A$ Q+ y: g2 h print i;"*";j;"=";i*j next + ]9 M) |' |% L4 f1 r* o print 2 S3 J% y, w3 A6 P; b2 rnext % m# v0 x, @; n3 T" E5 [ 下面大家来看看这段漏洞百出的代码吧！！ 3 W! t( f( p' d! q, \也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 6 w/ I. W, \+ c; v试试吧! 还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
dim fnum as long, snum as long
5 _0 b$ [1 G/ e# z7 i% Y6 K, ~for fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
    next
    Print
next
+ b& ?9 z0 l2 j+ ^
金字塔图形：
! V& e3 O  J; }( p* Pdim str1 as string
dim i as long, ii as long
; d* v; d& {2 s% z  ffor i = 6 to 0 step -1
    str1 = Space(i)
    for ii = 1 to 2 * (7 - i) - 1
        str1 = str1 + "*"
5 J4 q' J* z/ v: x; O+ x$ B2 B7 \    next
8 y5 ^; x3 P8 i& V" m- v    print str1
2 {+ s! R: _! A& R  j3 anext
7 W3 r1 x0 N% z
????????????????????????????
什么意思？？？

游侠无极限

金字塔图形：
! h' a8 o7 w0 ^3 o' E& _'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
5 K3 C+ R# g! f) F* O+ |- \' G& Y% Nprint space(6);"*"
0 w# D3 S5 v) z4 f4 |5 _print space(5);"***"
print space(4);"*****"
+ I/ _: `0 L7 e& y9 y( qprint space(3);"*******"
; Z  {  J- i5 ]- mprint space(2);"*********"
Print "*************"
/ |5 z  _% c3 b1 `
2 f! p; t" c- Z" s6 A  O. h

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

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
Dim i As Integer
0 X! u! _7 N+ M8 DFor i = 1 To 7
    Print Mid$(str, i, 6 + i)
Next
: [8 a1 h6 w0 l9 {; D5 t

  i0 a. I7 e2 O8 x  p
: u# k1 r* A( {) c0 G- @

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

游侠无极限

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

唐明

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

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
查了一下，是这样的
“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
8 b. H6 I# O& j3 [# r
而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
2 Q9 s' W. _' Q% G: {6 M, z% x比如mid(asdasdsad,1,2)是可以返回"as"字符串的
但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
cnt dd ????????h
3 {! {4 ]# Y2 Z.....
@@:
5 E  Q- L0 K- {% u3 Y1 d3 s! u...
dec cnt/sub cnt,??h/...
8 Q: @- q) E2 i: k$ `jnz @F/...
' h- s' F$ C, W! F/ d...
或者是
mov ecx,????h
6 M& F8 P- S( b1 e+ M...
@@:
2 y" ?# l8 H* A+ Z  }+ Z) `+ Q...
loop @F/...
- [/ \. ?* o& d9 b还是其他的什么形式？

游侠无极限

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

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