未分类题

在窗体上画1个文本框，名称为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）
lf【13】=13 Then
If UCase（Text1.Text）=Then
Close 1
End
Else
Write#1,
Text1.Text=''
End If
End If
End Sub
以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。

A.txt'For
B.Text=''
End
C.Text）=______Then
Close
D.Text=''
End
E.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。

【参考答案】

KeyAscii 'END' Text1.text
KeyP......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

<上一题目录下一题>

热门试题

未分类题

函数main（）的功能是:在带头结点的单链表中查找数据域中值最小的结点.请填空 #include <stdio.h> struct node { int data; struct node *next; }; int min（struct node *first） *指针first为链表头指针* { strct node *p; int m; p=first->next; m=p->data;p=p->next; for（;p!=NULL;p=_[20]_______） if（p->data<m） m=p->data; return m; }

未分类题