有没有VB程序的代码要制作一个加
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...全部
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。
收起
