单选题下面( )不是VB的文件系统控件。
单选题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a(10)As Integer,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
程序运行后，单击命令按钮，输出结果是
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim x As Integer，y As Integer x=41 : y=54 Call sub1(x，y) x=x+1 Print x；y End Sub Private Sub sub1(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub 程序运行后，单击命令按钮．则窗体上显示的内容是______。
单选题假定有下面的过程：
Function Func(a As Integer,b As Integer)As Integer
Static m As Integer,i As Integer
m=0
i=2
i=i+m+1
m=i+a+b
Func=m
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim k As Integer,m As Integer
Dim p As Integer
k=4
m=1
P=Func(k,m)
Print p;
P=Func(k,m)
Print p
End Sub
程序运行后，单击命令按钮，输出结果为
单选题以下叙述中错误的是
单选题假设x的值为5，则在执行以下语句时，其输出结果为"Ok"的SelectCase语句是()。
单选题设置标签边框的属性是( )。
单选题某人编写了向随机文件中写一条记录的程序，代码如下： Type RTvpe Name As String*10 Tel As String* 20 End Type Private Sub Command1_Click() Dim P As RType P．Name=InputBox(“姓名”) P．Tel=InputBox(“电话号”) Open”Books．dat“For Random As#1 Put#1，，P Close#1 End Sub该程序运行时有错误，修改的方法是( )。
单选题以下关于VB对象属性的叙述中，错误的是( )。
单选题指令“Circle(1500，1200)，1000，，，，0．5”将会绘制出的图形为( )。
单选题下面叙述中错误的是
单选题下列程序的执行结果为 Ptivate Sub Commandl_Click() Dim FirStr As String FirStr="abcdef" Print Pct (FirStr) End Sub Private Function Pct(xStr As String)As String Dim tempStr As String,strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1) i=i + 1 Loop Pct=tempStr End FunCtion
单选题要使文本框Text1不可用且文字居中，可以用以下语句 ______。
A. Text1. Enabled = False Text1.Alignmem = 2
B. Text1. Enabled = False Text1. Alignment = 0
C. Text1. Enabled = True Text1. Alignment = 0
D. Text1. Enabled = True Text1. Alignment = 1
单选题文件是{{U}} {{/U}}构成的数据集合。
A.字段
B.字符
C.记录
D.汉字
单选题窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_Clcik() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next k Print s End Sub
单选题设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：Private SubCommandl_Click()Dim s As String，ch As String s=“”For k=1 To Len(Text1)ch=Mid(Text1，k，1)s=ch+s Next k Text1．Text=s End Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是
单选题数据字典（DD) 所定义的对象都包含于
单选题以下程序的输出结果是 ______。 Dim n(2,2), i, j As Integer For i = 0 To 2 For j = 0 To 2 n(i,j) = i + j Next j Next i For i = 0 To 1 For j = 0 To 1 n(i+ 1 ,j + 1) = n(i + 1,j + 1) + n(i, j) Next j Next i Print n(i, j)
单选题下面程序的执行结果是______。
Private Sub Command1_Click()
a=10
For k=1 To 5 Step-1
a=a-k
Next k
Print a;k
End Sub
单选题有如下函数过程： Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a，b) Print x End Sub