单击（）按钮，可在程序框图上动态显示数据的流动过程。A、高亮显示执行过程B、连续运行C、运行D、中止执行

正确答案：
hardware【解析】本题考查消息框的知识。使用MsgBox函数来弹出消息框，此函数的使用格式为：MsgBox(prompt[，buttons][，title][，helpfile，context])其中第一个参数是显示在对话框中的消息，第二个参数是按钮的数目及形式，第三个参数是对话框标题栏显示的字符串，后面的是帮助文件以及帮助上下文编号。第一个参数必需有，其余参数可省略，但是若中间若干个参数省略时不能省略逗号分隔符。本题中第三个参数是变量b，即hardware。

正确答案：A
解析：本题考查字符串函数。 String返回n个字符。如果为字符串，则返回n个字符串的首字符。据此，本题的正确答案为A，即返回3个“Visual Basic”的首字母“V”。

正确答案：A

正确答案：C
本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的af2)就是数组的第三个元素即“钻床”。

正确答案：B

正确答案：C
本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2)就是数组的第三个元素即“钻床”。

正确答案：(1)Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件在窗体建立一个文本框Text1将其Text属性设为空。 (3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮名称分别为 Command1、Command2和Command3标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮弹出代码窗口在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1a Loop Close #1 End Sub (5)双击“计算”按钮弹出代码窗口在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)＞a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮弹出代码窗口在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App．Path & "\" & "out.txt" For Output As #1 Print #1 a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令将工程文件命名为ylc.vbp窗体文件命名为 ylc.frm。
(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择文本框控件，在窗体建立一个文本框Text1，将其Text属性设为空。 (3)在工具箱中选择命令按钮控件，在窗体上创建三个命令按钮，名称分别为 Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”。 (4)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码； Private Sub Command1_Click() Dim a As String Call FindData(a) Text1.Text=a End Sub Sub FindData(a As String) Open App.Path & "\"& "data.txt"For Input As #1 Do While Not EOF(1) Input #1，a Loop Close #1 End Sub (5)双击“计算”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command2_Click() Sub sort(a()As Integer) Dim n As Integer For i=1 To 15 For j=1 To 15-i If (a(j)＞a(j+1))Then n=a(j) a(i)=a(i+1) a(j+1)=n End If Next i Next i End Sub (6)双击“保存数据”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open App．Path & "\" & "out.txt" For Output As #1 Print #1, a Close #1 End Sub (7)按F5键运行程序。如图29所示。 (8)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。 解析：(1)该题与上机模拟题十二在基本操作上类似，都考查了文件的读入操作并在文本框中输出；对顺序文件的读入和输出的操作等。(2)该题重点考查了利用冒泡算法对数组元素进行排序。

正确答案：D
D。【解析】事件过程的命名方式一般为事件对象_事件名，所以该事件应为“Click”的“MouseDown”事件。

正确答案：B
解析：对于符号“0”，实际数字小于符号位数时，数字前后加0；大于时，若要显示数值表达式的整数部分位数多于格式字符串的位数，按实际数值显示。若小数部分的位数多于格式字符串的位数，按四舍五入显示。