单选题在窗体上画一个名称为Command1的命令按钮，编写如卜程序代码 Private Type Student sn As String*10 class As String*20 score As Double End Type Private Sub Command1_Click() Dim s As Student Dim s1 As Student Open"C：＼Scorelist．dat"For Random As #1 Len=Len(s) s．sn="张一帆" s．class="计2014—1班" s．score=90 Put #1，s Close #1 End Sub 以下叙述中正确的是( )。
单选题如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是
A. Redim a As Integer
B. Static a As Integer
C. Public a As Imeger
D. Dim a As Integer
单选题下列与队列结构有关联的是
单选题在程序中要使用Array函数给数组arr赋初值，则以下数组变量定义语句中错误的是
单选题使用语句Dim A(2) As Integer声明数组A之后，以下说法正确的是
单选题在窗体上画一个名为Commandl的命令按钮，然后编写以下程序： Private Sub Commandl—Click() Dim M(10)As Integer For k=1 To 10 M(k)=12一k Next k X=8 Print M(2+M(X)) End Sub运行程序，单击命令按钮，在窗体上显示的是( )。
单选题设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为 Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click() Dim a As Integer a=10 Call g(Form2，
单选题设a=5，b=6，c=7，d=8，执行语句x=IIf((a＞B)And(c＞D)，10，20)后，x的值是______。
单选题通过“工程”菜单的“______”命令，可以将多个窗体添加到工程中。
单选题一间宿舍可住多个学生，则实体宿舍和学生之间的联系是
单选题有如下程序： Option Base 1 Private Sub Form Click() Dim arr，Sum Sum =0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
单选题下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x(10) As Integer，y(5) As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub
单选题假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为( )。
单选题假定有以卜循环结构 Do Until条件 循环体 Loop 则正确的描述是( )。
单选题在窗体上添加一个命令按钮，名为command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为______。 For i=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x= x + 3 Next k Next j Next i Text1.Text=str(x)
单选题栈底至栈顶依次存放元素A、B、C、D，在第五个元素E入栈前，栈中元素可以出栈，则出栈序列可能是_________。
A. ABCED
B. DBCEA
C. CDABE
D. DCBEA
单选题目录列表框的Path属性的作用是______。A) 显示当前驱动器或指定驱动器上的某目录下的文件名B) 显示当前驱动器或指定驱动器上的目录结构C) 显示根目录下的文件名D) 显示指定路径下的文件
单选题在窗体下画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段：
Private Sub Command1_Click()
x=0
Do Until x＞=50
x=(x+4)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
运行程序后，单击命令按钮，在两个文本框中显示的值分别为( )。
单选题假定有如下语句：
answer$=MsgBox("String1",,"String2","String3",2)
执行该语句后，将显示一个信息框，单击其中的“确定”按钮，则answer$的值为______。
A.String1
B.String2
C.String3
D.1
单选题用于显示弹出式菜单的方法名是
A.ShowPOpupMenu
B.ShowMenu
C.ListPopupMenu
D.PopupMenu