单选题确定图片框Picture1在窗体上位置的属性是______。
A.Width和Height
B.Left和Top
C.Width和Top
D.Height和Left
单选题下列有关过程的叙述中错误的是( )。
单选题在设计阶段，假定在图片框Picturel中装入了一个图形，为了删除该图片框控件，应采用的正确操作是
单选题以下叙述中，正确的是______。
A.软件就是程序的集合
B.软件包括程序和文档
C.软件应包括程序清单及结果
D.软件就是文件
单选题在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Commandl_Click() x=0 Do While x<50 X=(x+2)*(x+3)：n=n+1 Loop Text1．Text=Str(n)：Text2．Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为
单选题如果一个菜单项的Enabled属性被设置为False，则程序运行时，该菜单项( )。
单选题下面列出的条目中，( )是数据库系统的组成成员。 Ⅰ．操作系统 Ⅱ．数据库管理系统 Ⅲ．用户 Ⅳ．数据库管理员 Ⅴ．数据库 A) Ⅱ、Ⅲ、Ⅳ和Ⅴ B) Ⅱ、Ⅳ和Ⅴ C) Ⅰ、Ⅱ、Ⅳ和Ⅴ D) 都是
单选题执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click()
Print "Click"； End Sub
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As
Single，Y As Single) Print "Donw" End
Sub Private Sub Form_MouseUp(ButtonAs Integer，Shift As
Integer，X As Single，Y As Single) Print "Up"
End Sub
A. DownUpClick
B. ClickDownUp
C. DownClickUp
D. UpDownCliek
单选题设有如下变量声明： Dim TestDate As Date
为变量TestDate正确赋值的表达方式是
A. TestDate=#1/1/2002#
B. TestDate=#"1/1/2002"#
C. TestDate=date("1/1/2002")
D. TestDate=Format("m/d/yy","1/1/2002")
单选题以下变量名中合法的是
单选题下列选项中，为字符串常量的是( )。
单选题与数学式子对应的VisualBasic表达式是
单选题以下能够触发文本框Change事件的操作是
单选题在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("请输入：")
If Flag Then
Printf(intNum)
End If
End Sub
Function f(x As Integer)As Integer
If X＜10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single )
Flag=True
End Sub
运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为
____
。
单选题在对象方法中，一个对象请求另一个对象为其服务的方式是通过发送{{U}} {{/U}}。
A. 调用语句
B. 命令
C. 口令
D. 消息
单选题设有如下程序段： x=2 For i=1 T0 Step 2 x=x+i Next i 运行以上程序后，x的值是
单选题下面关于多窗体操作的描述不正确的是______ 。
单选题设在当前目录下有一个名为“file.txt”的文本文件，其中有若干行文本。编写如下程序：
Private Sub Command1_Click()
Dim ch$,ascii As Integer
Open"file.txt"For Input As #1
While Not EOF(1)
Line Input #1.ch
ascii=toascii(ch)
Print ascii
Wend
Close #1
End Sub
Private Function toascii(mystr As String)As Integer
n=0
For k=1 To Len(mystr)
n=n+Asc(Mid(mystr,k,1))
Next k
toascii=n
End Function
程序的功能是______。
单选题阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。
单选题设有下列通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String, strL As Integer
tStr= ""
strL=Len(xStr)
i=strL/2
DO While i＜=StrL
tStr=tStr&Mid(xStr, i+1, 1)
i=i+1
Loop
Fun=tStr&tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1="ABCDEF"
Text1.Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是______。