任何控件都具有的属性为

单项选择题

窗体上有2个名称分别为Text1和Text2的文本框，1个名称为Command1的命令按钮。单击Command1时，Text1中选中的文本将显示在Text2中。下列能实现上述操作的事件过程是

A．Private Sub Command1_Click() Text2.Text = Mid(Text1.Text, Text1.SelStart, Text1.SelLength) End Sub
B．Private Sub Command1_Click() Text2.Text = Mid(Text1.Text, , Text1.SelLength, Text1.SelStart) End Sub
C．Private Sub Command1_Click() Text2.Text = Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength) End Sub
D．Private Sub Command1_Click()

单项选择题

下列有关控件的叙述中，正确的是

A．命令按钮不响应DblClick事件
B．标签的主要作用是显示文本信息，它不响应Click事件
C．标签中的文本信息通过Text属性显示
D．在设计阶段，图片框中建立的控件可以拖拽到图片框之外

单项选择题

对于滚动条控件，下列说法正确的是

A．Max属性值不能小于Min属性值
B．LargeChange属性值必须大于SmallChange属性值
C．SmallChange属性值可以大于LargeChange属性值
D．单击滚动箭头时会触发Scroll事件

单项选择题

为了在列表框中实现多选操作，需设置的属性为

A．ListCount
B．MultiSelect
C．SelCount
D．Selected

单项选择题

以下关于框架的叙述中，正确的是

A．当框架的Enabled属性设置为False时，框架中建立的所有对象在运行时都禁用
B．在设计阶段，在框架外画的控件，一经拖到框架内，将自动变为框架容器中的控件
C．移动框架时，框架内各控件的Left和Top属性值也将随之改变
D．移动框架时，在框架内建立的控件不会随着移动

单项选择题

任何控件都具有的属性为

A．Caption
B．ForeColor
C．FontName
D．Name

单项选择题

窗体上有1个名称为Picture1的图片框，能将图片文件d:\vb\flower6.jpg正确装入图片框的语句为

A．Picture1.LoadPicture "d:\vb\flower6.jpg"
B．Picture1.Picture = LoadPicture(d:\vb\flower6.jpg)
C．Picture1 = LoadPicture("d:\vb\flower6.jpg")
D．Picture1.Picture = "d:\vb\flower6.jpg"

单项选择题

编写如下程序：Private Sub Command1_Click() For i = 1 To 5 Print Tab(6 - i); For j = i To 1 Step -1 Print "*"; Next j Print Next iEnd Sub程序运行后的输出结果是

A．* ** *** **** *****
B．* ** *** **** *****
C．***** ***** ***** ***** *****
D．***** ***** ***** ***** *****

单项选择题

下面程序的功能是：从键盘输入若干个自然数，输入-1则结束输入，然后计算平均值输出（因事先不知道执行时会输入多少个数，定义一个动态数组存放这些数）。 Private Sub Command1_Click() Dim a() As Integer n = 0 Do x = InputBox("请输入一个自然数，输入-1结束") If x <> -1 Then n = n + 1 ___________ a(n) = x End If Loop Until x = -1 For k = 1 To n s = s + a(k) Next Print s / n End Sub 以上程序不完整，应在横线处填写的是

A．ReDim a(n)
B．ReDim Preserve a(n)
C．ReDim a
D．ReDim a()

单项选择题

编写如下程序：Private Sub Command1_Click() Dim a%, b%, c% a = 8: b = 3 Do c = a - b Print c; a = b: b = c Loop Until Abs(c) > 10End Sub程序运行后，单击命令按钮Command1，输出结果是

A．5
B．5 -2 7 -9
C．5 -2 7 -9 16
D．一直输出，是死循环

单项选择题

编写如下程序：Private Sub Command1_Click() Dim a$, b$, c$, c1$, c2$ a = InputBox("请输入一个字符串") b = InputBox("再输入另一个字符串") c = "" For k = 1 To IIf(Len(a) < Len(b), Len(b), Len(a)) c1 = IIf(k <= Len(a), Mid(a, k, 1), "") c2 = IIf(k <= Len(b), Mid(b, k, 1), "") c = c & c1 & c2 Next k Print cEnd Sub程序运行后，单击命令按钮Command1，然后从键盘依次输入字符串："12345678"、"ABCDE"，则输出结果是

