所谓“拟办”是为（）所作的准备工作 A．拟办 B．催办 C．发文 D．督查

执行下面的程序，输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End Sub

A．1

B．2

C．8

D．0

执行以下程序后输出的是。 Private Sub Commandl_Click ch$ = "ABCDEFGH": Print Mid(Right(ch$, 6), Len(Left(ch$, 4)), 2) End Sub A．CDEFGH B．ABCD C．FG D．AB

A、CDEFGH

B、ABCD

C、FG

D、AB

（30 ）下面程序的输出结果是

Private Sub Command1_Click()

ch$= ” ABCDEF ”

proc ch

Print ch

End Sub

Private Sub proc(ch As String)

S= ””

For k=Len(ch) To 1 Step-1

s=s&Mid(ch,k,1)

Next k

ch=s

End Sub

A ） ABCDEF

B ） FEDCBA

C ） A

D ） F

执行以下程序,在窗体上输出()。

Private Sub Command1_Click()

Dim a(20)As Integer

For j = 1 To 20 Step 2

a(j)= j

Next j

Print a(1)+ a(2)+ a(3)AAAAAAAAa

End Sub

A. 4

B. 5

C. 6

D. 7

运行以下程序后，输出的图形是 Private Sub Command1_Click() Line(500，500)-(1000，500) Line(750，300)-(750，700) End Sub

A．一条折线

B．两条分离的直线段

C．一个伞形图形

D．一个十字形图形

窗体上有一个按钮和一个列表框，执行下列程序后的输出结果为【 】。

Private Sub Command1_Click()

List1.Addltem"China"

List1.Addltem"USA"

List1.Addltem"Japan"，1

Print List1.List(2)

End Sub

窗体上有两个按钮，则执行程序后按键盘Cance1键的输出结果是 【7】 。

Private Sub Command1_Click（）

Print "北京";

End Sub

Private Sub Command2_Click（）

Print "南京";

End Sub

Private Sub Form_Load（）

Command2.Cancel=True

Command1.Cancel=True

End Sub

窗体上有一个按钮和一个列表框，执行下列程序后，输出的结果为 Private Sub Command1_Click() List1.AddItem "Visual" List1.AddItem "Basic" List1.AddItem "Programming", 1 Print list1.List(2) End Sub

A．Visual

B．Basic

C．Programming

D．2