4.14
来源:互联网 发布:软件立项建议书 编辑:程序博客网 时间:2024/04/30 05:44
Option Base 1
Private Sub Command1_Click()
Me.Font.Size = 70
Dim n1() As Byte, n1len As Long
Dim n2() As Byte, n2len As Long
Dim yushu As Byte
Dim shang As Byte
Dim tempresult As Byte
n1len = Len(Me.Text1.Text)
n2len = Len(Me.Text2.Text)
ReDim n1(n1len)
ReDim n2(n2len)
For i = LBound(n1) To UBound(n1)
n1(i) = Mid(Me.Text1.Text, i, 1)
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Mid(Me.Text2.Text, i, 1)
Next
tempresult = n1(1) * n2(1) + shang
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
- Python 练习册 3-存储激活码到Redis数据库
- 三羊献瑞
- js几个取整函数
- CSS3中的Transition属性详解
- dubbo 使用
- 4.14
- android里的“陷阱”
- 2*1
- 鸡蛋壳的用途
- 15电气郄慧敏两位数乘以一位数
- Python 练习册 4-统计文本文件中单词出现的个数
- 4.14
- 安装MongoDB到CentOS 6
- Android N For Developers 笔记(二)