用VB编程实现“看图猜成语”教学设计
发布网友
发布时间:2024-04-07 18:27
我来回答
共1个回答
热心网友
时间:2024-10-28 01:21
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 i
End Sub