以下叙述中错误的是______。

单项选择题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text="’ Text2.Text="’ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,6) End Sub 程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是______，

A.ChinaBeijing
B.China
C.Beijing
D.ChinaB

单项选择题

在窗体上画一个水平滚动条，其属性值满足Min＜Max。程序运行后，如果单击滚动条右端的箭头，则Value属性值______。

A.增加一个SmallChange量
B.减少一个SmallChange量
C.增加一个LargeChange量
D.减少一个LargeChange量

单项选择题

在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为Combol，Commandl和Text1，然后编写如下事件过程： Private Sub Form_Load() Combol.Addltem"AAAAA" Combol.Addltem"BBBBB" Combol.Addltem"CCCCC" Combol.Addltem"DDDDD" Combol.Addltem"EEEEE" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为______。

A.Text1.Text=Combo1.List(2)
B.Text1.Text=Combo1.Text
C.Text1.Text=Combo1.List(3)
D.Text1.Text=Combo1.Listlndex

单项选择题

为了使文本框只具有垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为______。

A.0
B.1
C.2
D.3

单项选择题

能够用于标识对象名称的属性是______。

A.Name
B.Caption
C.Value
D.Text

单项选择题

关于水平滚动条，如下叙述中错误的是______。

A.当滚动框的位置改变时，触发Change事件
B.当拖动滚动条中的滚动框时，触发Scroll事件
C.LargeChange属性是滚动条的最大值
D.Value是滚动条中滚动框的当前值

单项选择题

对于列表框控件List1，能够表示当前被选中列表项内容的是______。

A.List1.Text
B.List1.lndex
C.List1.Listlndex
D.List1.List

单项选择题

当文本框中的内容发生改变时所触发的事件是______。

A.KeyUp
B.Change
C.LostFocus
D.GotFocus

单项选择题

定时器的Interval属性的值是一个整数，它表示的是______。

A.毫秒数
B.秒数
C.分钟数
D.小时数

单项选择题

阅读程序： Private Sub Form_Click() a=0 Forj=1 To 15 a=a+j Mod 3 Nextj Print a End Sub 程序运行后，单击窗体，输出结果是______。

A.105
B.1
C.120
D.15

单项选择题

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下代码： Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)j j=j10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是______。

A.4321
B.1234
C.34
D.12

单项选择题

在窗体上画一个命令按钮，名称为Commandl，然后编写如下代码： Option Base 0 Private Sub Commandl_Click() Dim A1(4)As Integer,A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox("请输入一个整数") A2(3-k)=A1(k+1) Nextk Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为______。

A.0
B.1
C.2
D.3

单项选择题

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Commandl，然后编写如下程序： Private Sub func(L As Label) L.Caption="1234" End Sub Private Sub Form_Load() Label1.Caption="ABCDE" Label2.Caption=10 End Sub Private Sub Commandl_Click() a=Val(Labe12.Caption) Call func(Label1) Labe12.Caption=a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为______。

A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10

单项选择题

在窗体上画一个命令按钮(名称为Commandl)，并编写如下代码： Function Funl(ByVal a As Integer,b As Integer)As Integer Dim t As Integer t=a-b b=t+a Fun1=t+b End Function Private Sub Commandl_Click() Dim x As Integer x=10 Print Funl(Fun1(x,(Fun1(x,x-1))),x-1) End Sub 程序运行后，单击命令按钮，输出结果是______。

A.10
B.0
C.11
D.21

单项选择题

设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" strL=Len(xStr) i=strL/2 Do While i＜=strL tStr=tStr&Mid(xStr,i+1,1) i=i+1 Loop Fun=tStr&tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程： Private Sub Commandl_Click() Dim Sl As String S1="ABCDEF" Text1.Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是______。

A.ABCDEF
B.abcdef
C.defdef
D.defabc

单项选择题

在窗体上画一个命令按钮和一个文本框(名称分别为Commandl和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Commandl_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为______。

A.vbVB
B.不显示任何信息
C.VB
D.出错

单项选择题

设有以下程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) Ify Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为______。

