第一次VB课
来源:互联网 发布:js根据id给元素赋值 编辑:程序博客网 时间:2024/04/27 23:15
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)
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课
- 我的VB第一次作业
- VB.Net 的第一次印象
- Java程序员的第一次VB.NET开发
- 瑞雪兆丰年——与Vb的第一次相遇相知
- 【转载】第一次亲密接触 之 VB和Flash的交互
- vb进行第一次赋值之后再次将赋值进行交换
- 第一次机房收费系统-VB变量和常量命名格式
- php 第一次课
- Struts第一次课
- struts2第一次课
- javascript第一次课笔记
- 第一次程序课
- 第一次课 计算机软件基础
- 第一次课总结
- C语言第一次课
- html第一次课作业
- 第一次上linux课
- 《第五周任务二》设计分数类,完成对分数的运算
- 以Tab为界面主框架的应用程序
- CFS进程调度
- 第三方控件使用大全
- 第六周 任务五
- 第一次VB课
- 第六周任务一
- Oracle视图
- 第六周 任务一 方法2
- sed命令在linux下的用法介绍
- 实验报告 6 -1
- 《第五周任务三》求五个长方体的表面积和体积
- 什么是po文件?
- 第六周实验报告