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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 " W/ ~* u7 E& ?最后下面给出答案： dim i as long,j as long 4 P) P. L4 ^7 n& b9 tfor i = 1 to 9 5 |/ o$ O5 }- c for j = 1 to 9 print i;"*";j;"=";i*j & K& S# B6 m" h6 U4 {/ h; }+ g next print ! a7 m3 d3 R. D- Onext ' j- H9 H' ?% G# {. g( W% ?2 p - t+ B6 ~ e7 ~- c下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 试试吧! # H& X1 h: d4 r' r8 ]- n还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家 ; k5 Y7 i5 G6 Y" @9 g- o8 I0 A

唐明

九九表修改如下：
8 O0 g# H! q  H  k+ c# D. J3 y( D  Ldim fnum as long, snum as long
for fnum = 1 to 9
. _& ]" F6 i) f" Z% S) G8 q) p    for snum = 1 to 9 '9改fnum是另外一种形式
        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
$ q* G3 l8 V4 V    next
    Print
next
- P/ {7 z0 m1 Z
- X* ]' L8 h% U9 n% E金字塔图形：
5 W& O+ z. `5 K0 udim str1 as string
0 Y3 J0 V5 L# X. v# t' T+ l' mdim i as long, ii as long
for i = 6 to 0 step -1
    str1 = Space(i)
    for ii = 1 to 2 * (7 - i) - 1
0 W8 d0 D1 ?6 x        str1 = str1 + "*"
, {/ I! X  V6 N( }( I    next
- f# i+ d8 h4 v+ t; v) |7 F    print str1
) l- n2 C  M: Dnext

9 \) C) B8 K; m+ r????????????????????????????
什么意思？？？
1 R) R; K: M1 g) @

游侠无极限

金字塔图形：
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
: E4 C' w5 L& _* i& V4 N4 Iprint space(6);"*"
8 l) A* ]6 d& V  I- tprint space(5);"***"
print space(4);"*****"
$ z7 ~3 N3 p$ o( Q/ ^print space(3);"*******"
& j0 S- l5 V# }1 {* zprint space(2);"*********"
Print "*************"

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

& {, K, B" D" h

游侠无极限

Dim str As String
! N7 m9 x: J( v. y- B5 Istr = Space(6) & String(13, "*")
Dim i As Integer
For i = 1 To 7
' A# [+ k: P1 L    Print Mid$(str, i, 6 + i)
Next
6 l: U% Y. f* W) a


: v3 v' B9 g, e7 ?

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

" {  [  }! d, _

游侠无极限

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

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
( O0 n& c3 ]5 W) a4 u还没有对齐第一个。
, e- X( G0 K5 ]5 q请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
3 w% {4 C" B, ^8 K, q9 i查了一下，是这样的
“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
6 D5 U5 u6 ~6 V; j! `* D
而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
0 l# q3 b/ _6 }; z/ q3 l) W, a比如mid(asdasdsad,1,2)是可以返回"as"字符串的
6 k3 e8 ]& p7 T9 j但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
/ J7 I( l9 I/ K2 f5 k) C请教楼兄！是象下面的 代码吗？
+ X2 @" ?: `$ X4 S& Zcnt dd ????????h
0 \/ {0 L$ z0 m8 S; i.....
# s9 c8 S* [4 o7 ]4 p% q@@:
6 J2 ]5 a) Z( y* e0 s...
& e* k; f' g! B# L) hdec cnt/sub cnt,??h/...
/ B) r" c/ v& E' Gjnz @F/...
$ q# Z  D8 W6 I5 Y2 K' V# ~...
; N7 G8 F( c* E& F4 I( f1 t4 x# ?或者是
mov ecx,????h
' R3 L) M  q; S4 c...
@@:
...
+ u. I6 z! W: Z& @/ A* Mloop @F/...
# ~1 R, x, N  r$ B还是其他的什么形式？

游侠无极限

这个不知道
0 U& p( m% P; S6 y, j2 P  T% D' a2 `本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
0 y9 f( Z4 B2 L1 M
再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