11.下列_____程序段能删除列表List1中的所有项。 A、Private Sub Command1_Click() For I=0 To List.ListCount-1 List1.RemoveItem 0 Next I End Sub B、Private Sub Command1_Click() For I=0 To List.ListCount-1 List1.RemoveItem 1 Next I End Sub C、Private Sub Command1_Click() For I=0 To List1.ListCount List1.RemoveItem 0 Next I End Sub D、Private Sub Command1_Click() For I=0 To List1.ListCount-1 List1.RemoveItem 1 Next I End Sub
13.执行以下Command1的Click事件过程在窗体上显示____。 Option Base 0 Private Sub Command1_Click( ) Dim a a=Array("a","b","c","d","e","f","g") Print a(1);a(3);a(5) End Sub A、abc B、bdf C、ace D、无法输出结果
15.要在C盘当前文件夹下建立一个名为StuData.dat的顺序文件,应先使用_____语句。 A、Open "C:\StuData.dat" For Output As #1 B、Open "C:\StrData.dat" For Input As #1 C、Open "C;StuData.dat" For Output As #1 D、Open "C:StuData.dat" For Input AS #1
16.设已经在菜单编辑器中设计了窗体的快捷菜单,其顶级菜单为TIME,且取消其“可见”属性。为使运行时可以使快捷菜单的菜单项响应鼠标左键单击和右键单击,应设置如下事件过程: A、Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single,Y As Single) If Button=2 Then PopupMenu TIME,2 End Sub B、Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single,Y As Single) PopupMenu TIME,0 End Sub C、Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single,Y As Single) If (Button=vbLeftButton)Or(Button=vbRightButton)Then PopupMenu TIME End Sub D、Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single,Y AS Single) PopupMenu TIME End Sub
A B C D
17.窗体中代码如下:
Private Sub Form_Click( ) Dim x As Integer,y As Integer,z As Integer x=1:y=2:z=3 Call Procl(x,x,z) Call Procl(x,y,y) End Sub
Private Sub Procl(x As Integer,y As Integer,z As Integer) x=3*z y=2*z z=x+y Print x;y;z End Sub
13.在C盘当前文件夹下建立一个名为StuData.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StrEng),并且写入文件的每个字段都以双引号隔开,试填写下面程序段的空白。 Private Sub Form_Click( ) ____ For i=1 To 5 StuNo=InputBox("请输入学号") StuName=InputBox("请输入姓名") SutEng=Val(InputBox("请输入英语成绩")) ____ #1,StuNo,StuName,StuEng Next i Close #1 End Sub