当前位置: 网学 > 编程文档 > VB > 正文

送给Visual Basic 6.0的初学者

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式
。其实我们也可以把方法想想成一个“函数”,类似上文中描述的“子函数(过程)”。初学者常用的VB6方法不多,其中最常用的就是“Print”。正如您所想象的那样,刚才使用的时候也没有发现它有多么特殊。其实我们已经在使用Print方法了。只不过它所归属的对象我们不需要知道而已。
关于控件的使用这里就不多说了,因为教科书上介绍的比我介绍的详细的多。
4、结束语:
Visual Basic6.0可以说算是最简单的一门计算机语言。学习的时候多用心。其实前面“变量”部分即使记不住也无妨,在后续的学习过程中会不断牢固以前的知识的。更何况现在的考试都带有MSDN,就是VB的帮助系统。如果有哪些关键字或者用法记不清楚了,可以随时查阅MSDN的相关文档。
最后祝各位VB愉快!

附:送上几例经典的算法

求最大公约数和最小公倍数
Private Sub Command3_Click()
Dim m1%, m%, n%, n1%, r%, b%
m1 = Val(InputBox("输入一个数:"))
n1 = Val(InputBox("请输入另一个数:"))
If m1 > n1 Then m = m1: n = n1 Else m = n1: n = m1
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
Print m1; "和"; n1; "的最大公约数为:"; n
b = m1 * n1 / n
Print m1; "和"; n1; "的最小公倍数为:"; b
End Sub


求100到200之间所有的素数(质数)
Private Sub Command2_Click()
Dim i%, m%
For m = 101 To 199 Step 2
For i = 2 To Int(Sqr(m))
If (m Mod i) = 0 Then GoTo notnextM ''一旦被2到sqr(m)的数整除就转到下一个数
Next i
Print m
notnextM:
Next m
End Sub

注意!程序中使用了GoTo语句!
 

  • 下一篇资讯: 用VB制作半透明窗体
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号