• 2022-06-07 问题

    在窗体上有一个Picture1图片框,没有加载图片,在当前文件夹下有一个位图文件pic02.bmp,并有下面的程序代码: Dim HasPic As BooleanPrivate Sub Picture1_Click() If HasPic Then Picture1.Picture = LoadPicture("") Else Picture1.Picture = LoadPicture("pic02.bmp") End If HasPic = Not HasPicEnd Sub关于这个程序运行时,下面叙述中正确的是________。 A: 第一次单击窗体,会在图片框中显示一个图片,再单击窗体,则删除图片 B: 第一次单击图片框,会在其中显示一个图片,再单击图片框,则删除图片 C: 第一次单击图片框,会清空图片框,再单击图片框,则在其中显示一个图片 D: 第一次单击窗体,会清空图片框,再单击窗体,则在图片框中显示一个图片

    在窗体上有一个Picture1图片框,没有加载图片,在当前文件夹下有一个位图文件pic02.bmp,并有下面的程序代码: Dim HasPic As BooleanPrivate Sub Picture1_Click() If HasPic Then Picture1.Picture = LoadPicture("") Else Picture1.Picture = LoadPicture("pic02.bmp") End If HasPic = Not HasPicEnd Sub关于这个程序运行时,下面叙述中正确的是________。 A: 第一次单击窗体,会在图片框中显示一个图片,再单击窗体,则删除图片 B: 第一次单击图片框,会在其中显示一个图片,再单击图片框,则删除图片 C: 第一次单击图片框,会清空图片框,再单击图片框,则在其中显示一个图片 D: 第一次单击窗体,会清空图片框,再单击窗体,则在图片框中显示一个图片

  • 2022-06-08 问题

    设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:Dim Flag As BooleanPrivate Sub Form_Load() Flag=TrueEnd SubPrivate Sub mnu1_Click(index As Integer) If Index=1 Then If Flag=True Then Form2.show mnu1(1).Caption="隐藏窗体2" Flag=False Else Form2.Hide mnu1(1).Caption="显示窗体2" Flag=True End If End If If Index=2 Then EndEnd Sub关于上述程序,以下叙述中错误的是______。 A: Index属性的值可以用来区分控件数组元素 B: Index为1的菜单项的标题可能会改变 C: 两个名称均为Mnu1的菜单项构成一个控件数组 D: 语句Form2.Hide将Form2卸载

    设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:Dim Flag As BooleanPrivate Sub Form_Load() Flag=TrueEnd SubPrivate Sub mnu1_Click(index As Integer) If Index=1 Then If Flag=True Then Form2.show mnu1(1).Caption="隐藏窗体2" Flag=False Else Form2.Hide mnu1(1).Caption="显示窗体2" Flag=True End If End If If Index=2 Then EndEnd Sub关于上述程序,以下叙述中错误的是______。 A: Index属性的值可以用来区分控件数组元素 B: Index为1的菜单项的标题可能会改变 C: 两个名称均为Mnu1的菜单项构成一个控件数组 D: 语句Form2.Hide将Form2卸载

  • 1