更多"在窗体上有二个名称为Command1的命令按钮和一个名称为Text1的"的相关试题:
[填空题]
在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。
Private Sub Form_Load( )
Command1.Enabled=False
End sub
Private Sub Text1_()( )
Command1.Enabled=Tree
End Sub
[填空题]在窗体上有二个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。
Private Sub Form_Load( )
Commandl.Enabled=False
End Sub
Private Sub Text1【 】( )
Commandl.Enabled=True
End Sub
[填空题]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请将程序补充完整。
Private Sub Form_Load( )
Command1.Enabled=False
End Sub
Private Sub Text1 【15】 ( )
Command1.Enabled=True
End Sub
[填空题]
窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后,如果单击命令按钮,则可打开磁盘文件c:/test.txt,并将文件中的内容(多行文本) 显示在文本框中。下面是实现此功能的程序,请填空。
Private Sub Command1_Click( )
Text1=""
Number=FreeFile
Open "c:/test.txt" For Input As Number
Do While NotEOF( [14] )
Line Input #Number,s
Text1.Text=Text1.Text+ [15] +Chr(13)+Chr(10)
Loop
Close Number
End Sub
[单项选择]在窗体上有两个名称分别为Text1、Text2的文本框,—个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明: Private Type Person name As String*8 major As String*20 End Type Dim p As Person 设文本框中的数据已正确地赋值给Person类型的变量p,当单击“保存”按钮时,能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。
A. Open "c:/Test2.dat" For Output As #1 Put #1,1,p Close #1
B. Open "c:/Test2.dat" For Random As #1 Get #1, 1, p Close #1
C. Open "c:/Test2.dat" For Random As #1 ten=ten( Put #1,1,p Close #1
D. Open "c:/Test2.dat" For Random As #1 Len=Len( Get #1, 1, p Close #1
[单项选择]窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:
Dim y As Integer
Private Sub Command1_Click( )
Dim x As Integer
x=2
Text1.Text=Fun2(Fun1(x),y)
Text2.Text=Fun1(x)
End Sub
Private Function Fun1(x As Integer) As Integer
x=x+y:y=x+y
Fun1=x+y
End Function
Private Function Fun2(x As Integer,y As Integer) As Integer
Fun2=2*x+y
End Function
当单击1次和单击2次命令按钮后,文本框Text1和Text2内的值分别是
A) 2 4
2 4
B) 2 4
4 8
C) 10 10
58 58
D) 4 4
8 8
[单项选择]窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序
Dim y As Integer
Private Sub Command1_Click( )
Dim x As Integer
X=2
Text1.Text=Fun2(Fun1(x),y)
Text2.Text=Fun1(x)
End Sub
Private Function Fun1(x As Integer)As Integer
x=x+y:y=x+y
Fun1=x+y
End Function
Private Function Fun2(x As Integer,y As Integer)As Integer
Fun2=2*x+y
End Function
当单击1次和单击2次命令按钮后,文本框Textl和Text2内的值分别是
A. 2 4
B. 2 4
C. 10 10
D. 4 4