单选题表达式Right("Beijing"，4)的值是
单选题使用Line控件在窗体上画一条从(0，0)到(600，700)的直线，则其相应属性的值应是( )。 A) X1=0，X2=600，Y1=0，Y2=700 B) Y1=0，Y2=600，X1=0，X2=700 C) X1=0，X2=0，Y1=600，Y2=700 D) Y1=0，Y2=0，X1=600，X2=700
单选题窗体上有1个名称为Command1的命令按钮，能够使其向左移动100的语句是( )。
单选题以下程序的作用是（ ）
For i = 1 To 9
For j = 1 To 9
se = i se;
Next j
Picture1.Print
Next i
单选题窗体上有1个Timer1计时器，1个Shape1形状控件，还有下面程序代码：Dim flag As Boolean Private Sub Timer1_Timer()Private Sub Form_Load() If flag Then flag=True Shape1．Height=Shape1．Height*2 Timer1．Enabled=True Shape1．Width=Shape1．Width*2 Timer1．Interval=1000 ElseEnd Sub Shape1．Height=Shape1．Height*0．5 Shape1=Width=Shape1．Width*0．5 End If flag=Not flag End Sub执行程序所产生的效果是
单选题引用列表框(List1)最后一个数据项应使用的表达式是
单选题下面程序段中正确的是( )。
单选题执行以下程序段后，变量c$的值为 aS="Visual Basic Programming" b$="Quick" c$=b$UCase(Mid$(a$，7，6))RightS(a$，12)
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 print s,a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是( )。
单选题用于获得字符串S最左边4个字符的函数是 A) Left(S,4) B) Left(1,4) C) Leftsv(S) D) Leftstr(3,4)
单选题设有如下程序： 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. 0 0
B. -5 0
C. -5 6
D. 0 6
单选题以下叙述中，错误的是
单选题以下叙述中错误的是
A. 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B. 以.BAS为扩展名的文件是标准模块文件
C. 窗体文件包含该窗体及其控件的属性
D. 一个工程中可以含有多个标准模块文件
单选题在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程：
Private Sub TxtA_KeyPress(KeyAscii As Integer)
End Sub
假定焦点已经位于文本框中,则能够触发KeyPress事件的操作是【 】
单选题设窗体上有一个名称为HS1的水平滚动条，如果执行了语句： HS1.Value=(HS1.Max-HS1.Min)/2+HS1.Min则( )。
单选题设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：PrivateSubCommand1_Click()CD1.DialogTitle="打开文件"CD1.InitDir="C:"CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.txt"CD1.FileName=""CD1.Action=1IfCD1.FileName=""ThenPrint"未打开文件"ElsePrint"要打开文件"&CD1.FileNameEndIfEndSub但实际显示的对话框中列出了C:/下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是______。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Public Enum S
a=4
b=3
End Enum
Private Sub Command1 Click()
Dim x As Integer
x=a
If x>=3 Then MsgBox"Pass!"
End Sub
运行程序，其结果是( )。
单选题在窗体上画四个文本框(如下图所示)，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程PrivateSubCommandl_Click()ForEachTextBoxinTextlText1(i)=Text1(i).Indexi=i+1NextEndSub程序运行后，单击命令按钮，四个文本框中显示的内容分别为{{U}}{{/U}}。A.0123B.1234C.0132D.出错信息
单选题有如下程序： Private Sub Form_Click() Dim
S As Integer,p As Integer p=1 For i=1 To
4 Forj=1 To i s=s+j
Nextj p=p*s Next i
Printp End Sub 程序运行后，单击窗体，则输出结果是______。
A.90
B.180
C.400
D.800
单选题在窗体上画一个名称为Text1文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For i=0 To 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是()。