单选题设窗体上有2个框架，每个框架中有若干个单选按钮，下面叙述中正确的是( )。
单选题下列程序的运行结果为( )。
Dim a(-1 To 6)
For i=LBound(a，1)To UBound(a，1)
a(i) = i
Next i
Print a (LBound(a，1))；a(UBound(a，1))
单选题下列关于顺序文件的描述中，正确的是( )。
单选题一名演员可以出演多部电影，则实体演员和电影之间的联系是
单选题标准模块中有如下程序代码：
Public x As Integer,y As Integer
Sub var_pub()
x=10:y=20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Command1_Click()
Dim x As Integer
Call var_pub
x=x+100
y=y+100
Print x;y
End Sub
运行程序后单击命令按钮，窗体上显示的是______。
单选题VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母
单选题在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码： Privae Sub M1_Click(lndex As Integer) Form1.Caption="myform 2“ End Sub 运行时，单击按钮数组中的第1个按钮，窗体标题为( )。 A) Form1 B) M1 C) myform1 D) myform2
单选题要求产生10个随机整数，存放在数组arr中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr(10) AS Integer
For i=1 to 10
arr(i)=int (Rnd*100)
Print arr(i);
Next
x=inputbox(“输入1到10的一个整数：”)
For i=x+1 to 10 ‘循环2
arr(i-1)=arr(i)
Next
For i=1 to 10 ‘循环3
Print arr(i);
Next
End Sub
程序运行后发现显示的结果不正确，应该进行的修改是（ ）。
单选题在文件列表框中，要使它能够显示隐藏文件，应使它的
____
属性为True。
单选题以下语句中哪句可以选择指定的表项或取消已选择的表项
单选题运行以下程序时，由键盘为变量load输入的数据为20，输出结果为______。 Private Function Wei(load As Integer)，Money As Single If load＜20 Then Money=load/2 Else Money=20+load End if Wei=Money End Function Private Sub Form _Click() Dim load As Integer，fee As Single load=InputBox(“请输入一个数：”) fee=Wei(loaD) Print fee End Sub
单选题程序的3种基本控制结构是 A) 过程、子过程和分程序 B) 顺序、选择和重复 C) 递归、堆栈和队列 D) 调用、返回和转移
单选题为了在运行时能显示宙体左上角的控制框(系统菜单)，必须______ 。
单选题有一个数列，第一个数和第二个数分别为0和1，其后每一个数均为前两个数之和。下面是输出该数列中小于10000的最大数的程序：
Private Sub Form_Click()
a=0
b=0
Do While b＞10000
c=a+b
a=b
b=c
Loop
Print a
End Sub
运行程序，单击窗体，不能得到所需要的结果，说明程序有错误。以下正确的修改是______。
单选题下列程序段的执行结果为( )。 a=6 For k=1 To 0 a=a+k Next k Print k：a
单选题窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，相应的事件过程如下：
Private Sub Command1_Click()
CD1.Filter="All File|*.*|Text File|*.txt|PPT|*.ppt"
CD1.FilterIndex=2:CD1.InitDir="C:"
CD1.FileName="default":CD1.ShowSave
End Sub
关于上述过程，以下叙述中正确的是
单选题下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4) ,i%, t# For i = 1 To 4 b(i) =i Next t =Tof(b() ) Print "t ="; t, End Sub Function Tof(a() As Integer) Dim t#, i% t=1 For i =2 To UBound(a) t=t * a(i) Next Tof = t End Function
单选题编写如下程序：
Pfivme Sub Command1_Click()
Dim nAs Long，SAs String
n=InputBox(”输入一个数”)
Do While n<>0
s=S&n Mod 10：s=S&n＼10 Mod 10
n=n|100
Loop
Print s
End Sub
程序运行后，单击命令按钮Command1，并输入数值123456，则输出结果为
单选题下列Visual Basic变量名中，正确的是( )。
单选题在窗体上有一个名称为Commandl的命令按钮，并有如下程序： Private Sub Commandl_Click() Static X As Integer Static Y As Integer Cls Y=1：Y=Y+5：X=5+X：Print X．Y End Sub 程序执行时，单击命令按钮Commandl三次后，窗体上显示的结果为( )。