- 博客(0)
- 资源 (8)
- 收藏
- 关注
vb代码 求π的近似值
Private Sub Form_Click()
Print fun(100)
Print fun(1000)
Print fun(10000)
Print fun(100000)
End Sub
2009-05-16
用vb源代码编写的井子棋
在窗体上添加:
ChessBoard - PictureBox,AutoRedraw=true,width=3000,height=3000,Enabled=false
Command1 - Button,Caption="开战"
Command2 - Button,Caption="退出"
'White By RichTextBox (张力-广西百色市)
Option Explicit
Option Base 1
Dim cx As Long, cy As Long
Dim ch(3, 3) As Integer
Dim sco(3, 3) As Integer
'White By RichTextBox (张力-广西百色市)
Private Sub Command2_Click()
End
2009-05-12
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人