信息系统开发与维护
单选题下面这段代码中，变量myChar的结果是（）。 Dim myString As String = "ABCDE" Dim myChar As Char myChar = myString.Chars(3)A BB CC DD E
题目
B
C
D
E
相似问题和答案
第1题：
（ 11 ）下面可以正确定义 2 个整形变量和 1 个字符串变量的语句的是（ ）
A ） Dim n,m AS Interger,s AS String
B ） Dim a%,b$,c AS String
C ） Dim a AS Integer,b,c AS String
D ） Dim x%,y AS Integer,z AS String
第2题：
在窗体上画一个命令按钮，然后编写如下代码： 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
解析：在For循环体中，最后利用Seek语句将文件指针指向第1个字符后；因此Print EOF(1)语句中， EOF(1)函数得到的值为False，即文件指针当前不指向文件的结尾。值得注意的是，当文件d:\vb\tt.txt的内容为空或者是该文件只有一个字符的时候，EOF(1)函数得到的值就应该为True，也就是说当前文件指针指向文件结尾。
第3题：
下面可以正确定义2个整形变量和1个字符串变量的语句的是（ ）。
A．Dim n,m AS Interger,s AS String
B．Dim a%,b$,c AS String
C．Dim a AS Integer,b,c AS String
D．Dim x%,y AS Integer,z AS String
第4题：
A.myInt = myByte;
B.myInt = myLong;
C.myByte = 3;
D.myInt = myChar;
E.myFloat = myDouble;
F.myFloat = 3;
G.myDouble = 3.0;
第5题：
在窗体上画一个命令按钮，然后编写如下代码： 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
解析：该程序对指定路径下的文件进行Input操作，由于是遍历整个文件，则最后的EOF(1)必为真。
第6题：
在窗体上画一个命令按钮，然后编写如下代码： 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
解析：这个题目的重点在于考核函数LOF、EOF和Input$的使用。LOF函数能够返回文件的实际长度。EOF函数用于测定记录指针是否到达文件末尾。Input$函数用于从文件中读出指定个数的字符。
第7题：
已知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
解析：For循环开始执行时，由于NextChar＝MaxSize，所以要执行语句Seek#l，NextChar，文件指针指向文件尾，使EOF(1)为真，循环结束后，文件指针指向文件的开始处，故其输出结果为False。
第8题：
下面可以正确定义两个整型变量和—个字符串变量的语句是______。
A．Dim n,m As Integer,s As String
B．Dim a%,b$,c As String
C．Dim a As Integer,b,c As String
D．Dim x%,y As Integer,z As String
解析：Dim语句形式为：Dim变量名[As 类型] [As 类型]：方括号部分表示该部分可以缺省。缺省“As类型”部分，则所创建的变量默认为变体类型。为方便定义，可在变量名后加类型符来代替“As类型”。此时变量名与类型符之间不能有空格。一条Dim语句可以同时定义多个变量，但每个变量必须有自己的类型声明，类型声明不能共用，所以选项A，C是错误的。 S是定义字符型变量的关键字，选项B定义的是1个整型变量和2个字符串变量，不符合要求。
第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
解析：该程序对指定路径下的文件进行Input操作，由于是遍历整个文件，则最后的EOF(1)必为真。
第10题：
下述代码A和B正确的值是（） Dim X As String = "123" Dim Y As Integer = 123 Dim A As String = X + Y Dim B As String = X & Y
A“246”，“123123”
B246，“123123”
C“123123”，“123123”
D123123，“123123”
A
略