单项选择题

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox( "Enter an integer" )
b = Text1. Text
Text1. Text = b + a
End Sub
程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是( )。

A) 579
B) 123
C) 456123
D) 456
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1 (10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 arrayl(i, j) = i + j Next j Next i Text1. Text = array1 (2, 3) + array1 (3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。
A) 15
B) 14
C) 13
D) 12
单项选择题
窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(5) As Integer For k = 1 To 5 arr(k) = k Next k prog arr() For k = 1 To 5 Print arr(k); Next k End Sub Sub prog(a() As Integer) n = UBound(a) For i = n To 2 step-1 For j = 1 To n-1 if a(j) ＜ a(j+1) Then t=a(j):a(j)=a(j+1):a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是( )。
A) 1 2 3 4 5
B) 5 4 3 2 1
C) 0 1 2 3 4 D) 4 3 2 1 0
相关试题