收录日期:2019/12/11 04:15:13 时间: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这个我不太会写,有兴趣的可以试试,别忘了告诉一下结果 :)

求代码,我需要实现基于http协议的socket编程 调查:你愿意买数千元的什么华什么表,还是源意买50元的lgxgrid 有一个问题 引用rich textbox问题! 打印问题,编辑框内的文本怎么换行打印呢?急救。谢谢 帮助不能用了,怪问题,高手帮忙看看 编写Windows服务的问题 散乱点三角剖分 高分請教郵件附件不能正確顯示的問題 双击dataGrid边框,如何得到该行在表中的集合? 三路握手的SYN和ACK的序列号数值的选择的问题 Word转Pdf ======ASP.NET的无组件上传问题fileup.PostedFile.FileName得不到文件名,解决了立即给分============ 高手帮忙。。。。 请大家给点意见,十分感谢! 怎么样启动一个应用程序? 数据库查询的问题,请高手帮忙! 利用数据库向数据库中添加数据出错! 将dbgrid保存为word碰到的问题? 怎样查找一个网页的所有图片连接 有谁用过codewarrior?? 有关于vs.net2003中C# 编辑器的问题 如何在python中把int型转化成string 关于VB连接Access的两个问题 怎样得到一个用户分别有哪些角色? 有段代码就是不能实现,帮我看下哪里出的毛病。 求助!请问oracle的UTL_FILE.OPEN ,PUT_LINE 这些方法操作文件能不能是网络路径 新手上路!各位帮帮忙! 急!急!!急!!!高手请留步!新建类中为什麽不能添加响应菜单按钮的函数?!! Java中如何获得控制台的输出信息?急急急!!!