单项选择题

有下而的程序段，其功能是按图1所示的规律输出数据：
Dim a(3,5)As Integer
For i=1 To 3
For j=1 To 5
A(i,j)=i+j
Print a(i,j);
Next
Print
Next
若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是______。

图1

图2

A．For i=1 To 5For j=1 To 3Print a(j,i);NextPrintNext
B．For i=1 To 3For j=1 To 5Print a(j,i);NextPrintNext
C．For j=1 To 5For i=1 To 3Print a(j,i);NextPrintNext
D．For i=1 To 5For j=1 To 3Print a(i,j);NextPrintNext

你可能感兴趣的试题

单项选择题

下列叙述中正确的是______。

A．对长度为n的有序链表进行查找，最坏情况下需要的比较次数为n
B．对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n/2)
C．对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(log2n)
D．对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(nlog2n)

单项选择题

算法的时间复杂度是指______。

A．算法的执行时间
B．算法所处理的数据量
C．算法程序中的语句或指令条数
D．算法在执行过程中所需要的基本运算次数

单项选择题

软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是______。

A．编辑软件
B．操作系统
C．教务管理系统
D．浏览器

单项选择题

软件(程序)调试的任务是______。

A．诊断和改正程序中的错误
B．尽可能多地发现程序中的错误
C．发现并改正程序中的所有错误
D．确定程序中错误的性质

单项选择题

软件生命周期可分为定义阶段、开发阶段和维护阶段。详细设计属于______。

A．定义阶段
B．开发阶段
C．维护阶段
D．上述三个阶段

单项选择题

数据流程图(DFD图)是______。

A．软件概要设计的工具
B．软件详细设计的工具
C．结构化方法的需求分析工具
D．面向对象方法的需求分析工具

单项选择题

数据库管理系统中负责数据模式定义的语言是______。

A．数据定义语言
B．数据管理语言
C．数据操纵语言
D．数据控制语言

单项选择题

在学生管理的关系数据库中，存取一个学生信息的数据单位是______。

A．文件
B．数据库
C．字段
D．记录

单项选择题

数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的______。

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

单项选择题

有两个关系R和T如下：

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

A．选择
B．投影
C．.交
D．.并

单项选择题

在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是______。

单项选择题

设x是整型变量，与函数IIf(x＞0，-x，x)有相同结果的代数式是______。

A．|x|
B．-|x|
C．.x
D．-x

单项选择题

设窗体文件中有下面的事件过程：
Private Sub Command1_Click()
Dim s
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是______。

A．整型，整型
B．变体型，变体型
C．整型，变体型
D．变体型，整型

单项选择题

下面哪个属性肯定不是框架控件的属性______。

A．Text
B．Caption
C．Left
D．Enabled

单项选择题

下面不能在信息框中输出“VB”的是______。

A．MsgBox "VB"
B．x=MsgBox("VB")
C．MsgBox("VB")
D．Call MsgBox "VB"

单项选择题

窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程
Private Sub Option1_Click(Index As Integer)
……
End Sub
下面关于此过程的参数Index的叙述中正确的是______。

A．Index为1表示单选按钮被选中，为0表示未选中
B．Index的值可正可负
C．Index的值用来区分哪个单选按钮被选中
D．Index表示数组中单选按钮的数量

单项选择题

设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发______。

A．Text1的SetFocus事件
B．Text1的GotFocus事件
C．Text1的LostFocus事件
D．窗体的GotFocus事件

单项选择题

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

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

单项选择题

下面关于标准模块的叙述中错误的是______。

A．标准模块中可以声明全局变量
B．标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程
C．标准模块中可以包含一些Public过程
D．一个工程中可以含有多个标准模块

单项选择题

设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是______。

A．Form1_MouseDown
B．Win_MouseDown
C．Form_MouseDown
D．MouseDown_Form1

单项选择题

下面正确使用动态数组的是______。

