中科新闻网通达康老年人上当:谁有VB的C/S结构的聊天程序代码吗
来源：百度文库 编辑：中科新闻网 时间：2024/04/20 15:57:03
谢谢了发一下哦~~~都需要哪些部件 部件的英文名字 都说一下哦谢谢
回答：8star8star8
新手
6月12日 20:53 Private Sub form_load()
Dim arr(1 To 8) As Integer
Dim i As Integer
Dim sum1, sum2 As Integer
Me.AutoRedraw = True
Print vbCrLf & "随机生成的八个数"
Randomize
For i = 1 To 8
arr(i) = Int(Rnd * 100 + 1)
Print i & ")" & arr(i) & " ";
Next
Print vbCrLf
print "游戏一"
For i = 1 To 2
sum1 = sum1 + arr(i) + arr(9 - i)
Print i & ")" & arr(i) & " " & 9 - i & ")" & arr(9 - i) & " ";
Next
Print
Print "游戏二"
For i = 1 To 2
sum2 = sum2 + arr(2 + i) + arr(7 - i)
Print 2 + i & ")" & arr(2 + i) & " " & 7 - i & ")" & arr(7 - i) & " ";
Next
Print vbCrLf
If sum1 = sum2 Then
Print "游戏一" & sum1 & "(平局) VS 游戏二" & sum2 & "(平局)"
Else
If sum1 > sum2 Then
Print "游戏一" & sum1 & "(胜) VS 游戏二" & sum2 & "(输)"
Else
Print "游戏一" & sum1 & "(输) VS 游戏二" & sum2 & "(胜)"
End If
End If
End Sub