更多"窗体上已建立多个控件，如Text1、Commandl、Label1，若"的相关试题:
[填空题]窗体上已建立多个控件，如Text1、Command1、Label1，若要使程序开始运行时焦点定位在Command1控件上，则应将Command1控件的______属性值设置为______。
[填空题]在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容，将程序补充完整。
Private Sub Command1_Click（ ）
Open"c:/test.dat"For ______ As #1
For i=1 to Len(Text1.text)
print #1，mid(Text1.Text,i,1)
Next
Close #i
End Sub
[单项选择]在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程：
Dim str As String, strl As String
Private Sub form_load（ ）
Text1. Text = " "
Text2. Text = " "
Text1. Enabled = False
Text2. Enabled = False
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
str= str&Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
str1 = strl&Chr(KeyCode)
End Sub
Private Sub Command1_Click（ ）
Text1. Text =str
Text2. Text = str1
str= " "
str1= " "
End Sub
当在设计阶段把窗体KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为 ______ 。
A. abc
B. 不显示任何信息
C. ABC
D. 出错
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyDown事件过程如下：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim s As String
s=Chr(KeyCode+35)
Text2.Text=s
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是
A. A
B. a
C. D
D. d
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode))
Text2．Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )。
A. A
B. a
C. C
D. c
[单项选择]在窗体上有两个命令按钮Command1和Commnd2，三个文本框Text1，Text2和Text3，有如下事件过程：
Private Sub Comuand1_Click（ ）
Text3.Text= Text1.Text+Text2.Text
End Sub
Private Sub Command2_Click（ ）
Text3.Text= Text3.Text+Str(Val(Text1.Text)+Val (Text2.Text))
End Sub
程序运行后，在Text1和Text2中分别输入123、456，然后依次单击Command1和Command2，则在Text3中显示的内容依次是______ 。
A. 123456 579
B. 123456 123456
C. 579 579
D. 579 123456
[单项选择]在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：
Dim SaveAll As String
Private Sub Form_Load（ ）
show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Command1_Click（ ）
Text1.Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form_KeyPress(keyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入“VB”，再单击命令按钮，则文本框中显示的内容为
A. vbVB
B. 不显示任何信息
C. VB
D. 出错
[单项选择]当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不能响应的事件
A. MouseDown
B. MouseUP
C. Load
D. Click
[单项选择]窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于
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
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form Click（ ）
Dim i As Integer
Dim sum As Long
Dim t As Long
t=1:sum=0
For i=1 To 3
t=t*i
sam=sum+t
Next i
Print sum
End Sub
A. 3
B. 9
C. 5
D. 6
[填空题]在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1 秒、计时器触发事件过程则实现在Text1 文本框中动态显示当前日期和时间。请补充完整。
Private Sub From_Load（）
Me.Timerinterval＝1000
End Sub
Private Sub __________
Me.text1＝Now（）
End Sub
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。
Option Explicit
Private ______
Dim k As Integer
For k=1 To 100
If k Mod 20 Then
_______
Else
Text1.Text=" "
End If
Print“程序运行完毕，可再双击窗体”
End Sub
