帮忙编下VISUAL BASIC程序

来源：百度知道 编辑：UC知道 时间：2024/05/08 13:24:22
不用全作，能帮忙一道就行

1. 编写程序段，用随机函数产生10个1～100之间整数，输出最大值。
2. 编写程序，在数组A中输入10个整数，输出它们的平均值。
3. 编写程序段，输入一个字符串，统计其中空格的个数。
4. 编程输出1到100之间的素数。
5. 编写程序段，计算并输出下面多项式的和，直到其中的某一项小于10-5为止。
1+1/22+1/32+……
6. 编写程序段，用随机函数产生100个1～100之间的整数，输出大于等于50的数的个数。
7. 编写程序，在数组A中输入10个整数，输出其中的最小值。

1.
dim maxn as integer
manx=0
print "下列中个随机数中:"
randomize
for i=1 to 10
n=cint(1+100*rnd)
print cstr(n) & ",";
if n>maxn then maxn=n
next i
print "最大值是:" & cstr(maxn)

2.
dim a(10) as integer
dim sum as integer
sum=0
for i=0 to 9
a(i)=cint(inputbox("请输入第"&cstr(i)&"个元素"))
sum=sum +a(i)
next i
print "平均值为:" & cstr(sum/10)

且写二题吧,没时间了