（ 26 ）窗体上有 1 个名称为 Text1 的文本框； 1 个名为 Timer1 的计时器控件，其 Interval 属性值为5000 ， Enable 属性值是 True 。 Timer1 的事件过程如下：

Private Sub Timer1_Timer()

Static flag As Integer

If flag=0 Then flag=1

flag=-flag

If flag=1 Then

Text1.ForeColor=&HFF& ‘ &HFF& 为红色

E．lse

Text1.ForeColor=&HC000& ‘ &HC000& 为绿色

E．nd If

E．nd Sub

以下叙述正确的是

A． ）每次执行些事件过程时， flag 的初始值为 0

B． ） flag 的值只可能取 0 或 1

C． ）程序执行后，文本框的文字每 5 秒改变一次颜色

D． ）程序有逻辑错误， Else 分支总也不能被执行

[单选题]( 26 )窗体上有1个名称为 Text1 的文本框和1个名称为 Command1 的命令按钮。要求程序运行时,单击（ 26 ）窗体上有１个名称为 Text1 的文本框和１个名称为 Command1 的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件 out.txt 中，每次写入的内容附加到文件原有内容之后 。 下面能够实现上述功能的程序是（ ）A． ） Private Sub Command1_Click （）Open “ out.txt ” For Inpit As#1

[单选题]窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是（ ）。A．Private Sub Command1_Click（）Open “out.txt” For Inpit As#1Print#1,Text1.TextC．lose#1E．nd SubB．Private Sub Command1_Click（）Open “out.txt

[单选题]窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（）C．all CheckInput（Text1，500）E．nd SubPrivate Sub Text2_LostFocus（）C．all CheckInput（Text2，1000）E．nd SubSub CheckInput（

[单选题]窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序 如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下

[单选题]窗体上有一个名称为Text1的文本框和—个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out.txt中，每次写入的内容附加到原有内容之后。下面能够正确实现上述功能的程序是______。A．Private Sub Command1_Click() Open "out.txt" For Input As#1 Print #1,Text1.Text Close #1 End SubB．Private Sub Command1_Click() Open

[单选题]（ 24 ）在窗体上有一个文件名称为 Text1 的文本框和 1 个名称为 Command1 的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是（ ）A． ） Private Sub Command1_Click （）Text1.Left=100E．nd SubB． ） Private Sub Command1_Click （）Text1.Left= Text1.Left-100E．nd SubC． ） Private Sub Comman

[单选题]3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1，3 y=X*X CaseIS＞=10，IS＜=-10 y=X Case-10 To 10 y=-X End Select End SA．执行y=x*xB．执行y=-xC．先执行y=x*x，再执行y=-xD．程序出错

[单选题]在窗体上画1个命令按钮（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Command1_Click（）x=Val（Text1.Text）Select Case xC．ase 1，3y=x*xC．ase Is>=10，Is<=-10y=xC．ase -10 To 10y=-xE．nd SelectE．nd Sub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是（ ）。A．执行y=x*xB．执行y=-xC．先执

[单选题]在窗体上有若干控件，其中有一个名称为，Text1的文本框。影响Text1的Tab顺序的属性是________。A．TabStopB．EnabledC．VisibleD．TabIndex

[单选题]在窗体上有—个名称为Text1的文本框和一个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮—次，文本框向右移动—定的距离。下面能够正确实现上述功能的程序是 ______。A．Private Sub Command1_Click() Text1.Left=100 End SubB．Private Sub Command1_Click() Text1.Left=Text1.Left-100 End SubC．Private Sub Command1_Click() Text1.M