在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String *20 End Type Private Sub Command1_Click() Dim Maxsize, NextChar, MyChar Open "d:\temp\female.txt" For Input As #1 Maxsize = LOF(1) For NextChar = Maxsize To 1 Step -1 Seek #1, NextChar
题目
在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String *20 End Type Private Sub Command1_Click() Dim Maxsize, NextChar, MyChar Open "d:\temp\female.txt" For Input As #1 Maxsize = LOF(1) For NextChar = Maxsize To 1 Step -1 Seek #1, NextChar MyChar = Input(1, #1) Next NextChar Print EOF(I) Close 31 End Sub 程序运行后，单击命令按钮，其输出的结果为
A．True
B．False
C．0
D．Null
相似考题
更多“在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String *20 End Type Private Sub Command1_Click() Dim Maxsize, NextChar, MyChar Open "d:\temp\female.txt" For Input As #1 Maxsize = LOF(1) For NextChar = Maxsize To 1 Step -1 Seek #1, NextChar”相关问题
-
第1题：
在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text = Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为
A．abcdefg
B．不显示任何信息
C．ABCDEFG
D．出错
正确答案：C
解析：将窗体的KeyPreview属性设置为True，在键盘上输入abcdefg时，触发Form_KeyPross事件，变量SaveAll的值为“abcdefg”。由于SaveAll为过程变量，单击命令按钮后，UCase函数将SaveAll的内容转换成大写字符。选项C的答案是正确的。 -
第2题：
在窗体上画一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As integer b = 1 For a = 1 To 100 If b ＞＝ 10 Then Exit For If b Mod 3 = 1 Then b = b + 3 End If Next a Print a End Sub 在命令按钮上单击后，窗体上显示的结果是 ______。
A．101
B．6
C．5
D．4
正确答案：D
解析：事件发生时给变量b赋值1，然后执行For循环。先给a赋初值1，判断If后面的条件“b＞=10”为False，接着执行If语句，判断“b Mod 3=1”为“True”，执行语句“b=b+3”，第一次循环结束后，b=4，a=2。第二次循环结束后，b=7，a=3。第三次循环后，b=10， a=4。接着执行第四个循环，判断If后面的条件“b＞=10”为True，退出循环，a的输出值为4。 -
第3题：
在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．4
B．6
C．9
D．15
正确答案：D
解析：fun1是一个递归过程，fun1函数过程共调用了5次，在Command1的单击事件中调用了fun1(4)，其他3次调用的分别是fun1(3)、fun1(2)和fun1(1)，由fun1函数过程自身调用。在fun1的调用过程中，相当于k=1、k=1+1×2=3、k=1+3×2=7、k=1+2×7=15。 -
第4题：
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量b的值是： ______。
A．0
B．1
C．2
D．3
正确答案：B
解析：变量定义后，若没有人工定义初值，程序启动后，系统将自动把变量初值设为0。本题中，变量b是局部变量，只作用于单击事件中，每次单击都会对b重新赋值。 -
第5题：
设在工程文件中有—个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20End Type在窗体上画—个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Petson.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 ______。
A．Private Sub Command1_ Click() Dim B As Books Open "Person.txt" For Output As #1 B. Name=InputBox(“输入姓名”) B. TelNum=InputBox(“输入电话号码”) Write #1, B. Name, B. TelNum Close #1End Sub
B．Private Sub Command1_ Click() Dim B As Books Open "Person.txt" For Input As #1 B. Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”). Print #1, B. Name, B.TelNum Close #1End Sub
C．Private Sub Command1_Click() Dim B As Books Open "Person.txt" For Output As #1 B.Name= InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write #1，B Close #1End Sub
D．Private Sub Command1_ Click() Open "Person. txt" For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1, Name, TelNum Close #1End Sub
正确答案：A
解析：文件的打开格式为：
Open文件名(可包含路径)For文件打开方式[Access 访问权限][Shared]As文件号文件打开方式有如下几种：
Output：指定顺序输出文件。
Input：指定顺序输入文件。
Append：指定顺序输出方式。与Output不同的是，当用Append方式打开文件时，文件指针被定位在文件末尾。
如果对文件执行写操作，则写入的数据附加到原来文件的后面。
题目要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录，因此Person.txt文件是Output方是打开的，因此选项B、D错误。数据写入磁盘文件所用的命令是Write #或Print #命令，形式为Print #件号，[输出列表]，Write #破件号，表达式。选项A、D中的表达方式都是正确的。记录变量的输入和输出都必须指明到记录元素。格式为：记录变量.元素名。选项D中是直接在过程中引用记录变量，因此是错误的。 -
第6题：
在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click( ) Dim MaxSize, NextChar, MyChar Open "d:\vb\tt. txt" For Input As #1 MaxSize = LOF(1) For NextChar = MaxSize To 1 Step - 1 Seek # 1, NextChar MyChar = Input(1, # 1) Next NextChar Print EOF(1) Close $1 End Sub 假设文件d:\vb\tt. txt 的内容为 Hello eveybody! 那么程序运行后，单击命令按钮，其输出结果为 ______。
A．True
B．False
C．0
D．Null
正确答案：B
解析：在For循环体中，最后利用Seek语句将文件指针指向第1个字符后；因此Print EOF(1)语句中， EOF(1)函数得到的值为False，即文件指针当前不指向文件的结尾。值得注意的是，当文件d:\vb\tt.txt的内容为空或者是该文件只有一个字符的时候，EOF(1)函数得到的值就应该为True，也就是说当前文件指针指向文件结尾。 -
第7题：
在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Sub fun() Static a As Integer a=a+2 Print a； End Sub Private Sub Command1_Click() Dim m As Integer For m=1 To 3 Call fun Next m End Sub
A．2 2 2
B．0 0 0
C．2 4 8
D．2 4 6
正确答案：D
解析：当发生Command1的单击事件时，事件过程中的For循环执行三次，调用三次Sub过程，在Sub过程中定义了一个静态变量a，注意，过程调用结束后静态变量的值仍旧保留，下一次进入的时候静态变量的值是上一次退出时的值，所以每调用一次fun过程，a的值就加2，所以三次调用分别输出的值为246。 -
第8题：
在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String*20 End Type Private Sub Command1_Click() Dim MaxSize.NextChar，MyChar Open"D:\temp\female.txt"For Input As #1 MaxSize=LOF(1) For NextChar=1 To MaxSize Seek#1，NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub 程序运行后，单击命令按钮，其输出结果为 ______。
A．True
B．False
C．0
D．Null
正确答案：A
解析：该程序对指定路径下的文件进行Input操作，由于是遍历整个文件，则最后的EOF(1)必为真。 -
第9题：
在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click() Dim MaxSize，NextChar，MyChar Open"D:\temp\female.txt"For Input As # 1 Max Size=LOF(1) For Next Char=1 To MaxSize Seek # 1，NextChar MyChar=Input(1，# 1) Next NextChar Print EOF(1) Close # 1 End Sub 程序运行后，单击命令按钮，其输出结果为 ______。
A．True
B．False
C．0
D．Null
正确答案：A
解析：该程序对指定路径下的文件进行Input操作，由于是遍历整个文件，则最后的EOF(1)必为真。 -
第10题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x * x+ y * y End Sub Private Sub Command1_Click() Dim a As Integer a = 8 Call sub1(1, 2,A)Print a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．8
B．2
C．5
D．11
正确答案：A
解析：因为sub1过程的形参都是传值传送，所以在其内的所有计算结果都将不返回，并不影响对应的实参值，变量a的值并没有改变，仍旧是8。 -
第11题：
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为
A．1
B．2
C．5
D．8
正确答案：B
解析：事件过程N的作用是输出两个数中最大的，它调用了IIF函数，条件部分是(x>y)，如果满足，那么N的值即为x的值，否则为y的值。在Sub过程中，定义了两个变量a，b，并赋给它们初值1，2，并调用Print函数，输出N(a，b)的值，因为xy，所以输出y=2。 -
第12题：
窗体上画一个命令按钮，然后编写如下代码：Private Type Record ID As Integer Name As String * 20End TypePrivate Sub command1 _ Click( Open "c: \file. txt" for Input As MaxSize = LOF (1) for NextChar =MaxSize To Step-1 Seek #1, NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub程序运行后，单击命令按钮，其输出结果为______。
A．True
B．False
C．0
D．Null
正确答案：B
解析：本题的难点是如何确定文件的指针是否指在文件的末尾处。Seek语句把相应文件的文件指针由后向前移动，当循环结束时，文件指针在文件的开始处，所以EOF(1)为False。 -
第13题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
正确答案：20
20 解析： 本题考查IIf函数的知识。对于IIf函数可用于执行简单的条件判断操作，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为x＞y为假，所以返回y的值也就是返回20。 -
第14题：
设在工程中有一个标准模块，其中定义了如下类型： Type stutype ino As Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上画一个名为Connnand1的命令按钮，要求当执行事件过程Command1_Click时，在c:\的随机文件student..dat写入一条记录。下列能够完成该操作的事件过程是( )。
A．Sub Command1_C1ick() Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open" c:\student.dat" For input As # 1 len=len(student) Put # 1,record_
B．Sub Command1_Click( ) Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open"c:\student.dat" For random As #1 len=len(student) Put #1,record_n
C．Sub Command1_Click() Dim student As studtype Dim record_no As integer record_no=1 With student .ino=12 .stmame="smith" .strsex="男" .smark=89 End With Open"c:\student.dat" For random As #1 len=len(student) Write #1,record_n
D．Sub Command1_Click() Dim Student As studtype Dim Record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open"c:\student.dat"For output As #1 len=len(student) Put #1,record_no,
正确答案：B
-
第15题：
在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
R_ID As Integer
R_Name As String * 20
Ene Type
Private Sub Commandl_Click( )
Dim M _Sise, N_Char, M_Char
Open" c: \file. txt" For Input As 1
M_sise=LOF(1)
For N_Char = M_Sise To 1 Step - 1
Seek1, Next Char
M_char = Input(1 ,1)
Next
Print EOF(1)
Close1
End Sub
程序运行后，单击命令按钮，其输出结果为【 】。
正确答案：False
False 解析：本题的难点是：如伺确定文件的指针是否指在文件的末尾处。Seek语句把相应文件的文件指针由后向前移动，当循环结束时，文件指针在文件的开始处，所以EOF(1)为False。注意：文件指针的定位、读取文件等 -
第16题：
设在工程中有一个标准模块，其中定义了如下记录类型： TyPe Record ID A3 Integer Name As String*20 End TyPe 在窗体中添加一个名为Command1的命令按钮，假设d：\F1.dat文件中含有5个用户自定义类型的记录。要求当执行事件过程Command1_Click时，随机访问该文件，并把文件中的第4条记录读出。下列能够完成该操作的程序段是
A．Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open"d：\F1.dat"For Random As#1 Len=Len(My RecorD)Position=4 Get#1，Position，Myrecord Close #1 End Sub
B．Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open"d：\F1.dat"For Random As #1 Len=Len(MyRecorD)Position=4 Put #1，Position，MyRecord Close#1 End Sub
C．Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open"d：\F1.dar"For OutPut As #1 Len=Len(My RecorD0Position=4 Get #1，Position，MyRecord Close#1 End Sub
D．Private Sub Command1_Click( ) Dim MyRecord As record，Position Open"d：\F1.dat"For lnput As #1 Len=Len(MyRecorD)Position=4 Get #1，Position，MyRecord Close#1 End Sub
正确答案：A
解析：由于是以随机方式访问该文件，故打开方式为Random。选项C以Output方式打开，选项D以Input方式打开都是错误的。同时由于要读出第四条记录，故使用Get#语句。 -
第17题：
在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______ 。
A．abcdefg
B．不显示任何信息
C．ABCDEFG
D．出错
正确答案：C
解析：KeyPreview属性返回或设置一个值，以决定是否在控件的键盘事件之前激活窗体的键盘事件。键盘事件为：KeyDown、KeyUp和KeyPress。 UCase函数的作用是将指定的字符串中的字符转化为大写。 -
第18题：
设在工程中有一个标准模块，其中定义了如下记录类型Type Books Name As String *10 TelNum As String *20End Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_ Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
A．Private Sub Command1_Click() Dim B As Books Open "c：\Person.txt" For Output As #1 B.Name=InpuBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write #1，B.Name，B.TelNum Close #1End Sub
B．Private Sub Command1_ Click() Dim B As Books Open "c：\Person.txt" For Input As #1 B.Name=InputBox(“输入姓名”) B.teLNum=InputBox(“输入电话号码”) Ptint #1，B.Name，B.TelNum Close #1End Sub
C．Private Sub Command1_ Click() Dim B As Books Open "c：\Person.txt" For Output As #1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write #1，B Close #1End Sub
D．Private Sub Command1_ Click() Dim B As Books Open "c：\Person.txT" For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1 Name. TelNum Close #1End Sub
正确答案：A
解析：A选项正确。B选项向文件中输出内容，打开方式应当为Foroutput。C选项记录变量不可以对元素整体输入输出。D选项记录变量的输入和输出都必须指明到记录元素。格式为：记录变量.元素名。 -
第19题：
已知c:\1．txt是一个非空文件，其程序代码如下。 Private Sub Command1_Click() Dim MaxSize，NextChar，MyChat Open"c:\1．txt"For Input As#1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 Seek #1，NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub 程序运行后，单击命令按钮，其输出结果为______。
A．True
B．Null
C．0
D．False
正确答案：D
解析：For循环开始执行时，由于NextChar＝MaxSize，所以要执行语句Seek#l，NextChar，文件指针指向文件尾，使EOF(1)为真，循环结束后，文件指针指向文件的开始处，故其输出结果为False。 -
第20题：
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a=0 Then x=x-1 Else If b＜＞0 Then End If End If If c＜＞0 Then x=3 Else x=4 End If Print x End Sub 程序运行后，单击命令按钮，其输出结果为 ______。
A．34
B．4
C．35
D．3
正确答案：B
解析：本题先定义了三个变量a、b和c，由于没有给它们赋值，因此他们的值都为0。接着执行后面的If语句，条件“a=0”为True，执行“x=x-1”后x的值为-1。接着执行第二个If语句，判断条件“c＞0”为False，执行Else后面的语句后x的值为4。所以最后输出x的值为4。 -
第21题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n ： 4 TO 0 Step -1 x(n)= n + 1 Print x(n)； Next n End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．54321
B．4
C．54321
D．0
正确答案：A
解析：本题针对输出格式的问题。因字符串没有正负号，所以输出的字符之间没有空格；而数字有正负号，输出的字符之间应有空格。数组x被定义为字符串型变量，n+1的计算结果自动转换成字符串赋给x(n)，所以输出的字符之间是没有空格的。 -
第22题：
设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String* 10 TelNum As String * 20 End Type 在窗体上画一个名为 Command1的命令按钮，要求当执行事件过程Command1 Click时, 在顺序文件Person.txt中写入一条记录。 下列能够完成该操作的事件过程是 ______。
A．Private Sub Command1_Click( ) Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name = InputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Write #1, B.Name, B.TelNum
B．Private Sub Command1_Click( ) Dim B As Books Open "c:\Person.txt, For Input As # 1 B.Name = lnputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Print #1, B.Name, B.TelNttm
C．Private Sub Command1_Click( ) Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name = InputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Write # 1, B Close #
D．Private Sub Command1_Click( ) Dim B As Books Open"c:\Person.txt" For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1，Name，TelNum Close #1 End Sub
正确答案：A
解析：A选项正确。B选项向文件中输出内容，打开方式应当为Foroutput。C选项记录变量不可以对元素整体输入输出。D选项记录变量的输入和输出都必须指明到记录元素。格式为：记录变量.元素名。 -
第23题：
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer If a=0 Then x=x-1 Else If b＜＞0 Then End If End If If c＜＞0 Then x=3 Else x=4 End If Print x End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．34
B．4
C．35
D．3
正确答案：B
解析：本题先定义了三个变量a、b和c，由于没有给它们赋值，因此它们的值都为0。接着执行后面的If语句，条件“a=0”为True，执行“x=x-1”后x的值为-1。接着执行第二个If语句，判断条件“c＞0”为False，执行Else后面的语句后x的值为4。所以最后输出x的值为4。