1

我正在构建一个乘法助手，它（故意）只计算任何两个 1 位数字的乘法答案的一半。

我相信这将有助于帮助所有年龄段的学生学习心乘法。希望这样的程序可以帮助个人连接点，了解为什么乘法数字是他们的方式，而无需求助于记忆大型乘法表的困难（这个是 4x4 = 16 而不是 10x10 = 100）

我相信我们生活在一个依赖技术的不健康世界中，这个简单的程序应该可以帮助人们使用他们自己的计算器——他们头脑中的那个。

您只需将未显示为灰色的数字相加，例如 6 x 8 =心算16+32= 48

问题描述：- 如果在被乘数之前选择乘数，则程序无法正确计算，例如 3（被乘数）x5（乘数）= 给出 1+2+4+8 =心算15，这是正确的 如果反向执行乘数 5 x 被乘数 3 结果是 1+2+4+8+2+4+8+16 = 45 这是不正确的

提前谢谢你，凯文

乘法助手截图 在此处输入图像描述

跨是被乘数，列是乘数，代码是excel（VBA）的视觉基础

Private Sub across1_Click()
Range("A2:D4").Font.Color = RGB(202, 204, 206)
Range("A1:D1").Font.Color = RGB(0, 0, 0)
End Sub

Private Sub across2_Click()
Range("A1:D1").Font.Color = RGB(202, 204, 206)
Range("A3:D4").Font.Color = RGB(202, 204, 206)
Range("A2:D2").Font.Color = RGB(0, 0, 0)
End Sub

Private Sub across3_Click()
Range("A3:D4").Font.Color = RGB(202, 204, 206)
Range("A1:D2").Font.Color = RGB(0, 0, 0)
End Sub

Private Sub across4_Click()
Range("A1:D2").Font.Color = RGB(202, 204, 206)
Range("A4:D4").Font.Color = RGB(202, 204, 206)
Range("A3:D3").Font.Color = RGB(0, 0, 0)
End Sub

Private Sub across5_Click()
Range("A2:D2").Font.Color = RGB(202, 204, 206)
Range("A4:D4").Font.Color = RGB(202, 204, 206)
Range("A1:D1").Font.Color = RGB(0, 0, 0)
Range("A3:D3").Font.Color = RGB(0, 0, 0)
End Sub

Private Sub across6_Click()
Range("A1:D1").Font.Color = RGB(202, 204, 206)
Range("A4:D4").Font.Color = RGB(202, 204, 206)
Range("A2:D3").Font.Color = RGB(0, 0, 0)
End Sub

Private Sub across7_Click()
Range("A4:D4").Font.Color = RGB(202, 204, 206)
Range("A1:D3").Font.Color = RGB(0, 0, 0)
End Sub

Private Sub across8_Click()
Range("A1:D3").Font.Color = RGB(202, 204, 206)
Range("A4:D4").Font.Color = RGB(0, 0, 0)
End Sub

Private Sub across9_Click()
Range("A2:D3").Font.Color = RGB(202, 204, 206)
Range("A1:D1").Font.Color = RGB(0, 0, 0)
Range("A4:D4").Font.Color = RGB(0, 0, 0)
End Sub


Private Sub columns1_Click()
Range("B1:D4").Font.Color = RGB(202, 204, 206)
End Sub

Private Sub columns2_Click()
Range("A1:A4").Font.Color = RGB(202, 204, 206)
Range("C1:D4").Font.Color = RGB(202, 204, 206)
End Sub

Private Sub columns3_Click()
Range("C1:D4").Font.Color = RGB(202, 204, 206)
End Sub

Private Sub columns4_Click()
Range("A1:B4").Font.Color = RGB(202, 204, 206)
Range("D1:D4").Font.Color = RGB(202, 204, 206)
End Sub

Private Sub columns5_Click()
Range("B1:B4").Font.Color = RGB(202, 204, 206)
Range("D1:D4").Font.Color = RGB(202, 204, 206)
End Sub

Private Sub columns6_Click()
Range("A1:A4").Font.Color = RGB(202, 204, 206)
Range("D1:D4").Font.Color = RGB(202, 204, 206)
End Sub

Private Sub columns7_Click()
Range("D1:D4").Font.Color = RGB(202, 204, 206)
End Sub

Private Sub columns8_Click()
Range("A1:C4").Font.Color = RGB(202, 204, 206)
End Sub

Private Sub columns9_Click()
Range("B1:C4").Font.Color = RGB(202, 204, 206)
End Sub

Private Sub CommandButton1_Click()
Range("A1:D4").Font.Color = RGB(0, 0, 0)
End Sub

Private Sub Frame1_Click()
End Sub

Private Sub Frame2_Click()
End Sub

Private Sub UserForm_Click()
End Sub
4

0 回答 0