几道VB程序设计题，帮帮忙！！急要！！多谢

来源：百度知道 编辑：UC知道 时间：2024/06/09 08:17:29
一、对窗口Form Click事件编程，在窗体上输出下图金字塔图形。总行数通过键盘输入。（要求循环实现）
1
222
33333
4444444
二、①编程求：1-2+3-4+5-6+.......+99-100
②编程求：10！的值
③编程求：1+（1+2）+（1+2+3）+（1+2+3+4）+ ........+（1+2+3+4+5+ +99+100）
三、1.随机生成20个两位数数组，输出该数组的最大值，并输出最大值的下标。
2.随机生成20个正整数数组，输出该数组中的最大值。
四、1.窗体上有一个命令按钮，一个列表框，一个文本框共三个控件，名称分别为Command1,List1.Text1.请编程，要求单击命令按钮，会把公元1000年～2000年中的所有闰年放到List1，并计算这些闰年的和，放到Text1中。
2.窗体上有一个命令按钮，一个列表框，一个文本框共三个控件，名称分别为Command1,List1.Text1. 请编程，要求单击命令按钮，会把1000以内的质数放入List1中，并计算素养这些质数的和，放到Text1中。

一:
private sub form_click()
for i=1 to 4
print tab(8-i);string(i,str(i))
next i
二：
1@:
static sum as integer
sum=0
for i=1 to 100
sum=sum+i
i=i*(-1)
next i
print "sum=" & str(sum)
2@:
dim x%
x=1
for i=1 to 10
x=x*i
next i
print x
3@:
function sum(byval n as integer) as double
static sum as integer
sum=0
for i=1 to n
sum=sum+1
next i
end function
private sub command1_click()
static xs as double
xs=0
for i=1 to 100
xs=xs+sum(i)
next i
print xs
end sub
三:
1:
如下（）
2:
option base 1
private sub command1_click()
dim a(20)%
for i=1 to 20
a(i)=rnd*100
print a(i)
next i
dim max%
max=a(1)
for i=2 to 20
if a(i)>max then max=a(i)
next i
print str(max)
end sub

四：
private sub comand1_click()
static