单选题下列程序输出结果为______。 Private Sub Command1_Click() Dim a As Boolean a=True If a Then GoTo L1 Else GoTo L2 L1: Print"VB" L2: Print"VC" End Sub
单选题现有以下程序：
Private Sub Command1_Click()
c1=0
c2=0
For i=1 To 100
If i Mod 3=0 Then
c1=c1+1
ElseIf i Mod 7=0 Then
c2=c2+1
End If
Next
Print c1+c2
End Sub
此程序运行后输出的是1～100范围内______。
单选题下面不属于软件测试实施步骤的是
单选题一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFune的标准模块。假定在 Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为： Forml中定义的过程： Privme Sub frmFunction1( ) …… End Sub Form2中定义的过程： Public Sub frmFunction2( ) End Sub mdlFunc 中定义的过程： PubHc Sub mdl Function( ) End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
单选题编写如下程序：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=1:y=1
Do
y=x*y
If y＞10 Then
Exit Do
Else
x=x+3
End If
LoopUntil x＜=10
Print x; y
End Sub
程序运行后，单击命令按钮Command1，输出结果为
单选题DoUntil...Loop循环命令的功能是( )。
单选题某人设计了下面的函数fun，功能是返回参数a中数值的位数： Function fun(a As Integer) As Integer Dim n% n=1 While a/10＞=0 n=n+1 a=a/10 Wend fun=n End Function 在调用该函数时发现返回的结果不正确，函数需要修改。下面的修改方案中正确的是
单选题有如下程序段：Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print G(
单选题在窗体上添加一个命令按钮，然后编写如下事件过程： 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程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是()。