算法与程序设计综合练习VIP免费

1.“”在求解一元二次方程实数根的算法中，如果方程不存在实“”数解，也要求输出结果无实数根。此要求主要体现了算法特征中的()A．有穷性B．有输出C．确定性D．唯一性B2.在VisualBasic中，用变量存储560位学生的身高数据(如：1.76)，下列最合适的变量说明是()A．将560个变量说明为整数型B．将560个变量说明为单精度实数型C．将一个元素个数为560的一维数组说明为整数型D．将一个元素个数为560的一维数组说明为单精度实数型D3．计算圆锥体体积的算法如下：①输入底面半径r、高h②pi＝3.1416③计算底面积s＝pi·r2④计算体积v＝s·h/3⑤输出体积v上述算法属于()A．枚举算法B．解析算法C．排序算法D．查找算法B4．下列VisualBasic表达式的值等于127的是()A．Val(“123”)＋4B．Len(“123”)＋4C．Sqr(123)＋4D．Str(“123”)＋“4”A5.在VisualBasic代码编辑窗口中，输入了“Text1.”后出现了如图所示的信息：其中的“Text”是Text1的()A．属性名B．事件名C．对象名D．方法A6．万有引力的计算步骤有：①计算万有引力F＝G②输入两物体的质量m1、m2③输出结果F④G＝6.67×10－11⑤输入两物体之间的距离r下列选项中，步骤顺序正确的是()A．①③②④⑤B．①②③④⑤C．②①⑤④③D．②⑤④①③D221rmm7.某VisualBasic程序的一个事件过程如下：PrivateSubCommand1_Click()DimxAsSingleDimyAsSinglex＝－10y＝Abc(x)Label1.Caption＝Str(y)EndSub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示。引起该错误的语句是()A．DimyAsSingleB．x＝－10C．y＝Abc(x)D．Label1.Caption＝Str(y)C则流程图中空白处理框①和②处应填入的是()A．①y←x2－1②x←2x－1B．①y←x2－1②y←2x－1C．①y←2x－1②y←x2－1D．①x←x2－1②y←2x－18．某算法的自然语言描述与流程图表示分别如下：B9.在VisualBasic中，要将字符串变量a和b的值连接并将结果在文本框Text1中输出，下列代码合适的是()A．Str(a＋b)＝Text1.TextB．Text.Text1＝a＋bC．a＋b＝Text1.TextD．Text1.Text＝a＋bD10.下列VisualBasic程序段运行后，变量s的值等于55的是()s＝0:i＝1DoWhilei<＝10s＝s＋ii＝i＋1Loops＝0:i＝1DoWhilei<＝10i＝i＋1s＝s＋iLoops＝0Fori＝1To10s＝iNextis＝0Fori＝1To10i＝i＋sNextiABCDA11.某旅游景点规定，身高在1.2米以下的儿童免票，身高在1.2米～1.5米的儿童购买半价票，身高超过1.5米的购全价票。下图所示算法用于根据身高判断购票情况：“”用于输出购全价票的图框编号是()A．①B．②C．③D．④D12.在VisualBasic代码编辑窗口中，将窗体Form1的Caption“”属性值设置为时钟，正确的代码是()A．Form1.Caption“”时钟B．Form1.Caption(“”时钟)C．Caption(时钟)D．Form1.Caption“”＝时钟D13．某书店在5所学校流动售书量(单位：本)分别是88、110、48、64、35。采用冒泡排序对其进行排序，若完成第一遍时的结果是：35、88、110、48、64，则完成第二遍时的结果是()A．35、88、110、48、64B．35、48、88、64、110C．35、48、88、110、64D．35、48、64、88、110C14.运行如下VisualBasic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“下标越界”错误时所执行的语句是()PrivateSubCommand1_Click()Dima(0To5)AsIntegerDimiAsInteger'①a(0)＝1'②Fori＝1To5a(i)＝2*a(i－1)＋1'③NextiText1.Text＝Str(a(6))'④EndSubA．①B．②C．③D．④D15.有如下VisualBasic程序段：Dima(1To4)AsIntegera(1)＝1Fori＝2To3a(i)＝2*a(i－1)＋1Nexti该程序段运行后，数组元素a(4)的值为()A．15B．7C．3D．0D16.在VisualBasic中，有如下程序：PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimdAsInteger,zAsIntegera＝Val(Text1.Text):b＝Val(Text2.Text):c＝Val(Text3.Text)d＝min(a,b)z＝min(d,c)Text4.Text＝Str(d)Text5.Text＝Str(z)EndSubFunctionmin(xAsInteger,yAsInteger)AsIntegerIfx