在窗体上画一个名称为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 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。2 3 4A.ABCDB.abcdC.出错信息D.1_考试题库网

未知题型

在窗体上画一个名称为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 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。
2 3 4

A.ABCD
B.abcd
C.出错信息
D.1

【参考答案】

A
解析：语句Chr(Asc('A')+(i-1))的作用是将字符A的ASCII码值加上循环变量的值减1，求出此......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

相关考题

单项选择题正时传动带的作用就是当发动机运转时，活塞的行程（上下的运动）、气门的开启与关闭（时间）、点火的顺序（时刻）在正时传动带的作用下，时刻保持“（）”运转。 A、相差360度 B、同步 C、相差180度 D、异步

未知题型假定有如下的Sub过程： Sub Func(x As Single， y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=6 b=5 Func(a, B) Print a, b End Sub 程序运行后，单击命令按钮，输出结果为 ______。A.6 5B.1 1C.1.2 5D.1.2 1

未知题型在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。 Private Sub Text1_KeyPress＜KeyAscii As Integer) Dim char as String char=Chr(KeyAscii) Text1.Text=String(5，KeyAscii) End SubA.aaaaaB.AAAAAC.aaaaaaD.AAAAAA

All Rights Reserved 版权所有©考试题库网(kstiku.com)

备案号：湘ICP备14005140号-3

经营许可证号：湘B2-20140064