单选题设有如下变量声明语句： Dim a,b As Bolean 则下面叙述中正确的是
单选题确定图片框Picturel在窗体上位置的属性是
单选题在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click( ) Dim Arr(10)As Integer For i = 6 To 10 Arr(i)= i - 3 Next i Text1.Text = Str(Arr(6)+ Arr(Arr(6)+ Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是________。
单选题设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：PrivateSubCommand1_Click()CD1.DialogTitle="打开文件"CD1.InitDir="C:"CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.txt"CD1.FileName=""CD1.Action=1IfCD1.FileName=""ThenPrint"未打开文件"ElsePrint"要打开文件"&CD1.FileNameEndIfEndSub但实际显示的对话框中列出了C:/下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是______。
单选题在窗本上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click( ) Timer1．______ End Sub Privale Sub Timer1_Timer( ) Text1.Text=Time End Sub 在______处应填入的内容是
单选题阅读下面的程序： Private Sub Form_Click( ) Dim m， n As Integer m = InputBox("请输入M的值") m = Val(m) m1 = m n = InputBox("请输入N的值") n = Val(n) n1 = n Do While n＜＞0 remin = m Mod n m = n n = remin Loop Print m1， n1， m End Sub 程序运行后，单击窗体，在输入对话框中分别输入16和24，则程序在窗体上的输出结果为________。
单选题窗体上命令按钮的事件过程如下： Private Sub Command1_Click() A="34":B="26":C="98" Print B+C+A End Sub 运行程序后，单击命令按钮，输出结果是( )。 A) "269834" B) 269834 C) 158 D) 程序运行出错
单选题设在窗体上有个文本框，然后编写如下的事件过程： 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”组合键，则在文本框中显示的是
单选题以下可以作为“容器”的控件是
单选题有如下的一个函数过程：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=kEnd Function 以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。Private Sub Command1_Click() Dim n As Long Dim r As Long n = CLng(n) r = fn(n) Print rEnd Sub
单选题阅读下面的程序段： For a=1 To 2 For b=1 To a For c=b To 2 i=i+1 Next Next Next Print i 执行上面的3重循环后，i的值为( )。 A) 4 B) 5 C) 6 D) 9
单选题以下关系表达式中，其值为False的是
单选题在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Label1的标签。程序如下： Private Sub Command1_Click( ) Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_timer( ) Label1.Caption = Time End Sub 当运行程序后，单击命令按钮，将在标签中显示的内容形式为________。
单选题窗体上有一个名称为Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程Private Sub Optionl_Click(Index As Integer) …End Sub 下面关于此过程的参数Index的叙述中正确的是
单选题以下能够触发文本框Change事件的操作是( ) A．文本框失去焦点 B．文本框获得焦点 C．设置文本框的焦点 D．改变文本框的内容
单选题单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While m◇n Do While m>n：m=m-n:Loop Do While m＜n：n=n-m:Loop Loop MyFund=m End Function
单选题设有下面程序代码：
Private Sub Command1_Click()
Dim a As Variant
a = Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75, 64)
m = a(0)
n = m
For k = 1 To UBound(a)
If a(k) > m Then
n = m
m = a(k)
ElseIf a(k) > n And a(k) <> m Then
n = a(k)
End If
Next k
Print n
End Sub
程序运行时的输出是
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim al(4, 4), a2(4, 4) For i=1 To 4 For j=1 To 4 a1(i, j)=i+j a2(i, j)=a1(i, j)+i+j Next j Next i Print al(3, 3); a2(3, 3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是______。
单选题下面程序运行后，语句“Print i”执行的次数是( )。 Privme Sub Form_Click() Dim i As Integer,j As Integer i＝0 Do i＝i＋1 Forj＝10 To 1 Step－3 i＝i+＋j Print i Next j Loop While i＜50 End Sub
单选题把数学表达式2y-6表示为正确的VB表达似乎应该是