单选题下列针对框架控件的叙述中,错误的是______。
A.框架是一个容器控件
B.框架也有Click和DblClick事件
C.框架也可以接受用户的输入
D.使用框架的主要目的是为了对控件进行分组
单选题设通用对话框控件的名称为CD1,希望在打开文件对话框中的“文件类型”列表中包含:所有文件、Word文档和文本文件这3类文件,在程序中设置Filter属性时正确的是
A. CD1.Pilter=“所有文件|Word文档|文本文件”
B. CD1.Filter=“所有文件|*.*|Word文档|*.doc|文本文件|*.txt”
C. CD1.Filter=所有文件|*.*|Word文档|*.doc|文本文件|*.txt
D. CD1.Filter=“*.*|所有文件|*.doc|Word文档|*.txt|文本文件”
单选题在Visual Basic环境下设计应用程序时,系统能自动检查出的错误是( )。
单选题在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件;6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签,其中,Label4~Label6分别显示“A”、“B”、“A*B”等文字信息,标签Label1、Label2分别显示其右侧的滚动条Value属性值,Label3显示A*B的计算结果,如图1所示。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命令按钮“计算”时,对标签Label1、Label2中显示的两个值求积,并将结果显示在Label3中。以下不能实现求积功能的事件过程是()。
单选题假定在图片框控件Picture1中装入了一个图形,为了在程序运行时清除该图形,则应使用下列哪种方法( )。
单选题已知数组Dim a(1 To 10)As Integer,则下面正确调用GetValue函数的是( )。 Private Function GetValue(a() As Integer) As Integer For i=1 T0 10 GetValue=GetValue+a(i) Nexti End Function
单选题要求产生10个随机整数,存放在数组arr中。从键盘输入要删除的数组元素的下标,将该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如下程序:
Option Base 1
Private Sub Command1_Click()
Dim arr(10)As Integer
For i=1 To 10 "循环1
arr(i)=Int(Rnd*100)
Print arr(i);
Next
x=Input("输入1-10的一个整数:")
For i=x+1 To 10 "循环2
arr(i-1)=arr(i)
Next
For i=1 To 10 "循环3
Print arr(i);
Next
End Sub
程序运行后发现显示的结果不正确,应该进行的修改是______。
单选题窗体的MouseUp事件过程如下:Private Sub Form—MouseUp(Buaon As Integer,Shift As Integer,X As Single,Y As Single)End Sub关于以上定义,以下叙述中错误的是( )。
单选题以下不能触发滚动条Change事件的操作是( )。
单选题编写如下程序:Function Fun1(ByVal a As Integer, b As Integer) As Integer a = b + a b = 2 * a Fun1 = bEnd FunctionPrivate Sub Command1_Click() Dim x As Integer x = 5 Print Fun1(Fun1(x, x - 1), x - 2)End Sub程序运行后,单击命令按钮Command1,输出结果为
单选题设窗体上有一个名称为Timerl的计时器控件,其Interval属性被设置为500,Enabled属性被设置为True;还有一个名称为Textl的文本框和下面的事件过程:Private Sub Timer1_Timer()Static x As Longx=x+1Text1=xEnd Sub程序运行一段时间后,文本框中显示的是100,则表示( )。
单选题以下语句执行时,从键盘上输入Zhang,执行结果是______。 Dim a As String a=InputBox("Input","","Name") Print a
单选题窗体上有1个名称为Listl的列表框,1个名称为Textl的文本框。编写如下程序代码: Private Sub Form—Load() Listl.AddItem“花卉” Listl.Addhem“绿植” Listl.Addhem“盆景” Textl.Text=“” End Sub Private Sub Listl—DblClick() Print Listl+Textl.Text End Sub程序运行时,在文本框中输入“摆放”,然后双击列表框中的“绿植”,输出结果为( )。
单选题设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程: Private Sub Command1_Click( ) Static b As Variant b=Array(1,3,5,7,9) …… End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5,3,1)。为实现此功能,省略号处的程序段应该是
单选题用户设计菜单系统时,系统默认菜单系统位置( )
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command 1_
Click() Static y As Integer CIs
For i=0 To 2 x=x +y
y=y +3 Next Print x, yEnd
Sub程序运行后,连续二次单击Command1按钮后,窗体上显示的是______。
A. 9 9
B. 36 18
C. 30 12
D. 63 27
单选题已知通用对话框名为Cd1g,则执行下列的( )语句,将弹出“打开文件”对话框。
单选题某人创建了1个工程,其中的窗体名称为Form1;之后有添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是
单选题在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i=1 To 4 For i=1 To 4 a(i,j)=(i-1)*3 + i Next j Next i For i=3 To 4 For j=3 To 4 Print a(j,i); Next j Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容为
单选题设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为( )。
