单选题以下关于键盘事件的叙述中,错误的是
单选题在窗体上画—个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程: PrivateSubCommand1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2,4,6 x=20 Case Is<10 x=30 Case l0 x=40 End Select Text2.Text=x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是 _________。
单选题运行以下程序后,输出结果为______。
Private Sub Command1_Click()
a=1:b=2:c=3
Call test(a,b+3,(c))
Print "main:";a;b;c
End Sub
Private Function test(p,m,n)
p=p+1:m=m+1:n=n+1
Print "sub:";p;m;n
End Function
单选题执行如下语句:
a=InputBox("Today","Tomorrow","Yesterday","Daybeforeyesterday",5)
将显示一个输入对话框,在对话框的输入区中显示的信息是
____
。
单选题以下关于单选按钮和复选框的叙述中,正确的是______。
A.单选按钮和复选框都能从多个选项中选择一项
B.单选按钮和复选框被选中时,选中控件的Value属性值为True
C.是否使用框架控件将单选按钮分组,对选项没有影响
D.是否使用框架控件将复选框分组,对选项没有影响
单选题如果在立即窗口中执行以下操作(<CR>是回车键): a=8 <CR> b=9 <CR> print a>b<CR> 则输出结果是 ______。 A) -1 B) 0 C) False D) True
单选题设有下面的语句:PrintIIf(x>0,1,IIf(x<0,-1,0))与此语句输出结果不同的程序段是______。A.B.C.D.
单选题有下面程序代码: Private Sub Commandl—Click() Dim a As Integer,b a=2 b=3 Print fun(a,b);a;b End Sub Private Function fun(ByVal x As Integer,y)As Integer y=x+y x=y fun=x End Function执行Commandl—Click过程后的输出结果是( )。
单选题在窗体上画一个列表框、一个文本框及一个按钮,然后编写如下两个事件过程。 Private Sub Form_Load() List.Addltem"357" List.Addltem"246" List.Addltem"123" List.Addltem"456" Text1.Text="" End Sub Private Sub Command1_C/ick() List. ListIndex=3 Print List.Text+Text1.Text End Sub 程序运行后,在文本框中输入“789”,然后双列表框中的“456”,则输出结果为______。
单选题设有数组声明:Dim s(2, 3),下面错误的程序段是
单选题栈结构不适用于下列哪一种应用?
单选题阅读下列程序: Private Sub Command1_Click() Dim i As Integer, k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function单击命令按钮,执行程序,输出结果是( )。
单选题已知X<Y,A>B,正确表示它们之间关系的式子是( )。
单选题如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为______。
单选题已知通用对话框名为Cdlg,则执行下列的______语句,将弹出“另存为对话框”对话框。
单选题在窗体上有一名为list1的列表框和名为Command1的命令按钮,要求程序运行后;如果单击命令按钮,则把列表框中所有的列表项目写到顺序文件list.txt 中。下列能完成该操作的程序是______。
单选题下列文件函数中,作用为以整数形式返回Open 语句可以使用的下一个有效的文件号的是______ 。
单选题下面程序段,运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4),i%,t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t=";t, End Sub Function Tof(a() As Integer) Dim t#,i% t=1 For i=2 To UBound(
单选题下列数组定义中错误的是
单选题在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和 Command1,然后编写如下两个事件过程: Private Sub Command1_Click() str Text=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text),3) End Sub 程序运行后,如果在对话框中输入abcdef,则在标签中显示的内容是 ______。
