收录日期:2020/07/10 18:49:24 时间:2016/06/07 20:54:51 标签:VB基础类
一个数学问题:求0-999这1000个数字中有多少个数字,它们的个位数、十位数、百位数相加等于X?
已知0≤X≤27,请写出一个函数,给定X值时,即算出数字的个数。
#include <stdio.h>

void main()
{
int i,a,b,c;
int count=0;
int x;
scanf("%d",&x);
for(i=0;i<1000;i++)
{
a=i/100;
b=i%100/10;
c=i%10;
if (a+b+c==x)
count++;
}
printf("count=%d",count);
}
不错,只是效率是不是有点低啊,需要循环1000次进行比对。

有没有效率更高的算法?
Function getnum(ByVal x As Integer) As Integer
Dim i As Integer
For i = 0 To 999
If i Mod 10 + (i \ 10) Mod 10 + i \ 100 = x Then getnum = getnum + 1
Next
End Function
有没有效率更高的算法?

Function getnum(ByVal x As Integer) As Integer
getnum = Array(1, 3, 6, 10, 15, 21, 28, 36, 45, 55, 63, 69, 73, 75, 75, 73, 69, 63, 55, 45, 36, 28, 21, 15, 10, 6, 3, 1)(x)
End Function
晕~
散分!
to northwolves(狼行天下) 
 vb不太熟,不过感觉Array的初始化和对index检索似乎都有改进的余地 :)
试了一下:
    Public Function getnum(ByVal x As Integer) As Integer
        Dim a() As Integer = {1, 3, 6, 10, 15, 21, 28, 36, 45, 55, 63, 69, 73, 75, 75, 73, 69, 63, 55, 45, 36, 28, 21, 15, 10, 6, 3, 1}
        Return a(x)
    End Function
    Public Function getnum2(ByVal x As Integer) As Integer
        'Dim a() As Integer = {1, 3, 6, 10, 15, 21, 28, 36, 45, 55, 63, 69, 73, 75, 75, 73, 69, 63, 55, 45, 36, 28, 21, 15, 10, 6, 3, 1}
        If x < 10 Then Return (x + 1) * (x + 2) / 2
        If x > 17 Then Return (28 - x) * (29 - x) / 2
        If x = 13 Or x = 14 Then Return 75
        If x = 12 Or x = 15 Then Return 73
        If x = 11 Or x = 16 Then Return 69
        If x = 10 Or x = 17 Then Return 63
    End Function


        For j = 0 To 100000000
            'getnum(27)   24秒 
            'getnum(17)   24秒
            'getnum2(27)  20秒
            'getnum2(17)   4秒
        Next

有没有效率更高的算法? :)
看不懂
哪位大哥解释一下
我来解释一下 ,
可能是那两个算式把人搞糊涂了。实际上由于那个数列有较特殊的关系,对于x<10时,f(x)=f(x-1)+x ,故写成了那个形式。
之所以比较27和17,因为那是该算法中可能的,最慢的值。

其实在这个case中,象 If x = 13 Or x = 14 那样直接的一个个写出来,效果应该更好

另外,象northwolves(狼行天下) 那样用Array,但将他声明为静态的,只初始化一次,可能就是最快的,Vb这个我不太会写,有兴趣的可以试试,别忘了告诉一下结果 :)

如何发现相同类型的开发人员或较高水平的开发人员 散分不动摇 散分. 动态创建的ListBox用法的菜鸟问题!请教大家!!! 启动时提示"指定的服务并未与安装的服务存在"急,在线等!!! SQL SERVER不能能实现能数据库访问的日志记录 求像SOHU首页两边的的浮动跟着滚动条一起跑的小窗口代码,多谢高手赐教! 关于参数的问题,在线等 提个简单的问题,路过的懂的帮帮忙!谢谢! vs2005 C# 我怎么找不到 ApplicationEvents控件,新手问题!! 散分不动摇 2006世界杯竞猜,呵呵,猜中散分 QQ怎样拒绝别人手机发送的短信消息? 集思广益,高分征集一个最佳的数据库结构。关于编号规则。 VC下如何向oracle数据库中写入CLOB数据? 全文搜索请教 问大家一个很搞笑的问题。。。。。(soap与xml有什么区别和联系?) ASP.NET与AJAX的关系? 急!!!!!!英文版SQL SERVER中查询ACCESS中文表名,出错 ÐÏÎÌŸ©¦±²¼ 绝对震撼!北外女博士内幕:>>> 何其莘 <<< 被指为色狼教授! ORACLE能不能根据日志查出哪个机器访问了SQL SERVER数据库,执行了哪些操作 散分 改变JTabbedPane的选项卡的颜色 关于PB使用IE组件的问题 java 连接 sql2000提示No suitable driver 散个分 sscanf怎么用? 有关CHtmlView的几个问题。 学习aop是为了什么,换句话说,aop能解决什么问题,请大虾指点! 我自己想写个外挂让另外一个程序最小化,或隐藏窗体,难吗?