VB：用调用函数的方法找出所有三位数的水仙花数.

雪中草原2022-10-04 11:39:541条回答

VB：用调用函数的方法找出所有三位数的水仙花数.
这是我写的代码：
Private Sub Command1_Click()
Dim a(101,999) As Integer
For a = 101 To 999 Step 1
If isnum = True Then Print a;
Next
End If
End Sub
Private Function isnum(n As Integer) As Boolean
a As Integer,b As Integer,c As Integer
a = n 100
b = n 10 Mod 10
c = n Mod 10
If n = a ^ 3 + b ^ 3 + c ^ 3 Then
isnum = True
Else
isnum = False
End If
End Function
运行时说我类型不匹配.
哪个类型啊?
帮我解决掉的加分.

已提交，审核后显示！提交回复

共1条回复

bjdgj 共回答了17个问题 | 采纳率82.4%: Private Sub Command1_Click()
Dim a As Integer
For a = 101 To 999 Step 1
If isnum(a) = True Then Print a;
Next
End Sub
Private Function isnum(n As Integer) As Boolean
Dim a As Integer, b As Integer, c As Integer
a = n 100
b = (n - a * 100) 10
c = n - a * 100 - b * 10
If n = a ^ 3 + b ^ 3 + c ^ 3 Then
isnum = True
Else
isnum = False
End If
End Function; 1年前

相关推荐

C＋＋：有一个M行N列的矩阵，调用函数求每行及每列的最大值和最小值 苹果树0011年前1: mooonlight 共回答了18个问题 | 采纳率77.8%

#includeusing namespace std;const int M = 3; const int N = 5;void max_min(int a[][N]){int&nbs...

1年前查看全部

问3个C++笔试题目1以下关于调用函数时，形、实参结合的通用规则不正确的描述为_______。A、实参可以是变量，也可以 问3个C++笔试题目 1 以下关于调用函数时，形、实参结合的通用规则不正确的描述为_______。 A、实参可以是变量，也可以是常数或者表达式。 B、实参的个数可以多于形参，也可以少于形参。 C、系统将为形参分配内存单元。 D、实参必须与对应的形参类型相兼容。 答案选择B，但是C，不是只有在被调用时，形参才会分配内存单元吗？ D实参有时候不是可以不喝形参类型相同吗？这里的兼容和相同意思一样吗？ 2 下列哪个不是重载函数在调用时选择的依据_________。 A、形参类型 B、形参个数 C、函数名 D、函数返回值类型 答案是C，但是D不也不是选择的依据吗？如果两个函数形参个数和类型都相同，只有参数名不同，合法吗？能作为重载函数吗？ 3 若已定义double使用语句area=Trgl_Area(3.5, 4, 6.2);调用求三角形面积函数，则下列式中是正确的函数原型说明。 A、floatTrgl_Area(float,int, float); B、intTrgl_Area(x, y, z); C、doubleTrgl_Area(double, double, double); D、int Trgl_Area(float x, float y, float z); 这一题为什么选D不选C 呢？ weishunmei1年前1: 咔_咔共回答了22个问题 | 采纳率90.9%

说说我的看法：B正确。C，调用时分配也是系统分配，不是程序员用代码分配；D，兼容就是相配的意思，相配并不一定要相同，就当是“可以”来理解吧。所以本题无歧意。我认为D才是正确答案。难道调用重载函数时能把与A函数的形参类型和个数对应相同的B函数当作被调函数吗？显然错误。所以函数名是必须选择的依据。在下认为C正确。D返回类型是int，有几个三角形的面积是int的？

1年前查看全部

输入精度e 和实数x,用下列公式求cos x 的近似值,精确到最后一项的绝对值小于e｡要求定义和调用函数f 输入精度e 和实数x,用下列公式求cos x 的近似值,精确到最后一项的绝对值小于e｡要求定义和调用函数funcos(e,x)求余弦函数的近似值｡ #include #include int main(void) { int x; double e; double funcos(double e,int x); printf("e:"); scanf("%lf",&e); printf("x:"); scanf("%d",&x); printf("cos(x)=%.3fn",funcos(e,x));x05 return 0; } double funcos(double e,int x) { int flag,i,n; double item,sum; double fact(int n); flag=1; n=0; i=0; sum=0； while(fabs(sum)>=e) { item=flag*pow(x,i)*1.0/fact(n); sum=sum+item; flag=-flag; i=i+2; n=n+2; } return sum; } x05 double fact(int n) { double product; int i; product=1; if(n==0) product=1; / * 不能用以下的算法吧?*/ else { for(i=1;i hstax1年前1: 高山和景行共回答了18个问题 | 采纳率72.2%

