vb读程序.pptVIP

5．阅读下面的程序 Dim a(1 To 6) As Integer Private Sub Form_Load() For i = 1 To 6 a(i) = i * 2 Next i End Sub Private Sub Form_Click() Dim s As Integer s = 0 For i = 1 To 6 s = s + a(i) Next i Print s End Sub 单击窗体，输出结果为（）。 分析：程序的一开始就声明a是一个模块级（窗体级）数组，该数组在窗体的所有过程中都有效。接下来在窗体的Load事件中给数组a的各个元素赋初值，再在窗体的单击事件中求出a数组个元素之和。 42 6．阅读下面的程序（暂时不看） Dim a(1 To 6) As Integer Private Sub Form_Load() For i = 1 To 6 a(i) = i * 2 Next i End Sub Private Sub Form_Click() Dim s As Integer s = 0 For i = 1 To 6 s = s + a(i) Next i Print s End Sub 单击窗体，输出结果为（ ） 42 7．阅读下面的程序 Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 6 For i = 1 To 3 Print F(a) Next i End Sub 程序运行时，单击命令按钮在窗体上的输出结果为（ ） 10 12 14 8．阅读下面的程序 Private Sub Form_Click() Dim a As Single, b As Single, c As Single a = InputBox(输入A的值) b = InputBox(输入B的值) Call sum(a, b, c) Print c=; c End Sub ? Public Sub sum(x, y, z) z = x ^ 2 + y ^ 2 End Sub 单击命令按钮，输入2和3，输出结果为（ ） C=13 综合 1.对窗体编写如下事件过程： Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) arr = Array(12, 15, 18, 20, 24) m1 = arr(1) m2 = 1 If KeyAscii = 12 Then For i = 2 To 5 If arr(i) m1 Then m1 = arr(i) m2 = i End If Next i End If Print m1 Print m2 End Sub 12 1 2．阅读下面的程序 Private Sub Form_Click() Dim i As Integer, k As Integer k = 0 For i = 1 To 4 If i 2 Then k = k + 5 Else k = k + 2 End If Next i Print i, k End Sub 程序运行时单击窗体后，Form1上的输出结果为（ ） 5 14 3．阅读下面的程序 Private Sub Form_Click() Dim c As Integer, j As Integer, k As Integer k = 0 c = 1 For j = 1 To 6 If