vb新操作题(含答案).doc

一、操作题，每题 10分，6 题共60分 【第4题】 打开文件“考生文件夹\175\工程1.vbp”，完善Command1_Click事件及s函数代码并保存。 实现功能：用递归法求1+2+3+…+100的值，结果输出在窗体上。 Public Function S(n As Integer) As Integer If n = 1 Then S = ① Else S = ② + S(n - 1) ①1 ①1 ②n ③100 End Function Private Sub Command1_Click() Dim Sum As Inte