1楼：匿名用户
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一样没什么含量,自己去做吧,永远不动手就永远不会做.
2楼：**之家答题队
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
3楼：匿名用户
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
想请高手解答这个vb题目，谢谢，**等，求解析
4楼：匿名用户
因为x是窗体级变量
来 窗体内任意源处改变x值 所有过程内都会随之改变x=5*5=25
y没有定义窗体级变量 只是局部变量 2个过程内的y 属于不相同的变量***mand1_click()里的y还是**rivate sub proc 里的y =3+3=6答案b
5楼：无线电_刘
答案 a
传值由2种方式 byval byref
byval
按值传递参数
按值传递参数时，传递的只是变量的副本。
回如果过程改变了这个
答值，则所作变动只影响副本而不会影响变量本身。用 byval 关键字指出参数是按值来传递的。
functions(byvalaasinteger)'a不会改变
a=a+1
endfunction
byref
按地址传递参数
按地址传递参数使过程用变量的内存地址去访问实际变量的内容。结果，将变量传递给过程时，通过过程可永远改变变量值。按地址传递参数在 visual basic 中是缺省的。
functionss(byrefaasinteger)'a改变变成a+1值
a=a+1
endfunction
高数问题求讲解！谢谢,高数题求讲解 谢谢
1楼 风凝彦歆 把ab放在空间直角坐标系中，其实线段ab的投影可以看做以a为原点建的坐标系，而b的投影在坐标 参考下图 分别就是在x y z上的坐标值！ 高数题求讲解 谢谢 2楼 之狼喜 解 已知一次函数y kx b k不等于0 经过 1，2 且当x 2时，y 1 ， 将坐标点代人一次函数y kx ...
求导数题，求解答过程谢谢,求导数，求解题过程谢谢
1楼 科学达人 把它放到e上，变成y e 1 x lnx 然后用复合函数求导，结果没算错的话是x 1 x 2 1 lnx 求导数，求解题过程谢谢 2楼 多开软件 解 2 题， lim n n n 1 n n 1 n n lim n n 1 n 1 1 n 2 n， 而lim n n 1 n 1 1 ...
高数题求解题过程，谢谢,高数题 求完整解题过程 谢谢
1楼 匿名用户 当x趋于 时， 4x 1 趋于 4x 2x 2x 因为极限为0，所以a 2，b 0 高数题 求完整解题过程 谢谢 2楼 枯藤 x趋于0正的函数极限是1，趋于0负的函数极限是 1所以它是跳跃间断点。求极限的话高中流量过了，趋于0负的时候直接带入，趋于0正属于无穷比无穷类型。 高数题，求...