单选题下列运算符中,优先级别最低的是
单选题以下关于窗体的叙述中错误的是
单选题用下面的语句定义的数组元素的个数是 ______。 Dim Arrl(-2 To 6)As Integer
单选题使用语句Dim A(1 To 10)As Integer声明数组A之后,以下说法正确的是
____
。
单选题若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访访问顺序是dgbaechf,则其后序遍历的结点访问顺序是
单选题下面有一段程序代码,如果从键盘上输入“Computer”,则在文本框内显示的内容是______。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii>=65 And KeyAscii<=122 Then
KeyAscii=42
End If
End Sub
单选题以下哪个关键字声明的局部变量在整个程序运行中其值一直保留
单选题下列关于退出Visual Basic系统的方法的描述错误的是( )。
单选题若在某窗体模块中有如下事件过程 Private Sub Command1.Click(Integer) End Sub 则以下叙述中正确的是
单选题窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:
Private Sub Command1_Click()
Dim a(10)As Integer, x As Integer
For i=1 To 10
a(i)=Int(Rnd*100)
Next
x=InputBox("输入100以内的整数:"):p=0
For i=1 To 10
If a(i)=x Then
p=i:Exit For
End If
Next
If p=0 Then
Print"没有找到与输入数据相同的数!"
Else
Print Str(x)+"在数组中的位置是"+Str(p)
End If
End Sub
对于上述事件过程,以下叙述中正确的是
单选题在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。 Private Sub fun3(x As Integer) Static a As Integer Dim b As Integer a=a+3:b=b+3 a=a+x:b=b+x Printa;b End Sub Private Sub Command1_Click() Dim k As Integer,m As Integer,n As Integer k=2:m=1 Call fun3(k) Call fun3(m) End Sub
单选题设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Commandl的命令按钮。Forml的代码如下:Public x As IntegerPrivate Sub Form—Load()x=1y=5End SubPrirate Sub Commandl Click()Form2.ShowEnd SubForm2的代码如下:Prirate Sub Commandl Click()Print Forml.x,yEnd SubModulel的代码如下:Public y As Integer运行以上程序,单击Form1的命令按钮Command1,则显示:Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是( )。
单选题下面______属性肯定不是框架控件的属性。
单选题编写如下事件过程: Private Sub Form_ MouseDown (Button As
Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 6 And Button = 2 Then
Print “Hello”
End If End Sub
程序运行后,为了在窗体上输出“Hello”,应在窗体上执行以下______ 操作。
A. 同时按下Shift键和鼠标左按钮.
B. 同时按下Shift键和鼠标右按钮
C. 同时按下Ctrl、Alt键和鼠标左按钮
D. 同时按下Ctrl、Alt键和鼠标右按钮
单选题单击一次命令按钮后,下列程序的执行结果为
Private Sub Command1_Click()
Dim m As Integer,I As Integer,x(10) As Integer
For I=0 To 4:x(I)=I+1:Next I
For I=1 TO 2:Call Prioc(x):Next I
For I=0 TO 3:Print x(I);:Next I
End Sub
Private Sub Prioc(a()As Integer)
Static I As Integer
Do
a(I)=a(I)+a(I+1)
I=I+1
Loop While I<2
End Sub
单选题在窗体上画一个名称为Label1的标签,然后编写如下事件过程:
Private Sub Form_Click()
Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub
程序运行后,单击窗体,在标签中显示的内容是______。
单选题设已打开5个文件,文件号分5U为1,2,3,4,5。要关闭所有文件,以下语句正确的是
单选题下列对话框有关属性中,用于设置初始的文件目录并返回用户选择的目录的属性是 ______。 A) InitDir B) DialogTitle C) Filter D) FileName
单选题窗体上有一个名称为Frame1的框架(如图),若要把框架上显示的“Frame1”改为汉字“框架”,下面正确的语句是()。A)Frame1.Name="框架"B)Frame1.Caption="框架"C)Frame1.Text="框架"D)Frame1.Value="框架/
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10,10)As Integer Dim i,j As Integer For i;1 TO 3 For i=2 To 4 array1(i,j)=i+j Next j Next i Text1. Text=array1(2,3)+array1(3,4) End Sub 程序运行后,单击命令按钮,则文本框中显示的值是 ______。