4.14
来源:互联网 发布:linux可执行文件.o 编辑:程序博客网 时间:2024/04/30 03:20
Private Sub Command1_Click()
Dim n1 As Byte
Dim n2 As Byte
Dim yushu As Byte
Dim shuang As Byte
Dim tempResult As Byte
n1 = Int(Val(Me.Text1.Text))
n2 = Int(Val(Me.Text2.Text))
tempResult = n1 * n2
yushu = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu
End Sub
Dim n1 As Byte
Dim n2 As Byte
Dim yushu As Byte
Dim shuang As Byte
Dim tempResult As Byte
n1 = Int(Val(Me.Text1.Text))
n2 = Int(Val(Me.Text2.Text))
tempResult = n1 * n2
yushu = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu
End Sub
0 0
- 4.14
- 4.14
- 4.14 ,
- 4.14
- 4.14
- 4.14
- 4.14
- 4.14
- 4.14
- 4.14
- 4.14~4.16
- 【0】4.14
- 杭州--4.14
- cpp 4.14
- 传智播客学习笔记4.14
- SICP Exercise 4.14
- Sample 4.14:address.cpp
- 学习日志4.14--servlet_JSP
- node + mysql
- jsp页面中jstl标签详解 包括< c:choose> <c:when> <c:otherwise>
- 基于Leader/Follower模式的C++线程池
- NS2安装错误系列(1)
- 10的阶乘
- 4.14
- 对每个边缘求最小外接矩形,通过最小矩形提取每个边缘
- http通信get,post 中文乱码问题原因分析
- C/C++重要知识点汇总
- 【收藏】Win7系统文件上添加Sublime Text 3的打开方式
- 国外人气最旺的软件测试网站
- POJ 2255/hrbust 2022 Tree Recovery【dfs、二叉树的层次遍历】
- 2015最流行的Android组件、工具、框架大全
- Volley的网络请求实例