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

窗体上有三个水平滚动条，名称分别为HSRed、HSGreen和HSBlue，取值范围均是0～255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。
程序代码如下： Dim color(3)As Integer Private Sub Form_Load() Call fill(color()) End Sub Private Sub fill(c()As Integer) Form1．BaekColor=RGB(e(1)，e(2)，c(3)) End Sub Private Sub HSRed～Change() color(1)=HSRed．Value Call fill(color()) End Sub Private Sub HSGreen_Change() color(2)=HSGreen．Value Call fill(color()) End Sub Private Sub HSBlue_Change() color(3)=HSBlue．Value Call fill(color()) End Sub 关于以上程序，如下叙述中错误的是( )。

A．color是窗体级整型数组
B．改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变
C．3个滚动条Change事件过程中只设置了一个color数组元素的值，调用fill过程失败
D．fill函数定义中的形式参数是数组型参数
题目列表

你可能感兴趣的试题

单项选择题

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

A．循环队列是队列的一种链式存储结构
B．循环队列是队列的一种顺序存储结构
C．循环队列是非线性结构
D．循环队列是一种逻辑结构
单项选择题

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

A．各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致
B．各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续
C．进行插入与删除时，不需要移动表中的元素
D．以上说法均不正确
单项选择题

一棵二又树共有25个结点，其中5个是叶子结点，则度为1的结点数为( )。

A．16
B．10
C．6
D．4
单项选择题

在满足实体完整性约束的条件下

A．一个关系中应该有一个或多个候选关键字
B．一个关系中只能有一个候选关键字
C．一个关系中必须有多个候选关键字
D．一个关系中可以没有候选关键字
单项选择题

在下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。

A．外模式
B．内模式
C．概念模式
D．逻辑模式
单项选择题

有三个关系R、S和T如下：
则由关系R和S得到关系T的操作是( )。

A．自然连接
B．交
C．除
D．并
单项选择题

下面描述中，不属于软件危机表现的是( )。

A．软件过程不规范
B．软件开发生产率低
C．软件质量难以控制
D．软件成本不断提高
单项选择题

在黑盒测试方法中，设计测试用例的主要根据是( )。

A．程序内部逻辑
B．程序外部功能
C．程序数据结构
D．程序流程图
单项选择题

在软件设计中不使用的工具是( )。

A．系统结构图
B．PAD图
C．数据流图(DFD图)
D．程序流程图
单项选择题

下面不属于需求分析阶段任务的是( )。

A．确定软件系统的功能需求
B．确定软件系统的性能需求
C．需求规格说明书评审
D．制定软件集成测试计划
单项选择题

以下变量名中合法的是( )。

A．x-2
B．12abc
C．sum_total
D．print
单项选择题

已知a=6，b=15，c=23，则语句Print Sgn(a+b Mod 6-c＼a)&a+b的输出结果为( )。

A．6
B．16
C．31
D．121
单项选择题

以下叙述中错误的是( )。

A．续行符与它前面的字符之间至少要有一个空格
B．Visual Basic中使用的续行符为下划线(一)
C．以撇号(’)开头的注释语句可以放在续行符的后面
D．Visual Basic可以自动对输入的内容进行语法检查
单项选择题

以下关于多重窗体程序的叙述中，错误的是( )。

A．对于多重窗体程序，需要单独保存每个窗体
B．在多重窗体程序中，可以根据需要指定启动窗体
C．在多重窗体程序中，各窗体的菜单是彼此独立的
D．用Hide方法不仅可以隐藏窗体，而且还可以清除内存中的窗体
单项选择题

以下关于文件的叙述中，错误的是( )。

A．顺序文件中的记录是一个接一个地顺序存放
B．随机文件中记录的长度是随机的
C．文件被打开后，自动生成一个文件指针
D．EOF函数用来测试是否到达文件尾
单项选择题

下面不是键盘事件的是( )。

A．KeyDown
B．KeyUp
C．KeyPress
D．KeyCode
单项选择题

