1738× 4 = 6952
1963 × 4 = 7852
运行以下的VB代马可得出结果:
Dim a As Long
Dim b As Long
Dim c1,c2,c3,c4,c5,c6,c7,c8,c9 As Integer
For c1 = 1 To 9
For c2 = 1 To 9
For c3 = 1 To 9
For c4 = 1 To 9
For c5 = 1 To 9
For c6 = 1 To 9
For c7 = 1 To 9
For c8 = 1 To 9
c9 = 45 - c1 - c2 - c3 - c4 - c5 - c6 - c7 - c8
If c1 = c2 Or c1 = c3 Or c1 = c4 Or c1 = c5 Or c1 = c6 Or c1 = c7 Or c1 = c8 Or c1 = c9 Then GoTo aa
If c2 = c3 Or c2 = c4 Or c2 = c5 Or c2 = c6 Or c2 = c7 Or c2 = c8 Or c2 = c9 Then GoTo aa
If c3 = c4 Or c3 = c5 Or c3 = c6 Or c3 = c7 Or c3 = c8 Or c3 = c9 Then GoTo aa
If c4 = c5 Or c4 = c6 Or c4 = c7 Or c4 = c8 Or c4 = c9 Then GoTo aa
If c5 = c6 Or c5 = c7 Or c5 = c8 Or c5 = c9 Then GoTo aa
If c6 = c7 Or c6 = c8 Or c6 = c9 Then GoTo aa
If c7 = c8 Or c7 = c9 Then GoTo aa
If c8 = c9 Then GoTo aa
a = c1 * 1000 + c2 * 100 + c3 * 10 + c4
b = c6 * 1000 + c7 * 100 + c8 * 10 + c9
If a * c5 = b Then MsgBox CStr(a) & "*" & CStr(c5) & "=" & CStr(b)
aa:
Next c8,c7,c6,c5,c4,c3,c2,c1
在方格中填入1,2,3,4,5,6,7,8,9使得算式成立(数字不得重复)□□□□*□=□□□□
在方格中填入1,2,3,4,5,6,7,8,9使得算式成立(数字不得重复)□□□□*□=□□□□
数学人气:332 ℃时间:2019-10-18 08:20:18
优质解答
我来回答
类似推荐
猜你喜欢
- 1已知θ为锐角,sin(θ+15°)=4/5,则cos(2θ-15°)= _ .
- 2李老师用250元给班级图书角买回《三国演义》17元,《中华上下五千年》15元.共16本,两种书各买了多少 方程
- 3关于爸爸的作文(主意:外貌,心理,动作)描写
- 4一辆小轿车和一辆大客车从从甲城开往乙城,大客 车每小时行50千米,小轿车比大客车迟开2小时,结果两车同时到达乙城,已知甲、乙两城相距30 0千米,小轿车每小时行多少千米?方程解
- 5详细的形容词原级比较级最高级类表,不是规则,是列表!
- 6like doing 和like to do 在用法上的区别
- 7已知等比数列{an}满足2a1+a3=3a2,且a3+2是a2,a4的等差中项
- 8一位老人在公路上散步,从第1根电线杆走到第12根电线杆处共用了22分钟.这位老人走了40分钟,这时他走到了第几根电线杆处?
- 9妈妈买2千克鸡蛋和一千克鸭蛋共付款11.1元.如果买一千克鸡蛋和两千克鸭蛋共付款10.8元,那么每千克鸡蛋和
- 10She said (that)she had never been to Paris.