VB编程的几个问题!!急!!!

Question

当然,我知道这么做是不HD的,可是,作业马上就要交了,书才看了一个礼拜,完全眩晕...求助,实在很急啊!!!!!!!!!!!!!!!!!
(告诉我怎么编这几道题~~高手啊~帮帮忙吧~~~)

1、计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+…，当第i项的值<1/10^4时结束。

规律：第I项的分母是前一项的分母加上表示有分母项开始的计数项。

2、随机产生10个30~100（包括30和100）的正整数，求最大值、最小值和平均值，并显示整个数组的值和结果。

3、输入整数n，显示出具有n行的杨辉三角形。显示一个具有8行呈直角三角形显示的杨辉三角形。

4、编一个函数过程MySin（x），求
MySin（x）=x/1-x^3/3!+x^5/5!-x^7/7!+……+(-1)^(n-1)*x^(2n-1)/(2n-1)!。
当第N项的精度小于1/10^5时结束计算，X为弧度。主调程序同时调用MySin和内部函数Sin，进行验证。

5、用单循环显示有规律图形。如下：
1
222
33333
4444444
555555555
66666666666
7777777777777
888888888888888
99999999999999999
0000000000000000000
不好意思,最后一题显示效果出了问题,是呈三角形排列下来的...

Answer 1

1
这个要写全局键盘钩子，vb做不来（或者说很困难），用vc写简单的多
2
这个简单，用无标题窗口，先截取屏幕，然后用SetWindowPos置顶就行，相关的例子搜索下就行了，不写了。

Answer 2

第2个会
首先form1
跟屏幕保护程序的
设置一样,
然后用个用个窗体总在前
的那个API
再用个
透明
API
把form1透明处理.

Answer 3

Private Sub Form_Load()
Dim x As Double, i%, sum As Double
x = 1: i = 1: sum = 0
Do Until x < 1 / 10 ^ 4
sum = sum + x
x = 1 / (1 / x + i)
i = i + 1
Loop
Me.Caption = sum
End Sub本回答被提问者采纳

Answer 4

呵呵,只喜欢做最后一个,因为其它的都做过太多次..

For i = 1 To 10
Print Tab(11 - i); String(i * 2 - 1, StrReverse(i))
Next