在表单FORM1中有一个文本框TEXT1,TEXT1的INIT事件代码如下:THIS.VALUE=0TEXT1的VALID事件代码如下:S=0FORi=1TOTHIS.VALUEIFi%5=0S=S+iENDIFENDFORTHIS.VALUE=S在TEXT1中输入22,然后按回车键,TEXT1中将显示()。
第1题:
在表单中有命令按钮Commandl和文本框Text1,将文本框的InputMask属性值设置为$9,999.9,然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=123456.789,当运行表单时,单击命令按钮,此时文本框中显示的内容为______。
A.$123456.789
B.$23456.7
C.123456.7
D.**,***.*
第2题:
在名为Form1的窗体上添加三个文本框和一个命令按钮,其名称分别为Text1、Text2、Text3和Command1,然后编写如下两个事件过程: Private Sub Command1_Click() Text3=Textl+1Text2 End Sub private Sub Form1_Load() Text1="" Text2="" Text3="" End Sub 打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为( )。
A.57
B.12
C.5
D.出错
第3题:
在窗体上画一个文本框(其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中输出不定值
第4题:
在窗体上有若干控件,其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______。
A.TabIndex
B.TabStop
C.Enabled
D.Visible
第5题:
在名为“Form1”的窗体上添加3个文本框和一个命令按钮,其名称分别为“Text1”、“Text2”、“Text3”和“Command1”,然后编写如下两个事件过程:
Private Sub Commandl Click()
Text3=Text1+Text2
End Sub
Private Sub Form1 Load()
Text1=" "
Text2=" "
Text3=" "
End Sub
打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为【 】。
第6题:
( 17 )设窗体中有一个文本框 Text1 ,若在程序中执行了 Text1.SetFocus ,则触发
A ) Text1 的 SetFocus 事件
B ) Text1 的 GotFocus 事件
C ) Text1 的 LostFocus 事件
D )窗体的 GotFocus 事件
第7题:
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如图所示。请填空。
Private Sub Command1_Click( )
Dim k As Integer
Dim sum As Single, max As Single, min As Single
sum = Text1(0)
max = Text1(0)
min = ______
For k = ______ To 6
If max < Text1(k) Then
max = Text1(k)
End If
If min > Text1(k) Then
min = Text1(k)
End If
sum = sum + Text1(k)
Next k
Text2 = (______) / 5
text1(0) 1 (sum-max-min)
第8题:
在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是( )。
A.TabStop
B.Enabled
C.Visible
D.Tablndex
第9题:
此题为判断题(对,错)。
第10题:
在窗体上画一个文本框(其NAME属性为TExT1),然后编写如下事件过程: PRIVATE SUB FORM_LOAD( ) DIM SUM TEXT1="" FOR I=1 TO 10 SUM=SUM+I NEXT I TEXT1=SUM END SUB上述程序的运行结果是( )。
A.在文本框TEXT1中输出55
B.在文本框TEXT1中输出0
C.出错
D.在文本框TEXT1中输出不定值