在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)...

单项选择题

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

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

单项选择题

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

A．Value
B．ByVal
C．ByRef
D．Reference

单项选择题

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

A．True
B．False
C．1
D．出错

单项选择题

以下说法中正确的是______。

A．事件过程也是过程，只能由其他过程调用
B．事件过程的过程名是由程序设计者命名的
C．事件过程通常放在标准模块中
D．事件过程是用来处理由用户操作或系统激发的事件的代码

单项选择题

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

A．该语句打开C盘根目录下的一个文件Test.Dat，如果该文件不存在则出错
B．该语句打开C盘根目录下一个名为Test.Dat的文件，如果该文件不存在则创建该文件
C．该语句打开文件的文件号为1
D．执行该语句后，就可以通过Print #句向文件Test.Dat中写入信息

单项选择题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：
Private Sub Form_Load()
Show
Text1. Text=" "
Text2. Text=" "
Text1. SetFocus
End Sub
Pfivae 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量

单项选择题

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

A．Text1. Text=Combo1. List(2)
B．Text1. Text=Combo1. Text
C．Text1. Text=Combol. List(3)
D．Text1. Text=Combo1. ListIndex

单项选择题

为了使文本框只具有垂直滚动条，应先把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.Index
C．List1.ListIndex
D．List1.List

单项选择题

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

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

单项选择题

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

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

单项选择题

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

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

单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Chck()
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

单项选择题

在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：
Option Base 0
Private Sub Command1_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)
Next k
Print A2(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为______。

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

单项选择题

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：
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 Command1_Click()
a=Val(Label2. Caption)
Call func(Label1)
Label2. Caption=a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为______。

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

单项选择题

在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load()
Show
Text1. Text=" "
Text1. SetFocus
End Sub
Private Sub Command1_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．出错

单项选择题

在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：
Function Fun1(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 Command1_Click()
Dim x As Integer
x=10
Print Fun1(Fun1(x,(Fun1(x, x-1))), x-1)
End Sub
程序运行后，单击命令按钮，输出结果是______。

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

单项选择题

设有以下程序：
Private Sub Form_Click()
x=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y 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 String * 10
TelNum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是______。

A．Private Sub Command1_Click()Dim B As BooksOpen "Person.txt" For Output As #1Ｂ.Name=InputBox("输入姓名")Ｂ.TelNum=InputBox("输入电话号码")Write#1, B. Name, B. TelNumClose #1End Sub
B．Private Sub Command1_Click()Dim B As BooksOpen "Person.txt" For Input As #1Ｂ.Name=InputBox("输入姓名")Ｂ.TelNum=InputBox("输入电话号码")Print#1, Ｂ. Name. Ｂ. TelNumClose #lEnd Sub
C．Private Sub Command1_Click()Dim B As BooksOpen "Person.txt" For Output As #1Ｂ.Name=InputBox("输入姓名")Ｂ.TelNum=InputBox("输入电话号码")Write #1, BClose #1End Sub
D．Private Sub Command1_Click()Open "Person.txt" For Input As #1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Print#1. Name. TelNumClose #1End 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 Command1_Click()
Dim a(3, 3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m, n)=m+n
Else
a(m, n)=0
End If
Print a(m, n);
Next n
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为______。

A．2 0 00 4 00 0 6
B．2 0 40 4 04 0 6
C．2 3 03 4 00 0 6
D．2 0 00 4 50 5 6

单项选择题

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

A．内模式
B．概念模式
C．外模式
D．设计模式

单项选择题

设有如下通用过程：
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的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1="ABCDEF"
Text1. Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是______。

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

你可能感兴趣的试题

下列叙述中正确的是______。

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

软件生命周期是指______。

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

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

下列叙述中正确的是______。

软件测试的目的是______。

以下叙述中正确的是______。

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

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

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

以下叙述中错误的是______。

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

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

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

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

设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 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是______。

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Chck() 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) If y 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次调用时的输出是______。

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

有三个关系R、S和T如下：

则由关系R和S得到关系T的操作是______。

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

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

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

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

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Chck()
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
程序运行后，单击命令按钮，其输出结果是______。

设有以下程序：
Private Sub Form_Click()
x=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y 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次调用时的输出是______。