A．Dim arr()As Integer…ReDim arr(3,5)
B．Dim arr()As Integer…ReDim arr(50)As String
C．Dim arr()…ReDim arr(50)As Integer
D．Dim arr(50)As Integer…ReDim arr(20)

单项选择题

下面是求最大公约数的函数的首部：
Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer
若要输出8、12、16这3个数的最大公约数，下面正确的语句是______。

A．Print gcd(8，12)，gcd(12，16)，gcd(16，8)
B．Print gcd(8，12，16)
C．Print gcd(8)，gcd(12)，gcd(16)
D．Print gcd(8，gcd(12，16))

单项选择题

有下而的程序段，其功能是按图1所示的规律输出数据：
Dim a(3,5)As Integer
For i=1 To 3
For j=1 To 5
A(i,j)=i+j
Print a(i,j);
Next
Print
Next
若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是______。

图1

图2

A．For i=1 To 5For j=1 To 3Print a(j,i);NextPrintNext
B．For i=1 To 3For j=1 To 5Print a(j,i);NextPrintNext
C．For j=1 To 5For i=1 To 3Print a(j,i);NextPrintNext
D．For i=1 To 5For j=1 To 3Print a(i,j);NextPrintNext

单项选择题

窗体上有一个Text1文本框、一个Command1命令按钮，并有以下程序：
Private Sub Command1_Click()
Dim n
If Text1.Text＜＞"123456" Then
n=n+1
Print "口令输入错误"&n&"次"
End If
End Sub
希望程序运行时得到图1所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是图2所示的效果，程序需要修改。下面修改方案中正确的是______。

图1

图2

A．在Dim n语句的下面添加一句：n=0
B．把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C．把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)&"次"
D．把Dim n改为Static n

单项选择题

要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是______。

A．Private Sub P1_MouseNove(Button AS Integer, Shift As Integer, X As Single, Y As Single)Print X,YEnd Sub
B．Private Sub P1_MouseDown(Button AS Integer, Shift As Integer, X As Single, Y As Single)Picture.Print X,YEnd Sub
C．Private Sub P1_MouseNove(Button AS Integer, Shift As Integer, X As Single, Y As Single)P1.Print X,YEnd Sub
D．Private Sub Form_MouseMove(Button AS Integer, Shift As Integer, X As Single, Y As Single)P1.Print X,YEnd Sub

单项选择题

计算π的近似值的一个公式是

某人编写下面的程序用此公式计算并输出π的近似值：
Private Sub Comand1_Click()
PI=1
Sign=1
n=20000
For k=3 To n
Sign=-Sign
PI=PI+Sign/k
Next k
Print PI*4
End Sub
运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是______。

A．把For k=3 To n改为For k=1 To n
B．把n=20000改为n=20000000
C．把For k=3 To n改为For k=3 To n Step 2
D．把PI=1改为PI=0

单项选择题

下面程序计算并输出的是______。
Private Sub Comand1_Click()
a=10
s=0
Do
s=s+aaa
a=a-1
Loop Until a＜=0
Print s
End Sub

A.1³+2³+3³+…+10³的值
B.10!+…+3!+2!+1!的值
C.(1+2+3+…+10)³的值
D.10个10³的和

单项选择题

若在窗体模块的声明部分声明了如下自定义类型和数组：
Private Type rec
Code As Integer
Caption As String
End Type
Dim arr(5) As rec
则下面的输出语句中正确的是______。

A．Print arr.Code(2)，arr.Caption(2)
B．Print arr.Code，arr.Caption
C．Print arr(2).Code，arr(2).Caption
D．Print Code(2)，Caption(2)

单项选择题

设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如下图所示的文件对话框。
Private Sub Comand1_Click()
CD1.DialogTitle="打开文件"
CD1.InitDir="C:"
CD1.Filter="所有文件|.|Word
文档|.doc|文本文件|.Txt"
CD1.FileName=""
CD1.Action=1
If CD1.FileName=""Then
Print"未打开文件"
Else
Print"要打开文件"&
CD1.FileName
End If
End Sub
但实际显示的对话框中列出了C:\下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是______。

