Private Sub Command1_Click() Dim a(4) As String a(1) = "a" a(2) = "b" a(3) = "c" a(4) = "d" For i = 1 To 4 For j = 1 To 4 For x = 1 To 4 For y = 1 To 4 If i j And i x And i y And j ...
用VB编程实现“看图猜成语”教学设计
Private Sub Command1_Click() Dim a(4) As String a(1) = "a" a(2) = "b" a(3) = "c" a(4) = "d" For i = 1 To 4 For j = 1 To 4 For x = 1 To 4 For y = 1 To 4 If i <> j And i <> x And i <> y And j <> x And j <> y And x <> y Then Print a(i) & a(j) & a(x) & a(y) Next y Next x Next j Next iEnd Sub2016-11-23
