vb作业
来源:互联网 发布:增值税开票软件密码 编辑:程序博客网 时间:2024/05/22 18:22
心累, 没做出来,实在是没看出来哪里出了问题
Option Base 1
Private Sub Command1_Click()
Me.Font.Size = 30
Dim n1() As Byte, n1len As Long
Dim n2() As Byte, n2len As Long
Dim yushu1 As Byte
Dim yushu2 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(2) * n2(1) + shang
yushu1 = tempresult Mod 10
shang = tempresult \ 10
tempresult = n1(1) * n2(1) + shang
yushu2 = tempresult Mod 10
shang = tempresult \ 10
Print shang & yushu2 & yushu1
End Sub
0 0
- VB作业
- VB作业
- VB作业
- VB作业
- vb作业
- VB作业
- VB作业
- VB作业
- vb作业
- vb作业
- VB作业
- vb作业
- VB作业
- vb作业
- VB作业
- VB作业
- vb作业
- vb作业
- 1026
- ZOJ 3326(E)模拟
- Android API Guides---Environment Sensors
- LeetCode_OJ【68】Text Justification
- Android 安全架构及权限控制机制剖析
- vb作业
- C语言之字符串的表示方式
- Matlab标定工具箱使用的一些注意事项
- lintcode之删除排序数组中的重复数字
- JavaWeb 项目——起点新闻社区
- 4X4矩阵实现3D平移;4X4矩阵向z=d平面投影;
- 纪念
- uploadfy 上传IO Error 解决办法
- WEB前端新手学习心得