更多"某人编写了下面的程序,希望能把Text1文本框中的内容写到out.tx"的相关试题:
[单项选择]某人编写了下面的程序,希望能把Text1文本框中的内容写到Temp.txt文件中
Private Sub Command1_Click( )
Open "Temp.txt" For Output As#2
Print"Text1"
Close #2
End Sub
调试时发现没有达到目的,为实现上述目的,应做的修改是( )。
A. 把所有#2改为#1
B. 把Print"Text1"改为Print #2,Text1
C. 把Print"Text1"改为Write"Text1"
D. 把Print"Text1"改为Print Text1
[单项选择]
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中
Private Sub Command1_Click( )
Open"out.txt" For Output As
Print"Text1"
Close #2
End sub
调试时发现没有达到目的,为实现上述目的,应做的修改是()
A. 把Print"Text1"改为Print#2,Text1
B. 把Print"Text1"改为Print Text1
C. 把Print"Text1"改为Write"Text1"
D. 把所有#2改为#1
[单项选择]在窗体上放一个文本框Text1,在文本框中输入456,并有如下事件过程:
Private Sub Form_Click( )
x=InputBox("请输入一个整数")
Print x+Text1.Text
End Sub
单击该窗体,在输入对话框中输入123,单击“确定”按钮后,窗体上显示是( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]在窗体上放一个文本框Text1,在文本框中输入456,并有下列事件过程:
Private Sub Form_Click( )
x=InputBox("请输入一个整数")
Print x+Text1.Text
End Sub
单击该窗体,在输入对话框中输入123,单击“确定”按钮后,窗体上显示的是( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]文本框Text1的KeyDown事件过程如下:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
...
End Sub
其中参数KeyCode的值表示的是发生此事件时( )。
A. 是否按下了Alt键或Ctrl键
B. 按下的是哪个数字键
C. 所按的键盘键的键码
D. 按下的是哪个鼠标键
[单项选择]在窗体上画一个称为Text1的文本框,然后编写如下的事件过程:
Private Sub Text1_KeyPress(Keyascii As Integer)
…
End Sub
若焦点位于文本框中,则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键
[单项选择]窗体上添加一个文本框Text1,编写如下代码:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode+5) & KeyCode
End Sub
程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。
A. F65
B. F65
C. G66
D. G65
[单项选择]窗体上添加一个文本框Text1,编写下列代码:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode+51 &KeyCode)
End Sub
程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。
A. F65
B. F65
C. G66
D. G65
[单项选择]在窗体上画一个名称为Text1的文本框,然后编写如下的事件过程:
Private Sub Text1_KeyPress(Keyascii As Integer)
End Sub
若焦点位于文本框中,则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim strAs String,n As Integer Str=UCase(Chr(KeyAscii) n=Len(str) Text1=String(n,str) End Sub 程序运行后,如果在键盘上输入单字母“k”,则在文本框Text1中显示的内容为( )。
A. kk
B. kK
C. KK
D. Kk
[单项选择]在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(6,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。
A. a
B. A
C. aaaaaaa
D. AAAAAAA
[单项选择]设在窗体上有个文本框,然后编写如下的事件过程:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)>0
t2down%=(KeyCode:Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后,如果按Shift+F2键,则在文本框中显示的是( )。
A. Alt+F2
B. BBBBB
C. 随机出几个数
D. 文本框内容无变化