VB面向对象程序设计实习报告.docVIP

2011年5月 实习目的 熟练掌握面向对象的概念、特点和基本的程序设计方法，熟悉使用常用的算 法解决实际问题。 实习时间 第14周 实习地点 二机房、A302、五机房 实习内容 1、编写程序，将乘法“九九表”存入数组中，单击显示按扭，可以在当前窗口中显示出来；单击交换按扭后，弹出输入框，根据输入框里输入的数据交换乘法“九九表”任意两行的数据。 代码： Private Sub Command1_Click() Dim a(9, 9) As Integer For i = 1 To 9 For j = 1 To i a(i, j) = i * j Next j Next i For i = 1 To 9 For j = 1 To i Print i; *; j; ; =; a(i, j); vbTab; Next j Print Next i End Sub Private Sub Command2_Click() Dim a(9