网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

在窗体上画一个命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim a(5) As String

For i = 1 To 5

a(i) = Chr(Asc("A") + (i - 1))

Next i

For Each b In a

Print b;

Next

End Sub

程序运行后,单击命令按钮,输出结果是( )。

A.ABCDE

B.1 2 3 4 5

C.abcde

D.出错信息


参考答案

更多 “ 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc("A") + (i - 1))Next iFor Each b In aPrint b;NextEnd Sub程序运行后,单击命令按钮,输出结果是( )。A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息 ” 相关考题
考题 在窗体上有一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim a(5) As StringFOR i=1 To 5a(i) =Chr(Asc("A") +(i-1))NextFor Each b In aPrint b;NextEnd Sub程序运行后,单击命令按钮,输出结果是A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息

考题 在窗体上有一个命令按钮,然后编写如下事件过程。Private Sub Command1_Click()Dim a(5)As StringFOR i=1 To 5a(i)=Chr(Asc("A")+ (i-1))NextFor Each b In aPrint b;NextEnd Sub程序运行后,单击命令按钮,输出结果是A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息

考题 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a() a=Array(1,3,5,7) s=0 For i=1 To 3 s=s*10+a(i) Next i Print s End Sub 程序运行后,输出结果为( )。A.135B.357C.531D.753

考题 在窗体上有一个命令按钮,然后编写如下事件过程。 Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b h a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息

考题 在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()Dim a()a=Array("机床","车床","钻床","轴承")Print a(2)End Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.机床B.车床C.钻床D.轴承

考题 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim a( ) a = Array( 1, 3, 5, 7) s=0 For i = 1 To 3 s=s*10+a(i) Next i Print s End Sub程序运行后,输出结果为( )。A.135B.357C.531D.753

考题 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后,单击命令按钮,输出结果是( )。A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息

考题 在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim a() a=Array("机床","车床","钻床","轴承")Print a(2) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.机床B.车床C.钻床D.轴承

考题 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(5)As String For i=1 T0 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是______。A.ABCDEB.1 2 3 4 5C.abodeD.出错信息