1、二级 VISUAL+BASIC 笔试-354 及答案解析(总分：90.00，做题时间：90 分钟)一、选择题(总题数：25，分数：75.00)1.在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 _。Private Sub Text1_KeyPressKeyAscii As Integer)Dim char as Stringchar=Chr(KeyAscii)Text1.Text=String(5，KeyAscii)End Sub（分数：3.00）A.aaaaaB.AAAAAC.aaaaaaD.AAAAAA2.大部分控件都没有的属
2、性是 _。（分数：3.00）A.TopB.NameC.IntervalD.Visible3.以下程序运行后输出的结果是 _。a = 12.3b=-123m=Len(Str$(A)+Str$(B)Print mEnd（分数：3.00）A.9B.5C.7D.84.编写如下事件过程：Private Sub Form KeyDown(KeyCode As Integer，Shift As Integer)If(Button And 3)=3 ThenPrint “AAAA“End IfEnd Sub程序运行后，为了在窗体上输出“AAAA“，应按下的鼠标键为 _。（分数：3.00）A.左B.右C.同时按
3、下左、右D.按什么键都不显示5.读数据文件的操作可以通过下列 _ 语句来实现。（分数：3.00）A.Input#和 Get#B.Read 和 Line Input#C.Get#和 Line Input#D.Line Input# 和 Input#6.在 Visual Basic 中，所有的窗体和控件都必定具有的一个属性是 _。（分数：3.00）A.FontB.NameC.CaptionD.FillColor7.假定在窗体上建立一个通用对话框，其名称为 CommonDialogl，用下面的语句可以建立一个对话框：CommonDialogl.Action=1与该语句等价的语句是 _。（分数：3.0
4、0）A.CommonDialogl.ShowOpenB.CommonDialogl.ShowSaveC.CommonDialogl.ShowFontD.CommonDialogl.ShowColor8.以下程序的输出结果是 _。x=2-2Print xEnd（分数：3.00）A.4B.0.25C.4D.程序错误9.下列 Visual Basic 语句中，正确的语句是 _。（分数：3.00）A.A=1.75E2.7B.AS=BASICC.A$=“X+Y+Z“D.A$=B$+1210.在窗体上画一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，并编写如下事件过程：Priva
5、te Sub Command1_Click()CommonDialogl.Flags=cdlOFNHideReadOnlycommonDialogl.Filter=“All Files(*.*)|*.*| Text Files“Next iPrintEnd Sub（分数：2.50）填空项 1:_30.在窗体上建立名称为 Text1、Text2 和删的三个文本框，其中 Text1 和 Text2 文本框用来接受两个整数(假设为 M 和 N)，建立一个名称为 command1 的命令按钮，单击它将得到数 M 从右边起的 N 位数字，并把该数字显示在 Text3 文本框中，如下图所示。请填空。（分数
6、：2.50）填空项 1:_31.下列程序实现的功能是：在窗体上单击时，将在窗体上输出 c:=a1.txt 文件中的所有小写字母。Private Sub Form Click()Dim Ch As String * 1Open “c:/a1.txt“ For Input As #10Do While 【8】 Ch= Input(1, #10)If 【9】 ThenPrint Ch;End IfLoop【10】 End Sub（分数：2.50）填空项 1:_二级 VISUAL+BASIC 笔试-354 答案解析(总分：90.00，做题时间：90 分钟)一、选择题(总题数：25，分数：75.00)1
7、.在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 _。Private Sub Text1_KeyPressKeyAscii As Integer)Dim char as Stringchar=Chr(KeyAscii)Text1.Text=String(5，KeyAscii)End Sub（分数：3.00）A.aaaaaB.AAAAAC.aaaaaaD.AAAAAA 解析：解析 在程序段用到了 4 个函数，在按了键盘上的某个键(在这里是字母键 a)后，Chr 函数将得到的键的 ASCII 码值(101)转换成该 ASCII 码值对
8、应的字符(a)，然后利用 Ucase 函数将该字符转换成大写字母(A)，将该大写字母的 ASCII 码值(利用函数 Asc()赋给 KeyAscii，最后利用 String 函数的 5 个 ASCII码值等于 KeyAscii 的字符(即 5 个 A)赋给文本框 Text1，此时文本框中将显示 5 个 A，又因为 KeyPress事件本身会在文本框中显示/输入一个 ASCII 码值为 KeyAscii 的字符(A)，因此最后在文本框中将显示 6个大写字母 A。2.大部分控件都没有的属性是 _。（分数：3.00）A.TopB.NameC.Interval D.Visible解析：解析 Inter
9、val 属性仅应用于 Timer 控件。返回或设置对 Timer 控件的计时事件各调用间的毫秒数。3.以下程序运行后输出的结果是 _。a = 12.3b=-123m=Len(Str$(A)+Str$(B)Print mEnd（分数：3.00）A.9 B.5C.7D.8解析：解析 str$(数值表达式)函数的功能是将数值表达式的值转换成字符串表达式。如果数值表达式的值为正数，则在字符串前有一空格符号位。因此，函数 Str$(12.3)返回的结果为“12.3”，其长度为 5(标志共有 5 个字符)；Str$(-123)返回的结果为“-123”，其长度为 4。长度函数 Len 计算的结果是：m=5+
10、4=904.编写如下事件过程：Private Sub Form KeyDown(KeyCode As Integer，Shift As Integer)If(Button And 3)=3 ThenPrint “AAAA“End IfEnd Sub程序运行后，为了在窗体上输出“AAAA“，应按下的鼠标键为 _。（分数：3.00）A.左B.右C.同时按下左、右D.按什么键都不显示 解析：解析 从题目中的程序可以看出，(BuRon And 3)=3 这个条件永远是假的，所以输出语句也永远不会被执行。5.读数据文件的操作可以通过下列 _ 语句来实现。（分数：3.00）A.Input#和 Get#B.
11、Read 和 Line Input#C.Get#和 Line Input#D.Line Input# 和 Input# 解析：解析 Get#语句把由“文件号”所指定的磁盘文件中的数据读到“变量”中。Visual Basic 中没有 Read 语句。读数据文件的操作由 Input#语句、Line Input#语句和 Input()函数来实现。6.在 Visual Basic 中，所有的窗体和控件都必定具有的一个属性是 _。（分数：3.00）A.FontB.Name C.CaptionD.FillColor解析：解析 在 Visual Basic 中，所有的窗体和控件都是对象，它们在工程中都必定有
12、一个名称。它们的名称都是由 Name 属性决定的。7.假定在窗体上建立一个通用对话框，其名称为 CommonDialogl，用下面的语句可以建立一个对话框：CommonDialogl.Action=1与该语句等价的语句是 _。（分数：3.00）A.CommonDialogl.ShowOpen B.CommonDialogl.ShowSaveC.CommonDialogl.ShowFontD.CommonDialogl.ShowColor解析：解析 通用对话框的 Action 属性为 1 表示显示的是“打开”对话框，所以相当于 Common Dialogl.ShowOpen。8.以下程序的输出结
13、果是 _。x=2-2Print xEnd（分数：3.00）A.4B.0.25 C.4D.程序错误解析：解析 在一般情况下，不允许两个运算符相连，应当用括号隔开，以免出错。乘幂号与符号相邻时为例外。9.下列 Visual Basic 语句中，正确的语句是 _。（分数：3.00）A.A=1.75E2.7B.AS=BASICC.A$=“X+Y+Z“ D.A$=B$+12解析：解析 选项 A 中，常量的表示方法错误；选项 B 中，赋值号两边的数据类型不匹配， A$为字符型变量，BASIC 作为变量是数值型变量，作为字符串常量缺双引号；选项 D 中，赋值号右边数据类型不匹配，B$为字符型变量，12 为数
14、值常量。选项 C 中，把一个字符串常量“X+Y/2“赋给字符串变量 A$，表达正确。10.在窗体上画一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialogl.Flags=cdlOFNHideReadOnlycommonDialogl.Filter=“All Files(*.*)|*.*| Text Files“Next iPrintEnd Sub（分数：2.50）填空项 1:_ （正确答案：j=20 a(i)=a(j)）解析：解析 数组逆序存放其实就是把数组的第一个元素和最后
15、一个元素交换，第二个元素和倒数第二个元素交换，直到所有的元素都交换完毕。算法可描述如下：用变量 i 记下第一个元素的下标 1，用变量j 记下最后一个元素的下标 20：交换 a(i)和 a(j)；i 加 1 指向后一个元素， j 减 1 指向前一个元素：重复上述步骤，直到 ij 为止。【4】处应该填写 j 赋最后一个元素的下标，为“j=20“。【5】处是 a(i)和a(j)交换的一条语句，应填“a(i)=a(j)”。30.在窗体上建立名称为 Text1、Text2 和删的三个文本框，其中 Text1 和 Text2 文本框用来接受两个整数(假设为 M 和 N)，建立一个名称为 command1
16、的命令按钮，单击它将得到数 M 从右边起的 N 位数字，并把该数字显示在 Text3 文本框中，如下图所示。请填空。（分数：2.50）填空项 1:_ （正确答案：m Mod 10 digit(m, n)）解析：解析 本题 digit 函数的作用是求第一个形参 m 从右数的第 n(第二个形参)位数字。为求 m 的第n 位数字，可先让 m 除以 10n-1(上标)，再求商除以 10 的余数，该余数就是所需要的数字。因此【6】处应填“m Mod 10”。当发生 Command1_Click 事件时，将调用该函数求得 m 和右数第 n 位数字，因此在【7】处应填函数调用“digit(m, n)”。31
17、.下列程序实现的功能是：在窗体上单击时，将在窗体上输出 c:=a1.txt 文件中的所有小写字母。Private Sub Form Click()Dim Ch As String * 1Open “c:/a1.txt“ For Input As #10Do While 【8】 Ch= Input(1, #10)If 【9】 ThenPrint Ch;End IfLoop【10】 End Sub（分数：2.50）填空项 1:_ （正确答案：Not EOF(10) Ch“a“And Ch=“z“ Close #10）解析：解析 要将 a1.txt 中的所有小写字母输出，可采用下述方法：首先读打开该文件，然后从文件中读取一个字符，判断该字符是否为小写字母，若是则输出该字母，重复上述过程直到文件结尾。在读字符前应要测试文件内部读写指针是否位于文件尾，只有不是在文件结尾时才能读取字符，故【8】处应填“Not EOF(10)”，读取一个字符后，应判断该字符是否尾小写字母，故【9】处应填“Ch“a“ And Ch=“z“”，文件读写过后，应关闭文件，故【10】处应填“Close #10”。
