设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Commandl的命令按钮。 Form1的代码如下: Public x As Integer Private Sub Form_Load() x=1 y=5 End Sub Private Sub Commandl_Click() Form2.Show End Sub Form2的代码如下: Private Sub Commandl_Click() Print Form1.x,y End Sub Module1的代码如下: Public y As Integer 运行以上程序,单击Form1的命令按钮Commandl,则显示Form2;再单击Form2上的命令按钮Commandl,则窗体上显示的是______。
A: 1 5
B: 0 5
C: 0 0
D: 程序有错
A: 1 5
B: 0 5
C: 0 0
D: 程序有错
举一反三
- 设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:Public x As IntegerPrivate Sub Form_Load()x=1:y=5End SubPrivate Sub Command1_Click()Form2.ShowEnd SubForm2的代码如下:Private Sub Command1_Click()Print Form1.x,yEnd SubModule1的代码如下:Public y As Integer运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是 A: 1 5 B: 0 5 C: 0 0 D: 程序有错
- 设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:Public x As IntegerPrivate Sub Form_Load()x=1y=5End SubPrivate Sub Command1_Chck()Form2.ShowEnd SubForm2的代码如下:Private Sub Command1_Click()Print Form1.x,yEnd SubModule1的代码如下:Public y As Integer运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是()。 A: 1 5 B: 0 5 C: 0 0 D: 程序有错
- 在名为“Form 1”的窗体上添加3个文本框和一个命令按钮,其名称分别为“txt1”、“txt2”、“txt3”和“Commandl”,然后编写如下两个事件过程: Private Sub Commandl_Click() txt3=txt1+txt2 End Sub Private Sub Form1_Load() txt1="" txt2="" txt3="" End Sub 当打开窗体Form1后,在txt1和txt2中分别输入3和5,然后单击命令按钮Commandl, 则文本框txt3中显示的内容为______。
- 当双击窗体Form1时,要将窗体Form1隐藏起来、将窗体Form2以模式方式显示出来的事件过程,正确的是 A: Private Sub Form _ Db1Click( )Forml.HideForm2.Show 0End Sub B: Private Sub Form _ Db1Click( )Form1.HideForm 2.Show 1End Sub C: Private Sub Form _ Click( )Form l.HideForm 2.ShowEnd Sub D: Private Sub Form _ Dbl Click( )Form l.Enabled=FalseForm 2.Enabled=TrueEnd Sub
- 工程中有2个窗体,名称分别为Form1、Form2,Form1为启动窗体,该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是______。 A: Private Sub Command1_Click() Form2.Visible End Sub B: Private Sub Command1_Click() Form2.Show End Sub C: Private Sub Command1_Click() Form2.Load End Sub D: Private Sub Command1_Click() Load Form2 End Sub