更多"在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form"的相关试题:
[填空题]在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。
Private Function fun(m As Integer) As Integer
Dim k As Integer, n As Integer
do
n = 【10】
k=k+ n
m= m/10
Loop until m = 0
fun = k
End Function
Private Sub form_ Click（ ）
Dim n As Integer
n = Val(Text1. Text)
Print 【11】
End Sub
[单项选择]要改变窗体上文本框控件的数据源，应设置的属性是（ ）。
A. 记录源
B. 控件来源
C. 筛选查阅
D. 默认值
[单项选择]在窗体上画一个名为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) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[简答题]
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框。程序运行后，Command1显示为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在______处填入适当的内容，将程序补充完整。
Private Sub Form_Load（ ）
Command1. Enabled=False
End Sub
Private Sub Text1______（ ）
Command1. Enabled=True
End Sub |
[单项选择]窗体上有一个名为text1的文本框和一个名为command1的命令按钮，事件过程如下：
Private Sub command1_click（ ）
Dim i As Integer，n As Integer
For j=0 to 50
i=i+3
n=n+1
If i＞10 Then Exit For
Nextj
text1=str(n)
End Sub
程序运行时单击命令按钮，文本框中显示的值是（）。
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写下列事件过程：
Private Sub Command1_Click（ ）
For Each TextBox In Text1
Text1(i)=Text1(i).Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。
A. 0 1 2 3
B. 1 2 3 4
C. 0 1 3 2
D. 出错信息
[简答题]在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1，标题为“计算’’的命令按钮，如图11-22所示。要求程序运行后，单击命令按钮，将计算100～200之间所有素数之和，在文本框中显示结果，同时把结果存入文件out.txt中。(在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中。)
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.tXt文件。
[单项选择]在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
Private Sub Command1_Click（ ）
Dim i As Integer,n As Integer
For i=0 To 50
i=j+3
n=n+1
If i＞10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的是( )。
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体上有一个文本框控件，要求每隔一秒在文本框中显示一次当前时间，除了要设置窗体的计时器间隔为1秒外，还需要设计（ ）事件。
A. Form Click 0
B. Form_Timer()
C. Form IniO
D. Form Load()
[单项选择]窗体上有一个名称为Text1的文本框，一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
A. Text1.AddItem Combo1.Text
B. Combo1.AddItem Text1.Text
C. Combo1.Text=Text1.Text
D. Text1.Text=Combo1.Text
[填空题]在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click（ ）
Open "d:/Temptext1.txt" For Input As #1
Do While Not______。
Line Input #1,aspectS
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
______。
Open "d:/Temptext2.txt" For Output As #1
Print #1,______。
Close #1
End Sub
运行程序，单击窗体，将把磁盘文件Temptext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件Temptext2.txt。请填空。
[单项选择]在窗体上画一文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为
A. Text1．Clear
B. Text1．Visible=False
C. Text1．Hide
D. Text1．Enabled=False
[填空题]在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click( )
Open“d：/test/smText1.txt"For lnput As#1
Do While Not 【14】
Line lnput#1，aspect＄
whole＄=wholes+aspect＄+Chr＄(13)+Chr＄(10)
Loop
Text1.Text=whole＄
Close#1
Open“d：/test/smtext2.txt"For Output As #1
Print #1， 【15】
Close#1
End Sub
上述程序的功能是，把磁盘文件，mText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
