1、2016年6月信息技术VB期末测试试卷一、选择题（每题3分）1.在求解“一元二次方程实数根”的算法中，如果方程不存在实数解，也要求输出结果“无实数根”。此要求主要体现了算法特征中的（）（A）有穷性 （B）有输出 （C）确定性 （D）唯一性2某超市在晚上19：3020：30期间，对于在货架上已超过2天的带叶蔬菜，收银机自动将价格下降50%。用来描述某种蔬菜是否降价的处理过程，合适的算法流程是（）（A）循环模式（B）重复模式（C）选择模式（D）顺序模式3.在Visual Basic程序中要用到存储范围为-4000040000的某一整数变量，则该变量的类型应该定义为（）（A）Integer（B）Lo
2、ng（C）Single（D）Boolean4.在Visual Basic中，要定义一个一维数组a，用于存储15名铅球运动员的成绩数据（以米为单位，精确到0.01米），则正确的数组定义语句是（）（A）Dim a(1,15) As Integer （B）Dim a(1,15) As Single （C）Dim a(1 To 15) As Single （D）Dim a(1 To 15) As Integer5在Visual Basic中，用变量y存储“ABC”，变量y的数据类型应定义为（）（A）String（B）Long（C）Boolean（D）Integer6.下列运算结果中，值为3的是（）（A
3、）5/3（B）53（C）3 mod 5（D）5 mod 37.产生1，40 范围内某一随机整数的表达式是（）（A）Rnd * 40（B）Int(Rnd * 40)（C）Int(Rnd * 40) + 1（D）Int(Rnd * 39) + 18.下列Visual Basic表达式的值等于56的是（）（A）Mid(1234567, 5, 3)（B）Len(55) + 1（C）Sqr(56) （D）Abs(-55) + 19.在Visual Basic中，语句abc.Text=hello中的“Text”是（）（A）对象名（B）方法名（C）属性值（D）属性名10.下列属于正确的Visual Basi
4、c赋值语句的是（）（A）a + b = 2（B）a = 2+b（C）2 = a + b （D）a * b = 211.在Visual Basic中，下列能作为变量名的是（）（A）3_Click（B）Name（C）Integer（D）a+y12.在Visual Basic中，Hello.frm文件属于（）（A）工程文件（B）窗体文件（C）代码文件（D）类文件13.在Visual Basic中，语句tel=ipad3中的iPad3是（）（A）逻辑常量（B）数值常量（C）字符串常量（D）实数常量14.下列表达式中，符合 Visual Basic表达式书写规范的是（）（A）3+|k-1| （B）2k-
5、1 （C）ak/2 （D）k2-115.在Visual Basic中，要在标签对象Label3上显示文字“正确”，下列语句正确的是（）（A）Label3 =正确 （B）Lable3.Caption =正确（C）Label3.Caption =正确 （D）Caption.Label3 =正确16.对于Visual Basic语句If b=2 Then s=s*2 Else s=s/2，下列说法正确的是（）（A）b=2为赋值语句（B）s=s*2和s=s/2均为赋值语句（C）s=s*2和s=s/2均为关系表达式（D）s=s*2为关系表达式，s=s/2为赋值语句17长方体侧面积计算公式是s=2h(a+
6、b)，a、b为长和宽，h为高，计算s的Visual Basic表达式是 （）（A）2h(a+b)（B）2h*(a+b)（C）2*h(a+b)（D）2*h*(a+b)18.将整数型变量n的值显示在文本框Text1中，正确的语句是（）（A）Text = n （B）Val(Text1) = n（C）Text1.Text = Str(n) （D）Str(Text1.Text) = n19下列语句用于计算s=1+4+7+10+25： For i=1 To 25 Step 3 Next i s=0 s=s+i正确的语句顺序是（）（A）（B）（C）（D）20有流程图结构如下，其算法结构属于 （）（A）顺序结
7、构（B）选择结构（C）分支结构（D）循环结构21下列描述算法的流程图符号中属于输入.输出框符号的是（）（A）（B）（C）（D）22.某Visual Basic程序的一个事件过程如下：Private Sub Command1_Click() Dim ch As String ch = abcd Label1.Caption = chEnd Sub窗体中标签对象的属性设置如图所示。运行程序，单击命令按钮Command1，出现“要求对象”的出错信息提示。引起该错误的语句是（）（A）Dim ch As String（B）ch = abcd（C）Label1.Caption = ch（D）End Sub
8、二、填空题1.（每空3分）有如下Visual Basic程序段：i=6i=i+2j=2*i+1j=i该程序段运行后，变量j的值为 。2. （每空3分）Private Sub Command1_Click() Dim a As Stringa = Text1.Text + Text2.Text Print aEnd Sub程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入58和42,然后单击命令按钮,则在窗体上打印出来的结果为_ 3.（每空3分）某算法的流程图如下所示：若输入a、b的值分别为3、9，则该算法的输出结果为_4.（每空3分）某快递公司快递货物按照货物的重量
9、，按下列标准收费：若不超过5千克，统一收取费用15元，若超过5千克，在基本费用15元的基础上，超过部分则按每千克2.5元收费，若超过20千克,在基本费用50元的基础上，超过部分则按每千克2元收费。设x表示货物重量，y表示快递费用。该问题的数学表达式为： 解决上述问题的Visual Basic程序如下，在和划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x as Double x=Val(Text1.Text) If x20 Then ElseIf Then y=15+(x-5)*2.5 Else y=15 End IfText
10、2.Text=Str(y) End IfEnd Sub 5、（每空3分）有如下Visual Basic程序段： s = 0 For i = 1 To 6 step 2 s = s + i Next i该程序段运行后，s=_ 6.（每空4分）以下Visual Basic程序的功能是：计算表达式1323331003的值，并在文本框abc中输出计算结果。Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 i = 1 Do While i = 100s = s + i * 3 i = i + 1Loop _ = Str(s
11、)End Sub问：（1）为了实现上述表达式的计算，处划线处应填入_。（2） 退出循环时，变量i的值是_。7.（每空4分）如下图为冒泡排序的案例：lstUnsorted，lstSorted为左右两个列表框。Option ExplicitConst MAXSIZE = 1000Dim d(MAXSIZE + 1) As Integer, n As IntegerPrivate Sub Command1_Click() Dim i As Integer, j As Integer n = Val(txtSize.Text) If n MAXSIZE Then txtSize = 数据个数必须大于0
12、！ Exit Sub End If Randomize lstUnsorted.Clear For i = 1 To n j = Int(32768 * Rnd) lstUnsorted.AddItem Str$(j) d(i) = j Next Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() 冒泡 Dim i, j, TEMP, NextElement lstSorted.Clear For i=1 to n-1 For _ Step -1 If d(j) 5或x5 and x=20（5）_9_（6）_abc.text_ _101_（7） j=n to i+1 d(j)=d(j-1)_
