网友您好, 请在下方输入框内输入要搜索的题目:
A.4321
B.5432
C.6543
D.7654
设有如下程序:
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
Min = ______
For i = 2 To 8
If arr1(i) < Min Then______
Next
Print "最小值是:"; Min
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。
arr1(1) min=arr1(i)
有如下程序:
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
End If
Next i
End Sub
程序运行后,单击窗体,消息框的输出结果为( )。
27
下面程序:________Option Base 1Private Sub Command1_Click() Dim a(10),p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。
A.33
B.28
C.35
D.37
解析:此题中共定义了两个数组:a(i),p(i),共用到三次For循环:
第一个For语句是对数组a(i)赋值,a(1)到a(10)的值分别为1到10;
第二个For语句是对数组p(i)赋值,p(1)=a(1)=1,p(2)=a(4)=4,p(3)=a(9)=9;
第三个For语句是对k的值循环相加,三次循环的结果分别为:7,15,33。
下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer Dim i AS Integer Dim j As Integer i = 1 j = 1 do do intsum = intsum + j =j+2 Print j; Loop until j >3 i = i+1 Loop until i>17 Print Print intsumEnd Sub
A.14
B.15
C.14
D.13
解析:本题的难点是判断循环非正常退出。do ... Loop until循环是先执行后判断。
一、单项选择题(共 30 题、共 60 分)得分:48 分1.设有如下程序: Option Base 0 Private Sub Form_Click() Dim a Dim I As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后,单击窗体,则在窗体上显示的内容是_。A、5 4 3 2 B、6 5 4 3 C、7 6 5 4D、4 3 2 1答案正确得分22.在文本框Text1中输入“(hello)”,则输出结果为( )。Private Sub Text1_KeyPress(KeyAscii As Integer)Dim count1%If Chr(KeyAscii) = ( Thencount1 = count1 + 1ElseIfChr(KeyAscii) = ) Thencount1 = count1 - 1End IfIf KeyAscii = 13 ThenIf count1 = 0 ThenPrint 左右括号配对ElseIf count1 0 ThenPrint 左括号多于右括号; count1; 个ElsePrint 右括号多于左括号; -count1; 个End IfEnd IfEnd SubA、左括号多于右括号B、右括号多于左括号C、程序出错D、左右括号配对答案正确得分23.下列程序段的执行结果为( )。a=100:b=50If ab Thena=a-belseb=b+aEnd ifPrint aA、50B、100C、200D、10答案错误得分04.复选框的value属性为1时,表示( )。A、复选框被选中 B、复选框内右灰色的勾C、复选框操作有错误D、复选框未被选中 答案错误得分05.下面的子过程语句说明合法的是_。A、 Sub fib(j%) As IntegerB、Function f%(f%) C、Function f1!(ByVal n%)D、Sub fib(ByRef i%() 答案正确得分26.下列选项中叙述正确的是( )。A、Select Case语句中的条件表达式只能是数值表达式或者字符表达式B、在执行Select Case语句时,所有的Case子句都按出现的次序被顺序执行C、Select Case语句的测试表达式会多次计算D、Select Case语句中的条件表达式可以是任何形式的表达式答案错误得分07.关于VB描述错误的是( )。A、VB是面向过程的程序设计语言B、VB具有事件驱动的编程机制C、VB的工具箱窗口由被绘制成按钮形式的图标构成。D、VB集成开发环境是一组软件工具,集应用程序的设计、编辑、运行调试等于一体答案正确得分28.下列程序执行后,变量x的值为() Dim a , b , c , d , x As Single a = 200 : b = 100 : c = 500 If b a Then d = a : a = b : b = d End If If b c Then x = b ElseIf a c Then x = c Else x = a End If Print xA、100B、200C、500D、0答案正确得分29.以下语句输出结果是( )。Private Sub Form_Click()A=Beijing b=ShangHai Print a;bEnd SubA、AbeijingShangHaiB、BeijingShangHaiC、AbeijingD、Beijing ShangHai答案正确得分210.在使用菜单编辑器设计菜单时,必须输入的项是( )。A、名称 B、索引 C、快捷键D、标题 答案正确得分211.对象的属性用来描述对象的特征,它们是一组( )。A、程序B、属性名C、操作D、数据答案正确得分212.表达x大于10且小于100的关系表达式为()。A、10x10 and xx10 or x100 答案正确得分213.可用于设置系统当前时间的语句是( )。A、Date$B、TimeC、TimerD、Date答案错误得分014.有如下事件过程,程序的功能是()。 Private Sub Commandl _Click ( ) S1=0: S2=0 M1=0: M2=0 N=1 Do while N b Then t = a : a = b : b = t If a c Then t = a : a = c : c = t If b c Then t = b : b = c : c = t Print a , b , c End Sub 程序运行后,单击命令按钮,依次在输入对话框中输入10、5、20,则输入结果为()A、51020B、10520C、20510D、20105答案错误得分026.要禁用计时器控件,需要设置为False的属性是( )。A、VisibaleB、TimerC、IntervalD、Enable答案正确得分227.要将一个组合框设置为简单组合框(Simple Combo),则应将其Style属性设置为( )。A、1B、2C、3D、0答案正确得分228.在过程定义中用 ( )表示形参的传值方式。A、ByRef B、ByVal C、ValueD、Var答案正确得分229.图像框根据加载的图像的大小调整尺寸,需要设置为False的属性是( )。A、StretchB、Picture C
设有如下程序: Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n< 10 Then Call,GetArray(a, n) End If End Sub Private Sub GetArray(b() As Integer, n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i) /2 =b(i) \2 Then j=j + 1 c(j) = b(i) End If Next Print j End Sub 以下叙述中错误的是
A.数组b中的偶数被保存在数组c中
B.程序运行结束时,在窗体上显示的是c数组中元素的个数
C.GetArray过程的参数n是按值传送的
D.如果输入的数据大于10,则窗体上不显示任何信息
解析:GetArray过程返回c数组中元素的个数。c数组元素由b(i)赋值,但只有b(i)中为偶数的元素才能赋值给c数组中的元素。单击按钮时,如果输入的n值小于10,则调用GetArray过程。据此A、B、D项都是正确的。C项的错误比较明显,GetArray过程的参数n前没有关键字“ByVal”,则默认为“ByRef”,即n是按传地址的方式传送参数的。
有如下程序: Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3<>0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后,单击窗体,输出结果为
A.12
B.30
C.24
D.18
解析:纵观题目可以看出,本题程序段的作用是将从2到10中是2的倍数但不是3的倍数的数加求然后输出。在2到10中满足条件的数字是2,4,8,10,所以和是24,故本题的正确答案是选项C。
设有如下程序: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n<10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Clnt(Rnd()*100) Ifb(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是( )。
A.数组b中的偶数被保存在数组C中
B.程序运行结束时,在窗体上显示的是c数组中元素的个数
C.GetArray过程的参数n是按值传送的
D.如果输入的数据大于10,则窗体上不显示任何信息
设有如下程序: Option Base 0 Private Sub Form_Click( ) Dim a Dim i As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后,单击窗体,则在窗体上显示的是( )。
A.4 3 2 1
B.5 4 3 2
C.6 5 4 3
D.7 6 5 4
C。【解析】OptionBase0指示程序中数组下标从0开始,因此在For循环中打印的数组元素分别为第6、5、4、3个元素,结果为6、5、4、3。
设有如下程序: Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); Next End Sub 程序运行后,单击窗体,则在窗体上显示的是
A.4 3 21
B.543 2
C.6 54 3
D.7 6 54
解析:本题综合考查For循环控制语句与用Array函数为数组进行初始赋值.注意,由于“Option Base 0”,故数组的下标下界为0,所以a(5)应该是数组a的第六个元素“6”,以此类推,可知正确答案为C。
更多 “重庆大学2022年秋季学期课程作业《可视化程序设计(VB)》在线题库” 相关考题
- 单选题黄汗的病机特点为()A 肺卫不固B 营卫不和C 湿闭阳郁D 阴虚火旺E 气阴两虚
- 单选题中医最早的病因病理专著是()A 《伤寒杂病论》B 《肘后方》C 《三因极-病证方论》D 《诸病源候论》E 《景岳全书》
- 按照劳动关系主体各方的力量对比划分,不属于劳动关系类型的是() A、均衡型B、倾斜型C、个人自主型D、政府主导型
- ()记载魏晋人物的言谈铁事,与“志怪小说”相对,可看作“志人小说”的开端。
- 味红茶品饮时,即使在茶汤中加入多种调料,尤其是一些(),香气和滋味是不会轻易被混淆的。A.小叶种红茶B.大叶种红茶C.名优红茶D.进口红茶
- 舌后两侧对咸味最敏感,舌前两侧对酸味最敏感。此题为判断题(对,错)。
- 生产经营单位,将项目、场所、设备发包承租的,承包、承租单位的事故隐患排查治理自行负责。() 此题为判断题(对,错)。
- “短饮类”鸡尾酒的基本特征是:A.多用果汁等为配料B.酒精含量相对较低C.口味浓重D.口味较温和
- 单选题续骨活血汤属于骨伤内治法中何种方法()A 行气消瘀法B 和营止痛法C 接骨续筋法D 补气养血法E 攻下逐瘀法
- 单选题关于征收拆迁和协议拆迁在法律性质上的根本区别,下列哪一项说法是错误的?()A 征收拆迁和协议拆迁都必须是以公共利益的需要为前提B 征收拆迁涉及动用公权力的问题,协议拆迁法律性质上就是一个普通的交易合同C 征收拆迁必须受到严格限制,协议拆迁遵循平等协商,自主决定的原则D 征收拆迁相当于强制购买,无论被拆迁人是否愿意,都必须在政府依照法律规定的权限和程序发布征收决定后,接受征收拆迁。协议拆迁则必须建立在协议双方自愿的基础上,任何一方都不得将自己的意愿强加给对方
- 金属非金属矿山(地下矿山)主要负责人安全生产考试试题测试强化卷及答案(第50版)-
- 金属非金属矿山(地下矿山)主要负责人安全生产考试试题测试强化卷及答案(第56版)-
- 金属非金属矿山(地下矿山)主要负责人安全生产考试试题测试强化卷及答案(第54次)-
- 金属非金属矿山(地下矿山)主要负责人安全生产考试试题测试强化卷及答案(第51次)-
- 金属非金属矿山(地下矿山)主要负责人安全生产考试试题测试强化卷及答案(第51期)-
- 2022造价工程师《工程计价》真题测试强化卷和答案(第4套)-
- 金属非金属矿山(地下矿山)主要负责人安全生产考试试题测试强化卷及答案(第57版)-
- 2022造价工程师《工程计价》真题测试强化卷和答案(第47版)-
- 金属非金属矿山(地下矿山)主要负责人安全生产考试试题测试强化卷及答案(第53期)-
- 2022造价工程师《工程计价》真题测试强化卷和答案(第30卷)-