A．把CD1.Action=1改为CD1.Action=2
B．把”CD1.Filter="后面字符串中的"所有文件"改为"文本文件"
C．在语句CD1.Action=1的前面添加：CD1.FiherIndex=3
D．把CD1.FileName=""改为CD1.FileName="文本文件"

单项选择题

下面程序运行时，若输入395，则输出结果是______。
Private Sub Comand1_Click()
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod i0,x\100,(x Mod 100)\10
End Sub

A．3 9 5
B．5 3 9
C．5 9 3
D．3 5 9

单项选择题

窗体上有List1、List2两个列表框，List1中有若干列表项(见下图)，并有下面的程序：

Private Sub Comand1_Click()
For k=List1.ListCount-1 To 0 Step-1
If List1.Selected(k)Then
List2.AddItem List1.List(k)
List1.RemoveItem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项(物理和外语)，然后单击Command1命令按钮，则产生的结果是______。

A．在List2中插入了“外语”、“物理”两项
B．在List1中删除了“外语”、“物理”两项
C．同时产生A)和B)的结果
D．把List1中最后1个列表项删除并插入到List2中

单项选择题

设工程中有2个窗体：Form1、Form2，Form1为启动窗体，Form2中有菜单。其结构如下表所示。要求在程序运行时，在Form1的文本框Text1中输入口令并按Enter键(Enter键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teacher" Then
Form2.input.visible=True
Else
Form2.input.visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub

菜单结构

标题名称级别

成绩管理 Mark 1

成绩查询 Query 2

成绩录入 Input 2

程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是______。

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

单项选择题

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中。
Private Sub Comand1_Click()
Open "out.txt" For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是______。

A．把Print "Text1"改为Print #2,Text1
B．把Print "Text1"改为Print Text1
C．把Print "Text1"改为Write "Text1"
D．把所有#2改为#1

单项选择题

窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Comand1_Click()
Dim arr(5)As Integer
For k=1 To 5
arr(k)=k
Next k
prog arr()
For k=1 To 5
Print arr(k)
Next k
End Sub
Sub prog(a()As Integer)
n=Ubound(a)
For i=n To 2 step-1
For j=1 To n-1
If a(j)＜a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是______。

A．12345
B．54321
C．01234
D．43210

单项选择题

下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是______。
Private Sub Comand1_Click()
Dim count(25)As Integer, ch As String
ch=Ucase(InputBox("请输入字母字符串"))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
If n＞=0 Then
Count(n)=Count(n)+1
End If
Next k
m=count(0)
For k=1 To 25
If m＜count(k)Then
m=count(k)
End If
Next k
Print m
End Sub

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

单项选择题

执行以下程序后输出的是______。
Private Sub Command1_Click()
Ch$="AABCDEFGH"
Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)
End Sub

A．CDEFGH
B．ABCD
C．FG
D．AB

单项选择题

设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是______。

A．Prvate Sub List1_Click()Print List1.TextEnd Sub
B．Private Sub Form1_Click()Print List1.TextEnd Sub
C．Private Sub List1_Click()Print Form1.TextEnd Sub
D．Private Sub Form1_Click()List1.Print List1.TextEnd Sub

单项选择题

以下选项中，不合法的Visual Basic的变量名是______。

A．a5b
B．_xyz
C．a_b
D．andif

单项选择题

以下数组定义语句中，错误的是______。

A．Static a(10)As Integer
B．Dim c(3,1 To 4)
C．Dim d(-10)
D．Dim b(0 To 5,1 To 3)As Integer

单项选择题

现有语句：y=IIf(x＞0,x Mod 3,0)
设x=10，则y的值是______。

A．0
B．1
C．3
D．语句有错