求一段程序,高分相赠!!!!!!

yiyingtian 2003-04-25 01:18:55
一所高校叫偶试讲,
可爱的院长说啥也要叫偶讲VB,可是偶对于VB学的不能在浅了,就会些基本的控件
的使用,连Basic语法也没详细看过
更 有意思的是叫偶在黑板讲,不用多媒体,哈哈,为难了,
求助!!!
请帮偶找个 素材, 一段合适的程序,
希望程序能够吸引人,并且适合这种讲课方式,呵呵

请大家帮帮忙!另有分相憎!

如果大家谁有:wangjian991@263.net
...全文
34 23 打赏 收藏 转发到动态 举报
写回复
用AI写文章
23 条回复
切换为时间正序
请发表友善的回复…
发表回复
yiyingtian 2003-04-26
  • 打赏
  • 举报
回复
up
yiyingtian 2003-04-25
  • 打赏
  • 举报
回复
呵呵,给一群老师讲,让他们说偶还可以,或者说讲的很精彩!
嘿嘿
tony 2003-04-25
  • 打赏
  • 举报
回复
up
超级大笨狼 2003-04-25
  • 打赏
  • 举报
回复
讲什么要看你给谁将,他们有什么基础。
你现在要做的是研究你的学生以前学过什么
顺序,循环,分支
过程,函数
窗体,控件....
对不同水平的人有不同的讲法
有一天,一个男人穿越森林的时候,听到一个细微的声音叫住他。他低头一看,是一只青蛙。
“如果你亲我一下,我会变成一个美丽的公主哦。”
男人一言不发,把青蛙捡起来,放入口袋。
“如果你亲我一下,我会变成一个美丽的公主哦。而且,我会告诉我遇到的每一个人,你是多么聪明和勇敢,你是我的英雄。”
男人把青蛙拿出来,对着它微微一笑,又把它放回口袋。
“如果你亲我一下,我会变成一个美丽的公主,然后我愿意成为你的爱人一星期。”
再一次的,男人把青蛙拿出来,对着它微微一笑,又把它放回口袋。
最后,青蛙无力的问:“我开出了这么好的条件,为什么你还不肯吻我?”
男人说:“我是一个程序员,我可没时间和什么公主鬼混。不过,拥有一个会说话的青蛙,倒是满酷的。”
xayzmb 2003-04-25
  • 打赏
  • 举报
回复
有次也是去给一个班讲点vb什么的
刚开了个头
却已过去了两个小时...
vansoft 2003-04-25
  • 打赏
  • 举报
回复
讲课的精髓就一个字:吹!
ccbl 2003-04-25
  • 打赏
  • 举报
回复
if
for
exit
.....
yiyingtian 2003-04-25
  • 打赏
  • 举报
回复
哈哈,只是40分钟任意讲,


所以需要弄点精彩的呀,

帮兄弟想想
dingyanwei 2003-04-25
  • 打赏
  • 举报
回复
呵呵,干脆从一百以内的自然数和开始讲起吧。
简单易懂。
wamlaw 2003-04-25
  • 打赏
  • 举报
回复
up
qingming81 2003-04-25
  • 打赏
  • 举报
回复
xfzzf(zhangzhifang):

你的代码是什么意思?首先 b = a + 1 然后又 b > 1000 ,而1<= a <=1000
你会有什么结果?
yiyingtian 2003-04-25
  • 打赏
  • 举报
回复
呵呵,好呀,
压了,给偶邮来呀,
哥们!
  • 打赏
  • 举报
回复
我有一个我们以前 vb老师的讲义,你感兴趣吗?不过,好象有10多M
xfzzf 2003-04-25
  • 打赏
  • 举报
回复
dim a,b,c as integer
for a = 1 to 1000
b=a+1:c=b+1
if a^2 + b^2 = c^2 and b> 1000 then
print a & "^2 + " & b & "^2 = " & c & "^2"
end if
next a
qingming81 2003-04-25
  • 打赏
  • 举报
回复
请在下述网站下载一个学生管理程序的源代码:这些也许学生感觉直观、贴近一些
http://www.dapha.net/down/show.asp?classid=1&Nclassid=111
yiyingtian 2003-04-25
  • 打赏
  • 举报
回复
呵呵,

好发散的思维呀,触类旁通。

不过,哥们们,在帮偶想想还有没有什么奇妙的算法之类的。

qingming81 2003-04-25
  • 打赏
  • 举报
回复
不然,某一天。美国的灵巧炸弹是可能会打到我们身边的!!!
yiyingtian 2003-04-25
  • 打赏
  • 举报
回复
qingming81(晴明)
呵呵,哥们,你还真行呀,思维好活跃呀,
哈哈,类似的还有些什么!
偶觉的也是该讲些奇妙的算法之类的吸引人
继续求教
online 2003-04-25
  • 打赏
  • 举报
回复
同意
qingming81 2003-04-25
  • 打赏
  • 举报
回复
求1000以内的勾股弦值的代码:

dim A as integer
dim B as integer
dim C as integer

for C = 1 to 1000
for B = 1 to C
For A = 1 to B
if A^2 + B^2 = C^2 then
print A & "^2 + " & B & "^2 = " & C & "^2"
print B & "^2 + " & A & "^2 = " & C & "^2"
end if
next A
next B
next C
加载更多回复(3)

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