学进去

有如下程序段：
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, m As Integer
Dim key As Integer
i = 1: j = 10: key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
If key < a(m) Then
j = m - 1
ElseIf key > a(m) Then
i = m + 1
Else
Do While m > 1
If a(m - 1) = key Then
m = m - 1
Else
Exit Do
End If
Loop
Exit Do
End If
Loop
数组中a(1)到a(10)依次为“1，1，2，3，3，3，3，4，4，4”，若在文本框Text1中输入值3，经上述程序段执行后变量m的值为

A．7

B．6

C．5

D．4

设置________可快速移动光标。

在Word 2003中，表格第1行第1列单元格到第4行第2列单元格的区域的地址表示为：________

班主任要给班级的每名学生建立关于个人信息及成绩的表格，根据要求回答下列各小题。
1、表格中设有身份证一项，如果需要保证每格输入的身份证号能够正常显示，需要设置
_____________，并将其设为_____________格式。
2、再输入所有成绩后，需要计算总成绩时，要用到那个函数_____________。
3、为了便于查找各列数据，老师最好为表格加入_____________功能。
4、作好表格后，老师利用插入图标功能制作一张图表，具体下操作①选择插入菜单中的图表按钮②选择需要生成图标的数据③为图标选择类型并填入相关信息④调整图标位置及大小，试写出正确的抄作顺序_____________。

阅读分析以下VB程序，该程序采用的算法是_______。
Private Sub Command1_Click()
Dim x As Integer, c As Integer, i As Integer
x = Val(Text1.Text)                  
c =" 0"                                
Text2.Text = Str(c)
End Sub

A．解析For i =" 1" To x If x Mod i = 0 Then

B．查找c =" c" + 1List1.AddItem Str(i)

C．排序End IfNext I

D．枚举

由“For k="35" To 0 Step 3 : Next k ”循环语句控制的循环次数是_______。

A．12

B．0

C．-10

D．-11

（1）某省实施《中华人民共和国道路交通安全法》办法中规定，机动车驾驶人驾驶机动车超过规定时速但未超过百分之五十的，处于二百元罚款。超过百分之五十（未造成交通事故）的，处五百元罚款，每多超过五公里，加处二百元罚款，不足五公里的忽略不计，但最高罚款不得超过二千元。用于计算罚款额的Visual Basic程序如下：
Private Sub Command1_Click()
Dim v0 As Integer, v As Integer, x As Integer
v0 = Val(Text1.Text)                 'v0 存储规定速度
v = Val(Text2.Text)                  'v存储实际速度
If v > v0 And v <= 1．5 * v0 Then
x = 200
ElseIf v > 1．5 * v0 Then
x =" 500" + Int((v - 1．5 * v0) / 5) * 200
Else
x = 0
End If
If x > 2000 Then x = 2000
Label1.Caption = Str(x)
End Sub
（1）运行该程序时，在Text1文本框中输入50，在Text2文本框中输入60，点击Command1时，在Label1的Caption上显示的罚款金为          。
（2）如下一段Visual Basic程序：
Private Sub Command1_Click()
Dim i As Integer,sum As Integer
Dim x As Integer,n as Integer
n=Val(Text1.text)
sum = 0
For i =" 1" To n
x = Int(Sqr(i))
If x * x =" i" Then sum =" sum" + x
Next i
Label1.Caption = Str(sum)
End Sub
在Text1框中输入10时，点击Command1时，Label1上显示的是       。

有如下VB 程序,该程序运行后在文本框Text1 中显示的结果是（  ）
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub

A．3	B．6
C．10	D．18

Sub test2()
a = 12：b = 12：c = 5
Label1.Caption = ""
Label2.Caption = ""
If a > b Or Not b<c Then
Label1.Caption = "monday"
Else
Label2.Caption = "tiger"
End If
Label3.Caption =" Label1.Caption+" Label2.Caption
End sub
该程序段运行后，在标签Label3的Caption属性值是(   )

A．"monday"

B．"tiger"

C．"mondaytiger"

D．""

Sub test3()双重循环运行输出图形与3重复,但3已改题
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是（  ）

A．33333

B．55555

C．12345

D．54321