高校问答用粉扑擦粉底的正确方法如下:vb编程高手请进！！急急急
来源：百度文库 编辑：高校问答 时间：2024/05/06 13:07:49
1．编写过程计算1+1/2+1/3+….+1/100
2．编写过程打印如下图形
*
* *
* * *
* * * *
试题二：
制作一个标准WINDOWS界面，包括菜单、工具条、状态栏
要求： 菜单、工具条、状态栏内容不限
菜单中必须含有快捷方式、子菜单和一个弹出菜单(能在窗体上弹出)
状态栏有显示系统时间的功能
试题三：
时钟控件
制作一个计数器，每0.5秒数值加1，结果显示在标签中
试题四：文件系统对象
驱动器的访问（显示驱动器名称、总空间、可用空间）
我的邮箱twojump__2002@163.com我要现成的答案啊！请会做的帮我做一下谢谢！完成后我会追加分数的
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
跟你讲讲思路和方法行，帮你做现成的，那是害你。
现在的人，都不喜欢自己努力，喜欢得现成的，实在是看不过眼。
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
第二题
已发到你的邮箱
第三题
已发到你的邮箱
第四题
已发到你的邮箱
跟你讲讲思路和方法行，帮你做现成的，那是害你。
现在的人，都不喜欢自己努力，喜欢得现成的，实在是看不过眼。