第一次VB课

原创 2012年03月26日 18:26:40
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 = N
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不简单,但是挺好玩的。

六周一次课

1、  正则__grep:   正则就是一串有规律的字符串 掌握好正则对于编写shell脚本有很大帮助 各种编程语言中都有正则,原理是一样的   grep [-cinvABC] ‘word...
  • csdn_chenc
  • csdn_chenc
  • 2018年01月15日 14:48
  • 15

【转载】第一次亲密接触 之 VB和Flash的交互

对于VB界面的设计,其实我们组最开始也没想用Flash,只想到用PS修几张图,然后借助控件的Visible属性做一个伪动作的效果,但是看到用了flash的童鞋,感觉人家那个界面才能被称之为界面,仅用v...
  • bianyamei
  • bianyamei
  • 2015年12月23日 11:53
  • 612

初学hibernate (第一次课)

什么是hibernate? Hibernate是一个开放源代码的对象关系映射框架,它对JDBC进行了非常轻量级的对象封装,使得Java程序员可以随心所欲的使用对象编程思维来操纵数据库。 Hibe...
  • sunshinedark
  • sunshinedark
  • 2017年08月23日 19:44
  • 60

第一次课 计算机软件基础

一、软件及其分类    (1)客户端-服务器模型(C/S):a.客户端向服务器发出请求;b.服务器处理请求并将相应发送给客户端。         特点:每一次升级都需要重新下载安装。(一般的聊天软...
  • ssunflower
  • ssunflower
  • 2015年05月26日 23:30
  • 127

Linux第一次课笔记

Linux第一次课笔记 Note001 ① GPL 协议   GNU 通用公共授权非正式的中文翻译。它并非由自由软件基金会所发表,亦非使用 GNU 通用公共授权的软件的法定发布条款─只有GNU...
  • SupeVip
  • SupeVip
  • 2017年03月22日 22:54
  • 66

C语言第一次课

/***************************************************************************************************...
  • BGD150809319
  • BGD150809319
  • 2016年05月13日 13:57
  • 1008

第一次js课

(1)JS,MTML,CSS关系     第一次学习完js后 自己就想具体了解一下html和css与js三者之间的关系,参考了下前辈们的总结,有了一些自己的理解。 首先,最准确的网页设计思路是把网页分...
  • Candyyun1
  • Candyyun1
  • 2017年06月08日 20:36
  • 85

php 第一次课

  1   基本语法我们根据 1.3 节创建的示例来进一步讲解 PHP 中的基本语法。1. 变量PHP 是弱类型语言,不要求使用变量之前声明变量。在第一次给变量赋值时,该变量才被创建。赋值的同时指定了...
  • yourihua
  • yourihua
  • 2008年09月03日 16:11
  • 378

组合数学第一次课笔记

1、  幻方:任意行,任意列,任意对角线的和(记做幻方和)都相等。 根据这个定义很容易知道幻方和可以推导出来 设有一个的幻方 每一行有n个数,假设从1到n2的数都是连续的, 则所有数的和为 如...
  • leo1949asd
  • leo1949asd
  • 2014年04月10日 22:10
  • 634

第二周第一次课

what 这节课主要讲解了数据结构的概览,董老师为我们大体介绍了什么是数据结构,以及求解问题的过程。 why 数据结构是数据对象,以及存在于该对象的实例合组成实例的数据元素之间的各种联系。这些联...
  • NANBEIGO
  • NANBEIGO
  • 2017年09月17日 22:33
  • 69
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:第一次VB课
举报原因:
原因补充:

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