Question

vb输入程序运行后,窗体空白的

Private Sub Command1_Click()
Imsge1.Visible = False '隐藏图像
Label1.Caption = Int(Rnd * 10) '得到随机数
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
'当某个标题为 7 时，显示图像并响铃
If (Label1.Caption = 7) Or (Label2.Caption = 7) _
Or (Label3.Capyion = 7) Then
Image1.Visible = True
Beep
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Answer 1

在设计时检查下各控件的Visible属性、位置及大小参数属性，运行后也检查下，用debug输出下。
估计是控件给隐藏掉或移出可见区域了。

Answer 2

看样子是没错啊，你直接定义一下Label1.Caption =7试试行不行
运行后要按command1这个按钮的。

追问

不行，关键是运行就是空白窗口，什么都没有，不知道是不是软件有问题啊

追答

我看是你不会用VB的问题，看来你要从头好好再学一学了，我只告诉你这段代码是没问题的，窗体要靠你自己加上去。
VB新建窗口只有标题栏加空白窗口，左边有一个个窗体要你自己托上去，双击写代码。

追问

这个不是窗体吗？难道不对？还是哪里出问题了？
我刚开始学···

追答

你运行后是什么样子？
双击spin这个按钮，里面的代码你打了吗？

追问

代码都是在spin里面打的，运行后就那样了

追答

我晕啊。。。。。你看看右上角，你是不是在工程下有两个窗体？

追问

是的，2个窗体，窗体一打不开

Answer 3

添加image图片框，给image图片框装入一张图片(它的picture属性).
程序如下：
Private Sub Command1_Click()
Image1.Visible = False '隐藏图像
Label1.Caption = Int(Rnd * 10) '得到随机数
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
'当某个标题为 7 时，显示图像并响铃
If (Label1.Caption = 7) Or (Label2.Caption = 7) _
Or (Label3.Caption = 7) Then
Image1.Visible = True
Beep
End If
End Sub

追问

已经添加了啊，不行啊

追答

菜单--工程-- ...属性---启动对像选择spin，然后运行。