设有如下程序: Option Base 1 Private Sub Form Click() Dim a(5)As String,i As Integer For i=1 TO 5 a(i)=Chr(Asc("A")+i)

admin2012-12-21  29

问题 设有如下程序:
Option Base 1
Private Sub Form Click()
    Dim a(5)As String,i As Integer
    For i=1 TO 5
    a(i)=Chr(Asc("A")+i)
    Call f(a,i)
    Next i
End Sub
Sub f(ta()As String,n AS Integer)
    Dim i As Integer
    F0r i=1 TO n
    PriDt ta(i):
    Next i
    Print
End Sub
    对上述程序,以下叙述中正确的是(    )。

选项 A、程序有错,因为在过程f的定义中数组参数格式不正确
B、程序可正常运行,输出内容的第一行是一个字母“A”
C、程序可正常运行,输出内容的第一行是一个字母“B”
D、程序可正常运行,输出内容的第一行是数字65

答案C

解析 Chr是Ascii码转成字符.Asc-是讲字符转成Asc。fi码。i是1到5的循环,仍然是一个数。a数组就是B、C、D、E、F这5行字符。第一行是B,程序运行后,5行分别是B,BC,13CD,BCDE,BCDEF。
转载请注明原文地址:https://jikaoti.com/ti/1EO0FFFM
0

最新回复(0)