X*57.6+4=Y   X是变量

当"1152 MOD (Y+(-6 to 6) )= 0"或 "(1152 \Y)>30"   then    y=X*57.6+4

还看不懂想得Y还是想得X

看不懂你问的问题
不知道论坛有没有网友看得懂?

想得出Y的值

按说如果你把书弄懂，这个问题是不难的，如果你不把书弄懂，让别人明白你的描述是很困难的

X是变量,当输入X时,
Y=X*57.6+4;(求出Y的值)
Y加减-6到6之间的数,  得到Z
当"1152 除以"Z"的余数等于0时Y=Z,
或"1152"除以"Z"的余数大于30时,Y=Z
否则Y=X*57.6+4不成立,直达循环Y=Z为止.
大体是这个意思,小弟是菜鸟,所以表述不清的地方请版主提个醒.

下面代码是你想要的么?
Dim x As Integer
Dim y As Integer
Dim z As Integer
x = Val(InputBox("请输入一个整数", "提示"))
y = x * 57.6 + 4
For i = -6 To 6 'Y加减-6到6之间的数
  z = y + i '得到Z的值
   If 1152 Mod z = 0 Or 1152 Mod z > 30 Then  '当"1152 除以"Z"的余数等于0时或"1152"除以"Z"的余数大于30时
     y = z
   Else '否则
     MsgBox "Y=X*57.6+4不成立"
  End If
Next i

首先你要的结果是实数还是整数?
dim x,y,z as int           '这是整数
dim x,y,z as single        '这是单精度实数
然后你还要确定
1152 MOD (Y+(-6 to 6) )= 0"或 "(1152 \Y)>30中的y+(-6 to6) 和Y的值都不为0
所以7楼的If 1152 Mod z = 0 Or 1152 Mod z > 30 Then  是不通的,并且跟楼主的要求不匹配
最后我想说的是
你的原始等式 x*57.6+4=y 和你if的等式存在严重冲突,你要你的IF等式成立,你必须保证Y<>0且Y<-6,Y>6，而在你的原始等式中,y的这些值显然是可以成立的
66y

我发现假如我是这样理解题目..该程序就可以成立了
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y, z, i As Single   
        x = Val(InputBox("请输入一个实数", "提示"))
        y! = 0 And y < -6 And y > 6                   'y不等于0,y<-6且y>6(为了保证z也不等于0)，因为分母不能为0
        z = y + i
        For i = -6 To 6
            y = (57.6 * x) + 4
            If 1152 Mod z = 0 Or 1152 Mod y > 30 Then

                MsgBox(y)
            End If
        Next i


    End Sub
本程序在xp sp2 + 下通过

[[it] 本帖最后由 kuangxi 于 2008-9-3 14:39 编辑 [/it]]

X是变量,当输入X时,

Y=X*57.6+4;(求出Y的值) Y值四舍五入取整数 且Y必须大于49,小于或等于1152

Y加减-6到6之间的数,  得到Z

当"1152 除以"Z"的余数Z1等于0,且Y*(1152\Z)=1152时.则Y=Z

或"1152"除以"Z"的余数Z1大于30,且Y*(1152\Z)+Z1=1152时.Y=Z;

如果("1152"除以"Z"的余数)在"-10到10"之间的值,假设这个余数为Z1,且"Z*(1152\Z)+Z1=1152" 则 Y=Z; 注意:"1152\Z"取整数,小数点后的数字取消"

否则Y=X*57.6+4不成立,直达循环Y=Z为止..

表述不清,举个例吧:

当输入变X的值为"4"时,
则(57.6 * 4) + 4=234 "要求四舍五入取整
"234-4=230"  注意"4"是"-6到6"之间的数
再求以下的值:"1152 MOD 230 = 2" 和 "1152\230=5"(取整)
则可得出:(230+230+1)+(230+230+1)+230=1152,即:230*5+2=1152  注:最好可求出几个Y值可平均分得余数,即230平均分得余数
如:(230+230+"1")+(230+230+"1")+230 ;"两个230分别获得1个余数"

当输入变X的值为"1.45"时,
则(57.6 * 1.45) + 4=88 "要求四舍五入取整
再求以下的值:"1152 MOD 88 = 8" 和 "1152\88=13"(取整)
则可得出:(88+1+88+1)+(88+1+88+1)+(88+1+88+1)+(88+1+88+1)+88+88+88+88+88=1152,即:
(88*2+2)*4+88*5=1152  注:最好可求出几个Y值平均分得余数
如:(88+1+88+1)+(88+1+88+1)+(88+1+88+1)+(88+1+88+1)+88+88+88+88+88;"8个88分别获得1个余数"


又如:1152 MOD 64 = 0 成立

又如:1152 MOD 49 = 25 不成立

[[it] 本帖最后由 lanriver 于 2008-9-4 00:13 编辑 [/it]]