1楼：匿名用户
function fun(byval w as integer)dim i,s as long
for i=1 to len(w)
s=s+val(mid(w,i,1))^2next
if s mod 5=0 then
fun=1
else
fun=0
end if
end function
c语言：编写一个函数fun其功能是: 判断一个整数w的各位数字平方之和能否被5整除 , 可以被5整除则返回1，
2楼：自我编程
#include
#include
#include
#include
intiscs(int);
intmain()
intiscs(intw)//可以整除返回trueelse
break;
}p=malloc(sizeof(char)*(i+2));
itoa(w,p,10);
for(i=0;i
vb求解题~谢谢
3楼：匿名用户
1.设三个变量:max,row,col;二重循环判断,分别存最大值,最值的行和列;
2.数据会溢出,在vb里解决这个问题比较复杂,自带的数据类型得不到精确值,可以考虑用数组实现,每个元素只存结果中的一位,注意元素1存个位,类推.
上面的第二个问题转化为:1!,2!
,3!....10!的和,即ary(n)=1/*最初始值,也就是1!
*/,sum(n)+=ary(n);下一步:把ary(n)各元素乘2得到2!,再做一次sum(n)+=ary(n);继续下一步:
把ary(n)各元素乘3得到3!,再做一次sum(n)+=ary(n);直接到ary(n)乘10.注意:
a.进位调整,也就是乘完后判断每一位,超过10就只保留个位,把10位以上的数字加到下一位数上(也就是人为的进行进位调整);b.最高位进位引起数组长度变化要用redim语句改变数组长度;c.
sum(n)在加ary(n)之前要保证长度大于等于ary(n)的长度,这样不会丢数;d.元素1存个位,元素2存十位...结果就要反过来写.
3.设整数为n
dim sum as integer
while n>0
dim tmp as integer
tmp = n mod 10
sum = sum + tmp * tmp
sum = sum / 10
n = n / 10
wend
if(sum mod 5=0) then
return 1
else
return 0
原理:能不能被5整除只要看个位,公当个位是5或0时能被5整除,所以只要留下个位就可以了.
4.以后的问题跟1一样没什么含量,自己去做吧,永远不动手就永远不会做.
4楼：**之家答题队
1.求二维数组中最大
dim a(2, 3) as integer
dim max as integer, row as integer, column as integer
a(1, 1) = 34: a(1, 2) = 34: a(1, 3) = 43
a(2, 1) = 34: a(2, 2) = 78: a(2, 3) = 12
dim i, j, m, n as integer
for i = 1 to 3
for i = 1 to 3
m = n = 0
if a(m)(n) < a(i)(j) then
m = i
n = j
end if
max = a(m)(n)
row = m
column = n
next
next
2.（事件）双击窗体
private sub form_dbclick()
dim a, s as long
for i = 1 to 10
a = 1
for j = 1 to i
a = a * j
next
s = s + a
next
msgbox s
end sub
3.编写函数fun其功能
function fun(w)
dim n
n = log(w) / log(10) + 1
if n mod 5=0 then
fun = 1
else
fun = k
end if
end function
4.事件）单击窗体
private sub form_click()
dim m&, n&
for x = n to m
y = 0
for i = 1 to (x - 1)
if x mod i = 0 then y = y + i
next i
if y = x then print x; "是一个完全数。"
next x
end sub
5.求两数m,n的最小公倍数
t1=m 't1,t2是临时变量
t2=n
g = iif(m < n, m, n)
do while g > 1
if m mod g = 0 and n mod g = 0 then exit do
g = g - 1
loop
print m & "与" & n & "的最小公倍数为：" & (t1*t2)/g
6.（事件）单击窗体
private sub form_click()
dim sum as integer
sum = 0
s = 100
y = 500
dos = s + 1
if s mod 2 then
sum = sum + 1
end if
loop until s = y
print sum
end sub
7.对字符串进行加密处理
加密的思想是：
将每个字母c加（或减）一序数k，即用它后的第k个字母代替，变换式公式： c=chr(asc(c)+k)
例如序数k为5，这时 "a"→ "f"， "a"→ "f"，"b"→ "g"…
当加序数后的字母超过"z"或"z"则 c=chr(asc(c)+k -26)
例如：you are good→ dtz fwj ltti
解密为加密的逆过程
将每个字母c减（或加）一序数k，即 c=chr(asc(c)-k),
例如序数k为5，这时 "z"→"u"， "z"→"u"，"y"→"t"…
当加序数后的字母小于"a"或"a"则 c=chr(asc(c)-k +26)
下段程序是加密处理：
i = 1: strp = ""
nl = len(rtrim(stri))
do while (i <= nl)
strt = mid$(stri, i, 1) '取第i个字符
if (strt >= "a" and strt <= "z") then
ia = asc(strt) + 5
if ia > asc("z") then ia = ia - 26
strp = strp + chr$(ia)
elseif (strt >= "a" and strt <= "z") then
ia = asc(strt) + 5
if ia > asc("z") then ia = ia - 26
strp = strp + chr$(ia)
else
strp = strp + strt
end if
i = i + 1
loop
print strp
8.单击窗体
private sub form_click()
dim i as integer
dim s1, s2, s3 as integer
form1.cls
for i = 1 to 100
if i mod 5 = 0 then
print i;
s1 = s1 + i
end if
next i
print chr(13) & "1－100之间被5整除的数之和为：s1＝" & s1
for i = 1 to 100
if i mod 7 = 0 then
print i;
s2 = s2 + i
end if
next i
print chr(13) & "1－100之间被7整除的数之和为：s2＝" & s2
for i = 1 to 100
if (i mod 5 = 0) and (i mod 7 = 0) then
print i;
s3 = s3 + i
end if
next i
print chr(13) & "1－100之间被7和5整除的数之和为：s3＝" & s3
print chr(13) & "1－100之间被7或5整除的数之和为：s4＝" & s1 + s2 - s3
end sub
5楼：匿名用户
2.dim a,s as integer
for i=1 to 10
a=1for j=1 to i
a=a*j
next j
s=s+a
next i
c语言程序设计，编写函数判断一个整数m的各位数字之和能否被7整除，可以被7整除则返回1，否则返回0
6楼：匿名用户
#include
_bool fun(int m)
if(i%7)
return 0;
return 1;
}int main()
return 0;
}扩展资料：
c语言写规则：
1、一个说明或一个语句占一行。
2、用{} 括起来的部分，通常表示了程序的某一层次结构。{}一般与该结构语句的第一个字母对齐，并单独占一行。
3、低一层次的语句或说明可比高一层次的语句或说明缩进若干格后书写。以便看起来更加清晰，增加程序的可读性。在编程时应力求遵循这些规则，以养成良好的编程风格。
7楼：匿名用户
intsub(intm)
if(sum%7==0)return1;
elsereutrn0;
/**************end***************/}
8楼：匿名用户
#include
int main()
return 0;}
9楼：问道是非
好久不编程了，给你说下算法吧。
判断子程序：
只要求100-200之间所以m是一个三位数。
定义 a b c d sum yushu
先用m除以100取整数位为a，取余为b
用b除以10取整数为c，余数为d
然后sum=a+c+d
用sum除7取余为panduan
判断余数是否为0 yushu==0
跳转到1
否则跳转到0；
主程序：
简单循环i从100向后取到200
将i送子程序
若子程序运行结果为1则送i到数列a
若运行结果为0则跳回主程序继续执行
最后输出数列a就好了
思路就是这样，自己写吧