A.100
B.50
C.120
D.70

单项选择题

设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String10 TelNum As String20 End Type 在窗体上画一个名为Commandl的命令按钮，要求当执行事件过程Commandl_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是______。

A.Private Sub Commandl_Click() Dim BAs Books Open"Person.txt"For Output As#1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write #1,B.Name,B.TelNum Close#1 End Sub B．Private Sub Commandl_Click() Dim BAs Books Open"Person.txt"For Input As#1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Print #1,B.Name,B.TelNum Close#1 End Sub C．Private Sub Commandl_Click() Dim BAs Books Open"Person.txt"For Output As#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码") Write #1,B Close#1 End Sub
D.Private Sub Commandl_Click() Open"Person.txt"For Input As#1 Name=lnputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1,Name,TelNum Close#1 End Sub

单项选择题

有如下过程代码： Sub var_dim() Static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa;numb End Sub 连续3次调用var dim过程，第3次调用时的输出是______。

A.2 1
B.2 3
C.6 1
D.6 3

单项选择题

在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Commandl_Click() Dim a(3,3) For m=1 To 3 For n=1 To 3 Ifn=m Or n=4-m Then a(m，n)=m+n Else a(m，n)=0 End If Print a(m, n); Nextn Print Nextm End Sub 运行程序，单击命令按钮，窗体上显示的内容为______。

A.2 0 0 0 4 0 0 0 6
B.2 0 4 0 4 0 4 0 6
C.2 3 0 3 4 0 0 0 6
D.2 0 0 0 4 5 0 5 6

单项选择题

假定有如下语句： answer$=MsgBox("String1",,"String2","String3",2) 执行该语句后，将显示一个信息框，单击其中的“确定”按钮，则answer$的值为______。

A.String1
B.String2
C.String3
D.1

以下叙述中错误的是______。

你可能感兴趣的试题

在软件开发中，需求分析阶段产生的主要文档是______。

下列叙述中正确的是______。

层次型、网状型和关系型数据库划分原则是______。

面向对象方法中，继承是指______。

下列叙述中正确的是______。

软件生命周期是指______。

软件测试的目的是______。

一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是______。

数据库设计中反映用户对数据要求的模式是______。

有三个关系R、S和T如下： 则由关系R和S得到关系T的操作是______。

以下叙述中正确的是______。

下列打开“代码窗口”的操作中错误的是______。

以下叙述中错误的是______。

设a=2，b=3，c=4，d=5，下列表达式的值是______。 a＞b And c＜=d Or 2*a＞c

在标准模块中用Public关键字定义的变量，其作用域为______。

设a=10，b=5，c=1，执行语句Print a＞b＞c后，窗体上显示的是______。

为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为______。

以下说法中正确的是______。

设有语句： Open"c:\Test.Dat"For Output As#1 则以下叙述中错误的是______。

在窗体上画一个水平滚动条，其属性值满足Min＜Max。程序运行后，如果单击滚动条右端的箭头，则Value属性值______。

为了使文本框只具有垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为______。

能够用于标识对象名称的属性是______。

关于水平滚动条，如下叙述中错误的是______。

对于列表框控件List1，能够表示当前被选中列表项内容的是______。

当文本框中的内容发生改变时所触发的事件是______。

定时器的Interval属性的值是一个整数，它表示的是______。

阅读程序： Private Sub Form_Click() a=0 Forj=1 To 15 a=a+j Mod 3 Nextj Print a End Sub 程序运行后，单击窗体，输出结果是______。

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下代码： Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是______。

设有以下程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) Ify Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为______。

有如下过程代码： Sub var_dim() Static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa;numb End Sub 连续3次调用var dim过程，第3次调用时的输出是______。

假定有如下语句： answer$=MsgBox("String1",,"String2","String3",2) 执行该语句后，将显示一个信息框，单击其中的“确定”按钮，则answer$的值为______。

有三个关系R、S和T如下：则由关系R和S得到关系T的操作是______。

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下代码： Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)j j=j10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是______。