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

2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 . \$ R" c, g! _/ [) q, R最后下面给出答案： ! z4 n' h, j7 U5 y- d1 m& u# {dim i as long,j as long for i = 1 to 9 for j = 1 to 9 print i;"*";j;"=";i*j ( u$ r2 y; ]3 z8 W next + ?( o) n4 O' C' ?+ G print next ' \ P# i, ]. Z0 h 下面大家来看看这段漏洞百出的代码吧！！ , d. J# v, Z' o; X/ t也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ 试试吧! 还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家

唐明

九九表修改如下：
dim fnum as long, snum as long
" ?( O! z; N' u& f- \+ y4 g7 qfor fnum = 1 to 9
    for snum = 1 to 9 '9改fnum是另外一种形式
7 A' d% r9 f# n: Z0 i% E/ h        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
    next
    Print
, @, e2 k- x$ w& x  nnext

金字塔图形：
dim str1 as string
. [4 u9 l& P/ x3 i" Hdim i as long, ii as long
4 ~, V$ {+ F/ Q* A" ^) o: z9 z$ zfor i = 6 to 0 step -1
( x7 _! i( B' D/ u$ ~* L( h    str1 = Space(i)
    for ii = 1 to 2 * (7 - i) - 1
3 g0 y, X5 n' v3 f        str1 = str1 + "*"
    next
! ^& `- Q( q9 g    print str1
  ^7 T9 J6 a- y0 E' pnext

0 h  F: N5 j0 a5 `3 n, v????????????????????????????
什么意思？？？

游侠无极限

金字塔图形：
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
7 H5 y, [& P  |( z  ^print space(6);"*"
) {  i7 P' U- Sprint space(5);"***"
6 N5 a7 j! W7 y. xprint space(4);"*****"
print space(3);"*******"
" g; C5 q' Q# E# n9 x% rprint space(2);"*********"
Print "*************"
$ ~, A* R( F; a( d

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

0 {' p. I1 a/ e% a/ q3 k# R

游侠无极限

Dim str As String
; N( b$ Z3 L% w/ zstr = Space(6) & String(13, "*")
Dim i As Integer
For i = 1 To 7
" O6 H! d) s. x6 v8 Y    Print Mid$(str, i, 6 + i)
! A' {% e& d9 Q7 yNext


, T* ~! z3 W2 @2 ]2 ?+ R

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

游侠无极限

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

唐明

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

游侠无极限

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

而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
% K7 R: a. U6 R: c, {/ Q. V但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)

唐明

楼兄的解释也是简洁的了

老是搞这些东西累不累？

风吹沙地

书上有例题的

游侠无极限

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

唐明

vb里的for...next的代码到底是怎么样的？？
请教楼兄！是象下面的 代码吗？
1 {) ~$ B# i9 wcnt dd ????????h
; Q/ Q$ C! n" B.....
! g  w( m1 ]% `% J3 U. ~, c) u5 U@@:
...
1 L0 s+ T9 \% m7 {- S" y$ C# [+ mdec cnt/sub cnt,??h/...
jnz @F/...
...
或者是
" P! m! q0 U  J( _mov ecx,????h
1 t$ b3 a. Q9 d: J; S7 E& F...
@@:
...
loop @F/...
还是其他的什么形式？

游侠无极限

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

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