运行下列程序：Dim x, yPrivate Sub Form_Click（)x = 1: y = 1: z = 1fun1 （1)Print x; y; zE

运行下列程序：Private Sub Command1_Click（)Dim x As Integer, n As Integern = 0Don = n ＋ 2

运行下列程序：Private Sub form_Click（)Dim xx = 0Do While x < 10x = x ＋ 3LoopMsgBox x

运行下列程序：Private Sub Form_Click（)Dim x As Integer, y As String, z As Stringy = &qu

运行下列程序：Private Sub Form_Click（)Dim y As Integer, x As IntegerDo Until x > 20x

运行下列程序：Dim bPrivate Sub Form_Click（)a = 1: b = 1Call fun1（a)Print "X = &quo

（23）下列程序运行时输出的结果是 Option Base 1 Const a=10 Priate Sub Form_Click（) Dim x（a)