设有以下函数过程Private Function Fun(a()As Int...

单项选择题

设有以下函数过程Private Function Fun(a()As Integer，b As String)As Integer…End Function若已有变量声明：Dim x(5)As Integer，n As Integer，ch As String则下面正确的过程调用语句是( )。

A．x(0)=Fun(x，"ch")
B．n=Fun(n，ch)
C．Call Fun x，“ch"
D．n=Fun(x(5)，ch)

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1To4X=4For j=1To3X=3For k=1To2X=X+6Next kNext j，iPrint xEnd Sub运行程序后，单击命令按钮，输出结果是( )。

A．7
B．15
C．157
D．538

单项选择题

下列叙述中有错误的是( )。

A．变量名的第一个字符必须是字母
B．变量名的长度不超过255个字符
C．变量名可以包含小数点或者内嵌的类型声明字符
D．变量名不能使用关键字

单项选择题

在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是( )。

A．顺序输入方式
B．顺序输出方式
C．随机存取方式
D．二进制方式

单项选择题

下列是Visual Basic中所允许的形式数是( )。

A．+25．74
B．3．457E-100
C．368
D．1．87E+50

单项选择题

指令“Circle(1500，1200)，1000，，，，0．5”将会绘制出的图形为( )。

A．圆
B．正方形
C．椭圆
D．圆弧

单项选择题

在表达式2+3*4^5-Sin(x+1)／2中，首先进行的运算是( )。

A．4＾5
B．3*4
C．x+1
D．Sin()

单项选择题

在窗体上有一个名为Command1的命令按钮，并有如下事件过程：Private Sub Command1_Click()a$="$wallows Mod Genulled"b$=Right(a$，8)：c$=Mid(a$，1，8)MsgBox a$，，b$，c$，1End Sub程序执行时，单击命令按钮，则在弹出的消息框的标题栏中显示的是( )。

A．Swallows Mod Genulled
B．Genulled
C．Swallows
D．1

单项选择题

在文本框控件中，将Text的内容全部显示为用户所定义的字符的属性是( )。

A．PasswordChar
B．需要编程来实现
C．Password
D．以上都不是

单项选择题

下列关于控件焦点的叙述中正确的是( )。

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

单项选择题

为了使名称为Command1的命令按钮右移200，应使用的语句是( )。

A．Command1．Move-200
B．Command1．Move200
C．Command1．Left=Command1．Left+200
D．Command1．Left=Command1．Left-200

单项选择题

在窗体上画一个名为Check1的复选框，如果在窗体启动事件中编写语句“Cheek1．Enabled=False”，则运行后复选框的状态为( )。

A．选中状态
B．未选中状态
C．0
D．灰色

单项选择题

在窗体上有一个名称为List1的列表框和一个名称为Command1的命令按钮，并编写有如下事件过程：Private Sub Form Load()List1．AddItem"Item1"：List1．AddItem"Item2"：List1．AddItem"Item3"End SubPrivate Sub Command1_lClick()List1．List(List1．List Count)="New Item"End Sub程序执行时，单击命令按钮，其结果为( )。

A．把字符串“New Item”添加到列表框中，但位置不能确定
B．把列表框中原有的最后一项改为“New Item”
C．把字符串“New Item”添加到列表框的最后(即“Item3”的后面)
D．把字符串“New Item”插入到列表框的最前面(即“Item1”的前面)

单项选择题

设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )。

A．程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
B．由于滚动条的Max值小于Min值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
C．程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
D．由于滚动条的Max属性值小于Min属性值，程序会出错

单项选择题

当用( )方式打开文件时，如果对文件进行写操作，则写入的数据附加到原文件的后面。

A．Output
B．Append
C．Input
D．Random

单项选择题

设有下列语句：x=5If x＞0Then y=1y=5程序运行后，则下列叙述中正确的是( )。

A．变量y的值是1
B．变量y的值是5
C．变量x的值是5，变量y的值是1
D．变量y的值不能确定

单项选择题

下面的程序运行时，单击窗体后，窗体上显示的结果是( )。Private Sub Form_Click()Dim a(1To6)As IntegerDim min1％，i％，j％，n％，t％，k％a(1)=8：a(2)=6：a(3)=9：a(4)=3：a(5)=2：a(6)=7n=6For i=1To n-1min1=iFor j=i+1TonIf a(j)＜a(min1)Then min1=jNext jt=a(i)：a(i)=a(min1)：a(min1)=tNext iFor i=1TonPrinta(i)Next iEnd Sub

