The discovery of a new type of ceratopsian dinosaur suggests ceratopsians ______.A．migrate

在窗体上画1个文本框，名称为Text1，然后编写如下程序：

Private Sub Form_Load（）

Open"d:\temp\dat.txt"For Output As#1

Text1.Text=""

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

lf【13】=13 Then

If UCase（Text1.Text）=______Then

Close 1

End

Else

Write#1,______

Text1.Text=""

End If

End If

End Sub

以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。

在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：

程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。

在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Command1_click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is＞=10,Is＜=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是______。

A．执行y=x*x

B．执行y=-x

C．先执行y=x*x，再执行y=-x

D．程序出错

在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Command1_click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is＞=10,Is＜=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是______。

A．执行y=x*x

B．执行y=-x

C．先执行y=x*x，再执行y=-x

D．程序出错

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 S

A．执行y=x*x

B．执行y=-x

C．先执行y=x*x，再执行y=-x

D．程序出错

在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode＋2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为______。

A．A A

B．A B

C．A C

D．A D

在窗体上画1个文本框，其名称为Text1，然后编写如下过程：

Private Sub Text1_KeyDown（KeyCode As Integer,Shift As Integer）

Print Chr（KeyCode）

End Sub

Private Sub Text1_KeyUp（KeyCode As Integer，Shift As Integer）

Print Chr（KeyCode+2）

End Sub

程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。

A．A

A

B．A

B

C．A

C

D．A

D

在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode＋2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为______。

A．A A

B．A B

C．A C

D．A D

在窗体上画1个文本框，其名称为Text1，然后编写如下过程：

Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)

Print Chr(KeyCode)

End Sub

Private Sub Text1_Key Up(KeyCode As Integer,Shift As Integer)

Print Chr(KeyCode+2)

End Sub

程序运行后，把焦点移到文本框中，此时如果敲击“A”

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：

Dim SaveAll As String

Private Sub Command1_Click（）

Text1.Text=Left（UCase（SaveAll），4）

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

SaveAll=SaveAll+Chr（KeyAscii）

End Sub

程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。