更多"以下程序的功能是：把当前目录下的顺序文件smtextl.txt的内容读"的相关试题:
[填空题]以下程序的功能是：把顺序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click（ ）
Dim inData As String
Text1.Text=""
Open "smtext1.txt" (12) As (13)
Do While (14)
Input #2, inData
Text1.Text=Text1.Text & inData
Loop
Close #2
End Sub
[填空题]以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。
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
[填空题]以下程序的功能是：把当前目录下的顺序文件smtextl.txt的内容读入内存，并在文本框Texd中显示出来。请填空。
Pfivme Sub Commandl_Click( )
Dim inData As String
Textl.Text =""
Open"．/smtextl.txt" 【14】 As#1
Do While 【15】
Input#1，in Data
Text1.Text=Text1.Text&inData
Loop
Close#1
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的内容读入内存，并在文本框Text3中显示出来。请选择适合横线处的语句( )。
Private Sub Command1_Click（ ）
Dim inData As String
Text3.Text=""
Open "../smtext1.txt"______As#1
Do While______
Input #1.inData
Text3.Text=Text3.Text & inData
Loop
Close #1
End Sub
A. For Input Not EOF(1)
B. For Output EOF(1)
C. For Append Not EOF(1)
D. For Random EOF(1)
[填空题]以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click（ ）
Dim inData As String
Text1.Text=""
Open"./smtext1. (12) AS#1
Do While (13)
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
[简答题]以下程序的界面有一个按钮button、一个文本区textA和一个文本框textF。程序运行时，在文本区中输人数字序列，单击按钮，则在文本框中显示数字序列的和。以下是要求你编写的actionPerformed(ActionEvent e)方法的部分代码。
public void actionPerformed(ActionEvent e)
if(e.getSource（ ）==button)
String s=textA．getText（ ）；double sum=0；
StringTokenizer fenxi=new StringTokenizer(s，"，/n")；
//请在以下位置编写代码
[填空题]以下程序的功能是：把程序文件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
[单项选择]窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为( )。
Private Sub Command1_Click（ ）
Dim A As Integer,B As Integer
Text1.SelStart=2
Text1.SelLength=2
A=Val(Text1.SelText)
B=Len(Text1.Text)
Print A*B
End Sub
A. 68
B. 115
C. 170
D. 1170
[填空题]有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击“清除”按钮，则清除所有文本框中显示的内容；单击“计算”按钮，则计算在Text1、Text2和Text3 3个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击“退出”按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click（ ）
Me!Text1=" "
Me!Text2=" "
Me!Text3=" "
Me!Text4=" "
End Sub
Private Sub Coramand2_Click（ ）
If Me!Text1=" " Or Me!Text2=" " Or Me!Text3=" " Then
NsgBox "成绩输入不全"
Else
Me!Text4=( (13) +Val(Me!Text2)+Val(Me!Text3))/3
(14)
End Sub
Private Sub Command3_Click（ ）
Docmd. (15)
End Sub
