引用列表框的最后一项应使用( )。

执行以下程序段后，变量C$的值为( )。
A$="Visual Basic Programing"
B$="Quick"
C$=B$ & Ucase(Mid$(A$,7,6)) & Right$(A$,11)

A．Visual BASIC Programing
B．QuickBasic Programing
C．QUICK Basic Programing
D．Quick BASIC Programing

单项选择题

下列叙述中正确的是( )。

A．标签控件不能接收焦点事件
B．如果将文本框的TabStop属性值设为False，则该文本框将不能接收焦点事件
C．窗体控件能接收焦点事件
D．不能通过程序代码设置焦点属性

单项选择题

假定有如下事件过程：
Privte Sub Form_Click0
　　Dim x As Integer,n As Integer
　　x=1
　　n=0
　　Do While x＜28
　　　　x=x*3
　　　　n=n+1
Loop
Print x,n
End Sub
程序运行后，单击窗体，输出结果是( )。

A．81 4
B．56 3
C．28 1
D．243 5

单项选择题

当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的( )。

A．AutoSize属性
B．Resize事件
C．AutoRedraw属性
D．Stretch方法

单项选择题

下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click()
　Const a=6
　Dim x (a) As Integer
　For I=1 to a
　　x(i)=1^2
　Next I
　Print x(i)
End Sub

A．36
B．25
C．1
D．出错信息

单项选择题

下列程序的输出结果为( )。
Private Sub Command1_Click()
Dim a(20)
For j=1 To 20 Step2
　　a(j)=j
Next i
Print a(1)+a(2)+a(3)
End Sub

A．4
B．5
C．6
D．7

单项选择题

下面程序运行结果是( )。
Private Sub Form_Click()
　Dim x As Single,y As Single
　x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
　Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10")
End Sub

A．_35_2510
B．25102510
C．_35_35_
D．2510_35_

单项选择题

编写如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
If(Button And 3)=3 Then
Print“AAAA”
End If
End Sub
程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为( )。

A．左
B．右
C．同时按下左、右
D．按什么键都不显示

单项选择题

以下VB6.0控件中，有Caption属性的是( )。

A．组合框
B．列表框
C．计时器
D．单选按钮

单项选择题

引用列表框的最后一项应使用( )。

A．List1.List(List1.ListCount-1)
B．List1.List(List1.ListCount)
C．List1.List(ListCount)
D．List1.List(List Count-1)

单项选择题

用标准工具栏中的工具按钮不能执行的操作是( )。

A．添加工程
B．打印源程序
C．运行程序
D．打开程序

单项选择题

使图像(Image)控件中的图像自动适应控件的大小应( )。

A．将控件的AutoSize属性设为True
B．将控件的AutoSize属性设为False
C．将控件Stretch属性设为True
D．将控件的Stretch属性设为False

单项选择题

如果模块定义为：
DefStr C-F
则以下语句运行后输出结果是( )。
d$="321"
f="654"
print d+f$

A．321654
B．975
C．654321
D．显示出错信息

单项选择题

将任意一个正的两位数N的个位数与十位数对换的表达式为( )。

