[填空题] 有如下事件过程: Private Sub Form_Adivate() Dim Score(1 to 3 ) As Integer Dim i As Integer Dim t As Variant For i=3 To 1 step-1 Score(i)=2*1 Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 (10)
[填空题] 在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色 ……如此循环。单击“结束”按钮,程序运行结束。请填空。 Private Sub cmdChange_Click() If Mark=0 Then 【 】 Mark=1 ElseIf【 】Then Forml.BackColor=vbGreen Mark=2 ElseIf Mark=2 Then Form1.BackColor;vbBlue 【 】 End If End Sub Private Sub cmdExit_Click() End End Sub
[填空题] 在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,然后编写如下代码: Dim Save All As String Private Sub Commandl_C1iCk() Text1.Text=Left(UCase(SaveAU),4) End Sub Private Sub Textl_KeyPress(KeyAscii As Intege) SaveA11=Save All+Chr(KeyAscii) End Sub 程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。
[填空题] 有以下程序段,当在消息框中输入8后,y的值为______。 x=InputBox(\"Enter an Integer\") x=CInt(x) Select Case x Case Is<=0 y=0 Case Is<=10 y=5+2*x Case Is<=15 y=x-5 Case Is>15 y=0 End Select