getnumber函数,getnumber函数的用法vb
VB.net，小数点直接进一位的函数?
'自定义一个函数：功能是给小数直接进一位
'num 要操作的小数
'n 保留几位小数，
Function getNumber(num As Double, n As Integer) As Double
Dim a As Double
a = Int(num * (10 ^ n)) / (10 ^ n)
If a = num Then
getNumber = a
Else
getNumber = a + 1 / (10 ^ n)
End If
End Function
-------------------------
调用一下：
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15
c语言,函数调用,编写函数提取字符串中的所有整数
#include?stdio.h
#include?stdlib.h
#include?string.h
#define?M?1000
void?getnumber(char?a[],int?b[],int?*clen)
{
char?c[M];
int?i?=?0;
int?k?=?0;
int?num;
int?len?=?0;
int?flag?=?0;
char?*p;
for(i?=?0,p?=?a?;?i=strlen(a)?;p++,i++)
{
if(*p='0'??*p?=?'9')
{
len++;
flag?=?1;?//在数字字符里面
}
else?if(flag?==?1?)
{
strncpy(c,p-len,len);
c[len]?=?'\0';
num?=?atoi(c);//将字符串转化为数字
b[k++]?=?num;??//用数组存放截取下来的数字
flag?=?0;//?标识0代表进入了非数字字符
len?=?0;
}
}
*clen?=?k;
}
void?main?(void)
{
char?a[M];
int?b[M];//用来存放从字符串截取下来的数字
int?i?=?0;
int?k?;
printf("请输入带数字的字符串:");
gets(a);
getnumber(a,b,k);
for(i?=?0;?i??k;?i++)
printf("%d\n",b[i]);//将存好的数输出
}
在主函数中，要求用户输入一个字符串，之后，调用getnumber函数返回数字，输出结果。
#include stdio.h
long getnumber(char s[])
{
long n=0;
int i;
for(i=0;s[i];i++)
if(s[i]='0's[i]='9')
{
n=n*10+s[i]-'0';
s[i]='*';
}
return n*2;
}
void main()
{
long n;
char t[80];
printf("输入一个字符串:");
gets(t);
n=getnumber(t);
printf("数字:%d\n",n);
printf("字符串:%s\n",t);
}