单选题设窗体上有一个文本框,名称为Text1,程序运行后,要求该文本框只能显示信息,不能接收输入的信息,以下能实现该操作的语句是________。
A.Text1.MaxLength=0
B.Text1.Enabled=False
C.Text1.Visible=False
D.Text1.Width=0
单选题把窗体的KeyPreview属性设置为True,然后编写如下事件过程
Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String
ch = Chr(KeyAscii) KeyAscii = Asc(UCase(ch)) Print Chr(KeyAscii + 2)
End Sub 程序运行后,按键盘上的“A”键,则在窗体上显示的内容是______。
单选题在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_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
程序运行后,单击命令按钮,输出结果是
____
。
单选题已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是
____
。
单选题标准模块存盘后,形成的磁盘文件扩展名是( )。
单选题下列数据结构中,能够按照“先进后出”原则存取数据的是
____
单选题下面程序的执行结果是( )。 Private Sub Commandl_Click() a=0 k=1 Do While k<4 X=k^k^a k=k+1 Print x; Loop End Sub
单选题在窗体上画两个单选按钮,名称分别为Opfion1,Option2,标题分别为“宋体”和“黑体”;一个复选框,名称为Check1,标题为“粗体”:一个文本框,名称为Text1,Text属性为“改变文字字体”。要求程序运行时,“宋体”单选按钮和“粗体”复选框被选中,则能够实现上述要求的语句序列是( )。
单选题窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:
Private Sub Timer1_Timer()
Static flag As Integer
If Flag=0 Then Flag=1
Flag=-flag
If flag=1 Then
Text1.ForeColor=&HFF& "&HFF&为红色
Else
Text1.ForeColor=&HCOO& "&HCOO&为绿色
End If
End Sub
以下叙述中正确的是______。
单选题以下程序的输出结果是D) 9 12 Option Base 1 Private Sub Command1_Click() Dim s(10),p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub
单选题设a=3,b=5,c=2,d=6,则下面语句输出的是______。 Print4>5 * b Or a=c And b<>c Or c>d A) False B) 1 C) True D) -1
单选题在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a$=InputBox("请输入一个二进制数"):n=Len(a$)
For i=1 To n
Dec=Dec*2+______(a$,i,1)
Next i
Print Dec
End Sub
程序功能为:单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个二进制数,并单击“确定”按钮,则把该二进制数转换为等值的十进制数。这个程序不完整,应在横线处填入的内容是
单选题假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应 用程序,以下正确的操作是______。
单选题在软件开发中,需求分析阶段产生的主要文档是( )。
单选题假定在窗体上建立了一个通用对话框,其名称为CommonDialog1,用下面的语句可以建立一个划话框:
CommonDialog1.Action=2
与该语句等价的语句是
单选题在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为______。
A."(*.DOC)*.DOC"
B."(*.DOC)|(.DOC)"
C."(*.DOC)||*.DOC"
D."(*.DOC)|*.DOC"
单选题某人为计算n!(0<n<=12),编写了下面的函数过程:
Private Function fun(n As Integer)As Long
Dim p As Long
p=1
For k=n-1 To 2 Step-1
p=p*k
Next k
fun=P
End Function
在调试时发现该函数过程产生的结果是错误的,程序需要修改。下面的修改方案中有3种是正确的,错误的方案是______。
单选题一棵二叉树的前序遍历结果是ABCEDF,中序遍历结果是CBAEDF,则其后序遍历的结果是( )。
单选题窗体上有一个名称为Textl的文本框,一个名称为CDl的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。命令按钮的单击事件过程如下:PfivateSubCommandl—Click()CD1.ShowOoenOpenCD1.FileNameForInputAs#1MsgBoxCD1.FileNanleLineInput#1.sText1.Text=sClose#1EndSub单击命令按钮,执行以上事件过程,打开选定的文件,读取文件的内容并显示在文本框中,以下叙述中正确的是()。
单选题下列控件属性中,属性值的类型不相同的一项是
____
。
