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

下沙论坛

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

QQ登录

QQ登录

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

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

[复制链接]
教师舞台 该用户已被删除
跳转到指定楼层
1楼
发表于 2003-11-24 15:46:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。 $ x/ b/ H' z6 S& `' }" I- v7 u最后下面给出答案： . R# t$ p) o. p3 Y [ wdim i as long,j as long / k$ _7 ], M k1 E$ J$ g+ n# [; bfor i = 1 to 96 X1 R0 k2 |9 X( U8 z+ c0 M for j = 1 to 9 ' t6 v2 N/ _* V print i;"*";j;"=";i*j6 {- y5 P& G, Z: J& r, }1 W' O next6 q2 z1 } [; q; @) e) V2 r print5 o6 }0 h4 P- w$ k7 [% y next 1 g; t2 C9 c3 N, P0 I, P* k4 k* q* d# t0 } 下面大家来看看这段漏洞百出的代码吧！！6 h8 z, @" {! `/ H& E& \% y: m 也给出你的代码，看看有什么不同，能打出整齐的九九表吗？7 U/ X# n% G( v- r8 L. k5 b 试试吧!7 B8 P5 q$ P( i- I) N+ X , [& g" }( m, n2 M# p/ m& T0 l8 N! d! z3 d还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家 " q) v$ ]) N4 g- L- w0 k: J0 w* b
long
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 顶顶 踩踩

相关帖子
回复

使用道具 举报

唐明

该用户从未签到
2楼
发表于 2003-11-24 16:47:00 | 只看该作者
九九表修改如下：
8 i' R' ]( e5 w9 I) R( }3 adim fnum as long, snum as long( O4 V3 w3 h' ^6 ?  F
for fnum = 1 to 9) ^& r* }0 {6 o6 K" N5 [
    for snum = 1 to 9 '9改fnum是另外一种形式
1 d; X; i2 T& H/ ~' L        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);/ u* q. X7 x4 d% g; Z
    next4 W) k1 Q2 N. ?0 J. P* n$ P/ J9 c
    Print" o, j6 y# J' M  Y# }: n% e
next. A$ t) N5 C3 P  ^5 n6 p

  L6 w5 h8 W6 Y" v' E金字塔图形：
' @& \/ u, v5 w/ o4 D1 [2 X8 hdim str1 as string
, d2 T1 K2 C# T( ydim i as long, ii as long
! i$ P& w6 M6 U3 @! Ffor i = 6 to 0 step -1
; s: l# h( N& s/ N) r2 A( ?' d* ?    str1 = Space(i)
+ b' S# D; m4 o/ v    for ii = 1 to 2 * (7 - i) - 1
2 z6 E  D% e- @4 H6 ]        str1 = str1 + "*"
6 v/ S7 o0 c" ?  a. T    next
3 W8 j; y& h2 {  o    print str1
! _0 h0 F& W) ^, K7 j( y+ t5 n. h, Bnext# g' Q" Q6 x, H7 ~
8 H+ U; H+ ~  k& P: L+ {
????????????????????????????9 f1 M) l6 d3 ^0 E3 [' k
什么意思？？？
( E" Q* |& _* [2 e9 n; ~# b
% f$ k0 \& M2 @- G! n' B& d) Z" s7 g
回复 支持 反对

使用道具 举报

游侠无极限

该用户从未签到
3楼
发表于 2003-11-24 23:29:00 | 只看该作者
金字塔图形：- M# v' Z/ P, o8 h- d
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！
4 I/ l- z- N% G0 M& aprint space(6);"*"
5 R& b( e+ x, s" p" @print space(5);"***") d0 F, V% D& M: o' V/ L
print space(4);"*****"
  Z4 ~+ |$ [9 D' E4 j! Wprint space(3);"*******"
/ v( B2 t. C0 f' u' V$ H- G6 mprint space(2);"*********", o8 V0 Q1 Z! u% e( P$ {
Print "*************"4 C9 j- i- n; G( V$ U, X
5 z; A( u. V2 w: e2 C* ~
[此贴子已经被作者于2003-11-24 23:52:26编辑过]
1 h+ {  i. u0 I9 U1 V4 X% w! [
回复 支持 反对

使用道具 举报

游侠无极限

该用户从未签到
4楼
发表于 2003-11-24 23:33:00 | 只看该作者
Dim str As String
3 L) z# c2 {( A1 [) M0 J; ?3 Sstr = Space(6) & String(13, "*")
1 I* o( m) O) e7 cDim i As Integer
" N) o# M  R$ J" tFor i = 1 To 7$ P. {1 c6 E) e
    Print Mid$(str, i, 6 + i)
6 g4 c) v! g$ X! rNext
2 `7 F1 H8 {5 r( v: x
5 k" W6 q' u+ x5 ]  M
5 V9 s) T( Q, v4 G7 A( g3 n/ J9 E% V
[此贴子已经被作者于2003-11-24 23:43:20编辑过]
4 G# X4 d! A( n( r& B! e$ V
回复 支持 反对

使用道具 举报

游侠无极限

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

使用道具 举报

唐明

该用户从未签到
6楼
发表于 2003-11-26 13:17:00 | 只看该作者
啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。3 K  @: ^1 X* i7 Z
还没有对齐第一个。
1 B9 A4 w, M' h" }2 {请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。
回复 支持 反对

使用道具 举报

游侠无极限

该用户从未签到
7楼
发表于 2003-11-26 15:38:00 | 只看该作者
我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位& ^- ]) q' Z" T! ?6 m+ k
查了一下，是这样的1 g% W8 R) g7 C$ c7 b, Q
“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”9 ]% H* A7 R- z; I$ o- c

  ~+ x+ {) k3 q9 A+ G3 \而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度: D0 K# U" J9 j) {/ ]3 ]4 s% p0 D
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
  f% [& R: _  `' a但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的代码到底是怎么样的？？4 d  Q/ w& H# n$ n/ a* J) ^
    请教楼兄！是象下面的 代码吗？
    6 w3 H/ N; G+ `8 G8 H" qcnt dd ????????h
    . s' E5 E, ^4 x, Z5 [, V.....& |' |: c3 t' E9 q
    @@:9 L) y. p( H8 }/ e* P! `* D
    ...% a! w6 }. ^% x! `% _
    dec cnt/sub cnt,??h/...
    % H3 W/ Q( j6 ?; R3 }jnz @F/...2 b' }3 R  K, F) t' @
    ...3 b! A$ S! g5 E, S" N
    或者是5 v3 F% s( Q+ f  h. h, ^: z
    mov ecx,????h
      A5 v# J$ Q& s9 C4 a* F; y" E...* ~0 n, f; n0 z! r+ ~
    @@:5 J7 ~1 J- P& t& M9 [" x
    ...
    : w8 B3 Y5 L% ^5 gloop @F/...( E# P/ S! [$ o5 P4 T9 V% K1 h. {
    还是其他的什么形式？
    回复 支持 反对

    使用道具 举报

    游侠无极限

    该用户从未签到
    13楼
    发表于 2003-12-20 22:33:00 | 只看该作者
    这个不知道) b0 o3 U* a8 _1 l  m6 k
    本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
    ! h" s# V" D( B' T+ @# t; `" p+ o5 X. V+ V+ Z5 {
    再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧
    回复 支持 反对

    使用道具 举报

    返回列表 发新帖

    本版积分规则

    关闭

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

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