第一次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第一次作业答案

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

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

第一次实验课课堂笔记

% 清屏 clc; % 清空内存区 clear all; % 读入一幅图片 % 矩阵多少行多少列就是图片的像素多少行多少列 im = imread('C:\Documents and Se...

习题课第一次作业:1、去除C程序中的注释

1、去除C程序中的注释 总时间限制: 1000ms 内存限制: 65536kB 描述: C程序的注释用/…/来表示。请写一个程序,将输入的C程序源代码中的注释去掉,输出去掉注释之后的源代...

html第一次课

内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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