猜币程序对象属性设置.pptx

设置对象属性对象名对象名属性属性属性值属性值作作 用用Form1Caption猜币程序窗体标题栏上显示“猜币程序”Text1Text空文本框空白（等待输入0或1）Command1 Caption掷币命令按钮上显示“掷币”Image1StretchTrue自行调整图片大小Label1Caption请输入（1为正面、0为背面）：出现提示信息Label2Caption空标签空白（将显示“正面”或“背面”）Label3Caption空标签空白（将显示计算机判断结果）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.运行程序，观察结果。运行程序，观察结果。