According to the last paragraph, we know that______A．the history of Rome in this period wa

在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single，Y As Single) Phnt“程序设计” End Sub Private Sub Textl_KeyDow

A．Visual Basic

B．程序设计

C．A程序设计

D．VisualBasic程序设计

在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print"VisualBasic"; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是______。

A．Visual Basic

B．程序设计

C．A程序设计

D．Visual Basic程序设计

在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show TextText = " " TextSetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _ As Single) Print "程序设计" End Sub Private Sub Text1_Ke!tDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是 ______。

A．Visual Basic

B．程序设计

C．A程序设计

D．Visual Basic程序设计

在窗体上画—个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text==" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "VisualBasic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是 ______。

A．Visual Basic

B．程序设计

C．A程序设计

D．Visual Basic程序设计

在窗体上画—个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print "程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"； End Sub 程序运行后，如果按A键，然后单击窗体，则窗体上显示的内容是 ______。

A．Visual Basic

B．程序设计

C．A程序设计

D．Visual Basic程序设计

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text，8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是 ______。

A．BeijingChina

B．Chima

C．Beijing

D．BeijingC

在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:

Private Sub Form_load()

Text1.Text=″″

Text1.SetFocus

For i=1 To 9

Sum=Sum+i

Next i

Text1.Text=Sum

End Sub

上述程序的运行结果是

A．在文本框Text1中输出45

B．在文本框Text1中输出0

C．出错

D．在文本框Text1中输出不定值

（12）在窗体上画一个文本框，名称为 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)

If KeyAscii=13 Then

If UCase(Text1.Text)= 【14】 Then

Close #1

End

Else

Write #1, 【15】

Text1.Text=""

End If

End If

End Sub

以上程序的功能是：在 D 盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按

回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容：如果输入“END”，则不写入

文件，直接结束程序。请填空。

在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：

Private Sub Form_Load()

Text1.Text=""

Text1.SetFocus

For i=1 To 9

Sum=Sum=i

Next i

Text1.Text=Sum

End Sub

上述程序的运行结果是

A．在文本框Text1中输出45

B．在文本框Text1中输出0

C． 出错

D． 在文本框Text1中输出不定值

在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。

A．在文本框Text1中输出55

B．在文本框Text1中输出0

C．出错

D．在文本框Text1中输出不定值