单项选择题

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim arr1(10)As Integer, arr2(10)As Integer n=3 For i=1 To 6 arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n); arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 ______。

A．12 3
B．3 12
C．14 3
D．3 14
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及 Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按＜Enter＞键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如下图所示：如果存在，则在 Label2中给出提示“输入项已在组合框中”。请将程序补充完整。Private Sub Combol_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenFor i=0 To Combol.ListCount-1If Combol.Text= 【2】 ThenLabel2.Caption= 输入项已在组合框中 Exit SubEnd IfNext iLabel2. Caption = 已成功添加输入项 Combol. 【3】 Combol. TextEnd IfEnd Sub
单项选择题
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox( 请输入 ) Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text)，4) End Sub 程序运行后，如果在对话框中输入abcdefgh，则在标签中显示的内容是 ______。
A．空
B．abcdef
C．abcd
D．efgh
相关试题