网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序：
Private Sub Form_Load( )
Open "d:\temp\dat.txt" For Output As #1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If UCase(Text1.Text)= 【14】 Then
Close #1
End
Else
Write #1, 【15】
Text1.Text=""
End If
End If
End Sub
以上程序的功能是：在 D 盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按
回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容：如果输入“END”，则不写入
文件，直接结束程序。请填空。
参考答案
更多 “ （12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load( )Open "d:\temp\dat.txt" For Output As #1Text1.Text=""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf UCase(Text1.Text)= 【14】 ThenClose #1EndElseWrite #1, 【15】Text1.Text=""End IfEnd IfEnd Sub以上程序的功能是：在 D 盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。 ” 相关考题
考题
在窗体上画一个文本框(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
考题
在窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch)) TextText = String(1, KeyAscii) End Sub程序运行后，使文本框拥有焦点，然后按键盘上的B键，则在文本框中显示的内容是 ______。A．bB．bbC．BBD．B
考题
在窗体上画一个文本框(其NAME属性为TExT1)，然后编写如下事件过程： PRIVATE SUB FORM_LOAD( ) DIM SUM TEXT1="" FOR I=1 TO 10 SUM=SUM+I NEXT I TEXT1=SUM END SUB上述程序的运行结果是( )。A．在文本框TEXT1中输出55B．在文本框TEXT1中输出0C．出错D．在文本框TEXT1中输出不定值
考题
窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。A．abcdeB．efghiC．EFGHID．ABCDE
考题
在窗体上画一个名称为Text1的文本框，然后编写如下代码： Option Base 1 Private Sub Form. Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum/Finish Text1.Text = c End Sub程序运行后，单击窗体，则在文本框中显示的内容是______。A．40B．10C．12D．16
考题
设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A. 30B. 25C. 20D. 15
考题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是A． VisualB．BasicC．ProgramD．出错
考题
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。A．在文本框Text1中输出55B．在文本框Text1中输出0C．出错D．在文本框Text1中输出不定值
考题
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。
热门标签
最新试卷
