《“猜币程序”对象属性设置.ppt》由会员分享，可在线阅读，更多相关《“猜币程序”对象属性设置.ppt（5页珍藏版）》请在三一办公上搜索。
“猜币程序”主界面如下：,设置对象属性,Private Sub Command1_Click()Rem 定义x,n 为整型变量 Dim x As Integer Dim n As Integer Rem 模拟掷币程序 Randomize n=Int(2*Rnd)If n=1 Then Image1.Picture=LoadPicture(正.gif)Label2.Caption=正面 Else Image1.Picture=LoadPicture(背.gif)Label2.Caption=背面 End If Rem 判断程序 x=Val(Text1.text)If n=x Then Label3.Caption=哈，您猜对了！Else Label3.Caption=哈，您猜错了！End IfEnd Sub,“命令按钮”代码提示：,正、背面图片：,跟着老师操作：,1.启动VB6.0工具；,2.新建工程和窗体，添加各个对象，设置对象属性；,3.双击命令按钮，添加程序代码；,4.运行程序，观察结果。,
