单选题在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1 To 3 k=k+p(i)*2 Nexti Printk End Sub 该程序的运行结果为( )。
单选题一下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str= "ABCDABCD", ch= "B",则函数的返回值为："ACDACD"
Function delchar（str As String, ch As String）As String
Dim k As Integer, temp As String, ret As String
ret=""
For k=1 To Len（str）
temp=Mid（str, k, 1）
If temp= ch Then
ret=ret＆temp
End If
Next k
delchar=ret
End Function
但实际上函数有错误，需要修改。下面的修改方案中正确的是
单选题下列说法中错误的是( )。 A) 资源文件的扩展名为.res B) 一个窗体对应一个窗体文件 C) Visual Basic中的一个工程只包含一个窗体 D) Visual Basic中一个工程最多可以包含255个窗体
单选题使用Array函数给某X赋值时，X必须是
单选题已知有下面过程
Private Sub proc1(a As Integer,b As String,Optional x As Boolean)
End Sub
正确调用此过程的语句是【 】
单选题改变驱动器列表框的Drive属性值将激活______事件。 A) Change B) Scroll C) KeyDown D) KeyUp
单选题下列符号常量的声明中不合法的是
单选题在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500。编写如下程序：
Private Sub Form_Load( )
Timer1.Enabled=False
End Sub
Private Sub Command1_Click( )
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer( )
If Label1.Left＜ Form1.Width Then
Label1.Left = Label1.Left + 20
Else
Label1.Left=0
End If
End Sub
程序运行后，单击"开始"按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是（ ）
单选题在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮，运行后的窗体外观如图所示：设有如下的类型和变量声明：PrivateTypePersonnameAsSTRING*8majorAsString*20EndTypeDimpAsPerson设文本框中的数据已正确地赋值给Person类型的变量p，当点击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。
单选题在窗体上画一个文本框控件，名称为TxtTime；再画一个计时器控件，名称为Timer1，程序运行后，要求每1秒钟在文本框中显示一次当前的事件。以下是实现上述操作的程序，则在下划线后(括号前)应填入的内容是______。 Private Sub Timer1 () TxtTime.text = Time End Sub
单选题为了保存数据，需打开顺序文件“E：＼UserData．txt”，以下正确的命令是
单选题在窗体上画一个名称为Labe11、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timerl的计时器控件，并把其Interval属性设置为500，如下图所示。编写如下程序：PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommandl_ChCk()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPdvateSubTlmerl_Timer()IfLabe11.LeftLabe11.Left=Labe11.Left+20ElseLabe11.Left=0EndIfEndSub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是()。
单选题有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。
单选题设窗体上有1个名称为HScroll1的水平滚动条，其Max、Min属性分别设置为100、1：有2个名称分别为Option1、Option2的单选按钮，其标题分别为“30”、“50”；还有下面程序代码： Private Sub Optionl_Click() Private Sub Option2_Click() HScroll1=Val(Optionl．Caption) HScroll1=Val(Option2．Caption) End Sub End Sub 程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是
单选题在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件；6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签，其中，Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条Value属性值，Label3显示A*B的计算结果，如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现求积功能的事件过程是______。
单选题设窗体上有—列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是
单选题假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为a1，其“可见”属性为False，则程序运行后，可以同时响应鼠标左键单击和右键单击的事件过程是 ______ 。
单选题运行下列程序后，显示的结果为_______。 R1=21
R2=34 If R1＜R2 Then Print R2 Else Print R1
A.21
B.34
C.55
D.2134
单选题设有如下程序段：
Dim a(10)
…
For Each x In a
Print x;
Next x
在上面的程序段中，变量x必须是______。
单选题设有如图所示窗体和以下程序：PrivateSubCommand1_Click()Text1.Text=VisualBasicEndSubPrivateSubText1_LostFoeus()IfText1.Text＜＞BASICThenText1.Text=Text1.SetFocusEndIfEndSub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是______。