设工程文件包含两个窗体文件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: 程序有错
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: 程序有错
- 设工程文件包含两个窗体文件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: 程序有错
- 在名为“Form1”的窗体上添加三个文本框和一个命令按钮,其名称分别为“txt1”、“txt2”、“txt3”和“Command1”,然后编写如下两个事件过程: Private Sub Command1_Click() txt3=txt1+txt2 End Sub Private Sub Form l_Load() txt1=" " txt2=" " txt3=" " End Sub 当打开窗体Form 1后,在txt1和txt2中分别输入3和5,然后单击命令按钮Command1,则文本框txt3中显示的内容为______。
- 在窗体中添加一个命令按钮 Command1 , 并编写如下程序 : Private Sub Command1_Click() x = InputBox(x) If x ^ 2 = 9 Then y = x If x ^ 2 < 9 Then y = 1 / x If x ^ 2 > 9 Then y = x ^ 2 + 1 Print y End Sub 程序运行时,单击命令按钮,在 InputBox 中输入 3 ,然后单击“确定”按钮,程序的运行结果为( )。
- 在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,显示结果为( )。