单选题如果一个工程含有多个窗体及标准漠块,则以下叙述中错误的是 ______。
单选题有如下的函数过程: Function Func2(a As Integer, b As Integer)'As Integer Static m As Integer, i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim p As Integer, k As Integer, m As Integer k=4 m=1 p=Fune2(k, m) Print k; m p = Func2(k, m) Print k; m End Sub 程序运行后,单击命令按钮,输出结果为( )。
单选题设有如下程序:Private Sub Form_Click() num=InputBox("请输入一个实数") p=InStr(num, ".") If p>0 Then Print Mid(num, p+1) Else Print "END" End IfEnd Sub运行程序,单击窗体,根据提示输入一个数值。如果输入的不是实数,则程序输出"END";否则( )。
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
m=1:n=1
Print"m="; m; ", n="; n
Call subl((m), n)
Print "m="; "; ", n="; n
End Sub
Private Sub subl(x, y)
x=x+5
y=y+x
Print "x="; x;", y="; y
End Sub
程序运行后,单击命令按钮,则窗体上显示的内容是______。
单选题我们可以在设计时(属性窗口中)和运行时(程序代码中)设置属性的属性值,以下关于属性设置的说法正确的是
单选题在长度为n的有序线性表中进行二分查找,最坏情况下需要比较的次数是( ) A.O(n) B.O(n2) C.O(log2n) D.O(n log2n)
单选题窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程
Private Sub Option1_C1ick(Index As Integer)
…
End Sub
下面关于此过程的参数Index的叙述中正确的是
单选题窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,相应的事件过程如下:Private Sub
Command1_Click() CD1.Filter="All File|*.*|Text
File|*.txt|Word|*.Doc" CD1.FilterIndex=2 CD1.FileName="E:/Test.ppt" CD1.InitDir="E:" CD1.ShowOpenEnd
Sub关于上述程序,以下叙述中正确的是______。
A.初始过滤器为"*.*"
B.指定的初始目录为"E:"
C.以上程序代码实现打开文件的操作
D.由于指定文件类型是.ppt,所以导致打开文件的操作失败
单选题把窗体的KeyPreview属性设置为True,然后编写如下过程: Private Sub Form_KeyDown(KeyCode As Integer,ShiftAs Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer,Shift AsInteger) Print Chr(KeyCode+2) End Sub 程序运行后,如果按“A”键,则输出结果为______。
单选题要使得文件列表框Filel中只显示文件扩展名为jpg的图片文件,则下列正确的语句是
单选题为了使一个复选框被禁用(灰色显示),应把它的Value属性设置为
单选题以下事件过程可以将打开对话框的标题改为“新时代”的是
单选题设A$="Hello",下列语句正确的是( )。
单选题在Visual Basic中,要将一个窗体装载到内存进行预处理,但不显示,应该使用______语句。
单选题有如下数据定义语句: Dim X,Y As Integer 以上语句表明( )。
单选题文本框Text1的KeyDown事件过程如下: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) End Sub 其中参数KeyCode的值表示的是发生此事件时( )。
单选题下列关于顺序文件的描述中,正确的是( )。
单选题要设定文本框中的文字内容是否允许修改,应该设置的属性是( )。
单选题有如下通用过程:
Function Fs(ByVal n As Long) As Long
Dim k As Long
k = 1
n = Abs(n)
Do While n
k = k * (n Mod 10)
n = n / 10
Loop
Fs = k
End Function
编写如下事件过程:
Private Sub Form_Click()
Dim a As Long
Dim b As Long
a = InputBox("请输入一个数")
a = CLng(A)
b = Fs(A)
Print b
End Sub
程序运行后,单击窗体,在输入对话框中输入567,输出结果为
单选题在窗体上画1个名称为Command1的命令按钮,并编写以下程序:
Private Sub Command1_Click()
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As String
Stlen=Len(st)
temp=""
For k=1 To stlen/2
temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)
Next k
fun=temp
End Function
程序运行时,单击命令按钮,则窗体上显示的是______。
