更多"在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输"的相关试题:
[单项选择]在窗体上画一个名为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的命令按钮。要求:程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件Test.dat中,如图所示。请在空格处填上适当的内容,则在以下横线处合适的语句是( )。
Private Sub Command1_Click( )
Open "c:/test.dat"For______As#1
For i=1 To Len(Text1.Text)
Next i
Close #1
End Sub
A. Input Print#1,Mid(Text1.Text,i,1)
B. Output Print#1,Mid(Text1.Text,i,1)
C. Output Print#1,Left(Text1.Text,i,1)
D. Output Input#1,Mid(Text1.Text,i,1)
[单项选择]在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim arrayl(10, 10)As Integer
Dim i As Integer, j As Integer
For i=1 To 3
For j=2 To 4
arrayl(i, j)=i+j
Next j
Next i
Text1. Text=arrayl(2, 3)+arrayl(3, 4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是______。
A. 12
B. 13
C. 14
D. 15
[填空题]在窗体上画一个名称为Text1的文本框和一个名为Command1的命令按钮,然后编写如下事件过程。
Privace Sub Command1_Click( )
Dim array1(3,10)As Integer
Dim I,j As Integer
For i=1 to 3
For j=2 to 4
array1(i,j)=i+j
Next j
Next i
Text1.value=array1(2,3)+array1(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是______。
[单项选择]在窗体上画一个命令按钮和一个文本框,并将窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim SaveAll As String
Private Sub Form_Load( )
Show
Text1.Text=" "
Text1.SetFocus
End Sub
Private Sub Command1_Click( )
Text1.Text = Ucase(SaveAll)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在键盘上输入abcdefg,单击命令按钮,则文本框中显示的内容为
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Command1_Click( ) Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框中显示的内容为 ______ 。
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[填空题]在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Commandl。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Open"c:/test.dat"For Output As #1
For I=1 to Len(Text1.text)
______
Next I
Close #1
End Sub
[填空题]在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Open"c:/test.dat"For Output As#1
Fori=1 to Len(Text1.Text)
(12)
Next
Close# i
End Sub