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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 最后下面给出答案： dim i as long,j as long for i = 1 to 9 * w1 b! d6 W/ P0 v/ N for j = 1 to 9 ` Z2 P C* x. M- d print i;"*";j;"=";i*j . {: z$ m$ H1 \+ R6 ^9 Q* v next 4 ^2 m$ F, ]7 y print next $ N" ]1 E( A1 {/ L - v+ @, c# p' R2 {下面大家来看看这段漏洞百出的代码吧！！ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 试试吧! # T: S* M6 v' B, r+ g* y 8 A" |: L( Q/ ~9 D* B7 L' K+ q* L还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家 " u% x! G; M6 i8 _

唐明

九九表修改如下：
& ~" b/ m5 g4 |- {9 I' Bdim fnum as long, snum as long
' I/ f% ]  {3 P7 P, S+ ffor fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
    next
    Print
% H. g2 C) L# m1 i7 tnext

6 e- G; ?3 E+ ~% M6 ~) c金字塔图形：
0 D; J9 |! K- E# E: Pdim str1 as string
dim i as long, ii as long
/ t4 d) L6 K$ V) u) X9 v, sfor i = 6 to 0 step -1
    str1 = Space(i)
    for ii = 1 to 2 * (7 - i) - 1
        str1 = str1 + "*"
: r* {$ w+ U7 l2 ~8 P5 n- T    next
4 @) `- g) f8 F7 ]4 ]$ i# I    print str1
next

+ Y5 S8 `: [# I* o& @????????????????????????????
什么意思？？？

+ Q3 {# i/ X* b- \, I0 ?

游侠无极限

金字塔图形：
7 E# h0 C+ \3 n4 b2 G7 O( z'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
print space(6);"*"
6 H2 @* I9 u6 z* Tprint space(5);"***"
print space(4);"*****"
) D' t! x  H, }print space(3);"*******"
print space(2);"*********"
' H0 N+ N, Z: ~. B' p  e) OPrint "*************"
; {6 v/ v- O6 P$ W, Y  g* S
' f1 u7 S% p" [. E) a+ p( X" Q; I

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

  x! t0 |) ]  W( a+ y  A) G

游侠无极限

Dim str As String
str = Space(6) & String(13, "*")
3 n- z  H7 b8 o( vDim i As Integer
7 w& U4 d  Q* k  fFor i = 1 To 7
    Print Mid$(str, i, 6 + i)
Next

! v8 {1 G: v6 s! N. |2 q

% E0 A' c% `5 `8 y

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

游侠无极限

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

唐明

啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
还没有对齐第一个。
9 P& `) D* i4 s5 h- O7 _) ~( ]' U请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。

游侠无极限

我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
* I6 ^2 w" V$ H) l; o查了一下，是这样的
) f4 P8 O% |; j“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”

* t3 |/ N3 b$ z2 t9 ?而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
# q# W) P/ D* g但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
cnt dd ????????h
6 h' q  K0 S. S$ g, l. Y.....
* S1 j1 Q  I$ q@@:
...
dec cnt/sub cnt,??h/...
jnz @F/...
...
或者是
mov ecx,????h
...
@@:
...
loop @F/...
" b8 C+ T. j- j+ U) U* H6 _' j还是其他的什么形式？

游侠无极限

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

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