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

下沙论坛

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

QQ登录

QQ登录

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

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

[复制链接]
教师舞台 该用户已被删除
跳转到指定楼层
1楼
发表于 2003-11-24 15:46:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 `/ l( t) s7 N/ A3 Z4 n; V$ e& V8 g5 k最后下面给出答案：: A4 s( F$ X. P% X* j0 T: V# e# l dim i as long,j as long( e2 }9 ^' V- K' K1 k for i = 1 to 9- U. C( Q- v& _7 R* ^ for j = 1 to 9 ' s. l' p$ f# \7 U2 O. L print i;"*";j;"=";i*j. w9 L: R* A7 o `) [; F next / y% o3 V- X) _. J, r) M print & T4 O: S c; X6 tnext' _" {4 w# }& d! `) x2 A / O- O+ r3 `( n$ j* a$ c4 W+ P" u N下面大家来看看这段漏洞百出的代码吧！！: v. {! V, a' g% E% m) E$ `' g) [ 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？ - V- o( ~! ~! P& D: b试试吧! ; f/ a1 o- r1 Z! U0 r6 [+ Q' m2 v1 j2 \9 A 还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家# _% z' l$ f8 m) ]: r& S4 ~
long
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 顶顶 踩踩

相关帖子
回复

使用道具 举报

唐明

该用户从未签到
2楼
发表于 2003-11-24 16:47:00 | 只看该作者
九九表修改如下：
. e6 }0 {# a. z/ h# zdim fnum as long, snum as long( s9 F( C, m# ~) l8 P
for fnum = 1 to 97 Q$ w' _; _2 Y7 O' F( @
    for snum = 1 to 9 '9改fnum是另外一种形式
% t# t( b  y6 B( ~        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);% n* c1 D1 F4 t$ M" Z4 {
    next
% ^) T5 F. p2 O# S  _2 l# c    Print. v! p; _$ U2 x9 @# S. a* j
next
8 P6 I+ x( c% E" ^8 \" ^
2 h  H. @; m/ R8 W% g) X! l金字塔图形：$ }5 L# B% L, r  ?$ v- h$ J7 V
dim str1 as string
! I' p7 Z. ^/ @8 Xdim i as long, ii as long
1 x5 h( |4 K, P9 ?2 Y8 N2 wfor i = 6 to 0 step -1
4 V8 M& d' g0 u9 Q' K( }* ~    str1 = Space(i)
' d! L7 `% P! V4 K+ Z% S( N    for ii = 1 to 2 * (7 - i) - 15 G1 r  A4 p) o- p6 i2 Y
        str1 = str1 + "*"& ]$ n7 z+ W2 @
    next; s8 p' d! }2 B. w5 A
    print str1
, Q, c- E5 H* M3 H) Znext
; J# Y  t/ M: N9 X* q( d4 c% J1 w& n( Y9 d, d( N0 I& h
????????????????????????????
  ^' l( w4 {$ K( R什么意思？？？
6 a/ [4 c8 \& v) }: w  y4 C
/ i: N0 K" T: t+ T1 o4 `$ M- D
回复 支持 反对

使用道具 举报

游侠无极限

