单项选择题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Text2.Text="’’ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是

A．BeijingChina
B．China
C．Beijing
D．BeijingC

<上一题目录下一题>

热门试题

单项选择题

设有如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n＜ 10 Then Call，GetArray(a， n) End If End Sub Private Sub GetArray(b() As Integer， n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i) 2 =b(i) 2 Then j=j + 1 c(j) = b(i) End If Next Print j End Sub 以下叙述中错误的是

A．数组b中的偶数被保存在数组c中
B．程序运行结束时，在窗体上显示的是c数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息

单项选择题

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form Load() List1.AddItem Item 1 List1.Addltem Item 2 Listl.Addltem Item 3 End Sub Private Sub Command1 Click() Listl.List(Listl.ListCount)= AAAA End Sub 程序运行后，单击命令按钮，其结果为

A．把字符串“AAAA”添加到列表框中，但位置不能确定
B．把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)
C．把列表框中原有的最后一项改为“AAAA”
D．把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)

相关试题