“猜币程序”对象属性设置.ppt
“猜币程序”主界面如下:,设置对象属性,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.运行程序,观察结果。,