语句Dim Arr(一2 To 4)．As Integer所定义的数组的元素个数为( )。

A．7个
B．6个
C．5个
D．4个
单项选择题

为了使窗体左上角不显示控制框，需设置为False的属性是( )。

A．Visible
B．Enabled
C．ControlBox
D．Caption
单项选择题

对窗体上名称为Command1的命令按钮，编写如下事件过程： Pnvate Sub Command1_Click() Move 200，200 End Sub 程序运行时，单击命令按钮，则产生的操作是( )。

A．窗体左上角移动到距屏幕左边界、上边界各200的位置
B．窗体左上角移动到距屏幕右边界、上边界各200的位置
C．窗体由当前位置向左、向上各移动200
D．窗体由当前位置向右、向下各移动200
单项选择题

窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为( )。

A．Private Sub Label1_Click() Label1．Caption=Text1．Text End Sub
B．Private Sub Label1_Change() Label1．Caption=Text1．Text End Sub
C．Private Sub Text1_Click() Label1．Caption=Text1．Text End Sub
D．Private Sub Text1_Change() Label1．Caption=Text1．Text End Sub
单项选择题

能够将组合框Combo1中最后一个数据项删除的语句为( )。

A．Combo1．Removehem Combo1．IAstCount
B．Combo1．RemoveItem Combo1．ListCount-1
C．Combo1．RemoveItem Combo1．List1ndex
D．Combo1．Removehem Combo1．ListIndex-1
单项选择题

用来设置文字字体是否为粗体的属性是( )。

A．FontItalic
B．F’ontUnderline
C．FontSize
D．FontBold
单项选择题

以下不能触发滚动条Change事件的操作是( )。

A．拖动滚动框
B．单击两端的滚动箭头
C．单击滚动框
D．单击滚动箭头与滚动框之间的滚动条
单项选择题

确定图片框Picture1在窗体上位置的属性是( )。

A．Width和Height
B．Left和Top
C．Width和Top
D．Height和Left
单项选择题

以下不属于单选按钮的属性是( )。

A．Caption
B．Name
C．Min
D．Enabled
单项选择题

以下关于图片框控件的说法中，错误的是( )。

A．可以通过Print方法在图片框中输出文本
B．图片框控件中的图形可以在程序运行过程中被清除
C．图片框控件中可以放置其他控件
D．用Stretch属性可以自动调整图片框中图形的大小
单项选择题

为了清除列表框中指定的项目，应使用的方法是( )。

A．Cls
B．Clear
C．Remove
D．RemoveItem
单项选择题

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

A．Print 25
B．Picture1．Print 25
C．Text1．Print 25
D．Debug．Print 25
单项选择题

设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person．txt中写入一条记录。下列能够完成该操作的事件过程是( )。

A．Private Sub Command1_Click() Dim B As Books Open"c：＼Person．txt"For Output As #1 B．Name=InputBox("输入姓名") B．TelNum=InputBox("输入电话号码") Write #1，B．Name．B．TelNum Close #1 End Sub
B．Private Sub Command1_Click() Dim B As Books Open"c：＼Person．txt"For Input As #1 B．Name=InputBox("输入姓名") B．TelNum=InputBox("输入电话号码") Print#1，B．Name，B．TelNum Close#1 End Sub
C．Private Sub Command1_Click() Dim B As Books Open"c：＼Person．txt"For Output As #1 B．Name=InputBox(”输入姓名”) B．TelNum=InputBox(”输入电话号码”) Write #1．B Close #1 End Sub
D．Private Sub Command1 Click() Open"c：＼Person．txt"For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Prim #1，Name，TelNum Close #1 End Sub
单项选择题

运行如下程序： Private Sub Command1_Click() Dim a(5，5)As Integer For i=1 To 5 For j=1 To 4 a(i，j)=i*2+j If a(i，j)／7=a(i，j)＼7 Then n=n+1 End If Next j Next Print n End Sub n的值是( )。

A．2
B．3
C．4
D．5
单项选择题