A．9 8 7 6 3 2
B．2 3 6 7 8 9
C．9 8 7 6 3
D．2 3 6 7 8

单项选择题

下列程序运行后，单击窗体，在窗体上显示：1，1+2，1+2+3，1+2+3+4，1+2+3+4+5的和。在横线处应填写( )。Private Sub Form_Click()Dim i As Integer，tt As IntegerFor i=1To5tt=Sum(i)：Print"tt="；tt，Next iEnd SubPrivate Function Sum(_)_J=j+n：Sum=jEnd Function

A．n As Integer j As Integer
B．n As Integer Static j As Integer
C．ByVal n As Integer j As Integer
D．ByVal n As Integer Static j As Integer

单项选择题

有如下函数：Function fun(a As Integer，n As Integer)As IntegerDim m As IntegerWhile a＞=na=a-n：m=m+1Wendfun=mEnd Function该函数的返回值是( )。

A．a乘以n的乘积
B．a加n的和
C．a减n的差
D．a除以n的商(不含小数部分)

单项选择题

下面程序运行后，语句“Print i”执行的次数是( )。Private Sub Form_Click()Dim i As Integer，j As Integeri=0Doi=i+1For j=10To1Step-3i=i+jPrint iNext jLoop While i＜50End Sub

A．4
B．8
C．12
D．16

单项选择题

标准模块中有如下程序代码：Public x As Integer，Y As IntegerSub TempSub()x=10：y=20End Sub在窗体上有1个命令按钮，并有如下事件过程：Private Sub Command1_Click()Dim x As IntegerCall TempSubx=x+100：y=y+100Print x；yEnd Sub运行程序后单击命令按钮，窗体上显示的是( )。

A．110 100
B．100 100
C．100 120
D．110 120

单项选择题

在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图所示)。下面能实现此功能的事件过程是( )。

A．Private Sub Check1_Click(Index As Integer) Text1．Text=" " For k=0To3 If Checkl(k)．Value=1Then Text1．Text=Text1．Text& Check1(k)．Caption&" "’双引号中是空格 End If Next k End Sub
B．Private Sub Check1_Click(Index As Integer) For k=0To3 If Check1(k)．Value=1Then Text1．Text=Text1．Text& Check1(k)．Caption&" "’双引号中是空格 End If Next k End Sub
C．Private Sub Check1_Click(Index As Integer) Text1．Text=" " For k=0To3 If Check1(Index)．Value=1Then Text1．Text=Text1．Text&Check1 (Index)．Caption&" "’双引号中是空格 End If Next k End Sub
D．Privme Sub Check1_Click(Index As Integer) Text1．Text=" " For k=0To3 If Check1(k)．Value=1Then Text1．Text=Text1．Text&Check1 (k)．Caption&" "’双引号中是空格 Exit For End If Next k End Sub

单项选择题

在E盘当前目录文件夹下建立一个名为“Student．txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序( )。Private Type studentStuName As String10StuGrade As String10StuAge As IntegerEnd TypePfivate Sub Form_Click()Dim s As studentOpen"c：＼student．txt"For Random As#1Len=Len(s)For i=1To5s．StuName=InputBox("请输入姓名")s．StuGrade=InputBox("请输入年级号")s．StuAge=Val(InputBox("请输入年龄"))______________Next iClose#1End Sub

A．Print#1，s
B．Print#1，i
C．Put#1，，s
D．Put#1，，i

单项选择题

单击命令按钮执行以下程序，则输出结果为( )。Private Sub Command1_Click()Dim x As Integer，y As Integerx=14：y=48：CallProc(x，y)Print x；yEnd SubPublic Sub Proc(n As Integer，ByVal m As Integer)n=n Mod10：m=m Mod10End Sub

A．4 8
B．14 8
C．14 48
D．4 48

单项选择题

VB中有3个键盘事件：KeyVress、KeyDown、KeyUP，若光标在Text1文本框中，则每输入一个字母( )。

A．只触发KeyUp事件
B．这3个事件都会触发
C．只触发KeyDown、KeyPress事件
D．不触发其中任何一个事件

单项选择题

关于菜单设计，下列叙述中错误的是( )。

A．弹出式菜单也在菜单编辑器中定义
B．在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
C．程序运行过程中，可以重新设置菜单的Visible属性
D．在同一窗体的菜单项中，不允许出现标题相同的菜单项

单项选择题

