更多"在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Comm"的相关试题:
[填空题]在名称为Form1的窗体上画一个名称为Text1的文本框,画一个名称为Command1的命令按钮。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。
请在空白处填上适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Open "c:/test.dat" For Output As#1
For I=1 To Len(Text1.text)
(15) Next I
Ciose#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
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串: Microsoft Visual Basic Programming 然后编写如下事件过程: Private Sub Command1_Click( ) Open“d:/temp/outf.txt"For Output As#1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text,i,1) Ifc>=“A”And c<=“Z”Then Print#1,LCase(c) End lf Next i Close End Sub 程序运行后,单击命令按钮,文件outf.txt中的内容是
A. MVBP
B. mvbp
C. M V B P
D. m v b p
[填空题]在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为 Text1),然后编写如下事件过程:
Private Sub Command1_Click( )
x=Val(Text1.Text)
Select Case x
Case 1,3
y=x*x
Case Is>=10,Is<=-10
y=x
Case-10 To 10
y=-x
End Select
End Sub
程序运行后,在文本框中输入3,然后单击命令按钮,则y的值变为______。
[填空题]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在 【6】 处填入适当的内容,将程序补充完整。
Private Sub Form_Load( )
Command1.Enabled=False
End Sub
Private Sub Text1 【6】 ( )
Command1.Enabled=True
End Sub
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序: Private Sub Command1_Click( ) Dim x,y,z As Integer x=5 y=7 z=0 Text1.Text=”” Call Pl(x,y,z) Text1.Text=Str(z) End Sub Sub Pl(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的内容是
A. 0
B. 12
C. Str(
D. 没有显示