主页

帮我进来看到题目就10行帮帮忙在线等

lhbyjx 2008-01-04 10:55:42

设N是一个四位数，它的 9 倍恰好是其反序数（例如：1234的反序数是4321），求N的值。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, a, b, c, d, q As Integer
For x = 1000 To 10000
q = x
a = x / 1000
b = (x Mod 1000) / 100
c = (x Mod 100) / 10
d = (x Mod 10)
If (q * 9) = (1000 * d + 100 * c + 10 * b + a) Then
TextBox1.Text() = q
End If
Next
End Sub
End Class

...全文

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

砸死牛顿的苹果 2008-01-05

中间一段修改下

  Dim x, a, b, c, d, q As Integer

  For x = 1000 To 1111

  q = x

  a = x \ 1000

  b = x \ 100 Mod 10

  c = x \ 10 Mod 10

  d = x Mod 10

  If (q * 9) = (1000 * d + 100 * c + 10 * b + a) Then

    Text1.Text() = q

  End If

  Next

回复赞

砸死牛顿的苹果 2008-01-05

嗯我没注意只看到他算法部分有错误

回复赞

熊孩子开学喽 2008-01-05

DIM A AS LONG
DIM B AS LONG
DIM C AS LONG
DIM D AS LONG
DIM I AS LONG
FOR I=1000 TO 1111
A=I MOD 10
B=(I\10) MOD 10
C=(I\100) MOD 10
D=I\1000
IF I*9 = A*1000+B*100+C*10+D THEN ME.PRINT I
NEXT

和楼上一样，只是楼上定义变量写法有问题，Dim x, a, b, c, d, q As Integer只有最后一个指定了整形，前面4个是无类型的。

回复赞

lhbyjx 2008-01-04

我用java解出来了是 1089 可是改成VB就不对了算不出来了
我没学过vb 可是老师要让用vb教作业我不知道改的过程中哪里出错了

回复赞