【单选题】窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Com.mand1),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Commandl_Click() Dim n%.k% n=Len(Textl.Text) For k=0 To Listl.ListCount-1 If Left(Listl.List(k)...
【单选题】窗体上有一个命令按钮 Com1 ,并有如下程序: Private Sub Com1_Click() Dim x As Integer , y As Integer y=0 For k = 1 To 10 x = Int(Rnd * 90 + 10) y = y + x Mod 2 Next k Print y End Sub 程序运行后,单击命令按钮,输出的结果是