单项选择题

下列关于队列的叙述中正确的是

A．在队列中只能插入数据
B．在队列中只能删除数据
C．队列是先进先出的线性表
D．队列是先进后出的线性表
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序段的执行结果为 a=6 For k=1 T00 a=a+k Next Print k；a Ａ) -1 6 Ｂ) -1 16 Ｃ) 1 6 Ｄ) 11 21
下列程序段的执行结果为
a=6
For k=1 T00
a=a+k
Next
Print k；a
Ａ) -1 6 Ｂ) -1 16 Ｃ) 1 6 Ｄ) 11 21
单项选择题
阅读下面的程序段： 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的值为 Ａ) 4 Ｂ) 5 Ｃ) 6 Ｄ) 9
阅读下面的程序段：
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的值为
Ａ) 4 Ｂ) 5 Ｃ) 6 Ｄ) 9
单项选择题
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I=1 To 2 For J=1 To I Print String(I， Hello )； Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 Ａ) H Ｂ) H Ｃ) HHHHH Ｄ) H HH HHHH HH HH HHHH
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I=1 To 2
For J=1 To I
Print String(I，"Hello")；
Next J
Print
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
Ａ) H Ｂ) H Ｃ) HHHHH Ｄ) H
HH HHHH HH
HH HHHH
单项选择题
有如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) If (Button And 3) =3 Then Print OK End If End Sub 程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是 Ａ) 左键 Ｂ) 右键 Ｃ) 同时按下左键和右键 Ｄ) 按什么键都不显示
有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
If (Button And 3) =3 Then
Print "OK"
End If
End Sub
程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是
Ａ) 左键 Ｂ) 右键
Ｃ) 同时按下左键和右键 Ｄ) 按什么键都不显示
单项选择题
有如下函数过程： Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer DO While …y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub Ａ) 0 Ｂ) 25 Ｃ) 50 Ｄ) 100
有如下函数过程：
Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer
DO While …y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,b)
Print x
End Sub
Ａ) 0 Ｂ) 25 Ｃ) 50 Ｄ) 100
单项选择题
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text= Text1.SetFocus For i=1 To 9 Sum=Sum=i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 Ａ) 在文本框Text1中输出45 Ｂ) 在文本框Text1中输出0 Ｃ) 出错 Ｄ) 在文本框Text1中输出不定值
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 9
Sum=Sum=i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是
Ａ) 在文本框Text1中输出45
Ｂ) 在文本框Text1中输出0
Ｃ) 出错
Ｄ) 在文本框Text1中输出不定值
单项选择题
在窗体上添加一个R命令按钮，名称为Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为 Option Base 1 PrivateSub Command1_Click() Dim a As Variant a=Array(1，2，3，4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next Print s End Sub Ａ) 4321 Ｂ) 1234 Ｃ) 34 Ｄ) 12
在窗体上添加一个R命令按钮，名称为Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为
Option Base 1
PrivateSub Command1_Click()
Dim a As Variant
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next
Print s
End Sub
Ａ) 4321 Ｂ) 1234 Ｃ) 34 Ｄ) 12
单项选择题
下列各种形式的循环中，输出“*”的个数最少的循环是 Ａ) a=5:b=8 Ｂ) a=5:b=8 Do Do Print * Print * a=a+1 a=a+1 Loop While a＜b Loop Until a＜b Ｃ) a=5:b=8 Ｄ) a=5:b=8 Do Until a-b Do Until a＞b Print * Print * b=b+1 a=a+1 Loop Loop
下列各种形式的循环中，输出“*”的个数最少的循环是
Ａ) a=5:b=8 Ｂ) a=5:b=8
　Do Do
　Print "*" Print "*"
　a=a+1 a=a+1
　Loop While a＜b Loop Until a＜b
Ｃ) a=5:b=8 Ｄ) a=5:b=8
　Do Until a-b Do Until a＞b
　Print "*" Print "*"
　b=b+1 a=a+1
　Loop Loop
单项选择题
新建一个窗体，其BorderStyle属性设置为Fixed Single，但运行时却没有“最大化”和“最小化”按钮，可能的原因是
A．Border Style的值设为Fixed.Sinde，此项设置值的作用即禁止“最大化”和“最小化”按钮
B．窗体的MaxButton和MinButton值设为False
C．正常情况下新建的窗体都没有“最大化”和“最小化”按钮
D．该窗体可用鼠标拖动边框的方法改变窗体的大小
单项选择题
可以用做其他控件容器的控件是
A．窗体控件，列表框控件，图像控件
B．窗体控件，文本框控件，框架控件
C．窗体控件，框架控件，图片框控件
D．窗体控件，标签控件，图片框控件
相关试题