Question

vb程序设计实例100

我要现成的答案！
采用后会追加分！！！！！试题一：函数和过程
1．编写过程计算1+1/2+1/3+….+1/100
2．编写过程打印如下图形
*
* *
* * *
* * * *
是正三角形！

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

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

试题四：文件系统对象
驱动器的访问（显示驱动器名称、总空间、可用空间）
邮箱924248042@qq.com

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

试题一.1

Private Sub Form_Click()
Print fs_sum(100)
End Sub
Function fs_sum(ByVal n As Integer) As Single
Dim s!, nc! '和与倒数
s=0
For i = 1 To n
nc = 1 / i
s = s + nc
Next i
fs_sum = s
End Function
试题一.2
Private Sub Form_Click()
For i = 1 To 4
Print Space(4 - i);
For j = 1 To i
Print "* ";
Next j
Print
Next i
End Sub
待续，未完...