写出并分析下列程序的运行结果:

请帮忙给出正确答案和分析，谢谢！

请帮忙给出正确答案和分析，谢谢！

分析下列程序，并写出运行结果【 】。

include＜iostream.h＞

void main(){

int x[10]：

int i=5，*ptr=x；

*(ptr+i)=10;

cout＜＜x[i]＜＜end1；

阅读下列程序并写出程序运行结果。

Private Sub Command1_Click()

x = 0

Do While x ＜ 60

x = (x + 3) * (x + 4)

n = n + 1

Loop

Text1.Text = Str(n)

Text2.Text = Str(x)

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

写出程序运行后，文件框Text3的结果。

阅读下列程序并写出程序运行结果。

Private Sub Form_Click()

Dim x As Integer

Static y As Integer

x = x + 2

y = y + 3

Form1.Print "x="; x, "y="; y

End Sub

写出程序运行时连续单击三次窗体后，Form1上的输出结果。

阅读下列程序并写出程序运行结果。

Private Sub Form_Click()

Dim A(1 To 3) As String

Dim c As Integer

Dim j As Integer

A(1) = "4"

A(2) = "8"

A(3) = "12"

c = 1

For j = 1 To 3

c = c + Val(A(j))

Next j

Print c

End Sub

写出程序运行时单击窗体后，窗体Form1上的结果。

请帮忙给出正确答案和分析，谢谢！

阅读下列程序并写出程序运行结果。

Public Sub change1(ByVal x As Integer, ByVal y As Integer)

Dim t As Integer

t = x

x = y

y = t

End Sub

Public Sub change2(x As Integer, y As Integer)

Dim t As Integer

t = x

x = y

y = t

End Sub

Private Sub Form_Click()

Dim a As Integer, b As Integer

a = 22: b = 33

change1 a, b

Form1.Print "A1="; a, "B1="; b

a = 22: b = 33

change2 a, b

Form1.Print "A2="; a, "B2="; b

End Sub

写出程序运行时，单击窗体Form1上的输出结果。

请帮忙给出正确答案和分析，谢谢！