单选题设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)＞0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后，如果按“Shift+F2”组合键，则在文本框中显示的是
单选题用来设置在打印机上输出信息的命令是______。
单选题在以下描述中正确的是（ ）。
单选题窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是
____
。
单选题下列是一个循环结构的程序，循环体内的语句将执行的次数是 k=0 For i=1 to 100 For j=1 to 10 k=k+1 Next Next
单选题一个工程中含有窗体Form1、Form2和标准模块Modell，如果在Form1中有语句Public X As Integer，在Modell中有语句Public Y As Integer。则以下叙述中正确的是
单选题在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码： Privae Sub M1_Click(Index As Integer) Form1.Caption="myform2" End Sub 运行时，单击按钮数组中的第1个按钮，窗本标题为( )。
单选题在数据流图中，带有箭头的线段表示的是( )。
单选题在窗体上画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 程序运行后，单击命令按钮，则窗体上第二行和第三行显示的内容是________。