在方格中填入1,2,3,4,5,6,7,8,9使得算式成立(数字不得重复)□□□□*□=□□□□
题目
在方格中填入1,2,3,4,5,6,7,8,9使得算式成立(数字不得重复)□□□□*□=□□□□
答案
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
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 你喜欢你的英语老师吗?yes,she is good () us
- 先化简(x-5分之x-5-x分之x)除以x的平方-25分之2x,然后从不等组大括号:.先化简(x-5分之x-5
- 利用伏安法测电阻R的阻值,电流表外接时,电流表读数I=2.1A,电压表读数U=45.8V,
- 两数和为616,甲数的个位数字是0.如果把0去掉就和乙数相同.求这两个数各是多少?
- 某有机物与过量的钠反应得到VAL气体甲,另取等质量的该有机物与适量的碳酸钠完全反应得VBL气体乙,同温同压下,VA与VB的关系一定是 ( )
- 齐宣王好射说明了一个什么道理?
- 如图,已知:M是AB的中点,MC=MD,∠1=∠2. 求证:AC=BD 证明:
- 笑笑和淘气都拿来着一个两条直角边分别为4cm、6cm的相同的直角三角形,笑笑以4cm的直角边为轴旋转,淘气以6cm的直角边为轴旋转,谁旋转得到的图形体积大?大了多少立方厘米?
- 一块麦田有m公顷,甲收割这块麦田要n小时,乙比甲要少0.5小时收割完这块麦田,两人一起收割要多久?
- 为什么CO2减少其他条件不变 NADPH会增加?