vb程序设计实例100
我要现成的答案!采用后会追加分!!!!!试题一:函数和过程1.编写过程计算1+1/2+1/3+….+1/1002.编写过程打印如下图形**********是正三角形!试题...
我要现成的答案!
采用后会追加分!!!!!试题一:函数和过程
1.编写过程计算1+1/2+1/3+….+1/100
2.编写过程打印如下图形
*
* *
* * *
* * * *
是正三角形!
试题二:
制作一个标准WINDOWS界面,包括菜单、工具条、状态栏
要求: 菜单、工具条、状态栏内容不限
菜单中必须含有快捷方式、子菜单和一个弹出菜单(能在窗体上弹出)
状态栏有显示系统时间的功能
试题三:
时钟控件
制作一个计数器,每0.5秒数值加1,结果显示在标签中
试题四:文件系统对象
驱动器的访问(显示驱动器名称、总空间、可用空间)
邮箱924248042@qq.com 展开
采用后会追加分!!!!!试题一:函数和过程
1.编写过程计算1+1/2+1/3+….+1/100
2.编写过程打印如下图形
*
* *
* * *
* * * *
是正三角形!
试题二:
制作一个标准WINDOWS界面,包括菜单、工具条、状态栏
要求: 菜单、工具条、状态栏内容不限
菜单中必须含有快捷方式、子菜单和一个弹出菜单(能在窗体上弹出)
状态栏有显示系统时间的功能
试题三:
时钟控件
制作一个计数器,每0.5秒数值加1,结果显示在标签中
试题四:文件系统对象
驱动器的访问(显示驱动器名称、总空间、可用空间)
邮箱924248042@qq.com 展开
- 你的回答被采纳后将获得:
- 系统奖励15(财富值+成长值)+难题奖励30(财富值+成长值)
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
待续,未完...
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
Next i
End Sub
待续,未完...
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询