我的VB第一次作业
来源:互联网 发布:暴走淘宝店 编辑:程序博客网 时间:2024/06/08 18:06
初学计算机课学的Visual Basic语言,上机时老师要求模仿一个最大公约数的工程。哇。。。看到那一堆符号都不知道什么意思。但,照葫芦画瓢还是会的,于是就一点点儿的“画”了起来,做的过程中是大错不犯,小错不断,但在学长的帮助下终于成功啦!那种兴奋之情溢于言表,哈哈。。。下面就是工程步骤:
Step1.开始-----程序----Microsoft visual Basic6.0 中文版 启动 VB开发软件
Step2.文件-----新建工程-----"标准的exe”----确定
Step3.绘制界面(略)
Step4.双击“开始计算”按钮,放置如下代码:
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第一次作业
- 我的第一次作业
- 我的VB作业
- 我的VB作业
- 我的第一次汇编作业!
- 我的第一次作业喔
- 我的第一次博客作业
- 我对第一次数据结构作业的理解
- 我的第一次作业:题目原文
- 【IMWeb训练营作业】我的第一次作业---todoList
- 关于我的第一次大学商品打折编程作业
- 第一次的作业
- 迟到的vb作业
- VB.Net 的第一次印象
- 第一次的SQL小作业
- 第一次的Java编程作业
- 软工的第一次作业
- 学习C++的第一次作业
- asp.net viewstate 解密
- android 转屏幕事件保存数据--就一行代码
- UNIX网络编程学习(14)--使用select正确处理EOF的str_cli函数修订版
- Minicom
- MySQL修改外键删除时操作出现error 121解决办法
- 我的VB第一次作业
- const在C和C++中的一个区别
- Java编程提高性能时需注意的地方
- SecureCRT 常用命令
- IIS 7.5 deploying errors and their solutions
- 打包为jar文件,manifest文件里的空格!
- SUN到底是怎么想的?一个空格给我过了个愚人节!
- 不争万年,只珍朝夕------我对编程的态度
- 什么是glibc