VBA程序设计范例.docVIP

高考VBA程序设计解析 一、累加和问题： 1、基本问题 问题：编程计算1+2+3+…+100； 程序界面： 源代码: Private Sub Command3_Click() Dim s As Integer Dim i As Integer s = 0 For i = 1 To 100 Step 1 s = s + i Next i Text1.SetFocus Text1.Value = s End Sub Private Sub Command4_Click() DoCmd.Close acForm, VBA程序设计范例1 End Sub 2、问题拓展 拓展1：编程计算1+3+5