单选题窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Command1_Click() Dim In As Integer In=______ List.Remove Ind End Sub 则在程序的空白行的语句是( )。
单选题下面程序段执行结果为（ ）。
x=Int(Rnd()+3)
Select Case x
Case 5
Print "excellent"
Case 4
Print "good"
Case 3
Print"pass"
Case Else
Print"fail"
End Select
单选题设有命令按钮Commandl的单击事件过程，代码如下： Private Sub Commandl_Click() Dima(3,3)As Integer Fori=1 To 3 Forj=1 To 3 a(i,j)=i*j+i Next j Nexti Sum=0 Fori=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是( )。
单选题在窗体上画一个命令按钮和一个文本框(名称分别为Commandl和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String Private Sub Form_Load()
Show Text1.Text=""
Text1.SetFocus End Sub Private Sub
Commandl_Click() Text1.Text=LCase(SaveAll)+SaveAll
End Sub Private Sub Form_KeyPress(KeyAscii As
Integer) SaveAll=SaveAll+Chr(KeyAscii) End
Sub 程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为______。
A.vbVB
B.不显示任何信息
C.VB
D.出错
单选题设执行以下程序段时依次输入2，4，6，执行结果为( )。
Dim a(4)As Integer
Dim b(4)AS Integer
For k=0 To 2
a(k+1)=Val(InputBox("Enter data："))
b(3 - k) =a(k + 1)
Next k
Print b(k)
单选题利用通用对话框控件打开字体对话框的操作是( )。
单选题有如下程序： a$="122345876" d$=Left$(a$，1) For i=2 To Len(a$); z$=Mid$(a$，i，1) If z$＞d$ Then d$=z$ Next i Print d$ 运行后，输出的结果是______。
单选题在窗体上有若干控件，其中有一个名称为，Text1的文本框。影响Text1的Tab顺序的属性是________。
A. TabStop
B. Enabled
C. Visible
D. TabIndex
单选题设有如下函数过程： Function fun(a As Integer, b As Integer) Dim c As Integer If a＜b Then c=a:a=b:b=c End If c=0 Do c=c+a Loop Until c Mod b=0 fun=c End Function 若调用函数fun时的实际参数都是自然数，则函数返回的是
单选题假定有如下事件过程： Privte Sub Form_Click0 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 程序运行后，单击窗体，输出结果是( )。
单选题设在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As String*20
End Type
在窗体上画一个名称为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
单选题以下叙述错误的是( )。
单选题在窗体上画一个命令按钮，然后写出如下事件过程：
Private Sub Command1 _ Click( )
S=1
Do
S=(S + 1) ^(S + 2)
Number=Number+1
Loop Until S＞=6
Print Number，S
End Sub
程序运行后，输出的结果是( )。
单选题已知在4行3列的全局数组score(4，3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，某人编写程序如下：Option Base 1Private Sub Commandl_Click() Dim sum As Integer sum=0 For i=1 To 4 For j=1 To 3 sum=sum+score(i，j) Nextj Print"第"&i&"个学生的总分是："；sum Next iEnd Sub运行此程序时发现，除第1个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。以下修改方案中正确的是
单选题窗体上有名称分别为Text1、Text2的文本框，名称为Commandl的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：
Private Sub Commandl_Click()
Text2.Text=UCase(Mid(Text1.Text,5,4))
End Sub
在Text2中显示的是______。
单选题在E盘当前目录文件夹下建立一个名为“Student.txt”，的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程，请选择正确的语句完成程序( )。 Private Type student StuName As String*10 StuGrade As String*10 StuAge As Integer End Type Private Sub Form_Click() Dim s As student Open"c:/student.txt"For Random As#1 Len=Len(s) For i=1 To 1 s.StuName=InputBox("请输入姓名") s.StuGrade=InputBox("请输入年级号") s.StuAge=Val(InputBox("请输入年龄")) ______ Next i Close#1 End Sub
单选题以下关于文件的叙述中，正确的是
单选题在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程： Private Sub Command1_Click() aS=“software and hardware” b$=Right(aS，8) c$=Mid(a$，1，8)：MsgBox aS，，b$，c$，1 End Sub 则在弹出的信息框标题栏中显示的标题是
单选题为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True，然后再将 ScrollBars属性设置为
单选题下列程序段的执行结果为{{U}} {{/U}}。 a=6
For k=1 To n a=a+k Next
Print k; a
A. -16
B. -116
C. 16
D. 11 21