A．(N-Int(N/10)*10)*10+Int(N/10)
B．N-Int(N)/10*10+Int(N)/10
C．Int(N/10)+(N-Int(N/10))
D．(N-Int(N/10)*10+Int(N/10)

单项选择题

下列程序的执行结果为( )。
n=0
j=1
Do Until n＞2
　　n=n+1
　　j=j+n*(n+1)
Loop
Print n;j

A．0 1
B．3 7
C．3 21
D．3 13

单项选择题

若要清除列表框的所有内容，则实现的方法是( )。

A．Removeitem
B．Cls
C．Clear
D．以上均不可以

单项选择题

如果在一新建的工程中使用其他工程已设计好的窗体，可以采用( )步骤将其添加到当前工程中。

A．使用“工程”菜单中的“添加窗体”命令打开“添加窗体”对话框，从“现存”选项卡中选择所需的窗体文件
B．使用“工程”菜单中的“添加模块”命令打开“添加模块”对话框，从“现存”选项卡中选择所需的窗体文件
C．在Windows资源管理器中直接双击所需的窗体文件
D．不可以将已建立好的窗体文件添加到当前工程中

单项选择题

下列不一定是传值的虚实结合方式的选项是( )。

A．调用过程时实参为表达式
B．调用过程时实参为常量
C．调用过程时实参为变量名
D．调用过程时实参将变量名用括号括起来

单项选择题

在以下程序中，变量S为( )。
DefDbl A-H O-Z
DefInt I-N
S=1
For I=1 To 20
　　S=S*I
Next I
Printf"S=",S

A．字符串变量
B．长整型变量
C．单精度实型变量
D．双精度实型变量

单项选择题

声明一个变量为局部变量应该刚( )。

A．Global
B．Private
C．Static
D．Public

单项选择题

一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Public X As Integer，在Model1中有语句Public Y As Integer，则以下叙述中正确的是( )。

A．变量X、Y的作用域相同
B．Y的作用域是Model1
C．在Form1中可以直接使用X
D．在Form2中可以直接使用X和Y

单项选择题

设有如下的记录类型：
TypeStudent
number As String
name AS String
age As Integer
End Type
则正确引用该记录类型变量的代码是( )。

A．Student.name="张红"
B．Dim s As Student
s.name="张红"
C．Dim s As Type Student
s.name="张红"
D．Dim s As Type
s.name="张红"

单项选择题

对下列二叉树

进行中序遍历的结果是( )。

单项选择题

从工程管理角度，软件设计一般分为两步完成，它们是( )。

A．概要设计与详细设计
B．数据设计与接口设计
C．软件结构设计与数据设计
D．过程设计与数据设计

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Crick()
Dim I As Integer,n As Integer
For j=0 To 50
　i=i+3
　n=n+1
　If i＞10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是( )。

A．2
B．3
C．4
D．5

单项选择题

在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim strAs String,n As Integer
Str=UCase(Chr(KeyAscii)
n=Len(str)
Text1=String(n,str)
End Sub
程序运行后，如果在键盘上输入单字母“k”，则在文本框Text1中显示的内容为( )。

A．kk
B．kK
C．KK
D．Kk

单项选择题

设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer，_
Shift As Integer,X As Single,Y As Single)
Print"程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print"Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是( )。

A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1,3,5,7,9)
j=1
Fori=5 To 1 Step-1
s=s+a(i)j
j=j10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是( )。

A．97531
B．135
C．975
D．13579

单项选择题

下列程序的执行结果是( )。
Privaae Sub Form_Activate
Dim score(3)As Integer,total As Integer
Dim aa_score As Variant
score(1)=50:score(2)=14:score(3)=36
total=0:i=0
For Each aa_score In score
i=i+1
total=total+aa_score
Print i,aa_score,total
Next
End Sub

A．1 0 0
2 50 50
3 14 64
4 36 100
B．1 50 50
2 14 64
3 36 100
C．0 50 50
1 14 64
2 36 100
3 36 100
D．0 0 0
1 50 50
2 14 64

单项选择题

在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Form_Click()
　　Dim arr(10,10)As Integer
　　Dim i As Integer,j As Integer
　　For i =2 To 4
　　　　For j =2 To 4
　　　　　　arr(i,j)=i*j
　　　　Next j
　　Next i
　　Label1.Caption=Str(arr(2,2)+arr(3,3))
End Sub
程序运行后，单击窗体，在标签中显示的内容是( )。

A．12
B．13
C．14
D．15

单项选择题

设在工程中有一个标准模块，其中定义了如下类型：
Type stutype
ino As Integer
strname As String20
strsex As String1
smark As Single
End Type
在窗体上画一个名为Connnand1的命令按钮，要求当执行事件过程Command1_Click时，在c:\的随机文件student..dat写入一条记录。下列能够完成该操作的事件过程是( )。

A．Sub Command1_C1ick()
Dim student As studtype
Dim record_no As Integer
record_no=1
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
Open" c:\student.dat" For input As # 1 len=len(student)
Put # 1,record_no,student
Close #1
End Sub
B．Sub Command1_Click( )
Dim student As studtype
Dim record_no As Integer
record_no=1
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
Open"c:\student.dat" For random As #1 len=len(student)
Put #1,record_no,student
Close #1
End Sub
C．Sub Command1_Click()
Dim student As studtype
Dim record_no As integer
record_no=1
With student
.ino=12
.stmame="smith"
.strsex="男"
.smark=89
End With
Open"c:\student.dat" For random As #1 len=len(student)
Write #1,record_no,student
Close #1
End Sub
D．Sub Command1_Click()
Dim Student As studtype
Dim Record_no As Integer
record_no=1
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
Open"c:\student.dat"For output As #1 len=len(student)
Put #1,record_no,student
Close #1
End #1

引用列表框的最后一项应使用( )。

你可能感兴趣的试题

在以下描述中正确的是( )。

关于货币型数据的说明，正确的是( )。

Detetime是Data类型的变量，以下赋值语句中错误的是( )。

