1、二级 VISUAL+BASIC 笔试 44 及答案解析(总分：96.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.数据库设计包括两个方面的设计内容，它们是（分数：2.00）A.概念设计和逻辑设计B.模式设计和内模式设计C.内模式设计和物理设计D.结构特性设计和行为特性设计2.Print 方法可以在对象上输出数据，这些对象包括（分数：2.00）A.图片框B.状态栏C.标题栏D.代码窗口3.在修改列表框内容时，AddItem 方法的作用是（分数：2.00）A.在列表框内插入一行文本B.在列表框中插入 1 多行文本C.删除列表框中指定的项目D.清除列表框内的全部内
2、容4.设 A$=“北京”，B$=“Shanghai“，则表达式 LEFTS(A $，2)+STRINGS(3，“-”)+ LEFTS(BS，8)桅成的字符串是（分数：2.00）A.“北京-”B.“北京-Shanghai”C.“Shanghai”D.“北京 Shanghai”5.以下合法的变量名是（分数：2.00）A.A%BB.Test1C.1costD.And6.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 30 Then m=m+n/3 Next Print
3、n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（分数：2.00）A.15B.18C.21D.247.执行如下语句： a=InputBox(“Today“，“Tomorrow“，“Yesterday“，“Day before yesterday“，5)将显示一个对话框，在对话框的输入区中显示的信息是（分数：2.00）A.TodayB.TomorrowC.YesterdayD.Day before yesterday8.栈底至栈顶依次存放元素 A、B、C、D，在第五个元素 E 入栈前，栈中元素可以出栈，则出栈序列可能是（分数：2.00）A.ABCEDB.DCBEAC.DBC
4、EAD.CDABE9.有如下程序： Private Sub Form_Click() E=1：F=1 For i=1 To 3 E=E+F:F=F+E Next Print E；F End Sub 该程序的输出结果是（分数：2.00）A.6 6B.5 8C.13 21D.34 5510.下列程序段的执行结果为 a=5 For k=1 To 0 a=a * k Next k Print k；a（分数：2.00）A.-1 6B.-1 16C.1 5D.11 2111.一个工程中含有窗体 Form1、Form2 和标准模块 Modell，如果在 Form1 中有语句 Public X As Inte
5、ger，在 Modell 中有语句 Public Y As Integer。则以下叙述中正确的是（分数：2.00）A.变量 X、Y 的作用域相同B.Y 的作用域是 ModellC.在 Form1 中可以直接使用 XD.在 Form2 中可以直接使用 X 和 Y12.在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print “sub1：“；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print“Main：“
6、；a1；b1；c1 End Sub 程序运行后，输出结果为（分数：2.00）A.Sub： 2 6 4 Main： 2 6 4B.Sub： 2 6 4 Main： 2 6 4C.Sub： 2 6 4 Main： 1 2 3D.Sub： 2 6 4 Main： 2 2 313.下列关系运算结果为 True 的是（分数：2.00）A.“1”+2=“12”B.“1”+2=“3”C.“1”#2=“12”D.“1” Next Print End Sub（分数：2.00）填空项 1:_48.假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String * 10
7、TelNum As String * 20 End Type 要求在执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。将经下程序补充完整。 Private Sub Command1_Clickk( ) Dim B As Books open “c: /person. txt“ For output As #1 B. Name = InputBox (“请输入姓名 t“ ) B. TelNum = InputBox(“请输入电话号码“ ) write #1,U 【15】 /U close #1 End Sub（分数：2.00）填空项 1:_二级 V
8、ISUAL+BASIC 笔试 44 答案解析(总分：96.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.数据库设计包括两个方面的设计内容，它们是（分数：2.00）A.概念设计和逻辑设计 B.模式设计和内模式设计C.内模式设计和物理设计D.结构特性设计和行为特性设计解析：解析 数据库设计包括数据库概念设计和数据库逻辑设计两个方面的设计内容。2.Print 方法可以在对象上输出数据，这些对象包括（分数：2.00）A.图片框 B.状态栏C.标题栏D.代码窗口解析：解析 Print 方法可以在窗体、立即窗口、图片框、打印机这些对象上输出数据。3.在修改列表框内容时，
9、AddItem 方法的作用是（分数：2.00）A.在列表框内插入一行文本 B.在列表框中插入 1 多行文本C.删除列表框中指定的项目D.清除列表框内的全部内容解析：解析 列表框可以使用 AddItem，Clear 和 RemoveItem 等方法，用来在运行期间改变列表框的内容。AddItem 方法用来在列表框中插入一行文本：格式为：列表框AddItem 项目字符串，索引值；Clear 方法用来清除列表框中的全部内容，格式为：列表框Clear； RemoveItem 方法用来删除列表中指定的项目，格式为：列表框RemoveItem 索引值。4.设 A$=“北京”，B$=“Shanghai“，则
10、表达式 LEFTS(A $，2)+STRINGS(3，“-”)+ LEFTS(BS，8)桅成的字符串是（分数：2.00）A.“北京-”B.“北京-Shanghai” C.“Shanghai”D.“北京 Shanghai”解析：解析 由于函数 Left$是从字符串的左边取出 N 个字符，Unicode 编码将一个汉字和一个西文字符都视为一个字符，因此函数值仍是：北京和 Shang hai，函数 String$返回 N 个指定字符构成字符串，因此函数值是-。将它们连接在一起构成字符申“北京-Shanghai”。5.以下合法的变量名是（分数：2.00）A.A%BB.Test1 C.1costD.An
11、d解析：解析 Visual Basic 中规定变量名的首字符必须是字母子，不能包含%、 Next Print End Sub（分数：2.00）填空项 1:_ （正确答案：$）解析：解析 本题的难点是了解生成字符函数 String$()和计算字符函数 Len()，a $=“*“的作用只是被用来计算字符串的长度，没有被打印出来。打印分隔符为“；”时，字符串之间没有空格。空打印 Print操作是换行。48.假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String * 10 TelNum As String * 20 End Type 要求在执行事件过
12、程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。将经下程序补充完整。 Private Sub Command1_Clickk( ) Dim B As Books open “c: /person. txt“ For output As #1 B. Name = InputBox (“请输入姓名 t“ ) B. TelNum = InputBox(“请输入电话号码“ ) write #1,U 【15】 /U close #1 End Sub（分数：2.00）填空项 1:_ （正确答案：15B.Name，B.TelNum）解析：解析 本题考查了文件的读写操作。要向顺序文件中写入记录必须用 Print#或 Write#语句将内容写入文件，题目要求在 Person.txt 文件中写入一条记录，因此，空白处应填写 B.Name，B.TelNum。