将
while(fabs(sum)>=e)
{
item=flag*pow(x,i)*1.0/fact(n);
sum=sum+item;
flag=-flag;
i=i+2;
n=n+2;
}
改为：
do
{
item=1.0*flag*pow(x,i)/fact(n);
sum=sum+item;
flag=-flag;
i=i+2;
n=n+2;
}while(fabs(item)>=e);
下面是在你的基础上修改的：
#include
#include
double funcos (double,int);
double fact (int);
int main(void)
{
int x;
double e;
printf("e: ");
scanf("%lf",&e);
printf("x: ");
scanf("%d",&x);
printf("cos(x)=%.3fn",funcos(e,x));
getch ();
return 0;
}
double funcos(double e,int x)
{
int flag,i,n;
double item,sum;
flag=1;
n=0;
i=0;
sum=0;
do
{
item=1.0*flag*pow(x,i)/fact(n);
sum=sum+item;
flag=-flag;
i=i+2;
n=n+2;
}while(fabs(item)>=e);//
return sum;
}

double fact(int n)
{
double product;
int i;
product=1;
if(n==0)
product=1; /* 0!不能用以下的算法吧?*/
else
{
for(i=1;i

1年前查看全部

从键盘输入一个正整数n,计算的值.要求定义和调用函数fact(n),计算n!,函数形参n的类型是int, 从键盘输入一个正整数n,计算的值.要求定义和调用函数fact(n),计算n!,函数形参n的类型是int, 5 (n=5) = 120.000000 #include int main(void) { int n; double factorial; double fact(int n); scanf ("%d",&n); /*---------*/ printf("%d!= %fn",n,factorial); } /*---------*/ cyj10yx1年前1: yqlqm168a 共回答了18个问题 | 采纳率88.9%

#include int main(void){ int n; double factorial; double fact(int n); scanf ("%d", n);factorial=fact(n); printf("%d! = %fn", n, factorial); return 0;}double fact(int n){ double m=1; int i; for(i=1;i<=n;i++) { m=m*i; } return m;}

1年前查看全部

在调用函数时,如果实参是简单变量,它与对应形参之间的数据传递方式是?A.地址传递B.单向传递C.由实参传给形参,再由形参 在调用函数时,如果实参是简单变量,它与对应形参之间的数据传递方式是?A.地址传递B.单向传递C.由实参传给形参,再由形参传回实参D.传递方式由用户指定 d2121aeewe1年前2: 宝宝猪3 共回答了28个问题 | 采纳率85.7%

D
如果用C＋＋,举个例子
void f( int a ) - 编译器申请一块int型给a来存放k值
void f( int * a ) - 编译器申请一个int型指针a来指向k
void f( int & a ) - 编译器直接引用k地址
k = 3;
f(k)

1年前查看全部

求算法：判断一个数是否为整数不要调用函数,不知道的请勿回答 一个男人两个蛋1年前3: snowman400 共回答了22个问题 | 采纳率81.8%

#include
bool dig(char x){return x>='0'&&x

1年前查看全部

vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中 PLABECK1年前1: 夏天是这样共回答了15个问题 | 采纳率80%

Public Function 偶数(ByVal N&) As Boolean
偶数 = (N Mod 2 = 0)
End Function
调用函数过程:
MsgBox 偶数(val(text1.text))

1年前查看全部

1. 调用函数,计算0~100之间不恩能够被7整除的所有整数的和 muma1231年前1: chenyangtao_1983 共回答了19个问题 | 采纳率94.7%

a=0 '和的变量
for i=0 to 100
if i mod 7 0 then a=a+i '如果不能被7整除,就是除7的余数不等于0的话,累加起来
next i
msgbox a

1年前查看全部

输入一个整数 in,输出其逆序数.要求定义并调用函数reverse(number),它的功能是返回number的逆序数, 输入一个整数 in,输出其逆序数.要求定义并调用函数reverse(number),它的功能是返回number的逆序数, 函数形参number的类型是int,函数类型是int.例如,reverse(12345)的返回值是54321. 输入输出示例：括号内是说明 输入 5 (repeat=4) 12345 (in=12345) -100 (in=-100) -2 (in=-2) 99 (in=99) 0 (in=0) 输出 54321 (12345的逆序数) -1 (-100的逆序数) -2 (-2的逆序数) 99 (99的逆序数) 0 (0的逆序数) #include int main(void) { long in,res; int ri,repeat; long reverse(long number); scanf("%d",&repeat); for(ri = 1; ri 活得很累的人1年前0: 共回答了个问题 | 采纳率

查看全部

输入x的值,调用函数计算sinx=x/1-x的3次方/3!+x的5次方/5!-x的7次方/7!+……+xn/n! ahxub1年前1: hero260 共回答了10个问题 | 采纳率90%

等于s 3.14159265358979323846

1年前查看全部

c++调用函数求长方体体积和三个面积,帮忙看看哪里错了 c++调用函数求长方体体积和三个面积,帮忙看看哪里错了 #include double main() { double scs(double,double); double vcv(double,double,double); double a,b,c,d,f,s,v; scanf("%d,%d,%d",&a,&b,&c); d=scs(a,b); printf("S1=%dn",d); f=scs(a,c); printf("S2=%dn",f); s=scs(b,c); printf("s1=%dn",s); v=vcv(a,b,c); printf("V=%dn",v); return 0; } double scs(double q,double w) { return(q*w); } double vcv(double a,double b,double c) { return(a*b*c); } qqtang781年前1: 绝对一小散共回答了16个问题 | 采纳率81.3%

#include
double main()
{
double scs(double,double);
double vcv(double,double,double);
double a,b,c,d,f,s,v;
scanf("%lf%lf%lf",&a,&b,&c);
d=scs(a,b);
printf("S1=%lfn",d);
f=scs(a,c);
printf("S2=%lfn",f);
s=scs(b,c);
printf("s1=%lfn",s);
v=vcv(a,b,c);
printf("V=%lfn",v);
return 0.0;
}
double scs(double q,double w)
{
return(q*w);
}
double vcv(double a,double b,double c)
{
return(a*b*c);
}
类型不匹配,double型输出时应该是%lf

1年前查看全部

vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中 vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中 vb2005 ouy_gg1年前1: yemao1008 共回答了19个问题 | 采纳率94.7%

假设文本框为TEXT1,标签为LABEL1,函数代码如下：
public sub testnum()
dim x as long
x=cint(text1.text)
if x mod 2 = 1 then
label1.caption="奇数"
else
label1.caption="偶数"
end if
end su

1年前查看全部

C程,输出m到n之间的斐波那契数列,要求调用函数fib(n)求第n项 C程,输出m到n之间的斐波那契数列,要求调用函数fib(n)求第n项 我输入1 10是可以输出的,但是输入20 100 就没有输出了,求指教! #include "stdio.h" #include "math.h" int main(void) { int i,m,n; int repeat,ri; long f; long fib(int n); int a,b,c; scanf("%d",&repeat); for(ri = 1; ri mayalufi1年前1: zizou06 共回答了16个问题 | 采纳率93.8%

#include "stdio.h"
#include "math.h"
int main(void)
{
int i, m, n;
int repeat, ri;
long f;
long fib(int n);
int a,b,c;
scanf("%d",&repeat);
for(ri = 1; ri =m)
printf("%ld ",f);
f=fib(i);
if(f>n) break;
}
printf("n");
}
}
long fib(int n)
{
long f;
if(n==1||n==2){
f=1;
}
else{
f=fib(n-1)+fib(n-2);
}
return f;
}

1年前查看全部

写一个函数,求2*4矩阵奇数个数,在主函数中调用函数并输出结果 秋水滢滢1年前1: 行走在停留之间共回答了23个问题 | 采纳率91.3%

int cal_odd(int a[2][4])
{
int cnt=0;
for(i=0;i

1年前查看全部

一道编程题,输入一个3╳4的数组,先找出每一行中的最大元素,再分别除该行中的所有元素,最后输出数组.要求：定义和调用函数 一道编程题, 输入一个3╳4的数组,先找出每一行中的最大元素,再分别除该行中的所有元素,最后输出数组. 要求：定义和调用函数处理数组中的元素,在函数中使用数组和指针各一次. 例如： 输入3╳4的数组： 1 2 3 4 5 6 7 8 9 10 11 12 输出： 0.25 0.50 0.75 1.00 0.63 0.75 0.88 1.00 0.75 0.83 0.92 1.00 过程不要用太过高深的东西,初学者. C++6.0.一定要根据要求,在函数中用数组和指针各一次! reizo1年前1: bearhyh 共回答了15个问题 | 采纳率86.7%

#include
void test()
{
double a[]={
1,2,3,4,
5,6,7,8,
9,10,11,12};
double* b = new double[3*4];
for(int i=0;i

1年前查看全部

VB：用调用函数的方法找出所有三位数的水仙花数.

共1条回复

相关推荐

大家在问