窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值为True。Timer1的事件过程如下:Private Sub Timer1_Timer()Static flag As IntegerIf flag = 0 Then flag = 1flag = -flagIf flag = 1 ThenText1.ForeColor = &HFF&ElseText1.ForeColor = &HC000&End IfEnd Sub以下叙述中正确的是
A. 每次执行此事件过程时,flag的初始值均为0
B. flag的值只可能取0或1
C. 程序执行后,文本框中的文字每5秒改变一次颜色
D. 程序有逻辑错误,Else分支总也不能被执行
查看答案
编写如下程序:Private Sub Command1_Click()Dim a As Integer,b As Integera = 3 b = 2If a * b < 10 Then b = b + 1 Else b = b - 1Print b - a > 0End Sub程序运行后,单击命令按钮Command1,输出结果为
A. True
B. False
C. 1
D. -1
现有语句:y = IIf(x > 0 , x Mod 3 , 0) 设x = 10,则y的值是
A. 0
B. 1
C. 3
D. 语句错误
编写如下程序:Private Sub Command1_Click()Dim m As Integer,n As Integerm = 2:n = 1Select Case mCase 1Select Case nCase 1Print “AAA”Case 2Print “BBB”End SelectCase 2Print “CCC”End SelectEnd Sub程序运行后,单击命令按钮Command1,输出结果为
AAA
BBB
CCC
D. 1
现有如下一段程序:Private Sub Command1_Click()x = UCase(InputBox(“输入:”)Select Case xCase “A”To“C”Print “考核通过!”Case “D”Print “考核不通过!”Case ElsePrint “输入数据不合法!”End SelectEnd Sub执行程序,在输入框中输入字母“B”,则以下叙述中正确的是
A. 程序运行出错
B. 在窗体上显示“考核通过!”
C. 在窗体上显示“考核不通过!”
D. 在窗体上显示“输入数据不合法!”