第一节vb课
来源:互联网 发布:北京赛车数据接口 编辑:程序博客网 时间:2024/06/06 11:49
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课进行程序的熟悉,对程序进行编写,我发现不算太长的一个程序在编写时只要一点的错误,程序编写就错误。第一节课我体会到在写程序时一定要认真仔细,在学习的过程中一定要多练习,不会的就问。
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课
- 第一节vb课
- java第一节入门课
- 第一节程序设计课
- 新学期第一节csdn课
- C#第一节上机课
- 第一节C++课
- 第一节Java课
- 第一节
- 第一节
- 第一节
- 第一节
- 第一节
- 第七章 vb控制结构 第一节 选择控制结构
- 第一节CSDN课的感受
- 第一节xml课上笔记
- 我的第一节Java课
- 华信Java课第一节
- VS出现错误mt.exe : general error c101008d: Failed to write the updated manifest to the resource
- 虚函数调用,虚继承时候vtable特殊情况
- 制作IIS安装程序
- 十五分钟改善你的摄影水平
- 三星将放弃 Bada,全面投靠 Android
- 第一节vb课
- arcgis server 服务发布后,字体呈现方块状
- JavaScript判断浏览器类型及版本
- SAP MDM实现主数据配置步骤
- 9 个重量级的云计算(PaaS)平台
- 作业2
- 3.3 移植QTE 到 ARM 设备 出现的问题以及排错
- Caused by: java.lang.RuntimeException: JavaBeansDataExchange could not instantiate result class.
- JSP页面字体