单选题下列叙述中错误的是( ) A．列表框和组合框都有List属性 B．列表框有Selected属性，而组合框没有 C．列表框和组合框都有Style属性 D．组合框有Text属性，而列表框没有
单选题为了能将信息直接送往打印机，应该将Print方法的对象改为
单选题在利用菜单编辑器设计菜单时，为了把组合键＜Alt+O＞设置为“打开(O)”菜单项的访问键，可以将该菜单项的标题设置为( )。
单选题下列数据类型定义中，正确的是
单选题窗体的左右两端各有1条直线，名称分别为Linel、Line2；名称为Shape1的圆靠在左边的Linel直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：PrivateSubTimer1_Timer()Fork=Linel．X1ToLine2．X1Step100IfShape1．Left+Shape1．Width
单选题有如下程序，运行后输出s的值是______。 For j=1 To 20
x=2*j-1 If x Mod 3=0 0r x Mod 7=0
Then s=s+1 Next j Print s
A. 5
B. 9
C. 11
D. 15
单选题设有数组定义语句：Dima(5)AsInteger，Listl为列表框控件。下列给数组元素赋值的语句错误的是( )。
单选题表达式Str(Len("123"))+Str(77．7)的值是( )。
单选题窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。 Private Sub Commandl_Click() Picturel.Picture=LoadPicture("c：/picture.jpg") Picmrel.Cls Picturel.Print "picture" End Sub
单选题有如下一个Sub过程： Sub mlt (ParamArray numbers()) n=1 For Each x In numbers n=n * x Next x Print n End Sub在一个事件过程中如下调用该Sub过程： Private Sub Coinmand1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a，b，c，d End Sub 则运行该程序，结果为______。
单选题在窗体上画两个文本框(名称分别为Text1和Text2)和—个命令按钮(名称为Cotranand1)，然后编写如下事件过程：Private Sub Command1_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 程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。
单选题窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click()
x=15
Do While x＞0
x=x-3
x=IIf(Int(x/5)=x/5,x+2,x)
Loop
Print x
End Sub
程序运行后，单击命令按钮Command1，输出结果为______。
单选题设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStrAs String．strLAs Integer tStr="" strL=Len(xStr)i=1 Do While i＜=strL／2 tStr=tStr＆Mid(xStr，i，1)＆Mid(xStr，strL-i+1，1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abcdef"：Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是
单选题窗体上有一个名称为Labell的标签；一个名称为Timerl的计时器，其Enabled和Interval 属性分别为True和1000。编写如下程序： Dim n As Integer Private Sub Timer 1_Timer() ch=Chr(n+Asc("A"))：Labell．Caption=ch：n=n+1：n=n Mod 4 End Sub 运行程序，将在标签中
单选题下列程序段，在运行时最后输出的内容是 a＝2 c＝1 AAA： c=c+a If c＜10 Then Print c GoTo AAA Else Print "10以内的奇数显示完毕" End If
单选题窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。
单选题设窗体上有1个名称为HScrol11的水平滚动条，其Max、Min属性分别设置为100、1： 有2个名称分别为Option1、Option2的单选按钮，其标题分别为“30”、“50”；还有下面程序代码： Private Sub Option 1_Click() Private Sub Option2_Click() HScrol11=Val(Option 1_Caption) HScrol11=Val(Option 2_Caption) End Sub End Sub 程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是
单选题如果在C盘当前文件夹下已经存在名称为Sdat.dat的顺序文件，那么执行语句Open "c:/Sdat.dat"For Append As #1之后，将( )。
单选题以下能够触发文本框Change事件的操作是______。 A) 文本框失去焦点 B) 文本框获得焦点 C) 当文本框不可用时 D) 改变文本框的内容
单选题窗体上有1个名称为Text1的文本框，1个名称为Timerl的计时器，且已在属性窗口将Timerl 的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。 Private Sub Form_Click() Private Sub Timerl_Timer()Timerl．________ Text1．Text=Time() End Sub End Sub 为了实现上述功能，应该在横线处填入的内容为