单选题在窗体上画一个水平滚动条，其属性值Min满足
单选题以下能够触发文本框Change事件的操作是( )。
单选题执行以下语句时，会出现错误提示的是__________。
单选题设有如下程序： Dim a()As Integer Private Sub Command1_Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1))；a(UBound(a，1)) End Sub 程序运行后，单击命令按钮，则输出结果是 ______。
单选题公司中有多个部分和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员，从职员到部门的联系类型是
A. 多对多
B. 一对一
C. 多对一
D. 一对多
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim x As Integer
x = -10 Mod -4
If x ＜ = -1 Then Print -1;
If x ＜ = -2 Then Print -2;
If x ＜ = -3 Then Print -3;
Print
End Sub
程序运行时，单击Command1，则在窗体上输出的结果是______。
单选题某人编写了下面的程序，希望能把Text1文本框中的内容写到out．txt文件中： Private Sub Command1_Click() Open"out．txt"For Output As #2 Print"Text1" Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是( )。
单选题在窗体上画一个文本框(Textl)，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4，KeyAscii) End Sub 程序运行后，在文本框Text1中输入A，则程序在窗体上的输出结果为
单选题为了用键盘打开菜单和执行菜单命令，第一步应按的键是______。
A.功能键F10或Alt
B.Shift+功能键F4
C.Ctrl或功能键F8
D.Ctrl+Alt
单选题下面程序计算并输出的是 Private Sub Command1_Click()
a=10:s=0 Do s=s+a*a*a:a=a-1
Loop Until a＜=0 Print s End Sub
A. 13+23+33+…+103的值
B. 10!+…+3!+2!+1!的值
C. (1+2+3+…+10)3的值
D. 10个103的和
单选题以下能够正确退出循环的是( )。
单选题设有语句Open "C:/Test.Dat" For OutPut As #1，则下列叙述中错误的是( )。
单选题能够将组合框Combol中最后一个数据项删除的语句为
单选题在窗体上添加一个按钮，名为Command1，然后编写如下的事件过程，输出结果为 Private Sub Comand1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+5 Next Next Next Print x End Sub
单选题设有如下程序： Private Sub Command1_Click() Dim sum As Double，x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是 ______。
单选题代数式x1-lal+ln10+sin(x2+2π)/cos(57°)对应的Visual
Basic表达式是{{U}} {{/U}}。
A.X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)
B.X1-Abs(A)+Log(10)+Sin(X2+2*π)/Cos(57*3.14/180)
C.X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)
D.X1-Abs(A)+Log(10)+Sin(X2+2*π)/Cos(57)
单选题以下关于VB文件的叙述中，错误的是______。
A.标准模块文件不属于任何一个窗体
B.工程文件的扩展名为.frm
C.一个工程只有一个工程文件
D.一个工程可以有多个窗体文件
单选题在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click() Dim a As Variant a= Array (1,2,3,4) j=1 for i=a To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub 运行上面的程序，单击命令按钮，其输出结果是______ 。
单选题以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容，在横线处应填写( )。 Private Sub Command1_Click() X=Val(Text1．Text) If_____________Then Print x Else Text1．SetFocus Text1．Text="" End If End Sub
单选题复选框的Value属性为0时，表示该复选框( )。
A. 未被选中
B. 被选中
C. 框内有灰色的勾
D. 操作有误