選件基礎1
Dim i為整數，j為整數，Op1為整數，Op為整數
Dim a(5，5)作為整數的全局數組
私有子命令1_Click()
對於i = 1到5
對於j = 1到5
a(i，j)= Int(90 * Rnd(1))+10
打印a(i，j)；
下壹個j
打印
接下來我
末端接頭
私有子命令2_Click()
Text1 = " "
Cls
末端接頭
Private Sub Opt_Click()
整數形式的點心
總和= 0
Op1 = Val(Text1)
Op = 0
選擇案例操作
案例0
對於i = 1到5
對於j = 1到5
如果i = j，那麽
總和=總和+ a(i，j)
如果…就會結束
下壹個j
接下來我
Text1。文本=總和
打印文本1
案例1
對於i = 1到5
對於j = 5到1
如果i + j = 6，那麽
總和=總和+ a(i，j)
如果…就會結束
下壹個j
接下來我
Text1。文本=總和
打印文本1
結束選擇
末端接頭
私有子選項1_Click()
整數形式的點心
總和= 0
對於i = 1到5
對於j = 1到5
如果i = j，那麽
總和=總和+ a(i，j)
如果…就會結束
下壹個j
接下來我
Text1。文本=總和
打印文本1
末端接頭
私有子選項2_Click()
整數形式的點心
總和= 0
對於i = 1到5
對於j = 1到5
如果(i + 6 - j = 6)那麽
總和=總和+ a(i，6 - j)
如果…就會結束
下壹個j
接下來我
Text1。文本=總和
打印文本1
末端接頭