单选题在窗体上画2个名称分别为Text1和Text2的文本框，然后编写如下事件过程：
Private Sub Form_Load()
Show
Text1.Text = "China Beijing"
Text1.SetFocus
End Sub
Private Sub Text1_LostFocus()
Text1.SelText = "Tianjin"
End Sub
运行程序，在Text1中用鼠标选中文本：Beijing，然后单击Text2，则Text1中的内容为
单选题Visual Basic中工程文件的扩展名是( )。
单选题在n(n＞0)个元素的顺序栈中删除，1个元素的时间复杂度为______。
单选题在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。编写如下程序PrivateSubForm_Load()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand1_Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)EndSubFunctionf(ByValxAsInteger,ByValyAsInteger)DoWhiley<>0tmp=xModyx=yy=tmpLoopf=xEndFunction运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。
单选题窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图所示)，就可以把文本框中的内容写到文件Out.txt中，每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是{{U}}{{/U}}。A.PrivateSubCommand1_Click()Open"Out.txt"ForInputAs#1Print#1,Text1.TextClose#1EndSubB.PrivateSubCommand1_Click()Open"Out.txt"ForOutputAs#1Print#1.Text1.TextClose#1EndSubC.PrivateSubCommand1_Click()Open"Out.txt"ForAppendAs#1Print#1.Text1.TextClose#1EndSubD.PrivateSubCommand1_Click()Open"Out.txt"ForRandomAs#1Print#1.Text1.TextClose#1EndSub
单选题下列程序段的执行结果为______。Dim m(3，3)As IntegerDim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i= 0 To 3 For j= 0 To 3 x=x +m(i，j) Next Next Print x A) 3 B) 4 C) 5 D) 6
单选题在窗体上画一个名称为Text1的文本框，并编写如下程序：Option Base 1Private Sub Form_Click() Dim arr Dim Start As Integer,Finish As Integer 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=c End Sub运行程序，单击窗体，则在文本框中显示的是
单选题假定有如下的窗体事件过程： Private Sub Command1_Click() a$="Microsoft Visual Basic" b$=Riqht(a$, 5) c$=Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是______。
单选题假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Next i Fun=S1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim Str1 As String，Str2 As String Str1=Input Box(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为
单选题有以下程序段，单击Command1按钮后，屏幕上的输出结果是( )。 Private Sub Command1_Click() For i=6 To 9 Print Tab(i*i),i Next i End Sub
单选题下列程序段的执行结果是( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(N,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next M
单选题在窗体上画一个名称为Command1的命令按钮。有下列程序： Option Base 1 Private Sub Command1_Click( ) Dim a a = Array(45, 27, 34, 24, 91, 37, 11, 67, 82, 63) For i = 1 To 9 For j = i + 1 To 10 If a(i)＞ a(j)Then a1 = a(i) a(i)= a(j) a(j)= a1 End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub 程序运行后，单击命令按钮，则窗体上第二行和第三行显示的内容是________。
单选题两个或两个以上的模块之间关联的紧密程度称为( )。
单选题执行如下两条语句后，窗体上显示的是______。
a=9.8596
Print Format(a,"$00,00.00")
单选题为了使列表框中的项目呈多列表显示，需要设置的属性为
单选题在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Text1，再编写
如下程序： Dim ss As String Private Sub Text1
KeyPress (KeyAscii As Integer) If Chr (KeyAscii)＜＞""Then
ss=ss+Chr (KeyAscii) End Sub Private Sub
Commandl_Click () Dim m As String,i As Integer
For i=Len(ss)To 1 Step-1 m=m+Mid (ss,i,1)
Next Text1.Text=UCase (m) End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是______。
A.NUMBER 100
B.REBMUN
C.REBMUN 100
D.001 REBMUN
单选题没有两个串p和q,求q在p首次出现位置的运算称作
单选题用函数RECNO()测试一个空数据表文件，其结果一定是( )
单选题有两个关系R和T，如下页图所示，则由关系R得到关系T的操作是
单选题线性表的顺序存储结构和线性表的链式存储结构分别是