• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
填空题

在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的 MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form_Click() 5 Open "d:\test\smtext1.txt" For Input As #1 Do While Not _________ Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop Text1.Text = whole$ Close #1 Open "d:\test\smtext2.txt" For Output As #1 Print #1, _________ Close #1 End Sub 上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把 该文本框中的内容存入磁盘文件smtext2.txt。请填空。

答案： EOF(A) , TextA.Text
题目列表

你可能感兴趣的试题

填空题

下列程序的功能是：将数据1，2，…，8写入顺序文件Num．txt中，请补充完整。 　　Private Sub Form_Click() 　　　　Dim i As Integer 　　　　Open"Num．txt"For Output As #1 　　　　For i=1 To 8 　　　　【 】 　　　　Next i 　　　　Close #1 　　End Sub

答案： Print #1，i
填空题

执行下面的程序段，x的值为【 】。　　 Private Sub Command1_Click() 　　　For i=1 To 9 　　　　　a=a + i 　　　Next i 　　　x=Val(i) 　　　MsgBox x 　　End Sub

答案： J
填空题

用户可以用【 】语句定义自己的数据类型。
答案： TyPe
填空题

函数Str$(256．36)的值是【 】。
答案： 256.36
填空题

对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为_________。
答案： 45
填空题

在面向对象方法中_________描述的是具有相似属性与操作的一组对象。
答案： 类
填空题

下面程序是用来打印九九乘法表的，请补充完整。 　　Dim i As Integer，j As Integer，Strl$ 　　Strl=" " 　　For i=1 To 9 　　Forj=1 To 9 　　　If 【 】 Then 　　　　　　Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j)) 　　　　Else 　　　Strl=Strl & Chr(13) 　　　 【 】 　　　　End If 　　　　Next j 　　Next i 　　Print Str

答案： j＜=i
填空题

在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发【 】事件，当对象失 去焦点时将触发【 】事件。
答案： GotFocus
填空题

当对象得到焦点时，会触发【 】事件，当对象失去焦点时将触发【 】事件。
答案： GolFocus
填空题

如果在D盘当前文件夹下已2经存在名为PIC．day的顺序文件，那么执行语句Open "D:\PIC．dat" For Append As #1 之后将【 】。
答案： 在文件尾添加新内容
填空题

执行语句Open "TC．dat" For Random As #1 Len=50后，对文件TC．dat中的数据能执行的操作是【 】。
答案： 既可以读，也可以写
填空题

在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的 MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form_Click() 5 Open "d:\test\smtext1.txt" For Input As #1 Do While Not _________ Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop Text1.Text = whole$ Close #1 Open "d:\test\smtext2.txt" For Output As #1 Print #1, _________ Close #1 End Sub 上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把 该文本框中的内容存入磁盘文件smtext2.txt。请填空。

答案： EOF(A) , TextA.Text
填空题

如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查 找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查 找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显 示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。
Private Sub Command1_Click() Dim k As Integer, n As Integer, found As Boolean found = False n = Len( _________) k = 0 While k < List1.ListCount And Not found If Text1 = Left$(List1.List(k), n) Then Text2 = _________ found = True End If k = k + 1 Wend If Not found Then Text2 = "查无此人" End If End Su

答案： TextA , ListA.List(k)
填空题

下列程序的输出结果为【 】。 　　num=2 　　While num<=3 　　　num=num+1 　　　Print num 　　Wend

答案： 3 4
填空题

把窗体的KeyPreView属性设置为True，并编写如下两个事件过程： 　　Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) 　　　　Print KeyCode 　　End Sub 　　Private Sub Form_KeyPress(KeyAscii As Integer) 　　　　Print KeyAscii 　　End Sub 　　程序运行后，如果按下B键，则在窗体上输出的数值是【 】和【 】。

答案： 66
微信扫码免费搜题