设有如下的记录类型： TypeStudent number As Str...

单项选择题

假定有如下事件过程： 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．调用过程时实参为表达式
B．调用过程时实参为常量
C．调用过程时实参为变量名
D．调用过程时实参将变量名用括号括起来

单项选择题

下面程序运行结果是( )。 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_

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程： 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

单项选择题

设有如下的记录类型： 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="张红"

单项选择题

在以下程序中，变量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．标准模块中的任何过程都可以在整个工程范围内被调用
B．在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C．如果工程中包含Sub Main过程，则程序将首先执行该过程
D．如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体

单项选择题

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

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

单项选择题

一个工程中含有窗体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

单项选择题

设在工程中有一个标准模块，其中定义了如下类型： 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

单项选择题

将任意一个正的两位数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)

单项选择题

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

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

单项选择题

下列程序运行时输出的结果是( )。 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．出错信息

单项选择题

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

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

单项选择题

下列程序的输出结果为( )。 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

单项选择题

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

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

单项选择题

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

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

单项选择题

在数据库设计中，将E-R图转换成关系数据模型的过程属于( )。

A．需求分析阶段
B．逻辑设计阶段
C．概念设计阶段
D．物理设计阶段

单项选择题

在窗体上画一个文本框，其名称为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

单项选择题

编写如下事件过程： 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．按什么键都不显示

单项选择题

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

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

单项选择题

执行以下程序段后，变量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．ACBDFEG
B．ACBDFGE
C．ABDCGEF
D．FCADBEG

单项选择题

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

A．货币型数据有时可以表示成整型数据
B．货币型数据与浮点型数据完全一样
C．货币型数据是由数字和小数点组成的字符串
D．货币型数据是小数点位置固定的实型数

单项选择题

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

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

单项选择题

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

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

单项选择题

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

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

单项选择题

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

A．Datetime=#4/14/97#
B．Datetime=#September 1,1997#
C．Datetime=#12:15:00 AM#
D．Datetime=#8/8/99

单项选择题

在窗体上绘制一个名称为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

单项选择题

设窗体上有一个名为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程序设计

单项选择题

下列程序的执行结果是( )。 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

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

你可能感兴趣的试题

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

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

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

假定有如下事件过程： 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 程序运行后，单击窗体，输出结果是( )。

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

下面程序运行结果是( )。 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

在窗体上画一个命令按钮，然后编写如下事件过程： 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 运行上面的程序，单击命令按钮，其输出结果是( )。

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

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

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

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

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

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

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

下列程序运行时输出的结果是( )。 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

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

下列程序的输出结果为( )。 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

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

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

在数据库设计中，将E-R图转换成关系数据模型的过程属于( )。

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

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

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

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

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

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

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

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

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

下列程序的执行结果是( )。 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

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

假定有如下事件过程： 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 程序运行后，单击窗体，输出结果是( )。

下面程序运行结果是( )。 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

在窗体上画一个命令按钮，然后编写如下事件过程： 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 运行上面的程序，单击命令按钮，其输出结果是( )。

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

下列程序运行时输出的结果是( )。 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

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