1.一个三位数，十位上的数等于个位上的数与百位上的数之和；若把各位上的数与百位上的数交换，则新数比原数大99，若把各位上的数移置百位之前，组成的三位数比原数大63，求这三位数。2.有30个工人，若每人每小时能生产甲零件30个，或乙零件25个，或丙零件20个，现在甲3个，乙5个，丙4个能配装成某种零件，问如何安排劳动力，才能每小时生产的零件配套。3.甲、乙、丙三人各有若干糖果，要求互相赠送，甲给乙丙的糖数等于乙丙原有的糖数，依法再乙给甲丙现有糖数，丙给甲乙现有糖数，互送后每人各有64粒，问原来一人各有多少颗糖？4.三块牧场，草长的一样快，面积分别为3又1/3公顷、10公顷和24公顷，第一块12头牛可以吃4星期，第二块21头牛吃9星期，第三块可供多少牛吃18星期？谢谢了！

第一题：（在excel宏编辑器里粘贴运行）Sub sws()Dim x As IntegerFor x = 100 To 999 xx = Trim(CStr(x)) a = Left(xx, 1) b = Mid(xx, 2, 1) c = Right(xx, 1) x1 = CInt(c + b + a) x2 = CInt(c + a + b) If CInt(b) = CInt(a) + CInt(c) And x1 - 99 = x And x2 - x = 63 Then MsgBox ("x=" + CStr(x)) End End If NextEnd Sub

第一题：（在excel宏编辑器里粘贴运行）Sub sws()Dim x As IntegerFor x = 100 To 999 xx = Trim(CStr(x))'转换成文本 a = Left(xx, 1)'取百位数 b = Mid(xx, 2, 1)'取十位数 c = Right(xx, 1)'取个位数 x1 = CInt(c + b + a)'百位与各位互换 x2 = CInt(c + a + b)'个位移到最前 If CInt(b) = CInt(a) + CInt(c) And x1 - 99 = x And x2 - x = 63 Then'判断条件 MsgBox ("x=" + CStr(x))'结果对话框 End End If NextEnd Sub 答案：374

第三题：Sub t()Dim x, y, z As Integer For h = 1 To 192 For i = 1 To 192 For j = 1 To 192 x = h y = i z = j x = x - y - z y = 2 * y z = 2 * z y = y - x - z x = 2 * x z = 2 * z z = z - x - y x = x * 2 y = y * 2 If x = 64 And y = 64 And z = 64 Then MsgBox ("甲=" + CStr(h) + " 乙＝" + CStr(i) + " 丙＝" + CStr(j)) End End If Next Next NextEnd Sub答案：甲＝104，乙＝56，丙＝32

三题
甲=104
乙=56
丙=32

莎比这都不会，可耻的匿了