Question

vb编程高手请进！！急急急

试题一：函数和过程
1．编写过程计算1+1/2+1/3+….+1/100
2．编写过程打印如下图形
*
* *
* * *
* * * *

试题二：
制作一个标准WINDOWS界面，包括菜单、工具条、状态栏
要求： 菜单、工具条、状态栏内容不限
菜单中必须含有快捷方式、子菜单和一个弹出菜单(能在窗体上弹出)
状态栏有显示系统时间的功能

试题三：
时钟控件
制作一个计数器，每0.5秒数值加1，结果显示在标签中

试题四：文件系统对象
驱动器的访问（显示驱动器名称、总空间、可用空间）
我的邮箱twojump__2002@163.com我要现成的答案啊！请会做的帮我做一下谢谢！完成后我会追加分数的

Answer 1

http://zhidao.baidu.com/question/8834784.html
第一题:
'编写过程计算1+1/2+1/3+….+1/100
Private Function sum()
Dim i As Integer
For i = 1 To 100
sum = sum + (1 / i)
Next
End Function
'2．编写过程打印如下图形
'*
'* *
'* * *
'* * * *

Private Sub printStr()
Dim i As Integer
For i = 1 To 4
For j = 1 To i
Print "* "
Next
Print Chr(13)
Next
End Sub
跟你讲讲思路和方法行，帮你做现成的，那是害你。
现在的人，都不喜欢自己努力，喜欢得现成的，实在是看不过眼。

Answer 2

http://zhidao.baidu.com/question/8834784.html

Answer 3

第一题:
'编写过程计算1+1/2+1/3+….+1/100
Private Function sum()
Dim i As Integer
For i = 1 To 100
sum = sum + (1 / i)
Next
End Function
'2．编写过程打印如下图形
'*
'* *
'* * *
'* * * *

Private Sub printStr()
Dim i As Integer
For i = 1 To 4
For j = 1 To i
Print "* "
Next
Print Chr(13)
Next
End Sub

第二题
已发到你的邮箱

第三题
已发到你的邮箱

第四题
已发到你的邮箱

Answer 4

跟你讲讲思路和方法行，帮你做现成的，那是害你。
现在的人，都不喜欢自己努力，喜欢得现成的，实在是看不过眼。