单选题窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能： PrivateSubCommandlClick() Dimn％，k％ n=Len(Text1．Text) Fork=0ToList1．ListCount-1 IfLeft(List1．List(k)，n)=Text1．TextThen List1．Removeltemk EndIf Nextk EndSub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把Fork=0ToList1．ListCount-1改为()。
单选题下面的语句用Array函数为数组a的各元素赋整数值： a＝Array(1,2,3,4,5,6,7,8,9) 对数组变量a的正确定义是
单选题在窗体上画一个名称为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 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
单选题设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，以下( )事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右键单击。
单选题窗体上有一个名称为Text1的文本框，要求在获得焦点时选中文本框中所有内容，以下能实现该功能的事件过程是
单选题软件工程上常用的表达工具有______。 A) 图形工具 B) 表格工具 C) 语言工具 D) 以上全是
单选题以下程序的功能是：把父目录下顺序文件smtext1．txt的内容读入内存，并在文本框Text3中显示出来。请选择适合横线处的语句( )。Private Sub Command1_Click()Dim inData As StringText3．Text=" "Open"．．＼smtext1．txt"______________As#1Do While______________Input#1，inDataText3．Text=Text3．Text&inDataLoopClose#1End Sub
单选题在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是( )。
单选题窗体上有一个名称为Command1的命令按钮。要求编写程序，把文件f1．txt的内容写到文件f2．txt中，然后将f1．txt删除。命令按钮的单击事件过程如下： Private Sub Commandl_Click() Open”c：/f1．txt”For Input As#1 Open”c：＼f2．txt”For Output As#2 Do While Not EOF(2) Line Input#1．str1 Print #2，str1 Loop Close Kill”c：＼f1．txt”End Sub 该程序运行时发生错误，应该进行的修改是
单选题运行下面的程序，单击命令按钮，输出结果为( )。 Function F(a As Integer) b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print F(
单选题在窗体画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在下划线处应填入的内容为______。
单选题下面列表框属性中，是数组的是
单选题语句Print Sgn(-6^2)+Abs(-6^2)+int(-6^2)的输出结果是( )。
单选题为了防止用户随意将光标置于控件上，应( )。
单选题下列代码运行后输出结果是( )。 Defstr B-E Private Sub Cornmand1_Click() B$=“123” C=“456” Print B+C$ End Sub A) 123456 B)“123456” C) 123+“456” D) 显示出错信息
单选题目录列表框的Path属性的作用是( )。 A) 显示当前驱动器或指定驱动器上的目录结构 B) 显示当前驱动器或指定驱动器上的某目录下的文件名 C) 显示根目录下的文件名 D) 显示该路径下的文件
单选题为了使列表框中的项目呈多列表显示，需要设置的属性为
单选题下列程序的功能是：调用字体对话框来设置文本框中的字体，单击C。mmand1按钮弹出对话框，进行相应的字体、字号等的设置，然后单击“确定”按钮退出对话框，则将发生哪些变化( )。 Private Sub Command1_Click() CommonDialog1.CancelError=True CommonDialog1.Flags=3 On Error Resume Next CommonDialog 1.ShowFont Text1.Font.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.FontSize Text1.Font.Bold=CommonDialog1.FontBold Text1.Font.Italic=CommonDialog1.Fontltalic Text1.Font.Undefiine=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor=CommonDialog1.Color End Sub
单选题在窗体上画一个文本框和一个列表框，然后编写下列两个事件过程： Private Sub Form_Load() List1.AddItem"357" List1.AddItem"246" List1.AddItem"123" List1.AddItem"456" Text1.Text="" End Sub Private Sub List1 DblClick() m=List1.Text Print m+Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的"456"，输出结果是( )。
单选题在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程 Private Sub Form_Load() List1.Addltem"Iteml" List1.Addltem"Item2" List1.Addltem"Item3" End Sub Private Sub Command1_click() List1.List(List1.ListCount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为______。