11[简答题]在考生文件夹下有一个工程文件sit3.vbp,相应的窗体文件为sit3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,并在窗体上显示出来(如图所示)。这个程序不完整,请把它补充完整,并使其能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原名存盘。
参考解析:
【考点分析】本题考点有:Randomize语句、Rnd()函数、Int()函数、循环语句、判断语句以及Print方法。
【解题思路】本题程序用变量Min记录最小数,最初把数组的第一个元素的值赋给Min,然后通过For循环语句将其后的元素依次与之比较,如果其值小于Min,则将其赋值给Min,依次类推,最终Min的值就是数组各元素中的最小值。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符“´”,将问号改为正确的内容。
参考答案(横线部分是需考生填入的内容)
Option Base 1
Private Sub Command1_Click()
Dim arrN(30) As Integer
Dim Min As Integer
RandomiZe
For i=1 To30
arrN(i):Int(Rnd*____1000______)
Next i
___Min_______=arrN(1)将第一个数赋给Min,以提供判断
For i=2 T0 30
If_____arrN(i)
Then´比较最小值与其他数值,找出最小值
Min=arrN(i)
End If
Next i
Print Min
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
【易错提示】产生0~1000范围内的随机数,应该是RndX1000。
12[单选题] 窗体上有一个名称为Commandl的命令按钮,并有
运行程序,单击命令按钮后,窗体上显示的是
A.0B.2C.8D.20
参考答案:D
参考解析:Commandl_Click()中通过嵌套循环给数组a元素赋初值,执行完后a(1,1)=2,a(2,2)=4,a(3,3)=6,n(4,4)=8;Callf(8,B.语句调用子函数Subf(x()AsIn-teger,ByRefYAsInteger)。该函数内For循环把a数组中一维下标和二维下标相同的元素值相加。值为20,选D.。
13[单选题] 在满足实体完整性约束的条件下
A.一个关系中应该有一个或多个候选关键字
B.一个关系中只能有一个候选关键字
C.一个关系中必须有多个候选关键字
D.一个关系中可以没有候选关键字
参考答案:A
参考解析:实体完整性约束要求关系的主键中属性值不能为空值,所以选择A。
14[单选题] 有三个关系R、s和T如下:
由关系R和s通过运算得到关系T,则所使用的运算为( )。
A.笛卡尔积B.交C.并D.自然连接
参考答案:D
参考解析:自然连接是一种特殊的等值连接,它要求两个关系中进行比较的分量必须是相同的属性组,并且在结果中把重复的属性列去掉,所以根据T关系中的有序组可知R与S进行的是自然连接操作。
15[单选题] 设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是( )。
A.程序运行时,若使滚动块向左移动,滚动条的Value属性值就增加
B.程序运行时,若使滚动块向左移动,滚动条的Value属性值就减少
C.由于滚动条的Max属性值小于Min属性值,程序会出错
D.由于滚动条的Max属性值小于Min属性值,程序运行时滚动条的长度会缩为一点,滚动块无法移动
参考答案:A
参考解析:水平滚动条的Max和Min属性值可以是0~32767中任意值。当Max>Min属性值时,滚动块向右移动Value属性值增加,向左移动Value属性值减少;反之,当Max
16[单选题] 窗体上有一个名称为Labell的标签;一个名称为Timed的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:
Dim n As Integer
Private Sub Timerl_Timer()
运行程序,将在标签中
A.不停地依次显示字符“A”、“B"、“C”、“D”,直至窗体被关闭
B.依次显示字符“A”、“B”、“C”、“D”各一次
C.每隔1秒显示字符“A”一次
D.每隔1秒依次显示26个英文字母中的一个
参考答案:A
参考解析:Asc函数返回字符的ASCIl,Chr函数将数值转换成相应的ASCIII码字符。计时器间隔Interval属性设置为1000,则计时器事件每1秒钟发生一次。n的值每次调用计时器事件过程都会加1,n=nMod4又会使n值只能为0、1、2、3,因此程序运行后每1秒Labell标签将依次显示“A”、“B”、“C”、“D”。
17[单选题] 编写如下程序:
程序运行后,单击命令按钮Commandl,输出结果为
A.cdcbaB.cbacdC.cdacdD.cbed
参考答案:A
参考解析:Right(”abed”,2)从字串的右边截取2个字符“cd”,Mid(”deba”,2,3)从第二个字符开始截取3个字符“cba”然后判断X和Y的大小。选A.。
18[单选题] 假定有如下程序:
运行程序,单击窗体,依次输入3,6、9,输出结果为
A.3B.6C.9D.1
参考答案:A
参考解析:For循环对数组a和b赋值。b(3)=a(1),b
(2)=a(2),b(1)=a(3),循环结束时k=3。因此选A.。
19[单选题] 在窗体上画一个名为Commandl的命令按钮,然后编写以下程序:
运行程序,单击命令按钮,在窗体上显示的是( )。.
A.6B.5C.7 D.8
参考答案:A
参考解析:从程序中可知,数组M元素M(1)~M(10)的值为11、10、9、8、7、6、5、4,3、2。则M(8)的值为4,M(2+M(8))即M(2+4),即M(6)。M(6)的值为6。因此窗体上 显示为6。
20[单选题] 设工程中有2个窗体:Forml、Form2,Forml为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Forml的文本框Textl中输入口令并按回车键(回车键的ASCIl码为l3)后,隐藏Forml,显示Foma2。若口令为“Teacher”,所有菜单都可见;否则看不到“成绩录入”菜单项。为此,某人在Forml窗体文件中编写如下程序:
程序运行时发现刚输入l3令时就隐藏了Forml,显示了Form2,程序需要修改。下面修改方案中正确的是( )。
A.把Forml中Textl文本框及相关程序放到Form2窗体中
B.把Forml.Hide、Form2.Show两行移到2个End If之间
C.把If KeyAscii=13 Then改为If KeyAscii=”Teacher”Then
D.把2个Form2.input.Visible中的“Form2.”删去
参考答案:B
参考解析:原程序的执行流程为,当按下一个键后,激活KeyPress事件,事件中隐藏Fermi和显示From2的语句与判断是否按了回车键的语句是顺序的,即不论按了什么键,都会执行隐藏Forml和显示From2的语句。这两句应该上移列第二个Endlf前面,也就是放在判断是否按了回车键的If语句块中。因此B选项正确。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |