第一次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不简单,但是挺好玩的。

vb第一次作业答案

  • 2012年10月30日 19:33
  • 3KB
  • 下载

第一次机房收费系统-VB变量和常量命名格式

命名的格式在学习学生信息系统的时候,因为有源码的缘故,没有思考太多,这次机房收费系统是自己来做,在开始之前,站在巨人的肩膀上稍有了解,但是实际操作起来还是会出问题的。为什么要命名?做系统时候的每个窗体...
  • lrtcsdn
  • lrtcsdn
  • 2017年11月28日 11:04
  • 118

VB外挂 汉化 简单 第一次

  • 2008年12月14日 20:53
  • 650B
  • 下载

打开第二次VB程序时通知第一次运行的程序并自己关闭的方法

开场白:很多程序,如WINDOWS MEDIA PLAYER,在程序第二次打开,第一次的程序并未关闭时,会自动激活第一次运行的程序,而且会自动把选取的音乐添加到第一次的那个程序的播放列表里,这是如何作...

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

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

第一次实验课课堂笔记

% 清屏 clc; % 清空内存区 clear all; % 读入一幅图片 % 矩阵多少行多少列就是图片的像素多少行多少列 im = imread('C:\Documents and Se...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:第一次VB课
举报原因:
原因补充:

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