12月20日上机作业_第十二次上机作业

12月20日上机作业由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“第十二次上机作业”。

12月20日上机作业：

请写出下面程序的结果：

1、有如下过程代码：

Private Sub Command1_Click()

Static numa As Integer

Dim numb As Integer

numa=numa+2

numb=numb+1

print numa;numb

End Sub

连续单击命令按钮三次，在窗体上输出是

2、有如下代码：

Public Temp As Integer

Private Temp1 As Integer

Private Sub Form_click()

Dim Temp As Integer

Temp = 10

Form1.Temp = 20

Print Form1.Temp, Temp

Print Temp1

End Sub

Private Sub command1_click()

Temp1 = 30

Print Temp1

End Sub

上面的代码中，局部变量有，窗体变量有。

当单击窗体时，窗体显示；当单击命令按钮时，窗体上显示。注意：

窗体级变量和全局变量、局部变量可以同名

如果不同级定义的变量具有相同的名称,系统优先访问作用域小的变量。

3、在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码：

Private x As Integer

Private Sub Command1_Click()

Static y As Integer

Dim z As Integer

n = 10

z = n + z

y = y + z

x = x + z

Label1.Caption = x

Label2.Caption = y

Label3.Caption = z

End Sub

运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是__ __

4、有如下代码：

在Form1中：

Public x As Integer

Private Sub Form_Load()

x = 10

End Sub

Private Sub Form_Unload(Cancel As Integer)'关闭窗体1时，激活窗体2

Form2.Show

End Sub

在Form2中：

Public x As Integer

Private Sub Form_Click()

Print x

Print Form1.x

End Sub

Private Sub Form_Load()

x = 20

End Sub

当单击窗体2时，窗体2上显示。

5、当单击窗体第一次时，窗体上显示；当单击窗体第二次时，窗体上显示；当单击窗体第三次时，窗体上显示。

Public a As Integer

Dim b As Integer

Private Sub Form_Click()

Dim a As Integer

Static d As Integer

a = a + 1

b = b + 1

c = c + 1

d = d +

1Print a, b, c, d

End Sub

Private Sub Form_Load()

Dim c As Integer

c = 5

a = 10

b = 20

End Sub6、当单击窗体第一次时，窗体上显示；当单击窗体第二次时，窗体上显示；当单击窗体第三次时，窗体上显示。

Public a As Integer

Dim b As Integer

Private Sub Form_Click()

Static d As Integer

a = a + 1

b = b + 1

c = c + 1

d = d + 1

Print a, b, c, d

End Sub

Private Sub Form_Load()

Dim c As Integer

c =－9

a = 34

b =8

End Sub