执行以下程序段后，变量C$的值为( )。 A$="Visual Basic Programing" B$="Quick" C$=B$ & Ucase(Mid$(A$,7,6)) & Right$(A$,11)

下列叙述中正确的是( )。

假定有如下事件过程： Privte Sub Form_Click0 Dim x As Integer,n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果是( )。

当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的( )。

下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub

下列程序的输出结果为( )。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End Sub

下面程序运行结果是( )。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End Sub

编写如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) If(Button And 3)=3 Then Print“AAAA” End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为( )。

以下VB6.0控件中，有Caption属性的是( )。

引用列表框的最后一项应使用( )。

用标准工具栏中的工具按钮不能执行的操作是( )。

使图像(Image)控件中的图像自动适应控件的大小应( )。

如果模块定义为： DefStr C-F 则以下语句运行后输出结果是( )。 d$="321" f="654" print d+f$

将任意一个正的两位数N的个位数与十位数对换的表达式为( )。

下列程序的执行结果为( )。 n=0 j=1 Do Until n＞2 n=n+1 j=j+n*(n+1) Loop Print n;j

若要清除列表框的所有内容，则实现的方法是( )。

如果在一新建的工程中使用其他工程已设计好的窗体，可以采用( )步骤将其添加到当前工程中。

下列不一定是传值的虚实结合方式的选项是( )。

在以下程序中，变量S为( )。 DefDbl A-H O-Z DefInt I-N S=1 For I=1 To 20 S=S*I Next I Printf"S=",S

声明一个变量为局部变量应该刚( )。

一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Public X As Integer，在Model1中有语句Public Y As Integer，则以下叙述中正确的是( )。

设有如下的记录类型： TypeStudent number As String name AS String age As Integer End Type 则正确引用该记录类型变量的代码是( )。

对下列二叉树 进行中序遍历的结果是( )。

从工程管理角度，软件设计一般分为两步完成，它们是( )。

在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,3,5,7,9) j=1 Fori=5 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是( )。

下列程序的执行结果是( )。 Privaae Sub Form_Activate Dim score(3)As Integer,total As Integer Dim aa_score As Variant score(1)=50:score(2)=14:score(3)=36 total=0:i=0 For Each aa_score In score i=i+1 total=total+aa_score Print i,aa_score,total Next End Sub

执行以下程序段后，变量C$的值为( )。
A$="Visual Basic Programing"
B$="Quick"
C$=B$ & Ucase(Mid$(A$,7,6)) & Right$(A$,11)

假定有如下事件过程：
Privte Sub Form_Click0
　　Dim x As Integer,n As Integer
　　x=1
　　n=0
　　Do While x＜28
　　　　x=x*3
　　　　n=n+1
Loop
Print x,n
End Sub
程序运行后，单击窗体，输出结果是( )。

下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click()
　Const a=6
　Dim x (a) As Integer
　For I=1 to a
　　x(i)=1^2
　Next I
　Print x(i)
End Sub

下列程序的输出结果为( )。
Private Sub Command1_Click()
Dim a(20)
For j=1 To 20 Step2
　　a(j)=j
Next i
Print a(1)+a(2)+a(3)
End Sub

下面程序运行结果是( )。
Private Sub Form_Click()
　Dim x As Single,y As Single
　x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
　Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10")
End Sub

编写如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
If(Button And 3)=3 Then
Print“AAAA”
End If
End Sub
程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为( )。

如果模块定义为：
DefStr C-F
则以下语句运行后输出结果是( )。
d$="321"
f="654"
print d+f$

下列程序的执行结果为( )。
n=0
j=1
Do Until n＞2
　　n=n+1
　　j=j+n*(n+1)
Loop
Print n;j

在以下程序中，变量S为( )。
DefDbl A-H O-Z
DefInt I-N
S=1
For I=1 To 20
　　S=S*I
Next I
Printf"S=",S

设有如下的记录类型：
TypeStudent
number As String
name AS String
age As Integer
End Type
则正确引用该记录类型变量的代码是( )。

对下列二叉树

进行中序遍历的结果是( )。

在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1,3,5,7,9)
j=1
Fori=5 To 1 Step-1
s=s+a(i)j
j=j10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是( )。

下列程序的执行结果是( )。
Privaae Sub Form_Activate
Dim score(3)As Integer,total As Integer
Dim aa_score As Variant
score(1)=50:score(2)=14:score(3)=36
total=0:i=0
For Each aa_score In score
i=i+1
total=total+aa_score
Print i,aa_score,total
Next
End Sub