设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“XSLNCER”，所有菜单项都可见：否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13ThenIf Tex1．Text="XSLNCER"ThenForm2．input．visible=TrueElseForm2．input．Visible=FalseEnd IfEnd IfForm1．HideForm2．ShowEnd Sub程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是( )。

A．把2个Form2．input．Visible中的“Form2”删去
B．把Form1中Text1文本框及相关程序放到Form2窗体中
C．把If KeyAsii=13Then改为IfKeyAscii="XSLNCER"Then
D．把Form1．Hide、Form2．Show两行移动到2个End If之问

单项选择题

在窗体上有一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是( )。

A．Private Sub Dir1_Change() File1．Path=Dir1．Path End Sub Private Sub Drive1_Change() Dir1．Path=Drive1．Drive Labe1．Caption=File1．ListCount End Sub
B．Private Sub Dir1_Change() File1．Path=Dir1．Path End Sub Private SUb Drive1_Change() Dir1．Path=Drive1．Drive Label1．Caption=File1．List End Sub
C．Private Sub Dir1_Change() File1．Path=Dir1．Path Label1．Caption=File1．ListCount End SUb Private SUb Drive1_Change() Dir1．Path=Drive1．Drive Label1．Caption=File1．ListCount End Sub
D．Private Sub Dir1_Change() File1．Path=Dir1．Path Label1．Caption=File1．List End Sub Private Sub Drive1_Change() Dir1．Path=Drive1．Drive Label1．Caption=File1．List End Sub

设有以下函数过程Private Function Fun(a()As Integer，b As String)As Integer…End Function若已有变量声明：Dim x(5)As Integer，n As Integer，ch As String则下面正确的过程调用语句是( )。

你可能感兴趣的试题

在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是( )。

对序线性表(23，29，34，55，60，70，78)用二分法查找值为60的元素时，需要比较次数为( )。

下列描述中，正确的是( )。

开发大型软件时，产生困难的根本原因是( )。

两个或两个以上的模块之间关联的紧密程度称为( )。

下列关于线性表的叙述中，不正确的是( )。

设有如下关系表：则下列操作正确的是( )。

以下描述中，不是线性表顺序存储结构特征的是( )。

在三级模式之间引入两层映像，其主要功能之一是( )。

下列方法中，属于白盒法设计测试用例的方法的是( )。

假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是( )。

为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为True( )。

设有以下函数过程Private Function Fun(a()As Integer，b As String)As Integer…End Function若已有变量声明：Dim x(5)As Integer，n As Integer，ch As String则下面正确的过程调用语句是( )。

在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1To4X=4For j=1To3X=3For k=1To2X=X+6Next kNext j，iPrint xEnd Sub运行程序后，单击命令按钮，输出结果是( )。

下列叙述中有错误的是( )。

在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是( )。

下列是Visual Basic中所允许的形式数是( )。

指令“Circle(1500，1200)，1000，，，，0．5”将会绘制出的图形为( )。

在表达式2+3*4^5-Sin(x+1)／2中，首先进行的运算是( )。

在文本框控件中，将Text的内容全部显示为用户所定义的字符的属性是( )。

下列关于控件焦点的叙述中正确的是( )。

为了使名称为Command1的命令按钮右移200，应使用的语句是( )。

在窗体上画一个名为Check1的复选框，如果在窗体启动事件中编写语句“Cheek1．Enabled=False”，则运行后复选框的状态为( )。

设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )。

当用( )方式打开文件时，如果对文件进行写操作，则写入的数据附加到原文件的后面。

设有下列语句：x=5If x＞0Then y=1y=5程序运行后，则下列叙述中正确的是( )。

有如下函数：Function fun(a As Integer，n As Integer)As IntegerDim m As IntegerWhile a＞=na=a-n：m=m+1Wendfun=mEnd Function该函数的返回值是( )。

下面程序运行后，语句“Print i”执行的次数是( )。Private Sub Form_Click()Dim i As Integer，j As Integeri=0Doi=i+1For j=10To1Step-3i=i+jPrint iNext jLoop While i＜50End Sub

单击命令按钮执行以下程序，则输出结果为( )。Private Sub Command1_Click()Dim x As Integer，y As Integerx=14：y=48：CallProc(x，y)Print x；yEnd SubPublic Sub Proc(n As Integer，ByVal m As Integer)n=n Mod10：m=m Mod10End Sub

VB中有3个键盘事件：KeyVress、KeyDown、KeyUP，若光标在Text1文本框中，则每输入一个字母( )。

关于菜单设计，下列叙述中错误的是( )。

设有如下关系表：
则下列操作正确的是( )。