单选题设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是 A) Picture1.Picture="File1.jpg" B) Picture1.Pieture=LoadPicture("File1.jpg") C) LoadPicture("File1.jpg") D) Call LoadPicture("File1.jpg")
单选题在窗体上画一个文本框(Text1)，然后编写如下事件过程： 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"，则程序在窗体上的输出结果为________。
单选题窗体上有一个名称为Combo1的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是
单选题假定通用对话框的名称为CD1，命令按钮的名称为Command1，则单击命令按钮后，能使打开对话框的标题为“通用对话框”的事件过程是( )。
单选题编写如下事件过程： Option Base 1 Private Sub Form_Click( ) Dim x1( )As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)= i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n( )As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)= n(i - 1)* 2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是________。
单选题下列可以激活属性窗口的操作是
____
。
单选题窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是______。
单选题关于语句“Open“a1．txt”For Append as #10”的说法正确的是( )。 A) 打开一个已存在的文件，可以读也可以写 B) 打开的文件必须存在，只能写 C) 若文件存在则覆盖它，只能写 D) 若文件存在，则在原有的内容后面写
单选题设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As 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 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abcdef" Text1.Text=UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，则Text1中显示的是______。
单选题为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为( )。
单选题Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。
Function Isfab(x As Integer)As Boolean
Dim a As Integer, b As Integer, c As Integer, flag As Boolean
flag=False
a=1: b=1
Do While x＜b
c=a+b
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是______。
单选题文件d：＼city．txt的内容如下： BeiJing TianJin ShangHai ChongQing 编写如下事件过程： Private Sub Form_Click() Dim InD Open"d：＼city．txt"For Input As #1 Do While Not EOF(1) Line Input #1，InD Loop Close 1 Print InD End Sub 运行程序，单击窗体，输出结果是
单选题文本框Text1的KeyDown事件过程如下：
Privme Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
End Sub
其中参数KeyCode的值表示的是发生此事件时______。
单选题设a=4，b=5，c=6，执行语句Print a
单选题图像框有—个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是 ______ 。
单选题设窗体上有名称为Option1的单选按钮，且程序中有语句：
If Option1.Value=True Then
下面语句中与该语句不等价的是
Ａ) If Option1.Value Then Ｂ) If Option1=True Then
Ｃ) If Value=True Then Ｄ) If Option1 Then
单选题设定文本框内的文字内容是否允许修改的属性是( )。
单选题设有语句 Open "c：/Test. Dat" For Output As#1则以下错误的叙述是______。 A) 该语句打开C盘根目录下一个已经存在的文件Test.Dat B) 该语句在C盘根目录下建立一个名为Test.Dat的文件 C) 该语句建立的文件的文件号为1 D) 执行该语句后，就可以通过Print#句向文件Test.Dat中写入信息
单选题以下关于VB特点的叙述中，错误的是
单选题在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是