在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：Private Sub Text1_KeyPress（K

在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String，n As Integer str=UCase(Chr(KeyAscii)) n=Len(str)。 Text1．Text=String(n，str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（）。

A.A.pp B.pP C.ｐｐ D.Pp

B.

在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim str As String，n As Integer

str=UCase(Chr(KeyAscii))

n=Len(str)。

Text1．Text=String(n，str)

End Sub

程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（）。

A.pp

B.pp

C.pp

D.pp

程则实现在Text1文本框中动态显示当前日期和时间，请补充完整。

Private Sub Form_Load()

Me.TimerInterval=1000

End Sub

Private Sub 【 】

Me!text1=Now()

End Sub

。

ss(KeyAscii As Integer) Dim str As String,n As Integer Str=UCase(Chr(KeyAscii) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为。A.pp B.pP C.PP D.Pp

设窗体上有一个名为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 Sinqle) Print"程序设计" End Sub Private Sub Text1_Keynown(KeyCode As Integer, Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上最示的内容是

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

A.108

B.18

C.810

D.出错

框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick() Text3.Text = Str＄(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End Sub

A．12

B．34

C．46

D．1234

ext2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（）处应填入的内容是。

Private Sub Text1_LostFocus（）

Call CheckInput（Text1，500）

End Sub

Private Sub Text2_LostFocus（）

Call CheckInput（Text2，1000）

End Sub

Sub CheckInput（t As ？，x As Integer）

If Val（t.Text）＞x Then

MsgBox"请重新输入!"

End If

End Sub

A．Text

B．SelText

C．Control

D．Form

输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号()处应填入的内容是______。 Private Sub Text1 LostFocus() Call CheckInput(Text1,500) End Sub Private Sub Text2 LostFocus() Call CheCkInput(Text2,1000) End Sub Sub CheckInput(t AS ？,x As Integer) If Val(t.Text)＞X Then MsgBox "请重新输入!" End If End Sub

A．Text

B．SelText

C．Control

D．Form

500 ， 文本

框 Text2 中输入的数据小于 1000 ，否则重新输入。为了实现以上功能，在下列程序中问号（）处

应填入的内容是（）。

Private Sub Text1_LostFocus()

Call CheckInput(Text1,500)

End Sub

Private Sub Text2_LostFocus()

Call CheckInput(Text2,1000)

End Sub

Sub CheckInput(t As ？,x As Integer)

If Val(t.Text)＞x Then

MsgBox" 请重新输入 !"

End If

End Sub

A ） Text

B ） SelText

C ） Control

D ） Form