单选题窗体一卜有名称为List1的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic"的语句是
单选题文件d:/city.txt的内容如下：
BeiJing
TianJin
ShangHai
ChongQing
编写如下事件过程：
Private Sub Form_Click()
DimInD
Open"d:/city.txt"For Input As #1
Do While Not EOF(1)
Line Input #1.InD
Loop
Close 1
Print InD
End Sub
运行程序，单击窗体，输出结果是
单选题为了暂时关闭计时器，应把计时器的某个属性设置为Falss，这个属性是 ______ 。
A.Visble
B.Timer
C.Interval
D.Enabled
单选题设a=10，b=5，c=1，执行语句Print a＞b＞c后，窗体上显示的是______。
A.True
B.False
C.11
D.出错
单选题设窗体上有一个水平滚动条，要求单击滚动条右端的按钮一次，滚动块移动一定的刻度值，决定此刻度值属性的是______。A)MaxB)MinC)SmallChangeD)LargeChange
单选题下面不能在信息框中输出"VB"的是( )。
单选题设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是（ ）。
单选题窗体上有1个名称为Command1的命令按钮，事件过程如下：
Private Sub Command1_Click()
Dim art_x(5, 5)As Integer
For i=1 To 3
For j=2 To 4
arr_x(i, j)=i*j
Next j
Next i
Print arr_x(2, 1); arr_x(3, 2); arr_x(4, 3)
End Sub
运行程序，并单击命令按钮，窗体上显示的内容为
单选题窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为
单选题在E盘当前目录文件夹下建立一个名为“Student．txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序( )。Private Type studentStuName As String*10StuGrade As String*10StuAge As IntegerEnd TypePfivate Sub Form_Click()Dim s As studentOpen"c：＼student．txt"For Random As#1Len=Len(s)For i=1To5s．StuName=InputBox("请输入姓名")s．StuGrade=InputBox("请输入年级号")s．StuAge=Val(InputBox("请输入年龄"))______________Next iClose#1End Sub
单选题在窗体上画一个命令按钮，然后编写如下事件过程。 Private Sub
Command1_Click() For i=I To 4 X=4
Fori=1 To 3 X=3 For k=1 To 2
X=X+6 Next Next
Next Print X End Sub
程序运行后，单击命令按钮，输出的结果是{{U}} {{/U}}。
A. 7
B. 15
C. 157
D. 538
单选题在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明：PriVateTypePersonNameAsString*8:MajorAsStri8ng*20EndTypeDimpAsPerson设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是
单选题在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，两个名称分别为Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Labell中显示当前文件夹中文件的数量。如下图所示。能够正确实现上述功能的程序是()。
单选题下面为单精度实型(即单精度浮点型)变量的是
单选题阅读程序： Private Sub Form_Click()
x=50 For i=1 To 4
y=InputBox("请输入一个整数") y=Val (y) If y Mod 5=0
Then a=a+y x=y Else
a=a+x End If Next i
Print a End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为______。
A.100
B.50
C.120
D.70
单选题在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。编写如下程序PrivateSubFormLoad()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand1Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)EndSubFunctionf(ByValxAsInteger,ByValyAsInteger)DoWhiley＜＞0tmp=xModyx=yy=tmpLoopf=xEndFunction运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。
单选题有三个关系R，S和T如下：
单选题设有如下事件过程：Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)If Button=2ThenPopupMenu popMenuEnd IfEnd Sub则以下描述中错误的是( )。
单选题若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As String End Type Dim arr(5)As rec 则下面的输出语句中正确的是( )。
单选题为了读取数据，需打开顺序文件“D:/data5.txt”，以下正确的命令是