201会考_填空题(答案).doc

第一套 1. 有如下Visual Basic程序段： a = 12: b = 20 b = a + b + 28 a = b + a - 5 b = a + b 该程序段运行后，变量b的值为 127 。 2. 有如下Visual Basic程序段： a = 5 b = Len(1011) If a b Then Label1.Caption = 请重新输入 Else Label1.Caption = 欢迎光临 End If 该程序段运行后，在标签Label1上显示的是___ 请重新输入_________。 3. 以下Visual Basic程序的功能是：计算表达式1×1+2×2+3×3+4×4+5×5+6×6的值，并在文本框Text_1中输出结果。 Private Sub Command1_Click() Dim a(1 To 6) As Integer Dim s As Integer, i As Integer s = 0 For i = 1 To 6 a(i) = i * i s = s + a(i) Next i _____= str(s) End Sub 问： （1）为了计算上述表达式的值，上面程序段划线处应填入__ Text_1.Text_____。 （2）该程序段运行后，a(5)的值是___