(18)在窗体上画两个文本框,其名称分别为Text1和Text2,然后编 写如下程序 Private Sub Form Loado Show Textl. Text= Text2 Text Text1. Set Focus End Sub Private Sub Textl Changeo Text2 Text= Mid(Text1. Text, 8) End Sub 程序运行后,如果在文本框Text1中输入 BeijingChina,则在文本框 Text2中显示的内容是 a) BeijingChina b) Chinac) Beijing d) Beijing (19)在窗体上画一个列表框和一个命令按钮,其名称分别为List1和 Command1,然后编写如下事件过程 Private Sub Form Load Listl AddItem Item 1 List. AddItem" Item 2 List1 AddItem" Item 3
（ 18 ）在窗体上画两个文本框，其名称分别为 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 （ 19 ）在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1 ，然后编写如下事件过程： Private Sub Form_Load() List1.AddItem "Item 1" List1.AddItem "Item 2" List1.AddItem "Item 3
End sub Private Sub Command1 Click List1 List( Listl. ListCount)="AAAA End Sub 程序运行后,单击命令按钮,其结果为 A)把字符串“A”添加到列表框中,但位置不能确定 B)把字符串“AAA”添加到列表框的最后(即“Item3”的后面) C)把列表框中原有的最后一项改为“AAA” D)把字符串“A”插入到列表框的最前面(即“Item1”的前面) (20)假定有如下事件过程 Private Sub Form Click o Dim x As Integer, n As Integer n Do While x< 28 *3 Loop Print x. n End Sub 程序运行后,单击窗体,输出结果是
End Sub Private Sub Command1_Click() List1.List(List1.ListCount) = "AAAA" End Sub 程序运行后，单击命令按钮，其结果为 A ）把字符串 “AAAA” 添加到列表框中，但位置不能确定 B ）把字符串 “AAAA” 添加到列表框的最后（即 “Item 3” 的后面） C ）把列表框中原有的最后一项改为 “AAAA” D ）把字符串 “AAAA” 插入到列表框的最前面（即 “Item 1” 的前面） （ 20 ）假定有如下事件过程： Private Sub Form_Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x < 28 x = x * 3 n = n + 1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是
A)814B)563 C)281D)2435 (21)有如下程序: Private Sub Form Click Dim Check, Counter Check= true Counter =0 Do Do While counter< 20 Counter Counter 1 If Counter =10 Then Check= False Exit do End if lo Loop Until Check= False Print counter, Check End sub 程序运行后,单击窗体,输出结果为 A)150B)20-1 c)10 Trued)10 False
A ） 81 4 B ） 56 3 C ） 28 1 D ） 243 5 （ 21 ）有如下程序： Private Sub Form_Click() Dim Check, Counter Check = True Counter = 0 Do Do While Counter < 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为 A ） 15 0 B ） 20 -1 C ） 10 True D ） 10 False
(22)有如下程序: Private Sub Form Click Dim i As Integer sum As Integer 0 For i =2 To 10 If i mod 2<>0 And i mod 3=0 Then sum sum t i End if Next i Print sum End sub 程序运行后,单击窗体,输出结果为 A)12B)30C)24D)18 (23)在窗体上画一个名称为Tex1的文本框和一个名称为 Command1的 命令按钮,然后编写如下事件过程 Private Sub Command1 Click Dim array1(10, 10)As Integer Dim i As integer, j As Integer For i =1 to 3 Forj=2 To 4
（ 22 ）有如下程序： Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为 A ） 12 B ） 30 C ） 24 D ） 18 （ 23 ）在窗体上画一个名称为 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