高中信息技术vb练习1

信息技术Vb 练习1
1．某商场对过季服装进行八折促销，新款服装进行九五折促销。

用算法描述这一促销方案，合适的算法流程是
（A ）循环模式 （B ）顺序模式 （C ）树型模式 （D ）选择模式
2．在Visual Basic 中，语句TName.Caption = "2012伦敦"中的TName 是
（A ） 对象名 （B ）属性名 （C ）属性值 （D ） 事件名
3．计算长方体体积的算法如下：
①输入长方体的长（L ）、宽（W ）、高（H ）的值
②计算体积V = L * W * H
③输出体积V
上述算法属于
（A ）解析算法 （B ）枚举算法 （C ）排序算法 （D ）递归算法
4．某算法的部分程序代码与其相对应的流程图分别表示如下：
程序代码 流程图
则代码中①和②处应填入的是
（A ）①i = 1 To 10
②s = s * i
（B ）①i = 1 To 10 ②s = s + i （C ）①i = 1 To 10 Step 2
②s = s + i
（D ）①i = 1 To 10 Step 2 ②s = s * i
5. 某算法的流程图如下所示： Private Sub Command1_Click()
Dim i As Integer
Dim s As Long
s = 1
For ①
②
Next i
Label1.Caption = Str(s)
End Sub
Y
N
输入a,b
a >
b ？
输出(b-a)/a
输出(a-b)/b
开始
结束
若输入a、b的值分别为8、10，则该算法的输出结果为
（A）0.25 （B）0.2 （C）-0.2 （D）-0.25
6.“一个算法必须保证它的执行步骤是有限的。

”这是指算法特征中的
（A）有穷性（B）确定性
（C）能行性（D）有0个或多个输入
7．在Visual Basic中，表达式13 \ 5 Mod 4的值是
（A） 1 （B） 2 （C） 3 （D） 4
8．在Visual Basic中，语句Dim a(1 To 10) As String所定义的数组元素个数是
（A） 1 （B） 9 （C） 10 （D）11
9．在Visual Basic程序中要用到存储范围为-150000～150000的某一整数变量，则该变量的类型应该定义为
（A）Integer （B）Long （C）Single （D）Boolean 10．在Visual Basic中，某对象的属性窗口如下图所示：
该对象名是
（A）CommandButton （B）Command1 （C）Command_1 （D）Appearance
11．在Visual Basic中，语句List_11.AddItem "hello"中的“AddItem”是
（A）对象名（B）方法名（C）属性值（D）事件名
12．某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a As Single, b As Single
Dim c As Single
a = 1
b = 5
c = Sqr(a - b)
Text1.Text = Str(c)
End Sub
运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是
（A）a = 1 （B）b = 5
（C）c = Sqr(a - b) （D）Text1.Text = Str(c)
13．在Visual Basic中，要定义一个由50个元素构成的一维整型数组cp，下列语句正确的是
（A）Const cp(1 to 50) As Integer
（B）Dim cp(1 To 50) As Integer
（C）Const cp(1 To 5) As Integer
（D）Dim cp As Integer
14．某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = i * i
Next i
List1.AddItem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为
（A）下标越界（B）子程序或函数未定义
（C）溢出（D）类型不匹配
15．某Visual Basic程序段如下：
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i = 2 To 10
a(i) = a(i - 1) * i
Next i
运行该程序段，会出现的错误提示为
（A）下标越界（B）子程序或函数未定义
（C）要求对象（D）溢出
16．某Visual Basic程序如下：
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 10 To 2 Step -2
sum = sum + i
Next i
Text1.Text = Str(sum)
End Sub
运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是
（A）Sum = 0 （B）For i = 10 To 2 Step -2
（C）sum = sum + i （D）Text1.Text = Str(sum)
17．在Visual Basic代码编辑窗口中，输入了“List1.”后出现了如图所示的信息：
其中的“BackColor”是List1的
（A）属性名（B）事件名（C）对象名（D）方法
18．在Visual Basic中，鼠标单击窗体Form触发的事件处理过程名为
（A）Text1_Click （B）Form_Click
（C）Text1_DblClick （D）Form_DblClick
19．已知a=1，b=2，c=3，下列表达式中值为True的是
（A）Not (a < b) （B）a > b And b > c
（C）a < b Or a > c （D）a > c
20．有如下的Visual Basic程序段：
For i = 1 To 10 Step 4
s = s + i
Next i
该程序段运行后，语句s = s + i执行的次数是
（A） 1 （B） 3 （C） 4 （D） 10
答案：1-10：DAADA ABCBC
11-20: BCBAD DABCB。