哪里错了？（急！在线等）

2004-02-20 07:48:59 104 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

算法——错排问题今天我们再来学习一个比较简单的算法，今天我们学习的是错排问题，什么是错排问题呢？这样说吧，假如现在书架上放有10本书，每本书都有固定的位置，现在让你重新排列这些书，让新排好的每一本书都不在原来的位置问你有多少种排列的情况。假如我们用num数组来代表可能的情况，那么我们容易知道num[1]=0,num[2]=1; 前几个我们很容易就可以算出来，但是如果数字太大了，我们是不是就不能算出来了，现在我们... 阅读详情

Private Sub Command1_Click()
Winsock2.Connect
End Sub

Private Sub Command2_Click()
MsgBox Winsock2.State
Winsock2.SendData "hello"
End Sub

Private Sub Form_Load()
Winsock1.Listen
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str
Text2.Text = str
End Sub

Private Sub Winsock2_Connect()
MsgBox "c"
End Sub

...全文