计算机模拟3计算机模拟3.docVIP

1．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：D Option Base 1 Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To A、 6 9 7 10 B、 9 12 10 13 C、 7 10 8 11 D、 8 11 9 12 2设在窗体上有一个名称为Combo1的组合框，含有5个项目，要删除最后一项，正确的语句是____D__。 A、Combo1.RemoveItem 5 B、Combo1.RemoveItem Combo1.ListCount C、Combo1.RemoveItem Combo1.Text D、Combo1.RemoveItem 4 3在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是___A___。 A、Private Sub List1_Click() Label1.Caption=List1.Text End Sub B、Private Sub List1_Click() Label1.Name=List1.Text End Sub C、Private Sub List1_Click() Label1.Caption=List1.ListIndex End Sub D、Private Sub List1_Click() Label1.Name=List1.ListIndex End Sub 4以下叙述中错误的是_B_____。 A、顺序文件中的数据只能按顺序读写 B、随机文件中各记录的长度是随机的 C、对同一个文件，可以用不同的方式和不同的文件号打开 D、执行Close语句，可将文件缓冲区中的数据写到文件中 5以下语句用于打开一个顺序文件Open C:\MyFile.txt For OutPut 但该语句的一个重要错误是没有_D_____。 A、指定文件类型 B、指定打开文件名 C、指定文件号 D、指定打开方式 6设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键（回车键的ASCII码为13）后，隐藏Form1，显示Form2。若口令为Teacher，所有菜单项都可见；否则看不到成绩录入菜单项。为此，某人在Form1窗体文件中编写如下程序：A Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then A、把Form1.Hide、Form2.Show两行移到2个End If之间 B、把If KeyAscii=13 Then改为If KeyAscii=Teacher Then C、把2个Form2.input.Visible中的Form2.删去 D、把Form1中Text1文本框及相关程序放到Form2窗体中 7目录列表框的Path属性的作用是__B____。 A、显示当前驱动器或指定驱动器上的路径 B、显示当前驱动器或指定驱动器上的某目录下的文件名 C、显示根目录下的文件名 D、只显示当前路径下的文件 8使用Public Const语句声明一个全局的符号常量时，该语句应放在___B___。 A、窗体模块或标准模块的通用声明段 B、标准模块的通用声明段 C、窗体模块的通用声明段 D、过程中 9在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：D Private Sub func(L As Label) L.Caption=1234 End Sub Private Sub Form_Load() Label1.Caption=ABCDE Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Capti A、1234和100 B、ABCD和100 C、ABCD和10 D、1234和10 10把窗体的KeyPr