下沙论坛
标题: [公告]我们vb教师的代码 [打印本页]
作者: 教师舞台 时间: 2003-11-24 15:46
提示: 作者被禁止或删除 内容自动屏蔽
作者: 唐明 时间: 2003-11-24 16:47
九九表修改如下：. v+ e6 k/ n, u8 a
dim fnum as long, snum as long
3 d! N: X0 f0 Mfor fnum = 1 to 9
/ i7 V5 u1 M4 } for snum = 1 to 9 '9改fnum是另外一种形式% h. L/ @& p/ c7 W
Print cstr(fnum) + "*" + cstr(snum) + "=" + left(cstr(fnum * snum) + " ", 3);
6 Q9 d9 E. \5 D" c1 w next& J8 h3 D; @# f% S: W% t, m! z
Print: ?3 l$ Q/ M) ^8 w& K0 X
next- U B0 x1 U5 h& c7 h* \9 s1 N: u
' m' a$ q0 z' G: `金字塔图形：/ x9 J% q8 G6 _. ?, i$ j3 @
dim str1 as string
$ F' G0 D- }9 h1 v: e7 Adim i as long, ii as long
8 R; k1 o) k; {- H; Kfor i = 6 to 0 step -1
: ~7 ]" S* V9 S- D) u str1 = Space(i)
- u- _8 H* H( y! A& B2 d for ii = 1 to 2 * (7 - i) - 1
9 F) _% }! h' \8 O8 B4 e str1 = str1 + "*"
7 b& T1 X7 W# t6 { next
/ N& R# g! r1 F9 H print str1
- a; k5 _9 S; d* P& onext% p: V) E7 o& e7 ?1 i
# J6 x/ _% U0 h+ }: ~( I3 r( T7 l! [????????????????????????????: b3 \& h/ e7 k7 Y
什么意思？？？
8 u# l+ ^8 R: X2 u+ e- x* v! g8 \" a9 Z4 [
作者: 游侠无极限 时间: 2003-11-24 23:29
金字塔图形：% [, m, p6 `3 c2 z
'超级简单的方法，绝对正确，VB初学者绝对看的懂！！！0 Z3 j% r; [# q. X5 O
print space(6);"*"
) V( w$ i6 F( M& E" b2 P" Tprint space(5);"***"
$ d! y2 W" Q. b7 Kprint space(4);"*****"# _5 V' h4 h8 [% ?1 o
print space(3);"*******"6 |' `1 Y% s, f+ q1 x* Y
print space(2);"*********"
" `+ V, f. w3 {, l# mPrint "*************"
, p2 x+ A$ i- g, L: ^( f& F
+ N, u t7 K# z& g7 T0 O5 [; Q[此贴子已经被作者于2003-11-24 23:52:26编辑过]
) Y& ]1 J# }" b, j4 m
作者: 游侠无极限 时间: 2003-11-24 23:33
Dim str As String+ S. t+ \; g5 o
str = Space(6) & String(13, "*")
0 a: d2 m8 |) u0 [* o0 |8 UDim i As Integer
" _0 c3 r- [& O1 HFor i = 1 To 7" P9 W) `% U7 z
Print Mid$(str, i, 6 + i)
& A% e1 H0 v( w0 p8 d% L9 eNext. N; F5 `5 t6 s7 }
m3 t9 c: U) n$ f2 n0 B
; l/ p) u: }& r1 N) O9 u
! c/ f- r! V$ K' G7 I[此贴子已经被作者于2003-11-24 23:43:20编辑过]
2 V; L$ J6 s. q/ y5 C4 g* M' S
作者: 游侠无极限 时间: 2003-11-24 23:48
第一个“print i;"*";j;"=";i*j”后面加一个逗号即可
作者: 唐明 时间: 2003-11-26 13:17
啊，楼兄多谢让我记起string函数，这个东西早忘了，我考我自己。该复习了。. R& Z3 _# u' b6 P. K
还没有对齐第一个。
4 X h/ [& w' y4 d. [请教：str()和cstr()的区别在那里，能说具体点吗？？？还有其他很多xx()和cxx()的区别，xx()和xx$()的区别。
作者: 游侠无极限 时间: 2003-11-26 15:38
我自己也不太说的清楚，只知道cstr()转换后的字符不会有原来数字的正符号位1 ^/ G" [) p2 R' o3 q
查了一下，是这样的' n- U X; r( T, K
“CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。”
- O# o, f5 d' N2 w
) s* ]/ |7 v/ ^8 Z5 t( A Q, X! H而xx()与xx$()，$是指里面的字符串不需要进行转换，加快运行速度2 J/ }- Y) L0 I& G" n2 J% k1 E- b g
比如mid(asdasdsad,1,2)是可以返回"as"字符串的
! D: ?# t4 G; M9 \+ ?6 ~* r% D但mid$(asdasdasdd,1,2)将返回空字符串，因为里面不是字符串，而函数也不进行转换，必须是mid$("SDFSDFSDF",1,2)
作者: 唐明 时间: 2003-11-26 19:27
楼兄的解释也是简洁的了
作者: fyer 时间: 2003-12-3 03:29
提示: 作者被禁止或删除 内容自动屏蔽
作者: 风吹沙地 时间: 2003-12-11 23:31
书上有例题的
作者: 游侠无极限 时间: 2003-12-12 08:06
书上代码最垃圾的就是FOR循环中的Next后面还加上变量名，这会影响程序的运行速度
作者: 唐明 时间: 2003-12-20 18:37
vb里的for...next的代码到底是怎么样的？？9 M5 b( `: u& i Y
请教楼兄！是象下面的 代码吗？
$ d1 }, s1 o) Q: m7 W R3 h, acnt dd ????????h
0 z5 M! i! S L t0 Q* r* x. ?2 Z...... e$ o1 A8 M4 v4 U4 Q
@@:* r9 k* } Z w2 l3 \& S6 a) z9 W
...
, m7 p. G) z# V* }9 O9 N* gdec cnt/sub cnt,??h/...
* N' _4 Q; n o U2 \" O9 W3 z! Fjnz @F/..., Q4 U7 @0 r+ ~$ _% F0 C p) I
...7 j1 F2 @' H7 G( l3 [# o
或者是5 h8 }* ]5 X, V% P" S6 {
mov ecx,????h
; [0 x% }3 u1 A: f; }5 t4 `' | y... W' _# O# z1 T4 T8 O/ I
@@:# |( p5 s0 g& Z: `1 G5 P* H
...
0 S4 O y0 O7 z8 G9 Cloop @F/...5 Z ]; A, ?5 W6 i& L- g' S* T
还是其他的什么形式？
作者: 游侠无极限 时间: 2003-12-20 22:33
这个不知道/ b: M" A( d: o+ O- W
本人也是菜鸟，只是在很多的VB程序设计的建议中都要求把next后的变量去掉
$ b0 @4 [: {, k* u
) \7 W& T5 p6 a9 H再说VB默认编译出来的是P-Code，到时候运行的时候没这么简明吧
| 欢迎光临 下沙论坛 (http://bbs.xiasha.cn/) |
Powered by Discuz! X3.3 |