A．A1B2C3D4E5678
B．1A2B3C4D5E678
C．12345678ABCDE
D．ABCDE12345678

单项选择题

在窗体上有4个文本框，名称分别为Text1、Text2、Text3、Text4，和1个名称为Command1的命令按钮，然后编写如下程序代码： Private Sub Command1_Click() Dim year%, month%, days% year = Val(Text1) month = Val(Text3) For k = 1 To month - 1 Select Case k Case 1, 3, 5, 7, 8, 10: days = days + 1 Case 4, 6, 9, 11: days = days + 30 Case 2: days = days +______________ End Select Next k Text4 = days End Sub Function LeapYear(x As Integer) As Integer If x Mod 400 = 0 Or x Mod 4 = 0 And x Mod 100 <> 0 Then LeapYear = 1 Else LeapYear = 0 End If End Function 程序的功能是在Text1、Text2、Text3中分别输入年、月、日，然后单击命令按钮，则可在Text4中显示该天是当年的第几天，如图所示。程序不完整，在横线上应填写的是

A．28
B．29
C．28 + LeapYear(year)
D．LeapYear(year)

单项选择题

设有以下程序代码：Private Sub Command1_Click() Dim x As String, y As Integer x = "考试" y = 1 proc x, y Print "第"; y; "次"; xEnd SubSub proc(ByVal a As String, b As Integer) a = "参加" + a b = b + 1End Sub运行程序，单击命令按钮后显示的是

A．第1次考试
B．第2次考试
C．第1次参加考试
D．第2次参加考试

单项选择题

编写如下程序：Private Sub Command1_Click() Dim k As Integer x = 1 For k = 1 To 3 x = x * fun(k) Next k Print xEnd SubFunction fun(x As Integer) As Integer Static a a = a + 1 fun = a * xEnd Function程序运行后，单击命令按钮Command1，输出结果为

A．6
B．36
C．3
D．30

单项选择题

编写如下程序：Private Sub Form_Click() Dim a a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) n = InputBox("请输入一个小于10的正整数") i = UBound(a) For k = n To (i - n) / 2 + n x = a(k) a(k) = a(i) a(i) = x i = i - 1 Next k For k = 0 To UBound(a) Print a(k); Next kEnd Sub程序运行后，单击窗体，并输入4，则输出结果是

A．1 2 3 4 5 6 7 8 9 10
B．10 9 8 7 6 5 4 3 2 1
C．1 2 3 4 10 9 8 7 6 5
D．1 2 3 4 5 10 9 8 7 6

单项选择题

在窗体上有一个List1列表框，并有如图所示的5个项目，还有一个Text1文本框和一个Command1命令按钮，并编写了如下程序代码：
Private Sub Command1_Click() Dim ch As String ch = "" For k = 0 To List1.ListCount - 1 If Left(List1.List(k), Len("数据")) = "数据" Then List1.RemoveItem k End If Next k For k = List1.ListCount - 1 To 0 Step -1 ch = ch & List1.List(k) Next k Text1 = chEnd Sub程序运行时单击命令按钮后，在文本框中显示的是

A．程序设计计算机原理网络程序设计
B．网络程序设计计算机原理程序设计
C．程序设计数据结构计算机原理数据库原理网络程序设计
D．网络程序设计数据库原理计算机原理数据结构程序设计

单项选择题

有如下过程：Sub proc() Dim ch As String Open "file1.txt" For Input As #1 Open "file1_bak.txt" For Output As #2 Do While Not EOF(1) ch = Input$(1, #1) Print #2, ch; Loop Close #1, #2End Sub这一过程的功能是

A．读入文件file1.txt的内容在窗体上显示
B．读入文件file1_bak.txt的内容在窗体上显示
C．把文件file1_bak.txt复制为file1.txt文件
D．把文件file1.txt复制为file1_bak.txt文件

