在窗体上画一个文本框，名称为Textl，然后编写如下程序：Private Sub Form_Load()Open”d：＼temp＼dat．txt”For Output As1Textl．Text=“”End SubPrivate Sub Textl KeyPress(KeyAscii As Integer)IfKeyAscii=13 ThenIf UCase(Textl．Text)=【 】ThenClose1EndElseWrite1，【 】Textl．Text=…End IfEnd IfEnd SUb以

题目

在窗体上画一个文本框，名称为Textl，然后编写如下程序：

Private Sub Form_Load()

Open”d：＼temp＼dat．txt”For Output As1

Textl．Text=“”

End Sub

Private Sub Textl KeyPress(KeyAscii As Integer)

IfKeyAscii=13 Then

If UCase(Textl．Text)=【 】Then

Close1

End

Else

Write1，【 】

Textl．Text=…

End If

End If

End SUb

以上程序的功能是：在D盘temp文件夹下建立一个名为dat．txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat．txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。

相似考题

1.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming然后编写如下事件过程：Private Sub Command1_Click（）Open "d:\temp\outf.txt" For Output As #1For i = 1 To Len（Text1.Text） c = Mid（Text1.Text, i, 1） If c >= "A" And c <= "Z" Then Print #1, LCase（ ） End IfNext iCloseEnd Sub程序运行后，单击命令按钮，文件outf.txt中的内容是（ ）。A．MVBPB．mvbpC．MVBPD．mvbp

2.在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim i As Integer，n As IntegerFor i=0 T0 50i=i+3n=n+1If i>10 Then Exit ForNextTextl．Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A．2B．3C．4D．5

3.在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：程序运行后，单击命令按钮，在文本框中显示的值是__________。

4.在窗体上画一个文本框(Textl)，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4，KeyAscii) End Sub 程序运行后，在文本框Text1中输入A，则程序在窗体上的输出结果为A．aB．AC．aaaaD．AAAA

更多“在窗体上画一个文本框,名称为Textl,然后编写如下程序:Private Sub Form_Load()Open”d:\temp\dat. ”相关问题

  • 第1题：

    在窗体上画一个文本框，其名称为Textl。为了在程序运行后Textl中的文本不可编辑，应当使用的语句是______。

    A．Textl.Clear

    B．Textl.Locked=True

    C．Textl.Visible=False

    D．Textl.Enabled=Trve


    正确答案：B
    解析：对于Textbox控件，可通过设置其Visible属性为False，使其隐藏，设置Enabled属性为False使其不可用，设置Locked属性为True，使其不可被编辑。

  • 第2题：

    在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：

    程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。


    正确答案：
    9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为： 其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。

  • 第3题：

    在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，然后编写如下事件过程：


    正确答案：
    15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。

  • 第4题：

    在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Textl.Text="" Textl.Set Focus End Sub Private Sub Form_MouseUp(Button As Inateger,Shift As Integer,X As Single,Y As Single) Frint"程序设计" End Sub Private Sub Textl_KeyDown(KeyCode As InteSer,Shin As Integer) Print"VisualBasic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是______。

    A．Visual Bask

    B．程序设计

    C．A程序设计

    D．ViualBasic程序设计


    正确答案：D
    解析：因为程序一运行，文本框Textl获得焦点，按下A键后，执行Textl_KeyDown事件，在窗体上显示“VisualBasic”；这时再单击窗体，则触发Form_MouseUp事件，在窗体上显示“程序设计”。

  • 第5题：

    在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

    Private Sub Form_Click()

    Textl.Text="VB程序设计"

    End Sub

    Private Sub Textl_Change()

    Picturel.Print"VB programming"

    End Sub

    程序运行后，单击窗体，则在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。


    正确答案：VB程序设计VB programming
    VB程序设计,VB programming 解析：文本框内容是因窗体的dlink事件而改变，而PictureBox内容是因文本框内容的改变而改变的。

相关内容