1993年狮城辩论赛视频:请高手迅速帮我解决一下 ，谢谢！！！

(1) 执行以下程序段后，变量c$的值为
a$="Visual Basic Programing"
b$="Quick"
c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)
A) Visual BASIC Programing B) Quick Basic Programing
C) QUICK Basic Programing D) Quick BASIC Programing

(2) 为了把焦点移到某个指定的控件，所使用的方法是
A) SetFocus B) Visible C）Refresh D) GetFocus

(3) 设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为 。
A) 5 B) 6 C) 0 D) -1

(4) 执行下面的程序段后，x 的值为 。
x=5
For i=1 To 20 Step 2
x=x+i\5
Next I
A) 21 B) 22 C) 23 D) 24

(5) 在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()
a=Text1.Text+Text2.Text
Print a
End Sub
Private Sub Formm_Load()
Text1 Text=""
Text2 Text=""
End sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为 。
A) 444 B) 321123 C) 123321 D) 132231

(6) 在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
Private Sub Form_Load()
Ttext1.Text=""
Text1.SetFocus
For i=1 To 10
Sum=Sum+I
Next I
Text1.Text=Sum
End Sub
上述程序的运行结果是 。
A) 在文本框Text1中输出55 B) 在文本框Text1中输出0
C) 出错 D) 在文本框Text1中输出不定值

(7) 在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A) 1和0 B) 2和72 C) 3和50 D) 4和168

(8) 用下面语句定义的数组的元素个数是 。
Dim A (-3 To 5) As Integer
A) 6 B) 7 C) 8 D) 9

(9) 以下程序的输出结果是
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As Integer
k=5
For i=1 To 10
a(i)=I
Next I
For i=1 To 3
p(i)=a(i*i)
Next I
For i=1 To 3
k=k+p(i)*2
Next I
Print k
End sub
A) 33 B) 28 C) 35 D) 37

(10) inputBox函数反回值的类型为 。

A) 数值 B) 字符串 C) 变体 D) 数值或字符串（视输入的数据而定）