更多"在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的Mu"的相关试题:
[填空题]在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后
编写如下的事件过程:
Private sub Form_Click( )
Open"d:\test\smtext1.txt"For Input As #1
Do While Not [13]
Line Input #1,aspect $
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
[14]
Open"d:\test\smtext2.txt"For Output As #1
Print #1, [15]
Close #1
End sub
运行程序,单击窗体,将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[填空题]
在名称为Forml的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的
MultiLine属性设置为True,然后编写如下的事件过程:
Private Sub Form Click( )
Open"d:/test/smText1.txt"For Input As #1
Do While Not()
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open"d:/test/smtext2.txt"For Output As #1
Print #1,()
Close #1
End Sub
上述程序的功能是,把磁盘文件smText1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[填空题]在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的Muhiline属性设置为True,然后编写如下的事件过程:
Private Sub Form_Click( )
Open“d:/test/smText1.txt"For lnput As#1
Do While Not 【14】
Line lnput#1,aspect$
whole$=wholes+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close#1
Open“d:/test/smtext2.txt"For Output As #1
Print #1, 【15】
Close#1
End Sub
上述程序的功能是,把磁盘文件,mText1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[填空题]在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的
MultiLine属性设置为True,然后编写如下的事件过程:
Private Sub Form_Click( ) 5
Open "d:/test/smtext1.txt" For Input As #1
Do While Not _________
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop
Text1.Text = whole$
Close #1
Open "d:/test/smtext2.txt" For Output As #1
Print #1, _________
Close #1
End Sub 上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把 该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[单项选择]在窗体上画一个命令按钮和一个文本框,并将窗体的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. 出错
[单项选择]在窗体上画一个名为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. 出错
[单项选择]在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口 中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后,如果单 击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程 序:
Private Sub Command1_Click( ) Timer1.______
End Sub
Private Sub Timer1_Timer( ) Text1.Text = Time
End Sub
在下划线处应填入的内容是______。
A. Enabled = True
B. Enabled = False
C. Visible = True
D. Visible = False
[单项选择]在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False。程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序:
Private Sub Command1_Click( )
Timer1. ______
End Sub
Private Sub Timer1_Timer( )
Text1. Text=Time
End Sub
在填空处应填入的内容是______。
A. Enabled=True
B. Enabled=False
C. Visible=True
D. Visible=False