vb作业
2016-04-19 11:57
239 查看
心累, 没做出来,实在是没看出来哪里出了问题
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
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
相关文章推荐
- vb作业
- VB 监听U盘插入并拷贝U盘内容
- 迟到的vb作业
- 去掉navbar或者tabbar的预留间距
- vboxmanage查询正在运行的vbox虚拟机
- VB 定时终止进程
- VB6 Access 事务(Transaction)
- VBA删除表格最后一行
- VBA表格单元格替换文字
- VBA添加表格
- vb6中word编程总结
- 详解AOPR中的VBA后门功能
- 15 电气 齐振昊 VB中三位数乘一位数
- 15 电气 齐振昊 VB中两位数乘一位数
- VB中几种循环结构
- echo写vbs下载者木马
- VBA批量调整图片宽度
- vb6.0陈伟教学视频总结
- VB.NET章鱼哥出品—怎样解决MDI子窗口被父窗口中的控件覆盖的问题
- VB延时模块,6种做法汇总