窗体上有单选钮和列表框控件。单击名称为Option1、标题为“国家”的单选钮，向列表框中添加国家名称，如下图所示。
Option1的单击事件过程如下： Private Sub Option1_Click() Dim arr arr=Array("中国"，"日本"，"德国"，"美国"，"澳大利亚") List1．Clear For i=0 To Ubound(art) List1．AddItem arr(i) Next End Sub 以下关于上述代码的叙述中，正确的是( )。

A．程序有错，没有声明数组的维数及上下界
B．只有一维数组才能使用Array为数组赋初值
C．For循环的终值应为ListCount一1
D．For循环的初值应为1
单项选择题

现有如下一段程序： Private Sub Command1_Click() x=UCase(InputBox("输入：")) Select Case x Case"A"To"C" Print"考核通过!" Case"D" Print"考核不通过!" Case Else Print"输入数据不合法!" End Select End Sub 执行程序，在输入框中输入字母“B”，则以下叙述中正确的是( )。

A．程序运行错
B．在窗体上显示“考核通过!”
C．在窗体上显示“考核不通过!”
D．在窗体上显示“输入数据不合法!”
单项选择题

窗体上有三个水平滚动条，名称分别为HSRed、HSGreen和HSBlue，取值范围均是0～255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。
程序代码如下： Dim color(3)As Integer Private Sub Form_Load() Call fill(color()) End Sub Private Sub fill(c()As Integer) Form1．BaekColor=RGB(e(1)，e(2)，c(3)) End Sub Private Sub HSRed～Change() color(1)=HSRed．Value Call fill(color()) End Sub Private Sub HSGreen_Change() color(2)=HSGreen．Value Call fill(color()) End Sub Private Sub HSBlue_Change() color(3)=HSBlue．Value Call fill(color()) End Sub 关于以上程序，如下叙述中错误的是( )。

A．color是窗体级整型数组
B．改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变
C．3个滚动条Change事件过程中只设置了一个color数组元素的值，调用fill过程失败
D．fill函数定义中的形式参数是数组型参数
单项选择题

命令按钮Command1的单击事件过程如下： Private Sub Command1_Click() x=10 Print f(x) End Sub Private Function f(y As Integer) f=y*y End Function 运行上述程序，如下叙述中正确的是( )。

A．程序运行出错，x变量的类型与函数参数的类型不符
B．在窗体上显示100
C．函数定义错，函数名f不能又作为变量名
D．在窗体上显示10
单项选择题

窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程： Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Print Text1．Text； End Sub 运行程序，并在文本框中输入“123”，则在窗体上的输出结果为( )。

A．123
B．112
C．12123
D．112123
单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim x％，y％，z％ X=InputBox("请输入第1个整数") Y=InputBox("请输入第2个整数") Do Until x=y If x>y Then x=x—y Else y=y—x Loop Print x End Sub 运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为( )。

A．11
B．13
C．23
D．39
单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim m As String m=InputBox("请输入字符串") Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp="" i=1 sLen=Len(s) Do While i＜=sLen／2 temp=temp+Mid(s，i，1)+Mid(s，sLen—i+1，1) i=i+1 Loop pick_str=temp End Function 运行程序，单击命令按钮，并在输入对话框中输入“basic”，则在窗体上显示的内容为( )。

A．bcai
B．cbia
C．beais
D．cbias
单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim P As Integer P=m(1)+m(2)+m(3) Print P End Sub Private Function m(n As Integer)As Integer Static s As Integer For i=1 To n s=s+1 Next m=S End Function 运行程序，第2次单击命令按钮Command1时的输出结果为( )。

A．6
B．10
C．16
D．28
单项选择题

在窗体上画一个名称为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_Click() x=1 s=0 For i=1 To 5 x=x／i s=s+x Next Print s End Sub 该事件过程的功能是计算( )。

A．S=1+2+3+4+5
B．S=1+

C．S=1+

D．S=1+
单项选择题

为了每秒钟发生一次计时器事件，可以将Interval属性设置为( )。

A．1
B．10
C．100
D．1000
微信扫码免费搜题