• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

有如下函数：
Function fun(a As Integer, n As Integer) As Integer
Dim m As Integer
While a＞=n
a=a-n
m=m+1
Wend
fun=m
End Function
该函数的返回值是

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

你可能感兴趣的试题

单项选择题

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


由关系R和5通过运算得到关系T，则所使用的运算为
单项选择题

一间宿舍可住多个学生，则实体宿舍和学生之间的关系是

A．一对一
B．一对多
C．多对一
D．多对多
单项选择题

下面程序执行时，在窗体上显示的是
Private Sub Command1_Click()
Dim a(10)
For k=1 To 10
a(k)=11-k
Next k
Print a(a(3)\a(7) Mod a(5))
End Sub

A．3
B．5
C．7
D．9
单项选择题

设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是

A．List1.List
B．List1.ListIndex
C．List1.Text
D．List1.Index
单项选择题

为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为

A．0
B．1
C．2
D．3
单项选择题

在软件开发中，在需求分析阶段可以使用的工具是

A．N-S图
B．DFD图
C．PAD图
D．程序流程图
单项选择题

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

A．0
B．1
C．3
D．语句有错
单项选择题

窗体上有一个名为Fram1的框架(如图1所示)，若要把框架上显示的“Frame1”改为汉字“框架”，下面语句正确的是
单项选择题

以下叙述中错误的是

A．语句“Dima a, b As Integer”声明了两个整型变量
B．不能在标准模块中定义Static型变量
C．窗体层变量必须先声明，后使用
D．在事件过程或通用过程内定义的变量是局部变量
单项选择题

以下关于Visual Basic特点的叙述中，错误的是

A．Visual Basic是采用事件驱动编程机制的语言
B．Visual Basic程序既可以编译运行，也可以解释运行
C．构成Visual Basic程序的多个过程没有固定的执行顺序
D．Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构
单项选择题

为了清除窗体上的一个控件，下列操作正确的是

A．按回车键
B．按Esc键
C．选择(单击)要清除的控件，然后按Del键
D．选择(单击)要清除的控件，然后按回车键
单项选择题

对于InputBox函数，下列说法中不正确的是

A．每执行一次InputBox函数，只能输入一个值
B．InputBox函数输入的是数值型
C．InputBox函数的Prompt参数不能缺省
D．函数值必须赋予一个变量
单项选择题

有如下函数：
Function fun(a As Integer, n As Integer) As Integer
Dim m As Integer
While a＞=n
a=a-n
m=m+1
Wend
fun=m
End Function
该函数的返回值是

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

设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是

A．Print A=x+y
B．Print "A="; x+y
C．Print "A="+Str(x+y)
D．Print "A=" & x+y
单项选择题

要判断在文本框Text1的KeyDown事件过程中是否按下了回车键，需要判断某参数的值，这个参数是

A．Ascii
B．KeyCode
C．KeyAscii
D．Shift
单项选择题

某人创建了一个工程，其中的窗体名称为Form1；之后又添加了一个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是

A．在工程属性对话框中把“启动对象”设置为Form2
B．在Form1的Load事件过程中加入语句Load Form2
C．在Form2的Load事件过程中加入语句Form2.Show
D．在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2
单项选择题

不能脱离控件而独立存在的过程是

A．事件过程
B．通用过程
C．Sub过程
D．函数过程
单项选择题

形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是
单项选择题

数据流图中带有箭头的线段表示的是

A．控制流
B．事件驱动
C．模块调用
D．数据流
单项选择题

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：


假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是
单项选择题

在长度为n的有序线性表中进行二分查找，在最坏情况下需要比较的次数是

A．O(n)
B．O(n2)
C．O(log2n)
D．O(nlog2n)
单项选择题

在面向对象方法中，不属于“对象”的基本特点的是

A．一致性
B．分类性
C．多态性
D．标识唯一性
单项选择题

下列叙述中正确的是

A．循环队列有队头和队尾两个指针，因此，循环队列是非线性结构
B．在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况
C．在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况
D．循环队列中元素的个数是由队头指针和队尾指针共同决定的
单项选择题

窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是

A．Private Sub Command1_Click()
Open "out.txt" For Input As #1
Print #1, Text1.Text
Close #1
End Sub
B．Private Sub Command1_Click()
Open "out.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
C．Private Sub Command1_Click()
Open "out.txt" For Append As #1
Print #1, Text1.Text
Close #1
End Sub
D．Private Sub Command1_Click()
Open "out.txt" For Random As #1
Print #1, Text1.Text
Close #1
End Sub
单项选择题

下列叙述中正确的是

A．顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的
B．顺序存储结构只针对线性结构，链式存储结构只针对非线性结构
C．顺序存储结构能存储有序表，链式存储结构不能存储有序表
D．链式存储结构比顺序存储结构节省存储空间
单项选择题

一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后依次出栈，则元素出栈的顺序是

A．12345ABCDE
B．EDCBA54321
C．ABCDE12345
D．54321EDCBA
单项选择题

表达式2*3^2+4*2/2+3^2的值是

A．30
B．31
C．49
D．48
单项选择题

在数据管理技术发展的三个阶段中，数据共享最好的是

A．人工管理阶段
B．文件系统阶段
C．数据库系统阶段
D．3个阶段相同
单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a(10,10) As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是

A．1 2 3
2 4 6
3 6 9
B．2 3 4
3 4 5
4 5 6
C．1 4 7
2 5 8
3 6 9
D．1 2 3
4 5 6
7 8 9
单项选择题

窗体上有文本框Text1和一个菜单，菜单标题、名称如表1所示，结构如图3所示。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是
表1
标题
名称
文件
file
新建
new
保存
save

单项选择题

窗体上有名称分别为Text1、Text2的两个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中间号()处应填入的内容是
Private Sub Text1_LostFocus()
Call CheekInput(Text1,500)
End Sub
Private Sub Text2_LostFocus()
Call CheekInput(Text2,1000)
End Sub
Sub Cheeklnput(t As , x As Integer)
If Val(t.Text)＞x Then
MsgBox "请重新输入!"
End If
End Sub

A．Text
B．SelText
C．Control
D．Form
单项选择题

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode))
Text2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是

A．A
B．a
C．C
D．c
单项选择题

有下面的程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=InputBox("请输入整数")
b=InputBox("请输入整数")
pro a
pro b
Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
While (n＞0)
Print n Mod 10
n=n\10
Wend
Print
End Sub
此程序功能是：输入两个正整数，反序输出这两个数的每一位数字，再反序输出这两个数之和的每一位数字。例如：若输入123和234，则应该输出：
432
753
但调试时发现只输出了前两行(即两个数的反序)，而未输出第三行(即两个数之和的反序)，程序需要修改。下面的修改方案中正确的是

A．把过程pro的形式参数n As Integer改为ByVal n As Integer
B．把Call pro(a+b)改为pro a+b
C．把n=n\10改为n=n/10
D．在pro b语句之后增加语句c%=a+b，再把Call pro(a+b)改为pro c
单项选择题

窗体上有一个名称为CD1的通用对话框控件和由4个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如图2所示。命令按钮的事件过程如下：


Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0: CD1.Action=1
Case 1: CD1.ShowSave
Case 2: CD1.Action=5
Case 3: End
End Select
End Sub
对上述程序，下列叙述中错误的是
单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2＜＞0 Then
a=a-1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序运行后，单击命令按钮，输出结果是

A．0
B．2
C．3
D．4
微信扫码免费搜题