单选题如果在C盘当前文件夹下已存在名为StuData.dar的顺序文件,那么执行语句Open“C: StuData.dar” For Append As #1之后将______ 。
单选题设有如下程序: Sub f(x As Integer,ByVal Y As Integer) x=2*X:y=y+x End Sub Private Sub Command1 Click() Dim a As Integer,b As Integer a=6:b=35 Call f(a,b) Print a,b End Sub 程序运行后,单击命令按钮Command1,输出结果为
单选题在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的命令按钮。然后编写如下事件过程:
Private Command1_Click()
CommonDialogl.FileName=" "
CommonDialogl.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialoql.Filterlndex=2
CommonDialogl.DialoqTitle="VBTest"
CommonDialoql.Action=1
End Sub
对于这个程序,似下叙述中错误的是
单选题在程序运行时,下面的叙述中正确的是
单选题若设置了文本框的属性Password Char=“$”,则运行程序时向文本框中输入8个任意字符后,文本框中显不的是【 】
单选题在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=0do Unti1 x=-1a=InputBox("请输入a的值")a=Val(a)b=InputBox("请输入b的值")b=Val(b)x=InputBox("请输入x的值")x=Val(x)a=a+b+xLoopPrint aEnd Sub程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1则输出结果是( )。
单选题下列语句: X=5 If X>0 Then Y=5 Y=10 运行程序后,下列叙述中正确的是 ______。
单选题以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容,在横线处应填写______。
Private Sub Command1_Click()
x=Val(Text1.Text)
If______Then
Print x
Else
Text1.SetFocus
Text1.Text=""
End If
End Sub
单选题编写如下程序:Private Sub Command1_Click() Dim i As Integer, j As Integer n=InputBox("输入一个大于1的正整数") For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j>Sqr(i)Then Print i Next iEnd Sub该程序的功能是( )。
单选题以下关于控件数组的叙述中,错误的是
单选题标准模块中有如下程序代码: Public x As Integer,Y As Integer Sub TempSub() x=10:y=20 End Sub 在窗体上有1个命令按钮,并有如下事件过程: Privme Sub Command1_Click() Dim x As Integer Call TempSub x=x+100:y=y+100 Print x;Y End Sub 运行程序后单击命令按钮,窗体上显示的是( )。
单选题表达式(7/3+1)*(18/5-1)的值是( )。
单选题设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发______。 A) 窗体的GotFocus事件 B) Text1的SetFocus事件 C) Text1的GotFocus事件 D) Text1的LostFocus事件
单选题在窗体上有多个控件,要实现程序运行后焦点默认在某一控件上,应该设置的属性是( )。
单选题以下不能用Print方法输出数据的对象或窗口是
单选题窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序 PrivateSubCommandl_Click() Dimn IfText1.Text<>"23456"Then n=n+1 Print"口令输入错误"&n&"次" EndIf EndSub 希望程序运行时得到左图所示的效果,即:输入口令,单击“确认口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是
单选题下列叙述中正确的是( )。 A) 线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的 B) 线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构 C) 线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构 D) 线性表的链式存储结构与顺序存储结构在存储空间的需求上没有可比性
单选题下面Change事件过程中,文本框控件Text1用来接收数字字符的输入,该事件过程的作用是( )。
Private Sub Text1_Change ( )
Text2.Text=Str(6.28* Val(Text1.Text))
End Sub
单选题下列程序的执行结果为( )。 Private Sub Command1_Click() Dim FirStr As String FirStr="abcdef" Print Pat(FirStr) End Sub Private Function Pat(xStr As String) As String Dim tempStr As String, strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i<=Len(xStr)-3 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr, strLen -1+1,1) i=i+1 Loop Pat=tempStr End Function A) abcdef B) afbecd C) fedcba D) defabc
单选题设用复制、粘贴的力怯建立了一个命令安钮数组Command1,以下列该数组说法错误的是