杭州交通信息网经典传奇五层鬼屋:vb问题，求n！
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/02 00:53:29
1.求N!(N为自然数,最好用数组做)
2.有如下10个数:-2,73,82,-76,-1,24,321,-25,89,20,试编写程序,输出其中的每个负数,同时分别计算并输出正数之和及负数之和.
3.从键盘上输入字符,并对输入的字符进行计数,当输入的字符为“?”时,停止计数,输出结果.
我是初学者，所以语言尽量简单点，谢谢
2.有如下10个数:-2,73,82,-76,-1,24,321,-25,89,20,试编写程序,输出其中的每个负数,同时分别计算并输出正数之和及负数之和.
3.从键盘上输入字符,并对输入的字符进行计数,当输入的字符为“?”时,停止计数,输出结果.
我是初学者，所以语言尽量简单点，谢谢
第一个问题
Dim num , i
num=1
For i = 1 to n
num = num * i
Next i
第二个问题
Dim x,y as integer
Dim a(10)...
for i = 0 to ubound(a)
if a(i)>0 then
...
else
...
end if
next i
第三个问题
while i<>"?"
i = inputbox()
...
wend
在一个按键的单击事件里写入下代码：
Dim num , i
num=1
For i = 1 to n
num = num * i
Next i
需要注意的地方：此过程容易造成数值溢出，因为定义变量类型时容易忽略数值类型的取值范围。