单选题设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是( ) A．Picture1.Picture="Flie1.jpg" B．Picture1.Picture=LoadPicture("File1.jpg") C．LoadPicture("File1.jpg") D．Call LoadPicture("File1.jpg")
单选题若要使文本框能够输入多行文本，应该设置的属性是( )。
单选题在窗体上有一个文本框控件，名称为TextTime；一个计时器控件，名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ TxtTime.text=Time End Sub 在下画线上应填入的内容是
单选题窗体上有1个名称为List1的列表框，其中有若干列表项，并有下面程序代码： Private Sub List1_DblClick() Exchange List1．List1．ListIndex End Sub Private Sub Exchange(Source As ListBox，k As Integer) k％=Source．ListIndex ch=Source．List(k) Source．Removehem k Source．AddItem Source．List(Source．ListCount一1)，k Source．RemoveItem Source．ListCount一1 Source．Addltem eh End Sub 程序运行后，双击某个列表项，产生的结果是( )。
单选题编写如下通用过程： Sub Proc(x As Single,y As Single)
t=x x＝t/y
y=t Mod y End Sub
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click()
Dim a As Single
Dim b As Single
a＝5 b＝4
Proc a,b
Print a,b End Sub 程序运行后，如果单击命令按钮，则输出结果为
A. 5 4
B. 1.25 1
C. 4 5
D. 1.25 5
单选题图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是______。
单选题在窗体画一名为CommonDialogl，则下列与CommonDialogl．ShowOpen方法等效的语句是
单选题执行下面的程序段后，变量c的值为( )。
a=14
b=30
Slect Case b\10
Case 0
C=a * 10 + b
Case 1 To 9
C=a * 100+b
Case 10 To 99
C=a * 1000 + b
End Select
print c
单选题阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,21 For i=1 To 3 Forj=1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve arr(3,4) For i=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为( )。 A) 21 B) 13 C) 8 D) 25
单选题下列关于测试的叙述，错误的是{{U}} {{/U}}。
A. 测试是为了发现程序中的错误而执行程序的过程
B. 测试是为了表明程序是正确的
C. 好的测试方案是极可能发现迄今为止尚未发现的错误的测试方案
D. 成功的测试是发现了至今为止尚未发现的错误的测试
单选题单击命令按钮时，下列程序代码的执行结果为______。 Private Function PickMid(xStr As String) As String Dim tempStr As String Dim strLen As Integer tempStr=“” strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr，i，1)+Hid(xStr，strLen-i+1，1) i=i + 1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr=“abcdef” Print PickMid(FirstStr) End Sub
单选题下列不能打开属性窗口的操作是( )。 A) 执行“视图”菜单中的“属性窗口”命令 B) 单击工具栏上的“属性窗口”按钮 C) 按Ctrl+T快捷键 D) 按F4键
单选题以下程序将随机产生n个两位整数，并使用冒泡法将它们按递增顺序排序后输出。
Option Base 1
Private Sub Command1_Click()
Dim a()As Integer
Dim i As Integer,j As Integer
Randomize
n=InputBox("输入数据个数")
ReDim a(n)
For i=1 To n
a(i)=Int(Rnd*90)+10
Next i
For i=1 To n-1
For j=1 To n-i
If a(j)＜a(j-1)Then
temp=a(j):a(j)=a(j-1):a(j-1)=temp
End If
Next j
Next i
For i=1 To n
Print a(i);
Next i
End Sub
运行以上程序，发现有错误，需要对j循环的开始语句进行修改。以下正确的修改是
单选题在窗体模块的声明部分声明变量时，不能使用的关键字是
单选题数据库的概念模型______。
单选题下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是( )。 Private Sub Command1 Click() Dim Num(25)As Integer,Chr1 As String Chr1=UCase(InputBox("请输入字母字符串")) For k=1 To Len(Chr1) n=Asc(Mid(Chr1,k,1))-Asc("A") If n＞=0 Then Num(n)=Num(n)+1 End If Next k m=Num(0) Fork=1 To 25 If m＜Num(k)Then m=Num(k) End If Next k Print m End Sub
单选题某人创建了一个工程，其界面如图所示，其中，图像的名称为Image1，动滚条的名称为HScroll1。希望在程序运行时，移动滚动框可以使图像框的宽度随之变化，而图像完整地拉宽或压缩，为此，编写了下面的程序代码：PrivateSubForm_Load()HScroll1.Max=Image1.Width*2HScroll1.Value=Image1.WidthImage1.Stretch=FalseEndSubPrivateSubHScroll1_Change()Image1.Width=HScroll1.ValueEndSub调试时发现不能达到目的，需要做的修改是______。
单选题下面正确使用动态数组的是( )。
单选题为了使标签具"透明"的显示效果，需要设置的属性是______。 A) AutoSize B) Caption C) Alignment D) BackStyle
单选题下列数组定义中错误的是( )。