学习VB的第一节课

原创 2012年03月28日 07:03:26

Option Explicit

Private Sub Command1_Click()
Dim M As Integer
Dim N As Integer
M = Int(Val(Text1.Text))
N = Int(Val(Text2.Text))
Dim TemparyValue As Integer
If M < N Then
TemparyValue = M
M = N
N = TemparyValue
End If
Dim Remainder As Integer
Remainder = M Mod N
While Remainder <> 0
M = N
N = Remainder
Remainder = M Mod N
Wend
Label4.Caption = Str(N)
End Sub

第一次接触VB程序设计,理论课上,老师有数学公式引入,并写出了一个程序设计让我们上机练习,本以为“照葫芦画瓢”是件容易的事,唉,没想到还是出现了一个又一个的错误。
不过,正是一次又一次的失误,才使得我一次又一次的检查,才让我一遍又一遍地去熟悉这天书般的程序。让我明白了一点东西,如编一个程序首先要定义变量,要取一个适当函数。
由此看来,错误不一定都是消极的,有了错误我们才会真正的用心去观查,去发现。并能从中获得更多知识.

VB.net数组第一节

  • 2010年05月05日 12:27
  • 204KB
  • 下载

VB图象处理第一节(DIB+GDI)

  • 2015年10月03日 10:34
  • 181KB
  • 下载

吴恩达(Andrew Ng)深度学习工程师笔记 - 第一门课-神经网络和深度学习-第一周深度学习概论-第一节:欢迎来到深度学习工程师微专业

本系列博客是吴恩达(Andrew Ng)深度学习工程师 课程笔记。前言如果你没有人工智能(AI)的专业背景却又想要涉足AI行业,那么这门微专业正适合你。现如今,深度学习工程师已经成为了非常热门的职业,...

爬虫学习,第一节课 Your First Web Scraper

说明学习笔记,用的例子都是书上或者改了几个字符的0 0版本和依赖包 Python 3.52 标准包 urllib 依赖包 BeautifulSoup 包管理工具 pip(全地球人...

C语言第一节c语言学习的好资料

  • 2011年03月09日 12:02
  • 365KB
  • 下载

CAD笔记第一节课.doc

  • 2013年12月09日 16:15
  • 26KB
  • 下载

Machine Learning Foundations(机器学习基石)笔记 第一节

第一课时

Java基础课程第一节课

  • 2009年02月18日 11:40
  • 238KB
  • 下载

设计模式学习指南第一节

  • 2008年12月31日 10:09
  • 277KB
  • 下载

ubuntu 学习计划:第一节

准备: 1.VMware 2.ubuntu镜像一,安装: 1. VMware下载后一路next 2. 在vm中新建一个虚拟机(可以全使用默认设置) 3. 在vm选择已经下载的ubuntu镜...
  • rwang99
  • rwang99
  • 2015年07月28日 17:58
  • 303
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:学习VB的第一节课
举报原因:
原因补充:

(最多只允许输入30个字)