单项选择题

窗体Form1上有1个名称为Text1的文本框，1个名称为Command1的命令按钮。为了使得程序开始运行后，直接把焦点移到文本框中，正确的事件过程为

A．Private Sub Form_Load() Text1.SetFocus Form1.Show End Sub
B．Private Sub Form_Load() Form1.Show Text1.SetFocus End Sub
C．Private Sub Form_Load() Text1.GotFocus Form1.Show End Sub
D．Private Sub Form_Load() Form1.Show Text1.GotFocus End Sub

任何控件都具有的属性为

你可能感兴趣的试题

某二叉树的前序序列为ABCDEFG，中序序列为DCBAEFG，则该二叉树的深度（根结点在第1层）为

设栈的顺序存储空间为S(0:49)，栈底指针bottom=49，栈顶指针top=30（指向栈顶元素）。则栈中的元素个数为

下列叙述中正确的是

下面不能作为软件需求分析工具的是

某系统结构图如下图所示该系统结构图的宽度是

下列叙述中正确的是

下面不属于对象基本特点的是

在数据库设计中，描述数据间内在语义联系得到E-R图的过程属于

有两个关系R，S如下，由关系R和S得到关系 T，则所使用的操作为

关系数据模型

下列关于标准模块的叙述中，错误的是

对于语句Dim Var1#, Var2 As Integer，下列说法中正确的是

与数学式子对应的Visual Basic表达式是

下列关于数组的叙述中，正确的是

以下操作中，不能改变窗体大小的是

下列叙述中，错误的是

用Open语句打开文件时，如果省略"For 方式"，则该文件的存取方式是

以下能正确输出2,345.67的语句是

以下程序段的功能是求两个数中的较大数，无法实现该功能的是

默认属性是某种控件最常用或最重要的属性，在Visual Basic中设置这样的属性时，不必给出属性名。下列中默认属性不是Value的控件是

窗体上有2个名称分别为Text1和Text2的文本框，1个名称为Command1的命令按钮。单击Command1时，Text1中选中的文本将显示在Text2中。下列能实现上述操作的事件过程是

下列有关控件的叙述中，正确的是

对于滚动条控件，下列说法正确的是

为了在列表框中实现多选操作，需设置的属性为

以下关于框架的叙述中，正确的是

任何控件都具有的属性为

窗体上有1个名称为Picture1的图片框，能将图片文件d:\vb\flower6.jpg正确装入图片框的语句为

编写如下程序：Private Sub Command1_Click() For i = 1 To 5 Print Tab(6 - i); For j = i To 1 Step -1 Print "*"; Next j Print Next iEnd Sub程序运行后的输出结果是

编写如下程序：Private Sub Command1_Click() Dim a%, b%, c% a = 8: b = 3 Do c = a - b Print c; a = b: b = c Loop Until Abs(c) > 10End Sub程序运行后，单击命令按钮Command1，输出结果是

设有以下程序代码：Private Sub Command1_Click() Dim x As String, y As Integer x = "考试" y = 1 proc x, y Print "第"; y; "次"; xEnd SubSub proc(ByVal a As String, b As Integer) a = "参加" + a b = b + 1End Sub运行程序，单击命令按钮后显示的是

编写如下程序：Private Sub Command1_Click() Dim k As Integer x = 1 For k = 1 To 3 x = x * fun(k) Next k Print xEnd SubFunction fun(x As Integer) As Integer Static a a = a + 1 fun = a * xEnd Function程序运行后，单击命令按钮Command1，输出结果为

有如下过程：Sub proc() Dim ch As String Open "file1.txt" For Input As #1 Open "file1_bak.txt" For Output As #2 Do While Not EOF(1) ch = Input$(1, #1) Print #2, ch; Loop Close #1, #2End Sub这一过程的功能是

窗体Form1上有1个名称为Text1的文本框，1个名称为Command1的命令按钮。为了使得程序开始运行后，直接把焦点移到文本框中，正确的事件过程为

某系统结构图如下图所示
该系统结构图的宽度是

与数学式子
对应的Visual Basic表达式是