单选题窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明TyPePersonnameASString*8majorASString*20EndTyPe当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是A．Open"c：/Test29.dat"ForRandomAs#1Put#1，1，pC10se#1B．OpeH"c：/Test29.dat"ForRandomAs#1Get#1，1，pC108C#1C．Open"c：/Test29.dat"ForRandomAs#1Len=Len(p)Put#1，1，pC108C#1D．OPell"c：/Test29.dat"For，RandomAs#1Len=Len(p)Get#1，1，pC106e#1
单选题下列各种形式的循环中，输出“*”的个数最少的循环是( )。 A) a=5:b=8 Do Print a=a+1 Loop While a＜b B) a=5: b=8 Do “*” a=a+1 Loop Until a＜b C) a=5: b=8 Do Until a-b Print“*” b:b+1 Loop D) a=5: b=8 Do Until a＞b Print“*” a=a+’1 Loop
单选题在窗体上画一个名称为Combol的组合框，名称为Text1的文本框，以及名称为Command1的命令按钮，如图所示。运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下：PrivateSubCommand1_Click()IfText1.SelLength＜＞0ThenElseCombo1.AddItemText1EndIfEndSub程序中横线处应该填写的是______。
单选题设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：PrivateSubCommand1_Click()CD1.DialogTitle="打开文件"CD1.InitDir="C:"CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.txt"CD1.FileName=""CD1.Action=1IfCD1.FiteName=""ThenPrint"未打开文件"ElsePrint"要打开文件"&CD1.FileNameEndIfEndSub但实际显示的对话框中列出了C:/下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是()。A)把CD1.Action=1改为CD1.Action=2B)把"CD1.Filter="后面字符串中的"所有文件"改为"文本文件"C)在语句CD1.Action=1的前面添加：CD1.FilterIndex=3D)把CD1.FileName=""改为CD1.FileName="文本文件/
单选题下列关于通用对话框CommonDialog1的叙述中，错误的是( )。 A) 只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开 B) 使用CommonDialog1. ShowColor方法，可以显示“颜色”对话框 C) CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告 D) 在显示“字体”对话框前，必须先设置CommonDialog1的Flags属性，否则会出错
单选题表达式12 / 2/4的值是( )。
单选题假定有如下事件过程： Phvate Sub Form_Click() DimXASInteger，nASInteger x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Ptint x,n End Sub 程序运行后，单击窗体，输出结果为______。
单选题在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i=2 To 4 For j=2 To 4 arr(i,j)=j*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是( ) A．12 B．13 C．14 D．15
单选题下列选项中，不属于数据管理员(DBA)职责的是( )。
单选题以下语句的输出结果是（ ）
A=Sqr(3)
Print Format(a,"$$####.###")
单选题以下不能触发滚动条Change事件的操作是
单选题文本框控件中将Text的内容全部显示为所定义的字符的属性项是
单选题设已打开5个文件，文件号为1、2、3、4、5。要关闭所有文件，则以下语句正确的是( )。
单选题设有如下的程序段：
n=0
For j=1 To 3
For j=1 To i
For k=j To 3
n=n+1
Next k
Next j
Next i
执行上面的程序段后，n的值为______。
单选题满足下列条件之一的年份是闰年： 1)年份能被4整除但不能被100整除
2)年份能被400整除 若y代表年份，下面判断闰年的正确表达式是______。
A.y Mod 4 And y Mod 100 0r y Mod 400
B.y Mod 4=0 0r y Mod 100＜＞0 And y Mod 400=0
C.y Mod 100＜＞0 And(y Mod 4=0 0r y Mod 400=0)
D.y Mod 4=0 And y Mod 100＜＞0 0r y Mod 400=0
单选题在窗体上画一个名称为File1的文件列表框，并编写如下程序：
Private Sub File1_DblClick()
x=Shell(File1.FileName,1)
End Sub
以下关于该程序的叙述中，错误的是______。
单选题在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click()
X=5: Y=3
Call proc(X,Y)
Label1.Caption=X
Label2.Caption=Y
End Sub
Private Sub proc(a As Integer,ByVal b As Integer)
X=a*a
Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。
单选题为了在按下回车键时执行某个命令按钮的事件过程，需要将该命令按钮的一个属性设置为 True，这个属性是
单选题有三个关系R、S和T如下：由关系R和S通过运算得到关系T，则所使用的运算为()。
单选题设有数组声明语句： Option Base 0 Dim b(-1 To 10, 2 To 9, 20)As Integer 则数组B中共有______个元素。