单选题
单选题下列有关文件的叙述中，正确的是
单选题列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是
单选题设工程文件包含两个窗体文件Form1．frm、Form2．frm及一个标准模块文件Modulel．bas。两个窗体上分别只有一个名称为Commanl的命令按钮。Forml的代码如下： Form2的代码如下： Public x As Integer Private Sub Commandl_Click()Private Sub Form_Load() Print Form1．x，y x=1：y=5 End SubEnd Sub Modulel的代码如下：Private Sub Commandl_Click() Public y As Integer Form2．Show End Sub运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Commandl，则窗体上显示的是
单选题在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是( )。
单选题在窗体上画两个名称分别为Text1、Text2的文本框，Text1的Text属性为“DataBase”，如下图所示。现有如下事件过程：PrivateSubText1_Change()Text2.Text=Mid(Text1,1,5)EndSub运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是______。
单选题窗体上有一个名称为Combo1的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是( )。 A) Private Sub Combo1_KeyDown( KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Combo1. AddItem Combo1. Text End If End Sub B) Private Sub Combo1_KeyDown( KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Combo1. Addhem Text1. Text End If End Sub C) Private Sub Combo1_Click( ) Combo1. AddItem Combo1. Text End Sub D) Private Sub Combo1_Click( ) Combo1. AddItem Text1. Text End Sub
单选题以下关于控件数组的叙述中，正确的是( )。 A) 数组中各个控件具有相同的名称 B) 数组中可包含不同类型的控件 C) 数组中各个控件具有相同的Index属性值 D) 数组元素不同，可以响应的事件也不同
单选题在程序代码中将图片文件mypic.jpg装入图片框Picturel的语句是______。 A) Picture1.Picture="mypic.jpg" B) Picture1.Image="mypic.jpg" C) Picturel.Picture=LoadPicture("mypic.jpg") n)LoadPicture("mypic.jpg")
单选题下列程序执行后，变量a的值为( )。 Dim a,b,c,d as single a=100 b=20 c=1000 if b＞a Then d=a:a=b:b=d End if if c＞a Then d=a:a=c:c=d End if if c＞b Then d=b:b=c:c=d End if
单选题窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：
Private Sub Command1 Click()
Dim n As Integer
n=add(5，10)
Print n
End Sub
Function add(v1 As Integer，v2 As Integer，Optiona1 v3)As Integer
If Not IsMissing(v3)Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是( )。
单选题为了判断字符串变量strName中的姓名是否姓"李"，应采用的表达式是
单选题设置组合框的风格，可用的属性是
____
。
单选题在窗体上画一个名为Command1的命令按钮，然后编写如下代码：Option Base 1Private Sub Commandl_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 SEnd Sub运行上面的程序，其输出结果是
单选题阅读下面的程序段： For a=1 To 2 For b=1 To a For c=b To 2 i=i+1 Next Next Next Print i 执行上面的3重循环后，i的值为
单选题设有如下过程： Sub ff(x，y，Z，) x=y+z End Sub 以下所有参数的虚实结合都是传址方式的调用语句是
单选题在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim x As Integer, n As Integer x=1 n=0 Do While x＜20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是______。
单选题设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5)As Variant For i=1 To 5 arr(i)= i Next n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 ______。 A) 10 B) 15 C) 25 D) 24
单选题在窗体上画一个名为Command1的命令按钮，其Command1_Click事件过程如下。 Sub Command1_Click() Dim student As studtype Dim record_no As Integer record n=1 With student .ino=12 .strname="Smith" .strsex=“男” .smark=89 End With ______ Put # 1，record_no，student Close # 1 End Sub 要求在c:/的随机文件student．．dat写入一条记录。应在程序中空行处填入以下哪条语句使该功能完整
单选题设有语句： Open"C:/Test. Dat" For Output As #1 则以下错误的叙述是：