单选题在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 If X(i)＞c Then d=d+X(i) c=X(i) Else d=d-c End If Next j Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的内容为( )。
单选题要暂时关闭计时器，应将计时器的某个属性设置为False，这个属性是
单选题对于循环队列，下列叙述中正确的是______。
A. 循环队列中元素的个数由队头指针和队尾指针共同决定
B. 在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况
C. 在循环队列中，队头指针一定大于队尾指针
D. 在循环队列中，队头指针一定小于队尾指针
单选题VB应用程序不能把一个二维表格中的数据存入文件( )。
单选题学生选课成绩表的关系模式SC(S#，C#，G)，其中S#为学号，C#为课号．G为成绩．关系表达式πS#，C#(SC)／S表示()。
单选题单击命令按钮时，下列程序代码的执行结果为______。 Public Sub Procl(n As Integer, By Val m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=34 Call Procl(x, y) Print x; Y End Sub
单选题在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。
单选题在数据库设计中，将E—R图转换为关系模式的过程属于{{U}} {{/U}}。
A.需求分析阶段
B.逻辑设计阶段
C.概念设计阶段
D.物理设计阶段
单选题在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click( ) Dim MaxSize, NextChar, MyChar Open "d:/vb/tt. txt" For Input As #1 MaxSize = LOF(1) For NextChar = MaxSize To 1 Step - 1 Seek # 1, NextChar MyChar = Input(1, # 1) Next NextChar Print EOF(1) Close $1 End Sub 假设文件d:/vb/tt. txt 的内容为 Hello eveybody! 那么程序运行后，单击命令按钮，其输出结果为 ______。
单选题设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是______。
A.List1.List
B.List1.Listlndex
C.List1.Text
D.List1.lndex
单选题下面4个语句中，能打印显示40*90字样的是( )。
单选题若需要在同一窗体内安排两组相互独立的单选按钮(0ptionButton)，可使用__________控件将它们分隔开。
①TextBox ②PictureBox ③Image ④Frame
单选题在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如 下程序代码： Private X As Integer Private Sub Command1_Click() X=8: Y=4 Call proc(X，Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer, ByVal b As Integer) X=a+a Y=b*b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。 A) 8和4 B) 8和16 C) 16和4 D) 16和16
单选题下列程序的功能是；将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。 Private Sub Form_Click() Dim i As Integer Open "Num.txt" For Output As #1 For i=1 To 8 __________ Next i Close #1 End Sub A) print #1,i B) input #1,i C) print #1 D) input #1
单选题窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String*20
End Type
Private Sub Command1_Click()
Dim MaxSize，NextChar,MyChar
Open "c:/file.txt" for Input As #1
NaxSize=LOF(1)
for NextChar=NaxSize To 1 Step-1
Seek #1,NextChar
HyChar=Input(1,#1)
Next NextChar
Print EOF(1)
Close #1
End Sub
程序运行后，单击命令按钮，其输出结果为______。
单选题数据库的特点之一是数据的共享，严格地讲，这里的数据共享是指______。
单选题下列程序段的执行结果为______。 x=5 y=-20 If Not X＞0 Then X=Y-3 Else Y=X+3 Print X-Y;Y-X
单选题以下程序运行后输出的结果是 ______。 a = 12.3 b=-123 m=Len(Str$(A)+Str$(B)) Print m End
单选题当Command1_Click事件发生时，窗体上显示的内容是 ______。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a = 0 Then x = x-1 Else If b ＜＞ 0 Then x = 7 Else x=x+8 End If If c ＜＞ 0 Then x = x-3 Else x = 4 End If Print x End Sub
单选题运行如下程序
Private Sub Command1_Click()
Dim a(5, 5)As Integer
For i=1 To 5
For j=1 To 4
a(i, j)=i*2+j
If a(i, j)/7=a(i, j)/7 Then
n=n+1
End If
Next j
Next
Print n
End Sub
则n的值是