abc 10 20 30
efg 40 50 60
若运行程序,要在文本框中显示的内容是( )。
Private Sub Form_Click( )
Open "d:/data.txt" For Input As #10
D.o Until EOF(10)
Line Input #10, lines
Text1.Text = Text1.Text + Mid(lines, 5, 2)
Loop
C.lose #10
E.nd Sub
A.abc
B.1040
C.efg
D.10 20
[试题]在名为Form1的窗体上,绘制一个名为Text1的文本框。设置文本框属性,在文本框中显示“文本框”;再建立一个名为Cmd1,标题为Clear的命令按钮,如下图所示。编写适当的事件过程,使程序运行后,若单击Clear命令按钮,则清除文本框中所显示的信息。注意:文件必须存放在考生文件夹中,窗体文件名为execise5.frm,工程文件名为exeeise5.vbp。
[单选题]窗体上添加一个文本框Text1,编写下列代码: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)& KeyCode End Sub 程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。A.F65 G66B.F65 F66C.G66 F65D.G65 G66
[单选题]窗体上添加一个文本框Text1,编写如下代码: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode+5) & KeyCode End Sub 程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。A.F65 G66B.F65 F66C.G66 F65D.G65 G66
[单选题]窗体上添加一个文本框Text1,编写如下代码: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)&KeyCode End sub 程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。A.F65 G66B.F65 F66C.G66 F65D.G65 G66
[单选题]( 12 )在窗体上有一个名为 Text1 的文本框。当光标在文本框中时,如果按下字母键 “ A ” ,则被调用的事件过程是A. ) Form_KeyPress()B. ) Text1_LostFocus()C. ) Text1_Click()D. ) Test1_Change()
[单选题]在窗体上放一个文本框Text1,在文本框中输入456,并有下列事件过程:Private Sub Form_Click()x=InputBox("请输入一个整数")Print x+Text1.TextE.nd Sub单击该窗体,在输入对话框中输入123,单击“确定”按钮后,窗体上显示的是( )。A.123B.456C.579D.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、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号(?)处应填入的内容是。Private Sub Text1_LostFocus()C.all CheckInput(Text1,500)E.nd SubPrivate Sub Text2_LostFocus()C.all CheckInput(Text2,1000)E.nd SubSub CheckInput(
[单选题]( 24 )窗体上有一个 Text1 文本框,一个 Command1 命令按钮,并有以下程序Private Sub Commandl_Click ()D.im nIf Text1.Text<> " 23456 " Thenn=n + 1Print " 口令输入错误 " & n & " 次 "E.nd IfE.nd Sub希望程序运行时得到左图所示的效果,即:输入口令,单击 “ 确认口令 ” 命令按钮 , 若输入的口令不是 “ 123456 ” ,则在窗体上
[单选题]在窗体上有一个文本框Text1和一个标签Label1,要求运行程序时,在文本框中输入的内容立即显示在标签中(如图1所示),则空白处应填入的内容是( )。A. GeffocusB. ClickC. ChangeD. LostFocus