作业帮问几道VB的题目!急!急!
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/06/06 12:26:00
问几道VB的题目!急!急!
1、有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和.试求所有这样的三位数之和.
2、[100,666]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数?
3、编程计算10-500的偶数和.
4、编写程序,求[200,1000]既能被3整除又能被5整除的数的和.
5、编写程序,求共有几组i、j、k符合算式ijk+kji=1333,其中i、j、k是0～9之间的一位整数.
1、有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和.试求所有这样的三位数之和.
2、[100,666]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数?
3、编程计算10-500的偶数和.
4、编写程序,求[200,1000]既能被3整除又能被5整除的数的和.
5、编写程序,求共有几组i、j、k符合算式ijk+kji=1333,其中i、j、k是0～9之间的一位整数.
你一次问这么多问题,估计没人会帮你的.
再问： 大侠！五个不多了吧！帮帮忙啦！急！！！！！！！！！！！！！！
再答： 题目不难，只是太多了。
再问： 那你先教我做前面两题！不胜感激！
再答： 只给你做第一题： Dim I As Integer, N As Integer, L As Integer For I = 102 To 987 If (I Mod 10) ((I \ 10) Mod 10) And (I Mod 10) (I \ 100) And (I \ 10) ((I \ 10) Mod 10) Then L = (I \ 100) ^ 3 + ((I \ 10) Mod 10) ^ 3 + (I Mod 10) ^ 3 If L = I Then N = N + I End If End If Next I Print N
再问： 不胜感激！
再问： 大侠！五个不多了吧！帮帮忙啦！急！！！！！！！！！！！！！！
再答： 题目不难，只是太多了。
再问： 那你先教我做前面两题！不胜感激！
再答： 只给你做第一题： Dim I As Integer, N As Integer, L As Integer For I = 102 To 987 If (I Mod 10) ((I \ 10) Mod 10) And (I Mod 10) (I \ 100) And (I \ 10) ((I \ 10) Mod 10) Then L = (I \ 100) ^ 3 + ((I \ 10) Mod 10) ^ 3 + (I Mod 10) ^ 3 If L = I Then N = N + I End If End If Next I Print N
再问： 不胜感激！