在窗体上画一个名称为command1的命令按钮,然后编写如下程序; Option Base 1 Private Sub Command1_Click() Dim arr(4)As String For i=1 To 4

admin2010-09-11  25

问题 在窗体上画一个名称为command1的命令按钮,然后编写如下程序;    Option Base 1    Private Sub Command1_Click()       Dim arr(4)As String       For i=1 To 4         arr(i) = Chr(Asc("A")+(i-1))         Next  i       For Each b1 In arr         Print b1;         Next    End Sub    程序运行后,如果单击命令按钮,则在窗体上输出的内容为 ______。

选项 A、ABCD
B、abcd
C、出错信息
D、1 2 3 4

答案1

解析 语句Chr(Asc("A")+(i-1))的作用是将字符A的ASCII码值加上循环变量的值减1,求出此ASCII码对应的字符。将计算出的字符赋值给数组arr的第i个元素。循环结束后,arr的4个元素分别为字符A、B、C、D。Print方法输出项的最后用分号结束,使得输出不换行。
转载请注明原文地址:https://kaotiyun.com/show/Jymp777K
0

最新回复(0)