该用户从未签到
3楼
发表于 2003-11-24 23:29:00 | 只看该作者
金字塔图形：+ O  a$ W! o! Z, j' w' F
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！/ w& ^/ F# S2 S' w2 H
print space(6);"*"
1 s3 e3 f! S; i( t+ kprint space(5);"***"
4 I3 I; B6 I3 {4 V3 G5 \print space(4);"*****"0 S. ], Q, F; @) T' y+ H7 H- u
print space(3);"*******"- b3 x) l$ p. b3 E& {! R( F
print space(2);"*********"
! l& o4 d, r+ v" ~0 q, g$ RPrint "*************"
7 D" }5 \! ], a
) u! [2 k  o2 w' H% u5 C6 ]
[此贴子已经被作者于2003-11-24 23:52:26编辑过]

, a4 p+ |+ J8 v3 W, f, J
回复 支持 反对

使用道具 举报

游侠无极限

该用户从未签到
4楼
发表于 2003-11-24 23:33:00 | 只看该作者
Dim str As String! `, l$ a1 u6 p5 T% a
str = Space(6) & String(13, "*")
, X! Q% [4 g, f. Z/ z  iDim i As Integer
0 V+ H3 Z& v) |( ]; m; e2 gFor i = 1 To 78 Y8 F8 V; ^7 ?9 C3 F6 }
    Print Mid$(str, i, 6 + i)& X9 B1 b/ G: G  w: v& {
Next" n1 }1 b% l9 n8 w
7 g9 [2 _$ u* f2 J" ?: K. a
, Q5 h! S% H( F* ?: o+ x0 W

. d( Y+ s; R7 R: O. Q! A  O
[此贴子已经被作者于2003-11-24 23:43:20编辑过]

  Y+ u& A; B1 Q7 a4 Y
回复 支持 反对

使用道具 举报

游侠无极限

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

使用道具 举报

唐明

该用户从未签到
6楼
发表于 2003-11-26 13:17:00 | 只看该作者
啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。8 y( v: z) D7 h) E% @$ X: {
还没有对齐第一个。
% c) b6 r6 a% y) w$ B" K! z" S请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。
回复 支持 反对

使用道具 举报

游侠无极限

该用户从未签到
7楼
发表于 2003-11-26 15:38:00 | 只看该作者
我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位# Z2 D# A+ |  Y3 w' ?! _+ t
查了一下，是这样的
) X' t1 f! H0 m1 ]9 }9 V“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”- A- D0 K9 @! \# g; S% N+ _
4 A3 A" ?  l9 b* {, x1 w5 F
而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度
3 g* R2 ~* x- N3 k% V比如mid(asdasdsad,1,2)是可以返回"as"字符串的" u1 p9 F; E0 j* K# g6 W
但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)
回复 支持 反对

使用道具 举报

唐明

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

使用道具 举报

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

使用道具 举报

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

    • 签到天数: 1 天

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

    使用道具 举报

    游侠无极限

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

    使用道具 举报

    唐明

    该用户从未签到
    12楼
    发表于 2003-12-20 18:37:00 | 只看该作者
    vb里的for...next的代码到底是怎么样的？？9 o" L0 f' F1 }% b
    请教楼兄！是象下面的 代码吗？  V0 O. P6 }- |' ]% S1 M
    cnt dd ????????h
    % l- \1 W9 J& |.....1 z+ ~6 F$ B4 \  B
    @@:
      {1 n9 b0 ~0 L, h...4 H, h( O  k" C3 p
    dec cnt/sub cnt,??h/...
    . Q. ]: z& K5 q% Q' h: Djnz @F/...: G$ }3 G- s+ S8 G2 r" k
    ...4 U7 n1 f: z1 @8 U/ v$ F
    或者是1 v5 u* ~9 i* S$ C, `2 X
    mov ecx,????h
    % D  e) B4 O& V/ k3 A...% E" e% _5 Y, A; f0 M- l) Q% q9 ?
    @@:
    ( f9 w: y# \, X4 A% i6 o...6 c+ f  u4 y; G# R. P
    loop @F/...# j; A7 }7 F5 b9 w
    还是其他的什么形式？
    回复 支持 反对

    使用道具 举报

    游侠无极限

    该用户从未签到
    13楼
    发表于 2003-12-20 22:33:00 | 只看该作者
    这个不知道
    4 e2 f2 |( M- ^: r- o# Q本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
    1 W2 J0 y3 l' c4 E5 {- `: c8 a( z' d( ^- u5 j5 K. k! X' O/ l% G
    再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧
    回复 支持 反对

    使用道具 举报

    返回列表 发新帖

    本版积分规则

    关闭

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

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