设为首页收藏本站
开启辅助访问

下沙论坛

 找回密码
 注册论坛(EC通行证)

QQ登录

QQ登录

 下沙大学生网QQ群8（千人群）
群号：6490324 ,验证：下沙大学生网。
下沙论坛»下沙论坛 › ╃摩登&时代╃ › 科技．电脑网络 › [公告]我们vb教师的代码
用手机发布本地信息严禁群发，各种宣传贴请发表在下沙信息版块有问必答，欢迎提问 提升会员等级，助你宣传
新会员必读 大学生的论坛下沙新生必读下沙币获得方法及使用
返回列表 发新帖
查看: 3917|回复: 12
打印 上一主题 下一主题

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

[复制链接]
教师舞台 该用户已被删除
跳转到指定楼层
1楼
发表于 2003-11-24 15:46:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。! C5 z. q/ D$ c% k) M, J 最后下面给出答案：: ~* |8 n! K0 H( | dim i as long,j as long6 A# M& W( f! _( A: \# q Q for i = 1 to 9 * ~( i) L$ ?" F; y) y; E5 H for j = 1 to 9# }6 d" z6 I" I" P. L% Z3 O print i;"*";j;"=";i*j 1 w4 t; e4 x4 x8 m f5 o next* Q/ _2 ^" g+ O) k% I+ Z1 T print ! |6 O/ f. W, ^next 3 x/ ]) m2 Q3 s D% t% ^3 A % Z6 n4 I% o0 ~4 e& H) g下面大家来看看这段漏洞百出的代码吧！！ 0 G: O5 t7 H! C$ M" Z3 K$ D1 n7 H+ j' A也给出你的代码，看看有什么不同，能打出整齐的九九表吗？* r- ~9 S# `$ e4 N( T. Q 试试吧! . ^0 [; X W! e5 C: a1 C8 w+ A4 R9 \3 `6 {# I! l) w 还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家2 K, {7 u9 \4 @: g h
long
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 顶顶 踩踩

相关帖子
回复

使用道具 举报

游侠无极限

该用户从未签到
13楼
发表于 2003-12-20 22:33:00 | 只看该作者
这个不知道5 F; l2 s4 M6 G# A% t# `
本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
8 x8 I2 b4 q" i7 n( `7 U* g5 M: ?2 j' Q) L6 B
再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧
回复 支持 反对

使用道具 举报

唐明

该用户从未签到
12楼
发表于 2003-12-20 18:37:00 | 只看该作者
vb里的for...next的代码到底是怎么样的？？
5 F: l! \4 B, x2 {请教楼兄！是象下面的 代码吗？
' b, E/ T7 C0 u. A1 S% v" b( {' c1 acnt dd ????????h8 A% E( g) q. j7 c9 ?4 _0 M- n
.....
1 |; ^4 w2 s  {@@:5 p* p: m/ M: q' l3 L
...
: t; h* }% Y' E$ h, T  Fdec cnt/sub cnt,??h/...3 ~9 y0 v# L. t
jnz @F/...
8 q1 T" \6 J# C* p$ ?...
. R9 |6 }- M& \: Y9 N6 V或者是2 D2 b5 ^( N! P& z
mov ecx,????h
! t- l$ Y! y, L& f" v$ L- W6 N...! L1 U* b$ ~- x# }! K4 b+ j( y
@@:' G  Q; s9 j2 X: E4 @1 R
...
8 y5 d0 V  l. c- zloop @F/...
8 u& k1 c) `4 k; b! `6 m% O还是其他的什么形式？
回复 支持 反对

使用道具 举报

游侠无极限

该用户从未签到
11楼
发表于 2003-12-12 08:06:00 | 只看该作者
书上代码最垃圾的就是FOR循环中的Next后面还加上变量名，这会影响程序的运行速度
回复 支持 反对

使用道具 举报

风吹沙地
  • TA的每日心情
    擦汗
    2017-12-10 17:21

    • 签到天数: 1 天

    [LV.1]初来乍到
    10楼
    发表于 2003-12-11 23:31:00 | 只看该作者
    书上有例题的
    回复 支持 反对

    使用道具 举报

    fyer 该用户已被删除
    9楼
    发表于 2003-12-3 03:29:00 | 只看该作者
    老是搞这些东西累不累？
    回复 支持 反对

    使用道具 举报

    唐明

    该用户从未签到
    8楼
    发表于 2003-11-26 19:27:00 | 只看该作者
    楼兄的解释也是简洁的了
    回复 支持 反对

    使用道具 举报

    游侠无极限

    该用户从未签到
    7楼
    发表于 2003-11-26 15:38:00 | 只看该作者
    我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位& h3 ]. h  G% T  z: a5 w3 v
    查了一下，是这样的
    , G( N3 \- N# N: O# q5 B, M“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
      w7 ~5 t! D! l8 d5 H( M# g9 q# ~3 Q7 M- s9 {' q) I, C
    而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度; ^) N2 ^7 I. I7 l$ ^* ]
    比如mid(asdasdsad,1,2)是可以返回"as"字符串的
    ! o" Y; `* F( C& R# {0 Y% n但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)
    回复 支持 反对

    使用道具 举报

    唐明

    该用户从未签到
    6楼
    发表于 2003-11-26 13:17:00 | 只看该作者
    啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。
    - s5 L5 p' R9 x1 Z) f9 q还没有对齐第一个。
    ) f1 {1 Y( x% G请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。
    回复 支持 反对

    使用道具 举报

    游侠无极限

    该用户从未签到
    5楼
    发表于 2003-11-24 23:48:00 | 只看该作者
    第一个“print i;"*";j;"=";i*j”后面加一个逗号即可
    回复 支持 反对

    使用道具 举报

    游侠无极限

    该用户从未签到
    4楼
    发表于 2003-11-24 23:33:00 | 只看该作者
    Dim str As String- Z9 R( |7 W/ I
    str = Space(6) & String(13, "*")
    0 q) ^" }4 d/ NDim i As Integer, i5 V  u  H& m
    For i = 1 To 7  f, C% y) s1 ?+ _
        Print Mid$(str, i, 6 + i). C- z, [8 t: I% F- q7 y
    Next. l; k; d1 A  N) b8 a
    . O5 F6 q! X! s# Z  I' U$ R
    ( Y4 c/ {$ ^, I
    1 v0 o) o# A. s8 p5 U' C
    [此贴子已经被作者于2003-11-24 23:43:20编辑过]
    * m3 L, T- h- a! \. m- b( F3 u* g( i
    回复 支持 反对

    使用道具 举报

    游侠无极限

    该用户从未签到
    3楼
    发表于 2003-11-24 23:29:00 | 只看该作者
    金字塔图形：1 S/ J) E, U# r, U/ [
    '超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
    7 H3 P; w/ S# \  @) z' D2 t8 `3 vprint space(6);"*") P: L! p* w4 P5 d" ?9 e
    print space(5);"***"' K# O5 D" ?+ Z- b- w5 b2 m
    print space(4);"*****"6 _+ U0 j' @1 [9 B0 Y* T
    print space(3);"*******"
    ' a/ u5 {% @4 M4 S% Fprint space(2);"*********"
    4 Y& B" f; d# U( g- tPrint "*************"7 |- V8 m8 [: L1 W5 w) X# S* K
    # d1 A/ |2 `, i( [" b+ |1 F
    [此贴子已经被作者于2003-11-24 23:52:26编辑过]

    0 ?# p- H3 F3 O& X+ Z
    回复 支持 反对

    使用道具 举报

    唐明

    该用户从未签到
    2楼
    发表于 2003-11-24 16:47:00 | 只看该作者
    九九表修改如下：
    ) u. {$ Y$ _* l  K5 P/ Idim fnum as long, snum as long
    7 J: y! [$ l9 U3 N+ b; Rfor fnum = 1 to 99 z$ a) m' i" i
        for snum = 1 to 9 '9改fnum是另外一种形式
    , N4 [' t. b# N2 W        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);
    7 Y' t' Y1 Z2 _) F/ E    next8 @2 D$ h7 h, G
        Print
    # u3 F5 \) l. `% _1 }next, E3 B) v/ i8 b" r. D1 C9 p; w
      _( @; Q( l& A* I$ m$ h
    金字塔图形：) T  u. O* \' ?( l7 A" B7 _( W
    dim str1 as string/ O0 a' k$ X9 o2 S
    dim i as long, ii as long
    6 H7 N$ C( ?( v  x! T! U# zfor i = 6 to 0 step -1
    . |6 C, Q! d7 Z# |9 F    str1 = Space(i)
    0 y. }! \0 Q3 F    for ii = 1 to 2 * (7 - i) - 1) ~" u: N+ m% N& A
            str1 = str1 + "*"
    ) @) i; }% G' W    next
    * y2 B6 b! @( a' l    print str1  F% U7 e$ N) b" }$ y- x
    next
    1 Q" L/ S1 D8 P$ w/ n4 |- n1 ?' r1 }+ D1 R* @5 c
    ????????????????????????????
    $ E# l( h% }8 J8 Z! N: ]: i什么意思？？？$ ^  a, G' O8 E4 K8 s6 P7 V

    ( p" Y. |! P8 d, Z, R
    回复 支持 反对

    使用道具 举报

    返回列表 发新帖
    关闭

    下沙大学生网推荐上一条 /1 下一条

    快速回复 返回顶部 返回列表