gis二次开发编程语言.docVIP

 变量与常量的应用 实验一：VBA中变量及Inputbox的应用 实验目的：熟悉掌握Inputbox的实例编程 Option Explicit Sub test() Dim M As String Dim N As String M = InputBox(请输入用户名:) N = InputBox(请输入密码:) MsgBox 您输入的用户名是: + M + + 您输入的密码是: + N End Sub 实验二：VBA中数组的定义和使用 实验目的：掌握VBA中的数组如何定义和使用以及单引号( ) ,rem的作用等 例如： 求1——100所有整数的和 Sub arr() Dim i As Integer 定义一个整形变量i Dim sum As Integer Rem 定义一个整形变量sum Dim arr1(1 To 100) As Integer For i = 1 To 100 arr1(i) = i sum = sum + arr1(i) Next MsgBox 您输入的用户名是： sum End Sub 实验三：VBA 中的判断语句 实验目的：熟悉掌握If…