Textbox.text=这是一个等边三角形!
Text1.text=这是一个等边三角形!
Text1.Caption=这是一个等边三角形!
Text1.textbox=这是一个等边三角形!
第1题:
下面关于文本框的说法中,错误的说法是 ______。
A.Text1.Caption="Hello",是将在文本框Text1中显示Hello
B.Text1.Locked=True,设置该文本框Text1不能编辑
C.Text1.PasswordChar="#",设置文本框Text1输入的字符都显示为#,但实际接收的还是输入的内容
D.Text1.Visible=False,设置该文本框Text1不可见
第2题:
在窗体上画一个文本框,其名称为Text1。为了在程序运行后Text1中的文本不可编辑,应当使用的语句: ______。
A.Text1.Clear
B.Text1.Locked=True
C.Text1.Visible=False
D.Text1.Enabled=True
第3题:
在窗体中有两个文本框分别为 text1 和 text2 ,一个命令按钮 command1, 编写如下两个事件过程:
Private sub command1_click()
A=text1.value+text2.value
Msgbox a
End sub
Private sub form_load()
Text1.value= ””
Text2.value= ””
End sub
程序运行时,在文本框 text1 中 78 ,在文本框 text2 中输入 87 ,单击命令按钮,消息框中输出的结果为____ 11 ___
第4题:
此题为判断题(对,错)。
第5题:
在窗体上一个文本框,其名称为Text1,然后编写如下事件过程:
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
DimstrAsString,nAsInteger
str=Ucase(Chr(KeyAscii))
n=Len(str)
Text1=String(n,str)
EndSub
程序运行后,如果在TEXT2中通过键盘上输入单字母"k",则在文本框Text1中显示的内容为( )
A.k
B.K
C.KK
D.Kk
第6题:
在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程: Private Sub Form_ Load() Text1.Text=“” Text1.SetFocus For i=1 To 10 Sum=Sam+ i Next i Text1.Text=Sam End Sub上述程序的运行结果是______ 。
A.在文本框Text1中输出55
B.在文本框Text1中输出0
C.出错
D.在文本框Text1中输出不定值
第7题:
能清除文本框Text1中内容的语句是( )。
A、 Text = ""
B、 Text 1.Text = ""
C、 Text 1.clear
D、 Text 1.Cls
第8题:
在窗体上画一个文本框(其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中输出不定值
第9题:
以下是一个比赛评分程序。在窗体上建立一个名为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)
第10题:
下列正确的Visual Basic注释语句是
A.Dim a(10) As Integer Rem这是一个VB程序
B.这是一个VB程序 Private Sub Command1_Click()…
C.a=1:b=2:_Rem这是一个VB程序:c=3
D.If Shift=6 And Button=2 Then Print"BBBB" Rem 这是一个VB程序 End If