单选题在窗体上建立通用对话框必须先将____添加到工具箱中。
单选题设窗体上有1个名称为Command1的命令按钮，并编写了下面的事件过程： Private Sub Command1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Print X，Y End Sub 运行程序后，当用鼠标单击命令按钮时，则输出的是( )。
单选题有如下程序：
Private Sub Form_Click()
x=50
For i=1 To 4
Y=InputBox("请输入一个整数")
Y=Val(y)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为______。
单选题窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的函数过程如下：
Private Sub Command1_Click()
Dim i As Integer
For i=1 To 500
Ifp(i)Then s=s+1
Next
Print s
End Sub
Private Function p(x As Integer)As Boolean
Ifx Mod 7<>0 Then
P=True
Else
P=False
End If
End Function
关于上述程序，以下叙述中正确的是
单选题有如下的一个函数过程：
Function fn(ByVal num As Long)
Dim k As Long
k=1:num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fn=k
End Function
通过以下事件过程调用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为______。
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数值")
n=CLng(n):r=fn(n)
Print r
End Sub
单选题在窗体上画一个文本框、一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
x=Int(Val(Text1.Text)+0.5)
Label1.Caption=Str(x)
End Sub
程序运行后，如果在文本框中输入28.653，然后单击命令按钮，则标签中显示的内容是
单选题设工程中有2个窗体：Form1、Form2、Form1为启动窗体。Form2中有菜单，其结构如表所示。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的Ascii码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见，否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfText1.Text="Teacher"ThenForm2.Input.Visible=TrueElseForm2.Input.Visible=FalseEndIfEndIfForm1.HideForm2.ShowEndSub程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是()A．把Form1中Text1文本框及相关程序放到Form2窗体中B．把Form1.Hide、Form2.Show两行移动至2个EndIf之间C．把IfKeyAscii=13Then改为IfKeyAscii="Teacher"ThenD．把2个Form2.Input.Visible中的"Form2."删去
单选题关于MDI窗体，下列说法正确的是{{U}} {{/U}}。
A.一个应用程序可以有多个MDI窗体
B.子窗体可以移到MDI窗体以外
C.不可以在MDI窗体上放置按钮控件
D.MDI窗体的子窗体不可以拥有菜单
单选题单击命令按钮时，下列程序代码的执行结果为 ( ) Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As Integer, y As Integer, z As Integer) SecProc＝FirProc(z, x, y)+x End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a＝2 :b=3 :c=4 Print SecProc(c, b, A) End Sub
单选题窗体上有1个名为List1的列表框，其中已经输入了若干个项目(如下图所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序。PrivateSubCommand1_Click()DimstrAsString,sAsString,kAsIntegers=Text1:str=""Fork=List1.ListCount-1To0Step-1IfInStr(List1.List(k),s)＞0Thenstr=str&List1.List(k)&""EndIfNextkIfstr=""ThenText2="没有匹配项目"ElseText2=strEndIfEndSub程序运行时，在Text1中输入”京”，单击命令按钮，则在Text2中显示的内容是()。
单选题下列各排序法中，最坏情况下的时间复杂度最低的是( )。
单选题下列操作说明中，错误的是______。
单选题窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明：Type Personname As String*8major As String*20End Type当单击命令按钮时，将两个文本框中的内容写入一个随机文件Test．dat中。设文本框中的数据己正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。
单选题在软件开发中，需求分析阶段可以使用的工具是( )。
单选题Visual Basic根据计算机访问文件的方式将文件分成3类，其中不包括( )。
单选题下列程序段的执行结果为{{U}} {{/U}}。 I=4
x=5 Do I=I+1
x=x+2 Loop Until I＞=7 Print"I=";I
Print"x=";x
A.I=4 x=5
B.I=7 x=15
C.I=6 x=8
D.I=7 x=11
单选题由高中数学可知，对于连续函数f(x)，若f(x1)与f(x2)值的符号相反，则在x1和x2之间必存在x0，使得f(x0)=0(该点称为“零点”)。设有VB函数：Private Function f(x As Single)As Single可以返回f(x)的值(函数体没有给出)。下面程序的功能是从键盘输入2个实数x1、x2，判断在x1、x2之间是否存在零点。
Private Sub Command1_Click()
Dim x1 As Single, x2 As Single
x1=InputBox("请输入一个实数x1")
x2=InputBox("请再输入一个实数x2")
If(______)Then
Print"在"; x1; "与"; x2; "之间存在零点"
Else
Print"不能确定在"; x1; "与"; x2; "之间是否存在零点"
End If
End Sub
Private Function f(x As Single)As Single
……
End Function
为使上面程序可以实现该功能，程序代码中横线处应填写的代码是
单选题下列程序运行后的输出结果是( )。 Function Fun(n) x=n*n Fun=x-11 End Fundion Private Sub Command1_Click() For k=1 To 2 y=Fun(k):Print y Next End Sub A) -10 -7 B) 10 8 C) 1 3 D) 0 4
单选题某窗体中有如图所示的各种控件：该窗体上没有______控件。
单选题对关系S和R进行集合运算，结果中既包含S中的所有元组也包含尺中的所有元组，这样的集合运算称为( )。