求一段程序，高分相赠！！！！！！

Question

一所高校叫偶试讲，
可爱的院长说啥也要叫偶讲VB，可是偶对于VB学的不能在浅了，就会些基本的控件
的使用，连Basic语法也没详细看过
更 有意思的是叫偶在黑板讲，不用多媒体，哈哈，为难了，
求助！！！
请帮偶找个  素材， 一段合适的程序，
希望程序能够吸引人，并且适合这种讲课方式，呵呵请大家帮帮忙！另有分相憎！如果大家谁有：[email protected]

Answer 1

可以访问www.vbgood.com
www.dapha.net
www.21code.com
www.vbeden.com
www.myvc.net
msdn.microsoft.com和MSDN得到更多的帮助.............

Answer 2

讲课大纲：
1. 自我介绍
2. VB是什么
3. VB的历史
4. VB的意义
5. VB的作用
6. VB的不足
7. VB的发展趋势
8. 关于VB的扩展话题讲课关键:不能有自由讨论

Answer 3

求1000以内的勾股弦值的代码：dim A as integer
dim B as integer
dim C as integerfor 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

Answer 4

qingming81(晴明) 
呵呵，哥们，你还真行呀，思维好活跃呀，
哈哈，类似的还有些什么！
偶觉的也是该讲些奇妙的算法之类的吸引人
继续求教

Answer 5

请在下述网站下载一个学生管理程序的源代码：这些也许学生感觉直观、贴近一些
http://www.dapha.net/down/show.asp?classid=1&Nclassid=111

Answer 6

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

Answer 7

我有一个我们以前 vb老师的讲义，你感兴趣吗？不过，好象有10多M

Answer 8

xfzzf(zhangzhifang):你的代码是什么意思？首先 b = a + 1 然后又 b > 1000 ,而1<= a <=1000
你会有什么结果？

Answer 9

if
for
exit 
.....