下面程序： Private Sub Command1_Click（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）
第1题：
在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single，Y As Single) Phnt“程序设计” End Sub Private Sub Textl_KeyDow
A．Visual Basic
B．程序设计
C．A程序设计
D．VisualBasic程序设计
第2题：
有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。
A．Private Sub Form_Click() PopupMenu cut End Sub
B．Private Sub Command1_Click() PopupMenu edit End Sub
C．Private Sub Form_Click() PopupMenu edit End Sub
D．Private Sub Form_Click() PopupMenu cut End Sub
第3题：
下面程序运行后，窗体中显示【 】。
Private Sub Command1_Click) ( )
aS ="*" :b$ ="$"
For k = 1 To 3
x$ =Strings (Len(a$) +k,b$ )
Print x $;
Next
End Sub
第4题：
下面程序的输出结果是【 】。
Private Sub Commandl_Click( )
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a( )
a(i) = 20
Next i
Print a(2)
End Sub
第5题：
在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_Click()
x=1
Do While 【 】
x=x+2
Loop
End Sub
第6题：
阅读下面的程序：
Private Sub Form_Click（）
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为______。
10
第7题：
下面程序运行的结果为
1
11 12
21 22 23
31 32 33 34
请在画线处填上适当的内容使程序完整。
Private Sub Form_Click()
Call [13]
End Sub
Private Sub Pl6()
End Sub
Private Sub p16()
ForI=1 to 4
Forj=1 to I
a= [14]
Print Tab(j-
第8题：
执行下面的程序段，x的值为【 】。
Private Sub Command1_Click()
For i=1 To 9
a=a+i
Next
x=Val(i)
MsgBox x
End Sub
第9题：
设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer … Call D(a) 如下过程定义巾，正确的是（ ）。
A.Private Sub p(a As Integer)
B.Private Sub p(a（ ）As Integer)
C.Private Sub p(a(10)As Integer)
D.Private Sub p(a(n)As Integer)
第10题：
执行下面的程序，消息框里显示的结果是_______。
Private Sub Form_Click()
Dim Str As String
Str=""
S="Access"
Fori=Len(S)To 1 Step-l
Str=Str&Mid(S，i，1)
Next i
MsgBox Str
End Sub