更多"下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并"的相关试题:
[填空题]下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。
Private Sub Command1_Click（ ）
Dim inData As String
Text1.Text=""
Open "smtext1.txt" 【13】 As 【14】
Do While 【15】
Input #2，inData
Text1.Text=Text1.Text & inData
Loop
Close #2
End Sub
[填空题]以下程序的功能是：把程序文件smtextl．txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。
Private Sub Command1_Click（ ）
Dim inData As String
Text1.Text=" "
Open"smtext1.txt"______As______
DO While______
Input # 2，inData
Text1.Text=Text1.Text&inData
Loop
Close # 2
End Sub
[填空题]本程序将顺序文件A:、MYFILE.TXT的内容一个字符一个字符地读入文本框txtTest中。请将程序补充完整。
Private Sub Form_Click（ ）
Dim InputData As String
txtText.Text=""
______
Do While______
______
txtTest.Text = txtTest.Text +InputData
Loop
______
End Sub
[填空题]以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框 Text1中显示出来。请填空。
Private Sub Command1_Click（ ）
Dim inData As String
Textl.Text=" "
Open "./smtext1.______ As #1
Do While ______
Input #1，inData
Text1.Text=Text1.Text&inData
Loop
Close #1
End Sub
[填空题]以下程序的功能是：把当前目录下的顺序文件smText1. txt的内容读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click（ ）
Dim inData As String
Text1. Text=""
Open". /mText1. txt" 【14】 As 1
Do While 【15】
Input #1, inData
Text1. Text=Text1. Text & inData
Loop
Close #1
End Sub
[单项选择]在运行程序时，在程序代码中改变文本框的Text属性值，或在文本框中输入新的内容，相应会触发( )事件。
A. GotFocus
B. Click
C. Change
D. DblClick
[单项选择]程序运行时，用户向文本框输入内容时．将触发文本框的( )事件
A. Click
B. DblClick
C. GotFocus
D. Change
[填空题]以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。
Public yx As Integer
Public yy As Integer
Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_
X As Single，Y As Single)
If Button=1 Then
Text1．Left= 【11】
Text1．Top= 【12】
End If
End Sub
Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_
X As Single，Y As Single)
If 【13】 Then
yx=Text1．Left-X
yy=Text1．Top-Y
End If
If Button=2 Then
Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top)
End If
End Sub
[填空题]把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。
在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程：
Prlvate Sub Form_Click（ ）
Open"D:/test1.txt"For Input As # 1
Text1.FontSize＝14
Text1.FontName=“幼圆”
Do While Not EOF(1)
【13】
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text＝ 【14】
Close
Open"D:/test2.txt"For Output As # 1
Print # 1, 【15】
Close
End Sub
[填空题]把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click( )
Open"d：/test/smtext1．txt"For lnput As#1
Text1.Fontsize=14
Text1.FontName=“幼圆”
Do While Not EOF(1)
【8】
whole＄=whole $ aspect $+Chr$(13)+Chr $(10)
Loop
Text1.Text= 【9】 。
Close
Open"d：/test/smtext2．txt"For Output As#1
Print #1 【10】
Close
End Sub
[简答题]完成下列问题：
考生文件夹下有一个工程文件sjt4.vbp。该程序的功能是：程序运行时，向文本框控件数组Text1(有5个文本框)中任意输入5个数，单击名称为Command1的命令按钮，则找出其中最小数并显示在标签lblResult中。
窗体文件中已经给出了全部控件，但程序不完整，其中函数FindMin返回两个数中的较小数。
要求：在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click（ ）
Dim x As Integer, k As Integer
x=Val(Text1(1).Text)
For k=2 To (1)
x=FindMin(Val(Text1(k).Text), (2) )
Next
lblResult Caption= (3)
End Sub
Public Function FindMin(x As Integer, y As Integer)
If x (4) y Then
FindMin=y
Else
FindMin=x
End If
End Function
[填空题]有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个 文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除（名为 Command1）、计算（名为Command2）和退出（名为Command3）。窗体打开运行后， 单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2 和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击 退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click（ ） Me!Text1=""
Me!Text2=""
Me!Text3="" Me!Text4=""
End Sub
Private Sub Command2_Click（ ）
If Me!Text1="" Or Me!Text2="" Or Me!Text3="" then
MsgBox "成绩输入不全"
Else
Me!Text4=(__________ +Val(Me!Text2)+Val(Me!Text3))/3__________
End Sub
Private Sub Command3_Click（ ） Docmd. __________
End Sub
[填空题]有一个VBA计算程序的功能如下：该程序用户界面由3个文本框和3个按钮组成，3个文本框的名称分别为Text1、Text2和Text3，3个按钮分别为清除(名为Command1) 、计算(名为 Command2) 和退出(名为Command3) 。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1和Text2两个文本框中输入的数值的和并将结果存放在Text3文本框中；单击退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click( )
Me!Text1=""
Me!Text2=""
Me!Text3=""
End sub
Private Sub Command2 Click( )
If Me!Text1=""Or Me! Text2=""Or Me! Text3=""Then
MsgBOx"输入不全"
Else
Me!Text4=( [13] +Val(Me!Text2))
[14]
End Sub
Private Sub Command3 Click( )
DocmD [15]
End Sub
[填空题]有一个VBA计算程序的功能如下：该程序用户界面由4个文本框和3个按钮组成，4个文本框的名称分别为Text1、Text2、Text3和Text4，3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击退出按钮则退出。清将下列程序填空补充完整。
Private Sub Command1 Click（ ）
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Private Sub Command2_Click（ ）
If Me!Text1=""Or Me!Text2=""Or Me!Text3=""Then MsgBox"成绩输入不全"
Else
Me!Text4=( (13) +Val(Me!Text2)+Val(Me!Text3))/3
(14)
End Sub
Private Sub Command3_Click（ ）
DocmD (15)
End Sub
