单选题在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：
Dim SaveAll As String
Private Sub Form Load()
Show
Text1．Text=""
Text1．SetFocus
End Sub
Private Sub Command1 Click()
Text1．Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为( )。
单选题在面向对象方法中，实现信息隐蔽是依靠
单选题设M=3，N=5，P=4.5，Q=2.5，表达式(M*N＋2)/(P-Q)的计算结果为______。 A) 8 B) 9 C) 8.5 D) 8.0
单选题设变量x的值是845，则下面语句的输出是( )。Print x＼100+(x Mod 100)＼10+x Mod 10
单选题在窗体上画一个名称为Text1的文本框，并编写如下程序：Option Base 1Private Sub Form_Click() Dim arr Dim Start As Integer， Finish As Integer Dim Sum As Integer arr＝Array(12， 4， 8， 16) Start＝LBound(arr) Finish＝UBound(arr) Sum＝0 For i＝Start To Finish Sum＝Sum＋arr(i) Next i c＝Sum / Finish Text1.Text＝cEnd Sub运行程序，单击窗体，则在文本框中显示的是( )。
单选题以下关于文件的叙述中，错误的是
单选题如果要将窗体中的某个命令按钮设置成不可见状态，应该设置命令按钮的什么属性
单选题下列描述中，不符合良好程序设计风格要求的是
单选题从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是______。
单选题下面程序运行后，输出结果是______。
Private Sub mysub(b()As Integer,Optional ByVal n As Integer=2)
For I=1 to 4
b(I)=n*I
Next I
End Sub
Private Sub Command1_Click()
Dim a(1 to 4)As Integer，I As Integer
Call mysub(a()，5)
Mysub a()
ForI=1 to 4
Print a(i);
Next
End Sub
A 1 5 10 15 20 B．2 4 6 8 C．出错 D．0 0 0 0
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub
Command1_Click() s=InputBox("Please input
Password:") If s <> "car" Then
Print "您无权使用!"
Else Print "谢谢使用!"
End If End Sub
程序运行后在输入框中输入"car"，则输出结果为__________。
A.您无权使用!
B.谢谢使用!
C.什么也没有
D.程序出错
单选题设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private
Sub Commandl Click() StatiC b As
Variant b=Array(1，3，5，7，9)
... End Sub
此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是
A. For i=0 To 5-1/2 tmp=b(i) b(i)=b(5-i-1)
b(5-i-1)=tmp Next
B. For i=0 To 5 tmp=b(i) b(i)=b(5-i-1)
b(5-i-1)=tmp Next
C. For i-0 To 5/2 tmp=b(i) b(i)=b(5-i-1)
b(5-i-1)=tmp Next
D. For i=1 To 5/2 tmp=b(i) b(i)=b(5-i-1)
b(5-i-1)=tmp Next
单选题使用FileListBox，如果只显示系统文件，需要设置的属性为____。
单选题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：
Microsoft Visual Basic Programming
然后编写如下事件过程：
Private Sub Command1_Click()
Open "d:/temp/outftxt" For Output As #1
For i=1 To Len(Text1.Text)
c=Mid(Text1.Text,i,1)
If c＞="A" And c＜="Z" Then
Print #1, LCase(c)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf.txt中的内容是______。
单选题窗体上有Command1、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click() m=InputBox("请输入一个正整数") ReDim a(m) End Sub Private Sub Command2_Click() m=InputBox("请输入一个正整数") ReDim a(m) End Sub 运行程序时，单击Command1后输入整数8，再单击Command2后输入整数4，则数组a中元素的个数是______。 A) 4 B) 5 C) 8 D) 9
单选题编写如下程序：Private Sub Commandl_Click() Dim a(3，3)As Integer，S As Integer For i=1 To 3 For j=1 To 3 a(i，j)=i*j+i Next i Next i S=0 For i=1 To 3 s=s+a(i，4-i) Next i Print s End Sub程序运行后，单击命令按钮Commandl，输出结果为
单选题已知x=10，表达式“x＞10 And x＜=100 Or 10 Mod 2=0"的值为( )。
单选题窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：Private Type x a As Integer b As IntegerEnd TypePrivate Sub Command1_Click() Dim y As x y.a＝InputBox("") If y.a/2＝y.a / 2 Then y.b＝y.a * y.a Else y.b＝Fix(y.a / 2) End If Text1.Text＝y.bEnd Sub 对以上程序，下列叙述中错误的是( )。
单选题在窗体上画一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框。当改变当前目录时，文件列表框中同步显示目录列表框中当前被打开目录中的文件，则所使用的事件过程是( )。
单选题以下变量名中合法的是( )。 A) x-2 B) 12abc C) sum_total D) print