单选题设窗体上有3个图像框：Image1、Image2、Image3，并有下面的程序代码： Private Sub Form—Load() lmagel．Picture=LoadPicture(“LEAF．bmp”) Image2．Picture=LoadPicture(“OPEN．bmp”) Image3．Visible=False End Sub Private Sub Imagel—Click() Image2．Picture=Imagel．Picture End Sub Private Sub Image2一Click() Image3．Picture=Image2．Picture Image2．Picture=Image1．Picture Imagel．Picture=Image3．Picture End Sub在程序运行期间单击Image2，则在窗体上看到的结果是( )。
单选题关系数据库的概念模型是
单选题下列过程定义语句中，参数不是对象的定义语句是（ ）。
单选题数据结构中，与所使用的计算机无关的是数据的______。 A) 存储结构 B) 物理结构 C) 逻辑结构 D) 物理和存储结构
单选题以下说法中正确的是( )。
单选题某人编写了向随机文件中写一条记录的程序，代码如下： Type RType Name As String * 10 Tel As String * 20 End Type Private Sub Command1_Click( ) Dim p As RType p. Name = InputSox( "姓名" ) p. Tel = InputBox( "电话号" ) Open "Books. dat" For Random As # 1 Put # 1, , p Close # 1 End Sub 该程序运行时有错误，修改的方法是( )。 A) 在类型定义“Type RType”之前加上“Private” B) Dim P As RType必须置于窗体模块的声明部分 C) 应把Open语句中的For Random改为For Output D) Put语句应该写为Put # 1, P. Name, P. Tel
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click( ) Dim a a = Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是________。
单选题为了使一个复选框被禁用(灰色显示)，应把它的Value属性设置为( )。
单选题下面程序的功能是由随机函数产生100个在200～700之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100 a(j)=Int(Rnd*501+200)：Print a(j) Next j : Print p=1 : max= ______ For j=2 To 100 If a(j)＞max Then max=a(j) : p=j Next j Print "The largest number is " ; max Print "The position is"; p End
单选题有下面的程序段：x=InputBox(“字符串”，“输入”，“请输入”)Print x如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键，则输出内容是( )。
单选题为了使文本框只具有垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为
单选题设有如下事件过程：
Private Sub Command1_Click()
ch = "ABCDEFG"
n = Len(ch)
k = 1
Do
Print Mid(ch, k, 1); Mid(ch, n, 1);
k = k + 1
n = n - 1
Loop Until k > n
End Sub
运行此过程所产生的输出是
单选题下列程序段的执行结果为( )。 Dim m(10),n(10) I=3 For I=1 to 5 M(t)=t N(I)=2*I+t Next t Print n(I);m(I)
单选题对于语句Dim Varl#，Var2 AsInteger，下列说法中正确的是( )。
单选题设数值变量N的值为1或2，若为1，则执行程序P1.PRG，若为2，则执行程序P2.PRG，以下错误的程序段是( )
A.DO CASE B.IF N=1 C.C1=″P″+N D.C1=STR(N，1)
CASE N=1 DO P1 DO &C1 DO P&C1
DO P1 ELSE
CASE N=2 DO P2
DO P2 ENDIF
ENDCASE
单选题窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a(10)As integer，X As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next X=InputBox(”输入100以内的整数：”)：P=0 For i=1 To 10 Ifa(i)=X Then P=i：Exit For End If Next Ifp=0 Then Print”没有找到与输入数据相同的数!” Else Print Str(x)+”在数组中的位置是”+Str(p) End If End Sub 对于上述事件过程，以下叙述中正确的是
单选题列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是
单选题为了保存一个Visual Basic应用程序，下列说法中正确的是
单选题函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是
A. Function F1(b As Integer) If b Mod 2=0 Then
Return 0 Else Return 1 End
If End Function
B. Function F1(b As Integer) If b Mod 2=0 Then
F1=0 Else F1=1 End If
End Function
C. Function F1(b As Integer) If b Mod 2=0 Then
F1=1 Else F1=0 End If
End Function
D. Function F1(b As Integer) If b Mod 2＜＞0 Then
Return 0 Else Return 1
End If End Function
单选题假定窗体上有一个文本框，名为txt1，为了使该文本框的内容能够换行，并且具有垂直滚动条，没有水平滚动条正确的属性设置为
A.Txt1.MultiLine=True
Txt1.ScrollBars=0
B.Txt1.MuhiLine=True
Txt1.ScrollBars=2
C.Txt1.MuhiLine=False
Txt1.ScrollBars=0
D.Txt1.MuhiLine=False
Txt1.ScrollBars=3