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

下沙论坛

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

QQ登录

QQ登录

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

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

[复制链接]
教师舞台 该用户已被删除
跳转到指定楼层
1楼
发表于 2003-11-24 15:46:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
2003.11.24，伍小龙同志要求学生写打印九九表的代码...其间他与学生讨论了各种可能出现的问题，并一一解决之。% a0 [1 i9 t4 ^0 c6 M 最后下面给出答案：3 E W: F/ p1 f dim i as long,j as long Y7 m# c! G3 b for i = 1 to 9 $ k+ o4 W3 g2 ]/ F( D for j = 1 to 9 * ]' v' _2 d4 ?8 y$ v print i;"*";j;"=";i*j0 ^# O- X4 \& r& A7 _ next- {. T; X, X+ @& r( ~ print 9 M: Q$ O7 U0 Jnext, p+ E1 \+ e5 Z- o1 Q8 L4 P% y ' B$ H2 C; T6 m* Q& J" m8 _1 u. l 下面大家来看看这段漏洞百出的代码吧！！ + ^6 Q1 b! ` { \8 Z也给出你的代码，看看有什么不同，能打出整齐的九九表吗？- P4 Q$ m4 j! }& E8 V, t 试试吧! 1 g/ T* Q" v% n, q- i% ?% a5 |, u' r3 M B& X+ ?0 s1 u- P 还有打印下面图形的代码大家写写看，明天我挂上伍小龙的代码，让大家 , @3 {1 M( o: j( s2 t5 O! W
long
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 顶顶 踩踩

相关帖子
回复

使用道具 举报

唐明

该用户从未签到
2楼
发表于 2003-11-24 16:47:00 | 只看该作者
九九表修改如下：, Z0 n. h, R: L, t/ Y6 b0 M- H
dim fnum as long, snum as long9 o- r( Z7 @1 \8 h9 N! D
for fnum = 1 to 9
  W# L3 t0 a& ^) I3 _3 G/ w    for snum = 1 to 9 '9改fnum是另外一种形式# X2 I, v0 y- M+ ?/ W
        Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + "  ", 3);) y/ e$ n1 `. n$ ~& G" d
    next' [# X4 X6 Z/ s1 m
    Print; Y' j2 B- \& }& k
next
* W& E- I& J/ @3 V5 H& [$ l1 D) s) \, ?9 b7 v; q, _4 [) ~
金字塔图形：
" D4 s; D  ^5 @dim str1 as string7 s* C# ?  x, Y
dim i as long, ii as long
- z/ r# }0 V) y4 Ffor i = 6 to 0 step -1/ W% x8 y$ ]& u: z" B
    str1 = Space(i)% y/ F6 v6 A/ L/ T
    for ii = 1 to 2 * (7 - i) - 1
7 ~' ^* z7 B7 t5 u! `. s        str1 = str1 + "*") z6 }# S$ q+ q" ^" p* z
    next
. e* Y0 ^+ A/ Q7 b3 E$ v3 p    print str1* }) C# G: a0 D) f5 n+ C- N
next4 m. ~4 o: n1 o
+ \2 T% ?1 @3 E+ y/ x+ E9 Y
????????????????????????????: X6 O( H& a) T6 _* L5 z0 w
什么意思？？？
* q' \3 p. U6 D# f2 L6 D9 I4 T5 \5 s3 ~# L9 T7 L( U- p
回复 支持 反对

使用道具 举报

游侠无极限

该用户从未签到
3楼
发表于 2003-11-24 23:29:00 | 只看该作者
金字塔图形：9 `0 k  t7 ^. _, p% z3 m6 ]' G. F
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！5 p" s+ ?4 L$ O) m1 v
print space(6);"*"
( r& ?9 F" n' {$ }print space(5);"***"
1 ?/ s0 P- H0 V: m0 j% A1 Oprint space(4);"*****", c& ?1 f2 x, k6 O$ g, n, M. y
print space(3);"*******"
: T4 j, ~  ^0 A" J# y/ mprint space(2);"*********") r7 d/ p" g% ]' Q3 {; u
Print "*************"
; u/ y# X* w$ I5 I" D& ~" C% a% f4 ~
[此贴子已经被作者于2003-11-24 23:52:26编辑过]

1 f: D: a$ Q" g
回复 支持 反对

使用道具 举报

游侠无极限

该用户从未签到
4楼
发表于 2003-11-24 23:33:00 | 只看该作者
Dim str As String
& n' ^3 O! W+ ?str = Space(6) & String(13, "*"): [. L* K5 ?6 t" L7 F3 S
Dim i As Integer1 o! \+ v  ~+ k$ G. T; }
For i = 1 To 7
+ G: q% N. b; O! B+ ]; P    Print Mid$(str, i, 6 + i)" e5 u, i  P; z5 S; F
Next, Q5 e" m0 I6 C0 S& ]% G$ G4 y; \

$ {: d) P2 w. w, ~1 ]
! y' m! R1 d; A, q) P  n, C! Y% k6 Z9 E( T& l0 m
[此贴子已经被作者于2003-11-24 23:43:20编辑过]

9 ?  Z6 T5 L6 p* z" k2 ~
回复 支持 反对

使用道具 举报

游侠无极限

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

使用道具 举报

唐明

该用户从未签到
6楼
发表于 2003-11-26 13:17:00 | 只看该作者
啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。4 F3 M8 P" Z) T' C5 I
还没有对齐第一个。
+ |. G8 t6 F: n0 w5 D请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。
回复 支持 反对

使用道具 举报

游侠无极限

该用户从未签到
7楼
发表于 2003-11-26 15:38:00 | 只看该作者
我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位
( H4 w4 E1 s9 f4 W2 a7 L查了一下，是这样的
; Z* L- X( T6 A( u9 w1 A, r; v“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
( X; r. W( U9 H% h- W( U! e) D8 v8 [* {6 w
而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度* k0 B. j" H+ E. x% m
比如mid(asdasdsad,1,2)是可以返回"as"字符串的" l  a; S0 M/ f# 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的代码到底是怎么样的？？" J- G* e* E  t" B
    请教楼兄！是象下面的 代码吗？
    - \: w) t  _. I" s- K- B. z1 e$ l; _cnt dd ????????h  e- k" o; S& S( j$ s$ h1 t6 R
    .....
    , \# z3 M1 e  `; ]$ I@@:
    ( r9 M* \! ]2 \: o...
    , V. a( f# Q6 R) J+ D/ rdec cnt/sub cnt,??h/...
    " m# X7 _: ?/ Z$ B; ^. E7 e0 Kjnz @F/...
    4 |% {1 o  m6 J0 `8 g" O...4 t6 x: c/ J5 j* W
    或者是" `) Z- A" D( s. L
    mov ecx,????h9 q2 i2 B, Y& B9 G
    ...& g) F& N2 _* |7 ^
    @@:
    + L, ?8 e4 F# E7 i7 x' Q...
    - M/ d! f$ i' }6 A) f8 I+ v4 cloop @F/...
    ' w' X- x9 w4 r" c还是其他的什么形式？
    回复 支持 反对

    使用道具 举报

    游侠无极限

    该用户从未签到
    13楼
    发表于 2003-12-20 22:33:00 | 只看该作者
    这个不知道
    % x- `8 y( q  G4 h* ~本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
    . H" v5 b# Q7 F7 v. V: `' O* T* N
    - w, _# U3 u4 j! A. n/ k9 [* H  w再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧
    回复 支持 反对

    使用道具 举报

    返回列表 发新帖

    本版积分规则

    关闭

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

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